Скрипт для очистки ПМ от спама :: Общие вопросы по Ru.Board

В связи с тем, что в последнее время активизировались всякие срули, которые гадят не только в топиках, но и через ПМ, возникла необходимость автоматизировать очистку ящика, для чего был написан простенький скрипт на VBS:

Цитата:

Dim oXMLHTTP
Dim objHTTP

On Error Resume Next

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
Do While 1
oXMLHTTP.Open "GET", "http://forum.ru-board.com/messanger.cgi?action=inbox", False
oXMLHTTP.Send

If oXMLHTTP.Status = 200 Then
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "<a href=""profile.cgi\?action=show&member=Runtime_err0r"" target=""_blank"">Runtime_err0r</a></td><td>\n<a href=""messanger.cgi\?action=read&msg=(\d+)"">"
Set messages = re.Execute(oXMLHTTP.responseText)
For Each message In messages
If message.SubMatches(0) > 1000 Then
WScript.Echo message.SubMatches(0)
Set objHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
objHTTP.open "POST", "http://forum.ru-board.com/messanger.cgi", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Referer", "http://forum.ru-board.com/messanger.cgi"
objHTTP.send "action=delmsg&where=inbox&delmsg%2C"&message.SubMatches(0)&"=y"
Set objHTTP = Nothing
End If
Next
End If

WScript.Sleep 60000
Loop

Собственно, пояснять тут особо нечего, для настройки надо изменить три переменные:

Runtime_err0r поменяйте на ник того пользователя, сообщения которого вы хотите удалить;

If message.SubMatches(0) > 1000 Then - это необходимо, чтобы удалять только новые сообщения, вместо 1000 надо поставить номер последнего сообщения в вашем ящике;

WScript.Sleep 60000 - задаёт паузу между проверками ящика в миллисекундах, чтобы не создавать дополнительную нагрузку на сервер, рекомендуется ставить не меньше минуты (то есть не меньше 60000 миллисекунд).

----------
Игнор-лист

Модерирует : batva, DimoN
Версия для печати • Подписаться • Добавить в закладки