Клуб Любителей Секса (КЛС): mamboo

Помнится, было время, когда я зависал на мамбе и этот небольшой скрипт мне достаточно часто помогал.
Чаще смотрят анкеты тех, кто находится в онлайне - тут работает простая человеческая психология. "Brainy is the new sexy" - говаривала Ирэн Адлер в моём любимом сериале про Шерлока и я с ней вполне согласен. Так появился буквально за десять минут этот фрагмент. "Ты спишь - а скрипт работает".
Были и более хитрые скрипты, но дальше уже фантазируйте сами.

Требования:
1. Firefox (я брал portable редакцию и не обновлял)
2. Плагин MozRepl
3. AutoIt

Нужно поставить все программы, зайти в Firefox, залогиниться в мамбу, поставив галку "запомнить меня" и запустить скрипт mamboo_onliner.au3 Он будет тихо висеть в трее, firefox будет эпизодически открывать сайт и поддерживать таким образом постоянно в онлайне. Была у меня под это дело отдельная виртуальная машинка на ноутбуке, так что мельтешение окошечек не мешало другим делам.
Да, есть и другие способы (hint: nnCron) держаться всегда в онлайне, но этот хоть и сложнее - но выигрышу больше. Хотя бы потому, что можно чуть буквально расширить скрипт и скрипт не подымает анкету по ночам, обходит тех, у кого меньше трёх фотографий, просматривает мордоленту и заходит на профили тех, кто находится в онлайне (и не входит в чёрный список), с рандомными задержками и случайными маршрутами по сайту. В общем, там дальше место фантазии и вашему уму.
Мне эти скрипты давали ~ +1000 просмотров в месяц просто так. На женскую анкету падало в полтора раза больше просмотров (да, я любопытный - и собирал в копилку образцы лучших ~~шахматных~~ дебютов). Так что думаю, у вас примерно того же порядка цифры будут при использовании.

Code:

#Region ScriptInfo
; ===========================================================================
; Скрипт раз в 3 минуты загружает страницу мамбы
; Поскольку скрипт пока не умеет логиниться - нужно периодически проверять вручную
;
; Версия скрипта 1.05
; Автор: Andrei Voronin
; Christmas Edition - Special for sextalk.ru
; ===========================================================================
#EndRegion ScriptInfo

#Region ScriptSettings
Global Const $PathToFirefox = "C:\Program Files (x86)\Mozilla Firefox\"  ; Path to Firefox
Global Const $FirefoxProfileToRun = "mamboo_onliner"  ; Firefox Profile
Global Const $MozReplPort = 4242  ; Extention MozRepl Port
#EndRegion ScriptSettings

#Region Modules 
#include < FF.au3 >
#Include < Array.au3 >
#EndRegion Modules

;MsgBox(64, "", "Script started!")

; Если Firefox запущен - подключаемся к нему, если нет - запустим его
If _FFConnect(Default, $MozReplPort, 3000) Then
	_FFTabClose("all", "key")
Else
	Run ($PathToFirefox & "\firefox.exe -P " & $FirefoxProfileToRun & " -no-remote")
EndIf

For $i = 1 To 10000 ; при запуске скрипта раз в минуту этого хватит на неделю
	If _FFConnect(Default, $MozReplPort, 3000) Then
		_FFOpenURL("http://www.mamba.ru")

		If _FFDisConnect() Then 
			;MsgBox(64, "", "Disconnected from FireFox!")
		Else
			;MsgBox(64, "", "Can't disconnect from FireFox!")
		EndIf
	Else
		;MsgBox(64, "", "Can't connect to FireFox!")
	EndIf
	Sleep(180000) ; пауза в 3 минуты между повторным обращением
Next
;MsgBox(64, "", "Script ended!")

PS Rememba hara mamboo roo!!

--------------------

Happy new year!

Действия:

Информировать вас о новых ответах на это сообщение