[Сеть, интернет] чс вк

Добрый день!
Имеем следующие условия:
Браузер - любой
сайт - vk. com
учетная запись на этом сайте
права администратора в группе(сообществе)
находясь по этому адресу ht tps://vk.c om/club%ид группы%?act=blacklist
мы можем добавив в поле "введи имя пользователя или ссылку" добавить человека в черный список сообщества.
есть файл mdk.doc htt ps://ya di.sk/i/q_ A7S3WzhPRH3 который содержит в себе 19 тысяч ссылок на пользователей вконтакте
скрипт должен вставлять в эту область по порядку каждую ссылку из файла, нажимать кнопку "Добавить в черный список"
далее во всплывающем окне отметить пункт "Показывать этот комментарий заблокированному пользователю" и вводить комментарий $MDK
и нажимать кнопку "Добавить в черный список"

И повторять эту процедуру автоматически, пока не проведёт %19% тысяч таких операций ну или пока не закончатся ссылки в документе.

Дали вот такой скрипт, но он не работает в моем случае

Re: [Сеть, интернет] добавление в черный список Вконтакте скриптом

Примерно так, я запускал, у меня работает.

Re: [Сеть, интернет] добавление в черный список Вконтакте скриптом

alex33 сказал(а):

Примерно так, я запускал, у меня работает.

Код:

#include <IE.au3> ; Подключаем библиотеку для работы с браузером IE
#include <Word.au3> ; Подключаем библиотеку для работы с .doc (Word)
Global $sGroupID = "club1234567890" ; ID страницы или группы
Global $sBlackListURL = "https://vk.com/" & $sGroupID & "?act=blacklist"
Global $sPathDoc = @ScriptDir & "\MDK.doc", $sPathTxt = @TempDir & "\links.txt"
Global $oWord = _Word_Create()
If @error Then Exit 1
Global $oDoc = _Word_DocOpen($oWord, $sPathDoc, Default, Default, True)
If @error Then Exit 2
_Word_DocSaveAs($oDoc, $sPathTxt, 2)
If @error Then Exit 3
_Word_Quit($oWord)
;ShellExecute($sPathTxt)

Global $oIE = _IECreate($sBlackListURL), $oInput, $oButton
Global $hFile = FileOpen($sPathTxt), $sLine = "", $iLine = 0
While 1
	$sLine = FileReadLine($hFile)
	If @error Then ExitLoop
	$iLine += 1
	If Not StringInStr($sLine, "http") Then ContinueLoop
	ConsoleWrite($iLine & ". " & $sLine & @CRLF)
	$oInput = _IEGetObjById($oIE, "group_bl_search")
	_IEFormElementSetValue($oInput, $sLine)
	Sleep(10)
	$oButton = _IEGetObjById($oIE, "group_bl_submit")
	_IEAction($oButton, "click")
	Sleep(200)
	$oInput = _IEGetObjById($oIE, "group_blb_comment")
	_IEFormElementSetValue($oInput, "$MDK")
	_IENavigate($oIE, 'javascript:checkbox(document.getElementById("group_blb_comment_vis"),"on");void(0);', 0)
	Sleep(10)
	$oButton = _IEGetObjById($oIE, "group_blb_save")
	_IEAction($oButton, "click")
	Sleep(500)
WEnd
FileClose($hFile)

Нажмите, чтобы раскрыть...

Это невероятно! Я безгранично вам благодарен за столь уникальный скрипт который поможет сократить мою деятельность в этой злой социальной сети! Спасибо огромное!!!

Re: [Сеть, интернет] добавление в черный список Вконтакте скриптом

zukutoke,

Предупреждение

За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

Нажмите, чтобы раскрыть...

С уважением, ваш Глобальный модератор.