Как создать вход с несколькими ботами на одной странице с помощью VBS

Нужна помощь в том, как создать несколько ботов для входа с помощью vbs только на одной веб-странице.

Для входа в систему с одним ботом ниже я пробовал - может ли кто-нибудь отредактировать это, чтобы создать несколько?

Заранее спасибо!

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 логин :(


vbscript autologin login-script
person pintagos sogatinp    schedule 30.10.2014    source источник
comment
Он выполняет usernamepassword в поле поиска Yahoo...   -  person JosefZ    schedule 31.10.2014

Ответы (2)


arrow_upward
0
arrow_downward

Вы можете использовать цикл for для множественного входа в систему и использовать значение массива для имени пользователя и пароля.

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
person gunjanshah09    schedule 31.10.2014

arrow_upward
0
arrow_downward

Затем используйте еще один массив 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)
person gunjanshah09    schedule 03.11.2014