关于inet控件提交问题,请指导

Question

我现在要通过inet控件登陆一个网页 登陆地址:http://udb.131.com/v1/Login.Aspx?forward=L3YxL2NlbnRlci9kZWZhdWx0LmFzcHg=通过inet提交后跳转到另一个网页(保持登陆状态) http://dnf.131.com/Lottery/award/我使用下面的代码,结果有问题,请指导一下!谢谢
Private Sub Form_Load()
  Dim stemp     As String, pagecode       As String
    
Inet1.Execute "http://udb.131.com/Rpc/v1/Login.Aspx?&encode=&username=lxjlhh&password=a123456&savecookies=false", "post"
            
  Do Until Inet1.StillExecuting = False
          DoEvents
  Loop
  URL = "http://dnf.131.com/Lottery/award/"
  Inet1.Execute URL, "GET"       ',   "",   "Cookie:   "   &   Cookies   &   vbCrLf
  Do Until Inet1.StillExecuting = False
          DoEvents
  Loop
          stemp = Inet1.GetChunk(1024)
          Do While stemp <> ""
                  pagecode = pagecode + stemp
                  stemp = Inet1.GetChunk(1024)
          Loop
  Text1 = pagecode
    
  End Sub

Answer 1

用webbrowser控件
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/

Answer 2

谢谢楼上,webbrowser 处理太慢了,只想用inet 麻烦解答一下

Answer 3

Inet1.Execute "http://udb.131.com/Rpc/v1/Login.Aspx?&encode=&username=lxjlhh&password=a123456&savecookies=false", "post" 
发送数据,没有data参数
  URL = "http://dnf.131.com/Lottery/award/" 
检测时不合法,用Cstr强制转换后可通过

Answer 4

可以使用webbrowser，这个空间可以很好得实现你搜需要的功能！