Question

需要协助如何在一个网页中使用vbs创建多个bot登录。

对于下面的单机器人登录是我尝试过的 - 有人可以编辑它来创建多个吗？

提前致谢！

Set a = createobject ("wscript.shell")
a.run "http://yahoo.com"
wscript.sleep (5000)
a.sendkeys ("username")
a.sendkeys chr (9)
wscript.sleep (2000)
a.sendkeys ("password")
a.sendkeys "{Enter}"
call msgbox ("Finished")
wscript.quit

=这只会启动1次登录:(

Answer 1

您可以使用for循环进行多次登录，并使用username和pwd的数组值。

Dim uname(5) 'assign user name value to array element 0 to 5
Dim pwd(5)  'assign password value to array element 0 to 5   

Set a = createobject ("wscript.shell")
For i=0 to 5 step 1
a.run "http://yahoo.com"
wscript.sleep (5000)
a.sendkeys uname(i)
a.sendkeys chr (9)
wscript.sleep (2000)
a.sendkeys pwd(i)
a.sendkeys "{Enter}"
call msgbox ("Finished")
Next
wscript.quit

Answer 2

然后再使用一个url数组，如

Dim ArrUrl(5) 
and assign value like 
ArrUrl(0) = "www.yahoo.com" 
ArrUrl(1) = "www.gmail.com" 
ArrUrl(2) "www.facebook.com"

...

然后在循环中使用它而不是静态值

a.run ArrUrl(i)

如何使用VBS在一个页面中创建多个bot登录

2 个答案: