ฟอรั่ม 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

    Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก

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


    Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก Empty Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก Empty
    จำนวนข้อความ : 5
    ความนิยม : 0
    เข้าร่วมเมื่อ : 09/09/2013

    Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก Empty Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก

    ตั้งหัวข้อ by chitnarong 16/10/13, 05:51 am

    คือว่าผมต้องการที่ืจะให้โปรแกรมมันทำงานโดยที่เราสามารถทำอะไรอย่างอื่นได้ เพราะว่าผมรันโปรแกรมแล้วไปกดหน้าต่างอื่นมันก็ทำงานบนหน้าต่างอื่นซะงั้น  ช่วยดูให้หน่อยนะครับ   ขอบคุณครับ.


    Code:
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <Constants.au3>
    HotKeySet("{q}", "CK")
    HotKeySet("{esc}", "Paused")
    HotKeySet("{tab}", "ex")
    HotKeySet("{w}", "LV")
    HotKeySet("{x}", "hid")
    HotKeySet("{z}", "sho")
    Opt("TrayOnEventMode",1)
    Opt("TrayAutoPause",0)


    #region ### START Koda GUI section ###
    $te = GUICreate("bot1", 200, 75, 192, 124)
    $hAttach = GUICtrlCreateButton("ทำงาน", 8, 8, 75, 25, $WS_GROUP)
    $hDetach = GUICtrlCreateButton("หยุดทำงาน", 88, 8, 83, 25, $WS_GROUP)
    GUISetState()
    TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "max")
    #endregion ### END Koda GUI section ###




    While 1
       Switch GUIGetMsg()
          Case $hAttach
             ;MemoryOpen
             $text = InputBox("NAME", "name titleกด OK")
             WinActivate("-:- Class3 - Juti -:-", "")
             WinSetTitle("-:- Class3 - Juti -:-","","Bot1")

          Case $hDetach
            Exit 0



          Case $GUI_EVENT_CLOSE
                GUISetState(@SW_MINIMIZE, $te)
                GUISetState(@SW_HIDE, $te)
                GUISetState(@SW_HIDE, $te)
        EndSwitch
    WEnd
    Func Paused()
      sleep(1000000)
    EndFunc  ;==>TogglePause

    Func CK()
      While 1
         WinActive("Bot1","")
         FOR $Paused = 1 TO 15
           Sleep(500)
         Send("{F2}")
         sleep(550)
         Send("{F1}")
         sleep(500)
      NEXT
      sleep(1000)
      Send("{F1}")
      call ("LV")
      WEnd
    EndFunc
    ;==>TogglePause
    Func LV()
      sleep(350)
         Send("{F3}")
         sleep(200)
         Send("{ENTER}")
         sleep(200)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{ENTER}")
         sleep(100)
         Send("{F2}")
         sleep(550)

    EndFunc

    Func max()
        GUISetState(@SW_RESTORE, $hAttach)
        GUISetState(@SW_SHOW, $hAttach)
    EndFunc

    Func ex()
         exit 0
    EndFunc

    Func hid()
    WinSetState("Bot1","",@SW_HIDE)
    sleep(750)
    AutoItSetOption(0)
             TraySetState(1)

    EndFunc

    Func sho()

        WinActivate("Bot1", "")
             WinSetState("Bot1","",@SW_SHOW)
             TraySetState(2)
        TraySetState(2) ; hide
    EndFunc
    tomakung
    tomakung
    PSsix Member Class II
    PSsix Member Class II


    Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก Empty Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก Empty
    จำนวนข้อความ : 38
    ความนิยม : 11
    เข้าร่วมเมื่อ : 24/02/2012

    Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก Empty Re: Working on hide . Help plz.ช่วยหน่อยครับไม่นักมาก

    ตั้งหัวข้อ by tomakung 17/10/13, 05:50 am

    ขอโทษนะครับผมมือไหม่
    $text = InputBox("NAME", "name titleกด OK") มีการรับข้อความ titl มาเก็บในตัวแปรแต่ ไม่มีการเอาตัวแปรไปใช้งานตรงนนี้

    ทำให้มันกดเอง

      Similar topics

      -

      เวลาขณะนี้ 26/04/24, 04:01 pm