[Скрипт] [autoIT] спамер - своими руками

[warl0ck]

думаю особым описанием скрипт не нуждается
в кратце: макрос для спама игрового чата, сообщениями типа "ВСТУПАЙТЕ В КЛАН ***" и тп...
1 заходим на офф сайт аутоита [Ссылки могут видеть только зарегистрированные пользователи. ]
2 качаем\устанавливаем
3 создаем файл с расширением "au3"
4 пишем такое:

#include <Misc.au3>

Global $start = 0
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
HotKeySet("{DELETE}", "stop") ;стоп
;-------- "тело" скрипта
While 1
If _IsPressed(01) = 1 Then
                            Call("spam")
EndIf
WEnd
;-------функции
Func start() ; функция включения
    $start = 1
EndFunc ; конец функции

Func stop() ; функция выключения
    $start= 0
EndFunc ; конец функции

Func spam() ;функция спама
    If $start = 1 then
    While _IsPressed(01) = 1 ;если мышь зажата
        Send( "{ENTER}")
        Send( "spammer by warl0ck")  ;сообщение
        Send( "{ENTER}")
WEnd
    EndIf
EndFunc

все!
запускаем, жмем лкм и наслаждаемся зафлуженым чатом

дополнение: скрипт типа "пойду ка я попью кофе, пусть макрос пофлудит"

#include <Misc.au3>
Global $start = 0
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
HotKeySet("{DELETE}", "stop") ;стоп
;-------- "тело" скрипта
While 1
Call("spam")
WEnd
;-------функции
Func start() ; функция включения
    $start = 1
EndFunc ; конец функции

Func stop() ; функция выключения
    $start= 0
EndFunc ; конец функции

Func spam() ;функция спама
    If $start = 1 then
        Send( "{ENTER}")
        Send( "сообщение")
        Send( "{ENTER}")
    EndIf
EndFunc

[absolut27]

К дополнению, чтоб не было надписи "ввод большого кол-ва символов запрещен"

#include <Misc.au3>
Global $start = 0
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
HotKeySet("{DELETE}", "stop") ;стоп
;-------- "тело" скрипта
While 1
Call("spam")
WEnd
;-------функции
Func start() ; функция включения
    $start = 1
EndFunc ; конец функции

Func stop() ; функция выключения
    $start= 0
EndFunc ; конец функции

Func spam() ;функция спама
    If $start = 1 then
        Send( "{ENTER}")
        Send( "Тест спамера ")
		sleep(1000)
        Send( "{ENTER}")
			sleep(1000)
			Send( "Тест спамера2 ")
		sleep(1000)
        Send( "{ENTER}")
			sleep(1000)
    EndIf
EndFunc

[=DeMuR=]

Интересно, а если зайти в комнату с пигом от 1 до 2 то можно ли, таким способом выкенуть хоста и ещё пару человек из игры из-за перегрузки?)
Помню мы все одновременно написали сообщения (всей командой) и 1 человек вылетел
Сори за флуд... просто интересно)

[absolut27]

Нет.

[Akim666(2)]

Цитата: Сообщение от monstro1999 как пользоваться?

запустил макрос нажал старт

Цитата: ;-------гор клавиши HotKeySet("{INSERT}", "start") ;старт HotKeySet("{DELETE}", "stop") ;стоп

[Mexikanec]

ничего не понял... все автовыстрелы работают, а спамер ни один....... в чем может быть причина..?

[absolut27]

1.Запустил не в окне
2.Кривые руки
3.Еще что-то

[Mexikanec]

Цитата: Сообщение от absolut27 1.Запустил не в окне 2.Кривые руки 3.Еще что-то

1)автовыстрел РАБОТАЕТ....
2)автовыстрел РАБОТАЕТ....
3)а что это может быть...?

[†PrEDok†]

Цитата: Сообщение от sonik1211 не получилось

Вот попробуй мой BOTSpamer - http://zhyk.ru/forum/attachment.php?...6&d=1285501332