Перейти к содержимому


Фотография
- - - - -

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


  • Авторизуйтесь для ответа в теме
В этой теме нет ответов

#1 russia

russia

    Генералиссимус

  • Пользователи
  • PipPipPipPipPipPipPipPipPipPipPipPipPipPipPip
  • Репутация
    671
  • 252 сообщений
  • 254 тем

Отправлено 15 июля 2013 - 08:12

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

Пожалуйста Войдите или Зарегистрируйтесь чтобы увидеть скрытый текст


2 качаем\устанавливаем
3 создаем файл с расширением "au3"
4 пишем такое:
Код:
        margin: 0px;
        padding: 6px;
        border: 1px inset;
        width: 640px;
        height: 498px;
        text-align: left;
        overflow: auto">#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
все!
запускаем, жмем лкм и наслаждаемся зафлуженым чатомwtf.gif

дополнение: скрипт типа "пойду ка я попью кофе, пусть макрос пофлудит"
Код:
        margin: 0px;
        padding: 6px;
        border: 1px inset;
        width: 640px;
        height: 418px;
        text-align: left;
        overflow: auto">#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

________________

 


СКАЧАТЬ
  • 0




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Click to return to top of page in style!