求人帮助，小弟想写个人人+sina微博状态同时更新器

Question

求人帮助，小弟想写个人人+sina微博状态同时更新器，不知道从何下手 写好了壳可以不会用API 学VB才一个多学期 不只哪位高手不吝啬技术帮小弟一把让我对VB的热爱更加的深吧~~ 最好有高手能直接上源码让小弟仔仔细细的研究琢磨一下。谢谢了

Answer 1

王强壮同学，请参考：
http://blog.csdn.net/sysdzw/archive/2009/08/19/4463844.aspx

Answer 2

先抓包，然后POST
如登录新浪：Private Sub Command1_Click()
  Dim posttem As String
  Dim BinBuff() As Byte
  Dim friend_temp As String
  Dim I As Integer
  posttem = "service=miniblog&client=ssologin.js%28v1.3.9%29&entry=miniblog&encoding=utf-8&gateway=1&savestate=7&from=&useticket=0&username=" & u.Text & "&password=" & p.Text & "&url=http%3A%2F%2Ft.sina.com.cn%2Fajaxlogin.php%3Fframelogin%3D1%26callback%3Dparent.sinaSSOController.feedBackUrlCallBack&returntype=META"
  Inet1.Execute "http://login.sina.com.cn/sso/login.php?client=ssologin.js", "POST", posttem, Content_Type & vbCrLf & "Referer: http://t.sina.com.cn/reg.php?c=/login.php&lang=zh-cn" & vbCrLf & User_Agent & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
  Do While Inet1.StillExecuting
    DoEvents
  Loop
    
  BinBuff = Inet1.GetChunk(0, icByteArray)
  login_temp = UTF8_Decode(BinBuff)
  Text1.Text = login_temp
  If InStr(login_temp, "reason=") > 0 Then
    Print "" 'MsgBox "密码错误"
  Else
    If InStr(login_temp, "&#39") > 0 Then
      msgbox "密码正确"
    End If
  End If
End Sub