VB WebBrowser 自动登录阿里妈妈请高手指导

2013-12-25 02:59:48 324 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB网络编程实战：WebBrowser与Inet控件深度应用网络编程作为软件开发的基础能力，其核心在于实现设备间的数据通信与协议交互。通过HTTP/FTP等标准协议，开发者可以构建从网页自动化到文件传输的各类应用。VB6的WebBrowser控件支持DOM操作与页面加载监控，结合Inet控件可实现完整的网络通信闭环，这种技术组合在工业控制、金融交易等对稳定性要求高的场景中表现优异。本文通过电商监控系统等案例，详解如何利用VB处理动态页面加载、协议分析等实际问题，并分享多线程优化等工程实践经验。阅读详情

我是小白，调试半天不成功，望高人指导一二。代码如下：
Private Sub Command2_Click()
WebBrowser1.Document.All("TPL_username_1")(0).Value = "用户名"
WebBrowser1.Document.All("TPL_password_1")(0).Value = "密码"
WebBrowser1.Document.All("J_SubmitStatic").Click ''登陆

End Sub
Private Sub Form_Load()
Command2.Enabled = False
WebBrowser1.Navigate2 "http://www.alimama.com/member/login.htm?spm=0.0.0.0.OA4g9o&forward=http://u.alimama.com"
End Sub
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Move 50, WebBrowser1.Top, Me.ScaleWidth - 100, Me.ScaleHeight - WebBrowser1.Top
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> "about:blank" And URL <> "" And URL <> "http:'/" Then
Command2.Enabled = True
End If
End Sub

...全文