vb 如何自动登陆淘宝 webbrowser可以用xmlhttp 都可以

Question

vb 如何自动登陆淘宝 webbrowser可以用xmlhttp 都可以 inet都可 感觉应该很简单 可是就是实现不了。希望大家给帮助。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Dim strURL As String, strPostData As String, strHEAD As String
Dim ReturnCode As String, strData As String, ReturnTemp As String
Dim Inet1 As Object
Set Inet1 = CreateObject("InetCtls.Inet")
strURL = "http://login.taobao.com/member/login.jhtml"
strPostData = "TPL_username=" & UsrName.Text & "&TPL_password=" & UsrPass.Text & _
              "&actionForStable=enable_post_user_action&action=Authenticator&mi_uid=" & _
              "&mcheck=&TPL_redirect_url=http%3A%2F%2Fi.taobao.com%2Fmy_taobao.htm" & _
              "%3Fnekot%3DdmJsb2Fk1272686739178&_oooo_=http%3A%2F%2Fi.taobao.com%2Fmy_taobao." & _
              "htm%3Fnekot%3DdmJsb2Fk1272686739178&event_submit_do_login=anything&abtest=&pstrong=2" & _
              "&from=&yparam=&done=&loginType=3&tid=&support=000001&CtrlVersion=1%2C0%2C0%2C7&loginFromCount=tbBeta"
strHEAD = "Content-Type:application/x-www-form-urlencoded"
Inet1.Execute strURL, "Post", strPostData, strHEAD
Do Until Inet1.StillExecuting = False
    DoEvents
Loop
ReturnCode = ""
Do
    ReturnCode = ReturnCode + ReturnTemp
    ReturnTemp = Inet1.GetChunk(1024, 0)
Loop Until ReturnTemp = ""
If InStr(ReturnCode, "小二已经在此恭候多时了") = 0 Then
    UsrName.Text = "登录失败"
Else
    UsrName.Text = "登录成功"
End If
End SubPrivate Sub Form_Load()
UsrName.Text = ""
UsrPass.Text = ""
End Sub

Answer 2

我研究了半天 我发现我抓的包是 TPL_username=%CE%D2%CE%AA%C4%E3%B3%D5%BF%F1%D1%BD&TPL_password=gdfgerdf231&_tb_token_=3374457378d3e&action=Authenticator&event_submit_do_login=anything&TPL_redirect_url=&from=tb&fc=2&style=default&tid=&support=000001&CtrlVersion=1%2C0%2C0%2C7&loginType=3&minititle=&minipara=&pstrong=2&longLogin=-1&llnick=&sign=&need_sign=&not_duplite_str= 和你的不太一样啊，看用户名那里我的是经过编码的，我把我的TPL_username后面的换成 字母用户名 没问题能登陆，但是如何是中文用户名就不行了，登陆不成功，但是用你的代码的话 post 中文用户名就没问题 怎么回事呢 ？ 还望赐教