<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; [Сеть, интернет] добавление в черный список Вконтакте скриптом]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=10718</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=10718&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «[Сеть, интернет] добавление в черный список Вконтакте скриптом».]]></description>
		<lastBuildDate>Sun, 21 Jun 2015 22:16:46 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[[Сеть, интернет] добавление в черный список Вконтакте скриптом]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=94687#p94687</link>
			<description><![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>]]></description>
			<author><![CDATA[null@example.com (Zukutoke)]]></author>
			<pubDate>Sun, 21 Jun 2015 22:16:46 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=94687#p94687</guid>
		</item>
	</channel>
</rss>
