Cкрипт VBS

Здравствуйте! Прошу Вас подредактировать скрипт VBS. Загрузка_страниц_Online-Users, извлечение логинов и доменов пользователей. С адреса "http://my.mail.ru/my/online-users?sex=1" на "http://my.mail.ru/my/search_people?sex=1".

On Error Resume Next

Dim FSO, runappl, Args, ScrDir, CONTROLURL, NUMBER, EMAIL, PASS

Set FSO = CreateObject("Scripting.FileSystemObject")

Set runappl = CreateObject("wscript.shell")

Set Args = WScript.Arguments

NUMBER = Args(0)

EMAIL = Args(1)

LOGIN = Args(2)

DOMAIN = Args(3)

PASS = Args(4)

ScrDir = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName))) 'Определение пути к рабочему каталогу скрипта

CookieAndMy 'Получение куков с проверкой их валидности и посещение контрольной и собственной страницы, анализ собственной страницы

'AddFr 'Приём десяти предложений дружбы в начале выполнения скрипта

active = true

While active = true

If Minute(Now)/10=Int(Minute(Now)/10) Then CookieAndMy 'Получение новых куков и собственной страницы, если количество минут текущего времени делится на 10

'If Minute(Now)/10=Int(Minute(Now)/10) Then AddFr 'Приём десяти предложений дружбы, если количество минут текущего времени делится на 10

'-----Загрузка_страниц_Online-Users

runappl.run ScrDir&"wgetOU_"&EMAIL&".exe --no-check-certificate -o "&ScrDir&"LogOnlineUsersSex1.txt --tries=inf --no-check-certificate http://my.mail.ru/my/search_people?sex=1 --load-cookies "&ScrDir&"Cookies.txt --output-document="&ScrDir&"OnlineUsersSex1.html", 0, True

'-----Извлечение логинов и доменов пользователей, генерация ссылок и отправка данных на сервер (посещение пользователей)

Set OnlineUsersRegExp = CreateObject("VBScript.RegExp")

OnlineUsersRegExp.Pattern = "([A-Za-z0-9\.\-_]+)@(mail|bk|inbox|list).ru"

OnlineUsersRegExp.Global = True

Set ONLINEUSERSFILE = FSO.OpenTextFile(ScrDir&"OnlineUsersSex1.html", 1) 'Открываем файл OnlineUsersSex1.html для чтения и поиска

ONLINEUSERSVAR = ONLINEUSERSFILE.ReadAll 'Прочитываем весь файл в переменную ONLINEUSERSVAR

ONLINEUSERSFILE.Close

Set ONLINEUSERSPLUS = OnlineUsersRegExp.Execute(ONLINEUSERSVAR) 'Извлекаем соответствия

For i=0 To ONLINEUSERSPLUS.Count-1

Set PLUSFOTOURL = ONLINEUSERSPLUS.Item(i)

ONLINEUSERURL = OnlineUsersRegExp.Replace(PLUSFOTOURL, "http://m.my.mail.ru/$2/$1") 'извлекаем URL

'MsgBox ONLINEUSERURL 'Очередной адрес

'-----Отправка данных на сервер

runappl.run ScrDir&"wgetUsers_"&EMAIL&".exe --no-check-certificate -o "&ScrDir&"LogUsers.txt --tries=1 "&ONLINEUSERURL&" --load-cookies "&ScrDir&"Cookies.txt --output-document="&ScrDir&"Users.html", 0, True

Next

runappl.run "%comspec% /c echo " & Chr(7), 0, True 'информационный сигнал о получении страниц

'active = false

Wend

'------------------------------------------------

Sub CookieAndMy 'Получение куков с проверкой их валидности и посещение контрольной и собственной страницы, анализ собственной страницы

CEMAIL = 0

Do While CEMAIL

'-----Получение_куки

runappl.run ScrDir&"wgetcookie_"&EMAIL&".exe --no-check-certificate -o "&ScrDir&"logCookieDownload.txt --tries=inf --user-agent='Mozilla/5.0' --save-cookies="&ScrDir&"Cookies.txt --post-data=page=http://my.mail.ru/&Login="&EMAIL&"&Password="&PASS&" https://auth.mail.ru/cgi-bin/auth --no-check-certificate -O-", 0, True

wscript.sleep 1000

runappl.run "%windir%\system32\TASKKILL.exe /F /IM wgetcookie_"&EMAIL&".exe",0, True 'убиваем wgetcookie

'-----Проверка_куки

Set CookieEmailRegExp = CreateObject("VBScript.RegExp"):CookieEmailRegExp.Pattern = "([A-Za-z0-9\.\-_]{1,31}@(mail|bk|inbox|list)\.ru)":CookieEmailRegExp.Global = False

Set COOKIFILE = FSO.OpenTextFile(ScrDir&"Cookies.txt", 1) 'Открываем файл для чтения

Set COOKIEEMAILS = CookieEmailRegExp.Execute(COOKIFILE.ReadAll)

For i=0 To COOKIEEMAILS.Count-1 : Set COOKIEEMAIL = COOKIEEMAILS.Item(i) : Next

CEMAIL = CookieEmailRegExp.Replace(COOKIEEMAIL, "$1") 'извлекаем ящик из куки

'MsgBox CEMAIL

COOKIFILE.Close 'Закрываем файл

Loop

'-----Загрузка_контрольной страницы

runappl.run ScrDir&"wgetControl_"&EMAIL&".exe --no-check-certificate -o "&ScrDir&"LogControl.txt --tries=1 -T4 --input-file=Control.txt --load-cookies "&ScrDir&"Cookies.txt --output-document="&ScrDir&"Control.html", 0, True

'-----Загрузка_собственной_страницы

runappl.run ScrDir&"wgetMy_"&EMAIL&".exe --no-check-certificate -o "&ScrDir&"LogMyMail.txt --tries=inf --no-check-certificate http://my.mail.ru/"&DOMAIN&"/"&LOGIN&"/ --load-cookies "&ScrDir&"Cookies.txt --output-document="&ScrDir&"MyMail.html", 0, True

'runappl.run "%comspec% /c echo " & Chr(7), 0, True 'Сигнализация события