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

    ผู้รู้ช่วยหน่อยนะครับ

    avatar
    soziie
    PSsix Member Class II
    PSsix Member Class II


    ผู้รู้ช่วยหน่อยนะครับ Empty
    จำนวนข้อความ : 37
    ความนิยม : 1
    เข้าร่วมเมื่อ : 10/12/2011

    ผู้รู้ช่วยหน่อยนะครับ Empty ผู้รู้ช่วยหน่อยนะครับ

    ตั้งหัวข้อ by soziie 10/12/11, 09:58 pm

    พอดีอยากสร้างโปรแกรมที่เป็นช่องให้ใส่ข้อความอะครับอยากได้ประมาน 10 - 20 ข้อความ ประมานนี้อะครับ

    สวัสดีครับ
    สวัสดีค่ะ
    สบายดีไหม

    อยากได้ประมานนี้อะครับ แล้วแบบว่า ทำเป็น hotkey อะครับ ประมานว่ากด F1 แล้วSendคำว่าสวัสดีครับ กด F2 แล้วSendคำว่าสวัสดีค่ะ ประมานนี้อะคัฟ ยังไงช่วยแนะนำหน่อยนะครับ ขอบคุณมากๆพอดีเพิ่งหัดเขียนครับ
    POS
    POS
    PSsix
    PSsix


    ผู้รู้ช่วยหน่อยนะครับ Empty ผู้รู้ช่วยหน่อยนะครับ Empty ผู้รู้ช่วยหน่อยนะครับ Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    ผู้รู้ช่วยหน่อยนะครับ Empty Re: ผู้รู้ช่วยหน่อยนะครับ

    ตั้งหัวข้อ by POS 11/12/11, 09:28 am

    ตัวอย่างตามสคริปต์ด้านล่างนี้ ตั้งค่าปุ่ม F1 ถึง F9

    Code:
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    Global $Input[9] ,$Label[9] ,$il =16
    $Form1 = GUICreate("PSsix", 240, 390,-1,-1 )
    for $i =0 to 8
     $Input[$i]= GUICtrlCreateInput($i+1, 16, $il, 121, 21)
    $Label[$i] = GUICtrlCreateLabel("กดปุ่ม F"&$i+1 , 152, $il, 107, 17)
    $il +=40
    $keyset ="{"&"F"&$i+1 &"}"
    $fn ="fn"&$i+1
    HotKeySet($keyset , $fn)
       Next

    GUISetState(@SW_SHOW)


    While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
          Case $GUI_EVENT_CLOSE
             Exit
       EndSwitch
    WEnd

    Func fn1()
    Send(GUICtrlRead($Input[0]))
       EndFunc

    Func fn2()
    Send(GUICtrlRead($Input[1]))
       EndFunc

    Func fn3()
    Send(GUICtrlRead($Input[2]))
       EndFunc

    Func fn4()
    Send(GUICtrlRead($Input[3]))
       EndFunc

    Func fn5()
    Send(GUICtrlRead($Input[4]))
       EndFunc

    Func fn6()
    Send(GUICtrlRead($Input[5]))
       EndFunc

    Func fn7()
    Send(GUICtrlRead($Input[6]))
       EndFunc

       Func fn8()
    Send(GUICtrlRead($Input[7]))
       EndFunc

       Func fn9()
    Send(GUICtrlRead($Input[8]))
       EndFunc

    avatar
    soziie
    PSsix Member Class II
    PSsix Member Class II


    ผู้รู้ช่วยหน่อยนะครับ Empty
    จำนวนข้อความ : 37
    ความนิยม : 1
    เข้าร่วมเมื่อ : 10/12/2011

    ผู้รู้ช่วยหน่อยนะครับ Empty Re: ผู้รู้ช่วยหน่อยนะครับ

    ตั้งหัวข้อ by soziie 11/12/11, 01:27 pm

    ขอบคุณมากๆเลยคราฟฟ

      เวลาขณะนี้ 19/04/24, 03:20 pm