Что нового

[Автоматизация] Скрипт для удаления всех сообщений в ВКонтакте

aleratorio

Осваивающий
Сообщения
85
Репутация
43
AutoIt: 3.3.6.1
Версия: 1.0
Категория: Автоматизация, Интернет

Описание: Понадобилось тут удалить 6000+ сообщений в ВКонтакте. В интернете ничего особо внятного не нашел... Вот написал небольшой ботик для удаления всех сообщений, может еще кому пригодиться...
Описание как пользоваться скриптом/программой появляется в диалоговом окне при запуске.
Работает правда не очень быстро (6000+ сообщений у меня удалялись около часа)

Код/Пример:
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=Vkontakte Mail Cleaner
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=aleratorio
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <IE.au3>

$oIE = 0

While 1
	$ret = MsgBox(65, 'VK Mail Cleaner', '1) Откройте свою страницу в Вконтакте в Internet Explorer-e' & @CRLF _
			 & 'и перейдите на страничку с сообщениями.' & @CRLF _
			 & '2) Выберите вкладку "Полученные" для удаления полученных сообщений' & @CRLF _
			 & 'или "Отправленные" для удаления отправленных сообщений.' & @CRLF _
			 & '3) Нажмите OK.' & @CRLF & @CRLF _
			 & 'P.S. Для приостановки работы программы нажмите ее иконку в трее.' & @CRLF _
			 & 'Так же через меню в трее можно завершить работу программы' & @CRLF & @CRLF _
			 & 'P.P.S. Пока удаляются сообщения, можно заниматься другими делами,' & @CRLF _
			 & 'даже пользоваться сайтом Вконтакте из другого браузера...' & @CRLF & @CRLF _
			 & 'ВНИМАНИЕ! Побочное действие: если во время удаления входящих сообщений             ' & @CRLF _
			 & 'придет новое сообщение, оно будет УДАЛЕНО!')

	If $ret = 1 Then
		$oIE = _IEAttach('http://vkontakte.ru', 'url')
	ElseIf $ret = 2 Then
		Exit
	EndIf

	If $oIE = 0 Then ContinueLoop

	While 1
		$str = _IEBodyReadText($oIE)
		If StringInStr($str, 'Выделить:  все, прочитанные, новые') = 0 Then	ExitLoop

		If StringInStr($str, 'У Вас нет ни одного сообщения')       <> 0 Or _
		   StringInStr($str, 'Вы не отправили ни одного сообщения') <> 0 Or _
		   StringInStr($str, 'После смерти спам попадает сюда')     <> 0 Then
			MsgBox(64, 'VK Mail Cleaner', 'Сообщения удалены            ')
			Exit
		EndIf

		While 1
			If _IELinkClickByText($oIE, 'Удалить', 0, 0) = 0 Then ExitLoop
		WEnd

		ControlSend('[CLASS:IEFrame]', '', '[CLASS:Internet Explorer_Server; INSTANCE:1]', '{F5}')
		_IELoadWait($oIE)
	WEnd
WEnd

Файл: AU3
Снимок: Нет

История версий:
v1.0
Первый релиз.

Источник: Скрипт для удаления всех сообщений в ВКонтакте
Автор: aleratorio
 
Верх