0

我正在尝试创建一个程序，在两个单独的输入框中询问用户他们的 Facebook 用户名和密码，然后打开 Internet Explorer，然后转到 facebook.com 并输入用户名和密码并登录。好吧，当我运行您在底部看到的代码它不起作用，因为由于某种原因，Internet Explorer 在打开时没有被选中，所以我必须点击它，它永远不会输入用户名或密码！

代码：

Option Explicit
Dim ie, x

Set ie = createobject("InternetExplorer.Application")
Set x = createobject("wscript.shell")

Sub Load
Do while ie.Busy
wscript.sleep 200
Loop
End Sub

ie.Navigate "https://www.facebook.com/"

ie.Toolbar=0
ie.StatusBar=0
ie.Resizable=1
ie.Visible=1

Call Load
x.sendkeys "cow"
x.sendkeys "{tab}"
x.sendkeys "pass"
4

1 回答 1

0

尝试这个：

Option Explicit
Dim ie, x

Set ie = createobject("InternetExplorer.Application")
Set x = createobject("wscript.shell")

ie.Visible=1
ie.Toolbar=0
ie.StatusBar=0
ie.Resizable=1

Sub Load
Do while ie.Busy
wscript.sleep 100
Loop
End Sub

x.AppActivate "Microsoft Internet Explorer"

ie.Navigate "https://www.facebook.com/"

Call Load


x.sendkeys "cow"
x.sendkeys "{tab}"
x.sendkeys "pass"

主要的收获是——

  1. 在导航到 facebook 之前使窗口可见。（或至少在 AppActivate 之前）
  2. 在传递 ID/密码之前，使用 AppActivate 选择窗口。
于 2013-08-19T05:47:15.427 回答