 |
22.12.2010, 21:47
|
#1
|
|
|
|
Сержант
|
 Регистрация: 18.06.2010
 Сообщений: 122
 Популярность: 204
 Сказал(а) спасибо: 127
Поблагодарили 109 раз(а) в 61 сообщениях
|
udobot исходник
это исходник удобота?
Код:
MsgBox(4096,"AvToB0T","Povered by ToSTeP",2)
$war = InputBox("Колличество аккаунтов", "Введите число аккаунтов для автозапуска", "", "")
$var = 0
$x = 0
If $war = 0 Then Exit
FileChangeDir('C:\Users\Lexa\Documents\UDOBot\UDOBot\')
Run('UDOBot.exe')
WinWait("UDOBot v3.0.2","")
Sleep(1000)
WinSetState( "UDOBot v3.0.2", "", @SW_HIDE )
WinMenuSelectItem("UDOBot v3.0.2","","Файл","Старт")
WinWait("Открыть","Эл. управления дерева простран")
ControlClick("Открыть","Эл. управления дерева простран","DirectUIHWND2")
WinWait("UDOBot v3.0.2","")
Send('{TAB 8}')
Send('{END}')
Send('{ENTER}')
Sleep(1000)
Do
$x += 1
$var += 1
FileChangeDir('C:\Users\Lexa\Documents\UDOBot\UDOBot\')
Run('UDOBot.exe')
WinWait("UDOBot v3.0.2","")
Sleep(1000)
WinSetState( "UDOBot v3.0.2", "", @SW_HIDE )
WinMenuSelectItem("UDOBot v3.0.2","","Файл","Старт")
WinWait("Открыть","Эл. управления дерева простран")
ControlClick("Открыть","Эл. управления дерева простран","DirectUIHWND2")
WinWait("UDOBot v3.0.2","")
Send('{TAB 8}')
Send('{END}')
Send('{UP ' & $x & ' }')
Send('{ENTER}')
Sleep(2000)
Until $var = $war - 1
А окна настроек
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$AvToB0T_Settings = GUICreate("AvToB0T_Settings", 270, 334, 658, 357)
GUISetIcon("C:\Users\Lexa\Documents\2222.exe")
GUISetFont(8, 800, 0, "System")
$Button1 = GUICtrlCreateButton("Сохранить", 7, 272, 89, 36, 0)
GUICtrlSetBkColor(-1, 0xF4F7FC)
GUICtrlSetCursor (-1, 2)
$Button2 = GUICtrlCreateButton("Отмена", 120, 272, 89, 36, 0)
GUICtrlSetBkColor(-1, 0xF4F7FC)
$AvToB0T_Settings = GUICtrlCreateLabel("AvToB0T Settings", 48, 0, 185, 22)
GUICtrlSetFont(-1, 12, 800, 0, "FreeSetBlackCTT")
$Input1 = GUICtrlCreateInput("", 7, 224, 201, 24)
$T = GUICtrlCreateLabel("Выводить собщения о:", 7, 48, 228, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Введите кол-во аккаунтов", 7, 184, 192, 20)
$Checkbox1 = GUICtrlCreateCheckbox(" Количестве незапущенных аккаунтов", 7, 72, 249, 33)
GUICtrlSetFont(-1, 8, 800, 0, "Palatino Linotype")
$Checkbox2 = GUICtrlCreateCheckbox(" Количестве аккаунтов с неправильным SID", 7, 104, 265, 33)
GUICtrlSetFont(-1, 8, 800, 0, "Palatino Linotype")
$Checkbox3 = GUICtrlCreateCheckbox(" Количестве разрушенных кораблей", 7, 137, 281, 33)
GUICtrlSetFont(-1, 8, 800, 0, "Palatino Linotype")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|
|
|
22.12.2010, 21:54
|
#2
|
|
|
|
Разведчик
|
 Регистрация: 28.03.2009
 Сообщений: 37
 Популярность: 335
 Золото Zhyk.Ru: 300
 Сказал(а) спасибо: 72
Поблагодарили 194 раз(а) в 47 сообщениях
|
Re: udobot исходник
Чувак, это божественный исходник)))) Вставь его в текстовой документ, и получи сюпер-юдобот! xDDD
Не ну это смешно, "Открыть Эл. управления дерева простран"
Если ты прогнал это через переводчик, я еще понимаю х))))
По идее это тупо окно с несколькими кнопочками и строками ввода xDDD
А ну да, еще меню сохранить и загрузить х)))
И вообще это не юдобот а маленькая программка, запускающая его, и возможно, стартует аккаунты О_о И походу на уже "неработающую" версию юдика)
Последний раз редактировалось муефд_фл47; 22.12.2010 в 21:57.
|
|
|
22.12.2010, 21:59
|
#3
|
|
|
|
Сержант
|
 Регистрация: 18.06.2010
 Сообщений: 122
 Популярность: 204
 Сказал(а) спасибо: 127
Поблагодарили 109 раз(а) в 61 сообщениях
|
Re: udobot исходник
спс, просто наткнулся в нете решил спросить у знающих.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 17:25.
|
 |