110,567
社区成员
发帖
与我相关
我的任务
分享
VB codePrivate Sub Command1_Click()
Dim vDoc, vTag
Set vDoc = WebBrowser1.Document
vDoc.All("Name").Value = "654321"
vDoc.All("PSID").Value = "123456789012345678"
End Sub
webBrowser1.Navigate(URL);
while (webBrowser1.ReadyState != WebBrowserReadyState.Complete)
{
Application.DoEvents();
}
//然后提交表单