Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   [решено] существует ли: sleep($input1)???????????????? (http://forum.oszone.net/showthread.php?t=173480)

Antoschka2 18-04-2010 17:49 1395667

существует ли: sleep($input1)????????????????
 
Добрыи день я всё немогу закончить скрипт. Нехвотает 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 1395684

Код:

Sleep(GUICtrlRead($Input1))

Antoschka2 18-04-2010 18:43 1395709

спасибо огромное. а второи вопрос решим? чтобы окошко исчезало?

kaster 18-04-2010 18:51 1395714

ты хочешь чтобы окно исчезло насовсем или только скрылось из виду, а потом можно было восстановить его видимость, скажем через гор. клавишу?

Antoschka2 21-04-2010 17:26 1397832

насовсем ушло а скрипт дальшеработал

kaster 21-04-2010 17:39 1397840

Код:

#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 1398869

спасибо большое.


Время: 14:28.

Время: 14:28.
© OSzone.net 2001-