<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; [Сеть, интернет] добавление в черный список Вконтакте скриптом]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=10718&amp;type=atom" />
	<updated>2015-06-21T22:16:46Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=10718</id>
		<entry>
			<title type="html"><![CDATA[[Сеть, интернет] добавление в черный список Вконтакте скриптом]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=94687#p94687" />
			<content type="html"><![CDATA[<p>Добрый день!<br />Имеем следующие условия:<br />Браузер - любой<br />сайт - vk. com<br />учетная запись на этом сайте<br />права администратора в группе(сообществе)<br />находясь по этому адресу ht tps://vk.c om/club%ид группы%?act=blacklist<br />мы можем добавив в поле &quot;введи имя пользователя или ссылку&quot; добавить человека в черный список сообщества.<br />есть файл mdk.doc htt ps://ya di.sk/i/q_ A7S3WzhPRH3 который содержит в себе 19 тысяч ссылок на пользователей вконтакте<br />скрипт должен вставлять в эту область по порядку каждую ссылку из файла, нажимать кнопку &quot;Добавить в черный список&quot;<br />далее во всплывающем окне отметить пункт&nbsp; &quot;Показывать этот комментарий заблокированному пользователю&quot; и вводить комментарий $MDK<br />и нажимать кнопку &quot;Добавить в черный список&quot; </p><p>И повторять эту процедуру автоматически, пока не проведёт %19% тысяч таких операций ну или пока не закончатся ссылки в документе.</p><p>Дали вот такой скрипт, но он не работает в моем случае</p><p>For Each Link In Links<br />Do : WScript.Sleep 200 : loop While a.Busy<br />a.Navigate Site<br />Do : WScript.Sleep 200 : loop While a.Busy<br />a.Document.All.group_bl_search.Value = Link<br />a.Document.All.group_bl_submit.click<br />WScript.Sleep 1000<br />a.Document.All.group_blb_comment.Value = &quot;МДК&quot;<br />a.Document.All.group_blb_save.click<br />Do : WScript.Sleep 200 : loop While a.Busy<br />Next</p>]]></content>
			<author>
				<name><![CDATA[Zukutoke]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=33151</uri>
			</author>
			<updated>2015-06-21T22:16:46Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=94687#p94687</id>
		</entry>
</feed>
