Vbscript 如何使用.VBS在自动bot登录的页面上启动多个不同的URL？

正在寻求您的帮助编辑以下集合。计划是在一个页面中创建多个不同的url自动机器人登录。e、 自动登录yahoo.com、gmail.com、facebook.com等。。。只需在一个网页浏览器IE

set a = createobject ("wscript.shell")
a.run "URL"
wscript.sleep (5000)
a.sendkeys ("username")
a.sendkeys chr (9)
wscript.sleep (2000)
a.sendkeys ("password")
a.sendkeys "{Enter}"
wscript.quit

有5个工具，我在我的工作中使用，他们是用户名密码保护。因为我每天都使用它们，我想创建一个机器人登录-需要你的专业知识在这里伙计们

---

您不必使用SendKeys方法。通过使用.value方法检查每个站点的元素，可以从用户名框和密码框中获取ID。像这样，ie.Doucment.All.Itememail.Value=密码放在这里

Facebook：

Option Explicit
Dim ie
ie = CreatObject("InternetExplorer.Application")
Sub WhilD
Do While ie.busy
wscript.sleep 200
loop
End Sub
ie.Navigate "www.facebook.com"
Call WhilD
ie.Document.All.Item("email").value = "Facebook username goes here"
ie.Document.All.Item("pass").value = "Facebook password goes here"
ie.Document.All.Item("login_form").submit
Call WhilD
ie.navOpenInNewWindow = 1
Call WhilD
ie.Document.All.Item("Email").value = "Gmail username goes here"
ie.Document.All.Item("Passwd").value = "Gmail password goes here"
ie.Document.All.Item("SignIn").Submit
wscript.quit

电子邮件是Facebook上用户名输入框的HTML ID。pass是Facebook上密码输入框的HTML ID，login_form是您单击以登录的按钮的HTML ID。还有另一种方法可以通过输入框实现。因此，您的计算机会询问您要导航到哪个页面以及所选站点的用户名和密码。看起来是这样的：

Option Explicit
Dim x,msgB,inpB,ie,ieDAI,FBU,FBP,GMU,GMP,HMU,HMP,YHU,YHP
Set x=CreateObject("Wscript.Shell")
Set ie=CreateObject("InternetExplorer.Application")
Sub WhiLD
Do While ie.busy
wscript.sleep 200
loop
End Sub
inpB=inputbox("What website would you like to login to?"&vbLf&"Facebook"&vbLF&"Gmail"&vbLF&"Hotmail"&vbLF&"Yahoo")

If inpB="Facebook" then
    On Error Resume Next
    FBU=inputbox("Enter Facebook Username")
    FBP=inputbox("Enter Facebook Password")
    ie.Navigate"www.facebook.com"
    ie.Left=0
    ie.Toolbar=1
    ie.StatusBar=0
    ie.Height=200
    ie.Width=1020
    Call WhiLD
    ie.Document.All.Item("email").Value= FBU
    ie.Document.All.Item("pass").Value= FBP
    ie.Document.All.Item("login_form").Submit
    Call WhilD
    ie.fullscreen=1
    ie.Visible=1
    wscript.quit
    End If

If inpB="Gmail" then
    On Error Resume Next
    GMU=inputbox("Enter Gmail Username")
    GMP=inputbox("Enter Gmail Password")
    ie.Navigate"https://accounts.google.com/ServiceLogin?service=mail&continue=https://mail.google.com/mail/"
    ie.Left=0
    ie.Toolbar=1
    ie.StatusBar=0
    ie.Height=200
    ie.Width=1020
    Call WhiLD
    ie.Doucment.All.Item("Email").Value= GMU
    ie.Doucment.All.Item("Passwd").Value= GMP
    ie.Doucment.All.Item("SignIn").Submit
    Call WhilD
    ie.fullscreen=1
    ie.Visible=1
    wscript.quit
    End If

If inpB="Hotmail" then
    On Error Resume Next
    HMU=inputbox("Enter Hotmail Username")
    HMP=inputbox("Enter Hotmail Password")
    ie.Navigate"https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=12&ct=1414030279&rver=6.4.6456.0&wp=MBI_SSL_SHARED&wreply=https:%2F%2Fblu168.mail.live.com%2Fdefault.aspx%3Fmkt%3Den-au%26rru%3Dinbox&lc=3081&id=64855&mkt=en-au&cbcxt=mai"
    ie.Left=0
    ie.Toolbar=1
    ie.StatusBar=0
    ie.Height=200
    ie.Width=1020
    Call WhiLD
    ie.Doucment.All.Item("idDiv_PWD_UsernameExample").Value= HMU
    ie.Doucment.All.Item("idDiv_PWD_PasswordExample").Value= HMP
    ie.Doucment.All.Item("idSIButton9").Submit
    Call WhiLD
    ie.fullscreen=1
    ie.Visible=1
    wscript.quit
    End If

If inpB="Yahoo" then
    On Error Resume Next
    HMU=inputbox("Enter Yahoo Username")
    HMP=inputbox("Enter Yahoo Password")
    ie.Navigate"https://login.yahoo.com/"
    ie.Left=0
    ie.Toolbar=1
    ie.StatusBar=0
    ie.Height=200
    ie.Width=1020
    Call WhiLD
    ie.Doucment.All.Item("username").Value= YHU
    ie.Doucment.All.Item("passwd").Value= YHP
    ie.Doucment.All.Item(".save").Submit
    Call WhiLD
    ie.fullscreen=1
    ie.Visible=1
    wscript.quit
    End If

If inpB=2 then
wscript.quit
End If

您还可以使用自定义IE浏览器。我以前就是这么做的。它可以更有效，但当它像这样布置时，更容易学习和理解

请注意：如果您已经登录到该网站，则这些VBScript将无法工作

希望这有帮助