ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


2 posters

    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ

    beover
    beover
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty
    จำนวนข้อความ : 3
    ความนิยม : 0
    เข้าร่วมเมื่อ : 18/11/2012

    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ

    ตั้งหัวข้อ by beover 28/07/14, 12:06 am

    GUI:

    Script:

    แนะนำผมทีผมจะเอาไปยัดใส่ GUI ยังไง มือใหม่ อ่านหนังสือแล้วยังงง ขอชมตัวอย่างสักอันนะครับ
    ผมพึ่งหัดทำ GUI ครั้งแรกครับ ขอผู้เชี่ยวชาญ แนะนำด้วยนะครับ
    Arm
    Arm
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Master PSsix Program Coder
    จำนวนข้อความ : 268
    ความนิยม : 54
    เข้าร่วมเมื่อ : 31/03/2011
    อายุ : 27

    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty Re: สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ

    ตั้งหัวข้อ by Arm 28/07/14, 06:08 pm

    นำส่วน script ไว้ใน case $start ครับ
    ส่วนการอ่านค่า Input ใช้คำสั่ง GUICtrlRead(ตัวแปร) ก็จะได้เป็น Sleep(GUICtrlRead(บลาๆ)) ครับ :3

    Code:
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=c:\program files (x86)\autoit3\forms\form2.kxf
    $Form1_1 = GUICreate("Form1", 213, 122, 192, 124)
    GUISetBkColor(0x99B4D1)
    $Label1 = GUICtrlCreateLabel("เลือกมอน", 16, 8, 80, 32)
    GUICtrlSetFont(-1, 20, 800, 0, "TH Baijam")
    GUICtrlSetColor(-1, 0x000000)
    $Label2 = GUICtrlCreateLabel("ตีมอน", 15, 43, 51, 32)
    GUICtrlSetFont(-1, 20, 800, 0, "TH Baijam")
    GUICtrlSetColor(-1, 0x000000)
    $TAB = GUICtrlCreateInput("", 112, 16, 81, 21)
    $W = GUICtrlCreateInput("", 112, 48, 81, 21)
    $START = GUICtrlCreateButton("เริ่ม", 24, 80, 57, 33)
    GUICtrlSetFont(-1, 16, 800, 0, "TH Baijam")
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0x00FF00)
    $Button1 = GUICtrlCreateButton("ออก", 144, 80, 49, 33)
    GUICtrlSetFont(-1, 16, 800, 0, "TH Baijam")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0xFF0000)
    Dim $Form1_1_AccelTable[1][2] = [["{F7}", $START]]
    GUISetAccelerators($Form1_1_AccelTable)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
          Case $GUI_EVENT_CLOSE
             Exit
          Case $START
             _Au3RecordSetup()
             HotKeySet('{F8}', 'Quit')
             HotKeySet('{F7}', 'Pause')
             Global $Paused
             $d3 = WinActivate("SO3D", "")
             Pause()
             While 1
                ControlSend($d3, "", "", "{TAB}")
                Sleep(1000) ; <<<< ตรงนี้อยากกำหนดเองในหน้าต่าง Input GUI
                ControlSend($d3, "", "", "w")
                Sleep(100) ; <<<< ตรงนี้อยากกำหนดเองในหน้าต่าง Input GUI
             WEnd
          Case $Button1
             Quit()
       EndSwitch
    WEnd

    Func Pause()
       $Paused = Not $Paused
       While $Paused
          Sleep(100)
          ToolTip('Paused', 0, 0)
       WEnd
       ToolTip("")
    EndFunc  ;==>Pause

    Func Quit()
       Exit
    EndFunc  ;==>Quit

    Func _Au3RecordSetup()
       Opt('WinWaitDelay', 100)
       Opt('WinDetectHiddenText', 1)
       Opt('MouseCoordMode', 0)
       Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
       If $aResult[1] <> '00000409' Then
          MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
       EndIf
    EndFunc  ;==>_Au3RecordSetup

    Func _WinWaitActivate($title, $text, $timeout = 0)
       WinWait($title, $text, $timeout)
       If Not WinActive($title, $text) Then WinActivate($title, $text)
       WinWaitActive($title, $text, $timeout)
    EndFunc  ;==>_WinWaitActivate
     em230 
    beover
    beover
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty
    จำนวนข้อความ : 3
    ความนิยม : 0
    เข้าร่วมเมื่อ : 18/11/2012

    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty Re: สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ

    ตั้งหัวข้อ by beover 29/07/14, 11:08 am

    ขอบคุณมากครับ ต้องทดลอง กำลังอ่านหนังสือ เจาะระบบ REGISTRY + SECURITY ไปด้วย งง นิดๆๆ
    beover
    beover
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty
    จำนวนข้อความ : 3
    ความนิยม : 0
    เข้าร่วมเมื่อ : 18/11/2012

    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty Re: สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ

    ตั้งหัวข้อ by beover 29/07/14, 12:27 pm

    รบกวนเชคให้ทีครับ:

    ติดปัญหาคือใส่เวลาหน่วงเป็น วินาที มันก็ดันกดทุกปุ่มเลยครับ ช่องไหนไม่ใส่ มันก็กด ต้องแก้ไขตรงไหนต่ออ่าครับ
    Arm
    Arm
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Master PSsix Program Coder
    จำนวนข้อความ : 268
    ความนิยม : 54
    เข้าร่วมเมื่อ : 31/03/2011
    อายุ : 27

    สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ Empty Re: สอบถาม GUI ที่ Input เวลาเป็น วินาทีเอง ต้องใช้คำสั่งไหนหรอครับ

    ตั้งหัวข้อ by Arm 29/07/14, 08:14 pm

    ลองใช้ If ดักดูครับ ถ้าค่าเป็น 0 ก็ข้ามไป

      เวลาขณะนี้ 08/05/24, 02:12 pm