VB登录google后台问题

Question

在成功登录网易通行证后,我尝试登录
https://adwords.google.com/Select/main?cmd=Login&hl=zh_CN在现有客户登录里只有三个变量:
hl=zh_CN
login.userid=
login.password=
头文件:
<META http-equiv=Content-Type content="text/html; charset=utf-8">
可是我用vb提交了这三个变量的值,并提交了正确的头文件Content-Type:text/html; charset=utf-8,还是登录不了.源程序如下:
Private Sub Command1_Click()
 If Text1.Text = "" Then MsgBox "请填写用户名": Exit Sub
 If Text2.Text = "" Then MsgBox "请填写密码": Exit Sub
 Dim strFormData As String
 strFormData = "hl=zh_CN&login.userid=" + Text1.Text + "&login.password=" + Text2.Text
 Inet1.Execute "https://adwords.google.com/select/LoginValidation", "Post", strFormData, "Content-Type:text/html; charset=utf-8"
 Do Until Inet1.StillExecuting = False
   DoEvents
 Loop
WebBrowser1.Navigate "https://adwords.google.com/select/CampaignSummary"
End Sub
为何? 谢谢

Answer 1

Dim withevents objWeb as internetExplorer
private bLogin as booleanPrivate Sub Command1_Click()
 If Text1.Text = "" Then MsgBox "请填写用户名": Exit Sub
 If Text2.Text = "" Then MsgBox "请填写密码": Exit Sub
 bLogin=false
 objWeb.navigate2 "https://adwords.google.com/select/CampaignSummary"
End SubPrivate Sub objWeb_DocumentComplete(pDisp as object,URL)
 if (bLogin=false) then
  objWeb.document.all("login.userid").value=Text1.Text
  objWeb.document.all("login.password").value=Text1.Text
  objweb.document.all("login").click
  bLogin=true
 end if
end sub

Answer 2

Dim WithEvents objWeb As InternetExplorer
Private bLogin As BooleanPrivate Sub Command1_Click()
 If Text1.Text = "" Then MsgBox "请填写用户名": Exit Sub
 If Text2.Text = "" Then MsgBox "请填写密码": Exit Sub
 Set objWeb = New InternetExplorer
 objweb.visible=true
 bLogin = False
 objWeb.Navigate2 "https://adwords.google.com/select/CampaignSummary"
End SubPrivate Sub objWeb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 If (bLogin = False) Then
  objWeb.Document.All("login.userid").Value = Text1.Text
  objWeb.Document.All("login.password").Value = Text2.Text
  objWeb.Document.All("login").Click
  bLogin = True
 End If
End Sub

Answer 3

实现错误'430',类不支持自动化或不支持期望的接口.停留在'Set objWeb = New InternetExplorer'这句.
我已经选择工程里的'引用reference',选浏览,选system32里的shdocvw.dll。
你自己运行过行吗？

Answer 4

谢谢,我搞定了。 将以上 internetExplorer 改写成 shdocvw.internetExplorer 就可以了。
但是可以在后台,不要跳出internetExplorer 而在webbrowser里显示吗?谢谢!

Answer 5

可以的。你把webbrowser作为控件啊。代码都是一样的。

Answer 6

如果我要截取网页上的一段文字,可以直接使用.还是要用inet1的openurl功能与其混合使用呢?

Answer 7

直接使用。你reference一下MSHTML。最好看看MSDN上“浏览器的编程和重用”部分。很Easy的。
你可以加偶的QQ：1521380。