Гусев

Россия

Здравствуйте! Прошу Вас подредактировать скрипт 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 <> EMAIL
	'-----Получение_куки
	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 'Сигнализация события

Здравствуйте! Прошу Вас подредактировать скрипт VBS. Загрузка_страниц_Online-Users, извлечение логинов и доменов пользователей. С адреса "<a href="http://my.mail.ru/my/online-users?sex=1" rel="nofollow noopener noreferrer" target="_blank">http://my.mail.ru/my/online-users?sex=1</a>" на "<a href="http://my.mail.ru/my/search_people?sex=1" rel="nofollow noopener noreferrer" target="_blank">http://my.mail.ru/my/search_people?sex=1</a>".
On Error Resume Next
Dim FSO, runappl, Args, ScrDir, CONTROLURL, NUMBER, EMAIL, PASS

Set FSO = CreateObject("Scripting.FileSystemObject")
Set runappl = CreateObject("<a href="http://wscript.shell" rel="nofollow noopener noreferrer" target="_blank">wscript.shell</a>")
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
<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> ScrDir&amp;"wgetOU_"&amp;EMAIL&amp;".exe --no-check-certificate -o "&amp;ScrDir&amp;"LogOnlineUsersSex1.txt --tries=inf --no-check-certificate <a href="http://my.mail.ru/my/search_people?sex=1" rel="nofollow noopener noreferrer" target="_blank">http://my.mail.ru/my/search_people?sex=1</a> --load-cookies "&amp;ScrDir&amp;"Cookies.txt --output-document="&amp;ScrDir&amp;"OnlineUsersSex1.html", 0, True


'-----Извлечение логинов и доменов пользователей, генерация ссылок и отправка данных на сервер (посещение пользователей)
Set OnlineUsersRegExp = CreateObject("VBScript.RegExp")
OnlineUsersRegExp.Pattern = "([A-Za-z0-9\.\-_]+)@(mail|bk|inbox|list).ru"
<a href="http://OnlineUsersRegExp.Global" rel="nofollow noopener noreferrer" target="_blank">OnlineUsersRegExp.Global</a> = True
Set ONLINEUSERSFILE = FSO.OpenTextFile(ScrDir&amp;"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, "<a href="http://m.my.mail.ru/$2/$1" rel="nofollow noopener noreferrer" target="_blank">http://m.my.mail.ru/$2/$1</a>") 'извлекаем URL
	'MsgBox ONLINEUSERURL 'Очередной адрес
	'-----Отправка данных на сервер
	<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> ScrDir&amp;"wgetUsers_"&amp;EMAIL&amp;".exe --no-check-certificate -o "&amp;ScrDir&amp;"LogUsers.txt --tries=1 "&amp;ONLINEUSERURL&amp;" --load-cookies "&amp;ScrDir&amp;"Cookies.txt --output-document="&amp;ScrDir&amp;"Users.html", 0, True

Next
	<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> "%comspec% /c echo " &amp; Chr(7), 0, True 'информационный сигнал о получении страниц





'active = false
Wend




'------------------------------------------------
Sub CookieAndMy 'Получение куков с проверкой их валидности и посещение контрольной и собственной страницы, анализ собственной страницы
CEMAIL = 0
Do While CEMAIL 	'-----Получение_куки
	<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> ScrDir&amp;"wgetcookie_"&amp;EMAIL&amp;".exe --no-check-certificate -o "&amp;ScrDir&amp;"logCookieDownload.txt --tries=inf --user-agent='Mozilla/5.0' --save-cookies="&amp;ScrDir&amp;"Cookies.txt --post-data=page=<a href="http://my.mail.ru/&amp;Login=&quot;&amp;EMAIL&amp;&quot;&amp;Password=&quot;&amp;PASS&amp;" rel="nofollow noopener noreferrer" target="_blank">http://my.mail.ru/&amp;Login="&amp;EMAIL&amp;"&amp;Password="&amp;PASS&amp;</a>" <a href="https://auth.mail.ru/cgi-bin/auth" rel="nofollow noopener noreferrer" target="_blank">https://auth.mail.ru/cgi-bin/auth</a> --no-check-certificate -O-", 0, True
	wscript.sleep 1000
	<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> "%windir%\system32\TASKKILL.exe /F /IM wgetcookie_"&amp;EMAIL&amp;".exe",0, True 'убиваем wgetcookie
	'-----Проверка_куки
	Set CookieEmailRegExp = CreateObject("VBScript.RegExp"):CookieEmailRegExp.Pattern = "([A-Za-z0-9\.\-_]{1,31}@(mail|bk|inbox|list)\.ru)":<a href="http://CookieEmailRegExp.Global" rel="nofollow noopener noreferrer" target="_blank">CookieEmailRegExp.Global</a> = False
	Set COOKIFILE = FSO.OpenTextFile(ScrDir&amp;"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
'-----Загрузка_контрольной страницы
<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> ScrDir&amp;"wgetControl_"&amp;EMAIL&amp;".exe --no-check-certificate -o "&amp;ScrDir&amp;"LogControl.txt --tries=1 -T4 --input-file=Control.txt --load-cookies "&amp;ScrDir&amp;"Cookies.txt --output-document="&amp;ScrDir&amp;"Control.html", 0, True
'-----Загрузка_собственной_страницы
<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> ScrDir&amp;"wgetMy_"&amp;EMAIL&amp;".exe --no-check-certificate -o "&amp;ScrDir&amp;"LogMyMail.txt --tries=inf --no-check-certificate <a href="http://my.mail.ru/&quot;&amp;DOMAIN&amp;&quot;/&quot;&amp;LOGIN&amp;&quot;/" rel="nofollow noopener noreferrer" target="_blank">http://my.mail.ru/"&amp;DOMAIN&amp;"/"&amp;LOGIN&amp;"/</a> --load-cookies "&amp;ScrDir&amp;"Cookies.txt --output-document="&amp;ScrDir&amp;"MyMail.html", 0, True
'<a href="http://runappl.run" rel="nofollow noopener noreferrer" target="_blank">runappl.run</a> "%comspec% /c echo " &amp; Chr(7), 0, True 'Сигнализация события

Елена Lehka

Cкрипт VBS