Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для kaster

Старожил


Сообщения: 367
Благодарности: 91

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("БезСЕРДечныи БОТ", 269, 99, -1, -1)
$Input1 = GUICtrlCreateInput("2000", 72, 16, 121, 21)
$Button1 = GUICtrlCreateButton("let's hack....", 96,56, 75, 25, 0)
GUISetState(@SW_SHOW)




$start=TimerInit()
Do
	$n = GUIGetMsg ()
	
	If $n = $button1 Then
		GUIDelete()
		While 1
			start()
			$start=TimerInit()
		WEnd
		
	EndIf
Until $n = $GUI_EVENT_CLOSE


Func start()
	WinWaitActive("www.---.de - Windows Internet Explorer")
	sleep(100)
	generate()
EndFunc

Func generate ()
	;TrayTip("...", "...", 3, 16)
	Sleep(GUICtrlRead($Input1)) ;ТУТ ДОЛЖЕН БЫТЬ ВСТАВЛЕН INPUT.
	$random = Random(0, 1, 1)
	If $random = 0 Then
		;TrayTip("", "....", 4, 2)
		odin()
		;TrayTip("", "", 0)
	Else
		;TrayTip("", "....", 4, 2)
		dva()
		;TrayTip("", "", 0, 16)
	EndIf

EndFunc

-------
Русское сообщество пользователей AutoIt
autoit@conference.jabber.ru - Конференция на jabber.ru

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:39, 21-04-2010 | #6