Пишем Qip бота

Недавно от делать нечего,написали мы с друзьями простой Qip бот.Ну даже не бот,а можна так сказать Qip флудер.Код,который представлен в низу,очень простой.
Компилировать нужно в VisualBasic 6.0,или у кого его нету,в любимом блокноте,
и сохранить под расширением vbs.
Работа данной проги очень проста.прогу нужно запустить,ввести количечтво сообщений,которыми вы хотите флудить,при етом должно быть открито окно с квипом.
данный код мне обьяснять очень впадлу,так шо если будут вопросы,пишите в етот топик.

Код:

On Error Resume Next
set s = WScript.CreateObject("WScript.Shell") 
set fso=createobject("scripting.filesystemobject")
set hh=CreateObject("Internet.HHCtrl")
err=inputbox("Введите количество раз которое бот будет писать сообщения!","Вас приветствует Qip bot")
hh.TextPopup "The bot is written by motomaster & Zimper","Bold,12",1,1,1,1
WScript.Sleep 5000
For i=0 to err
Randomize
x=Fix(Rnd*15)
Select case x
case 0
wscript.sleep 4000
s.sendkeys"{H}"
s.sendkeys"{e}"
s.sendkeys"{l}"
s.sendkeys"{l}"
s.sendkeys"{o}"
s.sendkeys"{ }"
s.sendkeys"{m}"
s.sendkeys"{y}"
s.sendkeys"{ }"
s.sendkeys"{n}"
s.sendkeys"{a}"
s.sendkeys"{m}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{i}"
s.sendkeys"{s}"
s.sendkeys"{ }"
s.sendkeys"{J}"
s.sendkeys"{i}"
s.sendkeys"{m}"
s.sendkeys"{m}"
s.sendkeys"{y}"
s.sendkeys"{ }"
s.sendkeys"{!}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{H}"
s.sendkeys"{i}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 1
wscript.sleep 6000
s.sendkeys"{H}"
s.sendkeys"{a}"
s.sendkeys"{v}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{f}"
s.sendkeys"{a}"
s.sendkeys"{n}"
s.sendkeys"{!}"
s.sendkeys"{*}"
s.sendkeys"{B}"
s.sendkeys"{y}"
s.sendkeys"{e}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 2
wscript.sleep 8000
s.sendkeys"{H}"
s.sendkeys"{o}"
s.sendkeys"{w}"
s.sendkeys"{ }"
s.sendkeys"{a}"
s.sendkeys"{r}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{y}"
s.sendkeys"{o}"
s.sendkeys"{u}"
s.sendkeys"{?}"
s.sendkeys"{ }"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 3
wscript.sleep 7000
s.sendkeys"{I}"
s.sendkeys"{ }"
s.sendkeys"{t}"
s.sendkeys"{o}"
s.sendkeys"{l}"
s.sendkeys"{d}"
s.sendkeys"{ }"
s.sendkeys"{t}"
s.sendkeys"{h}"
s.sendkeys"{a}"
s.sendkeys"{t}"
s.sendkeys"{ }"
s.sendkeys"{m}"
s.sendkeys"{y}"
s.sendkeys"{ }"
s.sendkeys"{n}"
s.sendkeys"{a}"
s.sendkeys"{m}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{i}"
s.sendkeys"{s}"
s.sendkeys"{ }"
s.sendkeys"{J}"
s.sendkeys"{i}"
s.sendkeys"{m}"
s.sendkeys"{m}"
s.sendkeys"{i}"
s.sendkeys"{?}"
s.sendkeys"{ }"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 4
WScript.Sleep 2000
s.sendkeys"{L}"
s.sendkeys"{i}"
s.sendkeys"{f}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{i}"
s.sendkeys"{s}"
s.sendkeys"{ }"
s.sendkeys"{g}"
s.sendkeys"{o}"
s.sendkeys"{o}"
s.sendkeys"{d}"
s.sendkeys"{!}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 5
wscript.sleep 3000
s.sendkeys"{*}"
s.sendkeys"{W}"
s.sendkeys"{a}"
s.sendkeys"{l}"
s.sendkeys"{l}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 6
WScript.Sleep 4000
s.sendkeys"{*}"
s.sendkeys"{I}"
s.sendkeys"{n}"
s.sendkeys"{ }"
s.sendkeys"{l}"
s.sendkeys"{o}"
s.sendkeys"{v}"
s.sendkeys"{e}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 7
wscript.sleep 5000
s.sendkeys"{I}"
s.sendkeys"{'}"
s.sendkeys"{m}"
s.sendkeys"{ }"
s.sendkeys"{a}"
s.sendkeys"{ }"
s.sendkeys"{p}"
s.sendkeys"{r}"
s.sendkeys"{o}"
s.sendkeys"{g}"
s.sendkeys"{e}"
s.sendkeys"{r}"
s.sendkeys"{!}"
s.sendkeys"{ }"
s.sendkeys"{D}"
s.sendkeys"{i}"
s.sendkeys"{d}"
s.sendkeys"{ }"
s.sendkeys"{y}"
s.sendkeys"{o}"
s.sendkeys"{u}"
s.sendkeys"{ }"
s.sendkeys"{k}"
s.sendkeys"{n}"
s.sendkeys"{o}"
s.sendkeys"{w}"
s.sendkeys"{ }"
s.sendkeys"{i}"
s.sendkeys"{t}"
s.sendkeys"{?}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 8
WScript.Sleep 3000
s.sendkeys"{I}"
s.sendkeys"{ }"
s.sendkeys"{L}"
s.sendkeys"{o}"
s.sendkeys"{v}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{y}"
s.sendkeys"{o}"
s.sendkeys"{u}"
s.sendkeys"{!}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 9
WScript.Sleep 5000
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{*}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 10
WScript.Sleep 5000
s.sendkeys"{Y}"
s.sendkeys"{o}"
s.sendkeys"{u}"
s.sendkeys"{ }"
s.sendkeys"{d}"
s.sendkeys"{o}"
s.sendkeys"{n}"
s.sendkeys"{'}"
s.sendkeys"{t}"
s.sendkeys"{ }"
s.sendkeys"{k}"
s.sendkeys"{n}"
s.sendkeys"{o}"
s.sendkeys"{w}"
s.sendkeys"{ }"
s.sendkeys"{ }"
s.sendkeys"{J}"
s.sendkeys"{i}"
s.sendkeys"{m}"
s.sendkeys"{m}"
s.sendkeys"{i}"
s.sendkeys"{?}"
s.sendkeys"{=}"
s.sendkeys"{-}"
s.sendkeys"{o}"
s.sendkeys"{Enter}"
s.sendkeys"{E}"
s.sendkeys"{v}"
s.sendkeys"{r}"
s.sendkeys"{e}"
s.sendkeys"{b}"
s.sendkeys"{o}"
s.sendkeys"{d}"
s.sendkeys"{y}"
s.sendkeys"{ }"
s.sendkeys"{k}"
s.sendkeys"{n}"
s.sendkeys"{o}"
s.sendkeys"{w}"
s.sendkeys"{ }"
s.sendkeys"{J}"
s.sendkeys"{i}"
s.sendkeys"{m}"
s.sendkeys"{m}"
s.sendkeys"{i}"
s.sendkeys"{!}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 11
WScript.Sleep 5000
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{Enter}"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{:}"
s.sendkeys"{-}"
s.sendkeys"{P}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 12
WScript.Sleep 3000
s.sendkeys"{*}"
s.sendkeys"{W}"
s.sendkeys"{r}"
s.sendkeys"{i}"
s.sendkeys"{t}"
s.sendkeys"{e}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 13
WScript.Sleep 4000
s.sendkeys"{I}"
s.sendkeys"{ }"
s.sendkeys"{l}"
s.sendkeys"{o}"
s.sendkeys"{v}"
s.sendkeys"{e}"
s.sendkeys"{ }"
s.sendkeys"{t}"
s.sendkeys"{h}"
s.sendkeys"{i}"
s.sendkeys"{s}"
s.sendkeys"{ }"
s.sendkeys"{p}"
s.sendkeys"{l}"
s.sendkeys"{a}"
s.sendkeys"{n}"
s.sendkeys"{e}"
s.sendkeys"{t}"
s.sendkeys"{ }"
s.sendkeys"{!}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
case 14
WScript.Sleep 2000
s.sendkeys"{*}"
s.sendkeys"{W}"
s.sendkeys"{r}"
s.sendkeys"{i}"
s.sendkeys"{t}"
s.sendkeys"{e}"
s.sendkeys"{*}"
s.sendkeys"{ }"
s.sendkeys"{*}"
s.sendkeys"{W}"
s.sendkeys"{a}"
s.sendkeys"{l}"
s.sendkeys"{l}"
s.sendkeys"{*}"
s.sendkeys"{TAB}"
s.sendkeys"{Enter}"
end Select
Next

тут возник небольшой еррор!Код который вверху,нужно сохранять в блокноте под расширением *.vbs
чтобы программа откомпилировалась в VisualBasic 6.0,нужно подключить функцию

Код:

Declare Sum Sleep Lib "kernel32" (Byval dwMilliseconds as Long )

и в коде исправить

Код:

WScript.Sleep

на

Код:

Sleep

Ну кароч если не охота мучаца самому вот ЛинКа на ГотовоГо бота...

Форум всё обо всём

Меню навигации

Пользовательские ссылки

Объявление

Информация о пользователе

Пишем Qip бота

Сообщений 1 страница 1 из 1

Поделиться12008-07-15 04:02:21

Наша статистика