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

#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