PDA

Показать полную графическую версию : [решено] существует ли: sleep($input1)????????????????


Antoschka2
18-04-2010, 17:49
Добрыи день я всё немогу закончить скрипт. Нехвотает 2 функции. Я уже всё перепробовал но как-то неполучаетса.
1> в funk generate() значение sleep() должно менятся на задонное число в GUICtrlCreateInput. Как это правильно сделать? Я считал что sleep($input1) должно быть правильным но както неработает. скрипт начинает работать как бы без функции sleep :(
2:Мне надо чтоб после того как нажмёш на BUTTON1 чтоб GUI окошко исчезало и скрипт продолжил работу без него. Но как то я ненахожу подходящих кодов.

Заранее благодарю.


Вот начало скрипта:


#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
call("start")
$start=TimerInit()
EndIf
Until $n = $GUI_EVENT_CLOSE


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

Func generate ()
;TrayTip("...", "...", 3, 16)
Sleep($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

kaster
18-04-2010, 18:17
Sleep(GUICtrlRead($Input1))

Antoschka2
18-04-2010, 18:43
спасибо огромное. а второи вопрос решим? чтобы окошко исчезало?

kaster
18-04-2010, 18:51
ты хочешь чтобы окно исчезло насовсем или только скрылось из виду, а потом можно было восстановить его видимость, скажем через гор. клавишу?

Antoschka2
21-04-2010, 17:26
насовсем ушло а скрипт дальшеработал

kaster
21-04-2010, 17:39
#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

Antoschka2
22-04-2010, 23:01
спасибо большое.




© OSzone.net 2001-2012