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

    avatar
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

    ตั้งหัวข้อ by longaddza01 24/07/14, 08:05 pm

    คือผมได้เข้ามาเริ่มเขียน สคิปที่เวปนี้ เเค่ไม่กี่วันผมเขียนสคิปได้ตัวนึ่งเเร้ว

    เเค่เวลาผมไช้นั้นเปิดขึ้นมามันจะไม่มีหน้าต่างโปรเเกรม มีนจะไปอยู่ ด้านขวาล่างของหน้าจอของผม

    ผมเลยอยากไห้มีนมี หน้าต่างโปรเเกรมอ่ะครับ แบบว่าขอเเค่ กดตรงนี้ สต๊าท ตรงนี้ สต๊อป กดปุ่มนั้น ปุ่มนี้อ่ะครับ

    ขอเริ่มแบบง่ายๆก่อน ขอท่านผู้รู้ช่วย เเนะเเนวทางการเริ่มเขี่ยนแบบ GUI หน่อยนะครับผมหาดูจากบรอดก้ไม่เจออ่ะครับ

    ช่วยเเนะนำที ไม่ ก้ลอง เปลี่ยนสคิปของผม อ่ะไห้มันมีหน้าต่างหน่อยได้ไหมครับ ผมจะลองเทียบดูว่าตรงไหนเปลี่ยนยังไงบ้าง ผมลอสิ้นเดือนตังออกจะไปเดิน หาซื้อหนังสือมาอ่านอ่ะครับ ต้องลอ เดว ลูกเมียอด*-*


    นี่สคิปครับ


    Global $GameHD
    HotkeySet("{F8}", "quit")
    If _PSsixLoadH("ชื่อเกมผม") Then WinActivate($GameHD)

    While 1
    If PixelGetColor(602, 695) = 0x333124 Then
    MouseClick("left", 602, 695, 1, 0)
    EndIf

    If PixelGetColor(807, 202) = 0xEAE8E8 Then
    MouseClick("left", 498, 207, 1, 0)
    EndIf

    If PixelGetColor(631, 537) = 0x302D23 Then
    MouseClick("left", 631, 537, 1, 0)
    EndIf
    Sleep(100)
    WEnd

    Func _PSsixLoadH($gtitle)
    $GameHD = WinGetHandle($gtitle)
    If @error Then
    MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
    Else
    Return 1
    EndIf
    EndFunc

    func quit()
    Exit
    EndFunc


    ขอบคุณล่วงหน้านะครับ
    ป.ล ถ้าสคิปผม จัดเรียงไม่ดี หรือยังไง ช่วยเนอะนำหน่อยนะครับ
    kittipong
    kittipong
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty
    จำนวนข้อความ : 11
    ความนิยม : 0
    เข้าร่วมเมื่อ : 05/01/2013

    สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty Re: สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

    ตั้งหัวข้อ by kittipong 25/07/14, 01:18 pm

    ลองใช้ Koda สร้างดูครับ อยู่ใน Tools ของ SciTE ครับ em218 
    Code:

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    Global $GameHD, $nSwitch = 0;
    Opt("GUIOnEventMode", 1)
    HotKeySet("{F8}", "quit")

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 306, 94)
    GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
    $Button1 = GUICtrlCreateButton("เริ่ม", 24, 24, 105, 41)
    GUICtrlSetOnEvent(-1, "Button1Click")
    $Button2 = GUICtrlCreateButton("หยุด", 160, 24, 105, 41)
    GUICtrlSetOnEvent(-1, "Button2Click")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
       Sleep(10)
       If $nSwitch = 1 Then
          If PixelGetColor(602, 695) = 0x333124 Then
             MouseClick("left", 602, 695, 1, 0)
          EndIf
          If PixelGetColor(807, 202) = 0xEAE8E8 Then
             MouseClick("left", 498, 207, 1, 0)
          EndIf
          If PixelGetColor(631, 537) = 0x302D23 Then
             MouseClick("left", 631, 537, 1, 0)
          EndIf
          Sleep(100)
       EndIf
    WEnd

    Func Button1Click()
       $nSwitch = 1
                  If _PSsixLoadH("ชื่อเกมผม") Then WinActivate($GameHD)
    EndFunc
    Func Button2Click()
       $nSwitch = 0
    EndFunc
    Func Form1Close()
       quit()
    EndFunc


    Func _PSsixLoadH($gtitle)
       $GameHD = WinGetHandle($gtitle)
       If @error Then
          MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
          $nSwitch = 0
       Else
          Return 1
       EndIf
    EndFunc

    Func quit()
       Exit
    EndFunc


    แก้ไขล่าสุดโดย kittipong เมื่อ 26/07/14, 10:36 am, ทั้งหมด 1 ครั้ง
    avatar
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI Empty Re: สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

    ตั้งหัวข้อ by longaddza01 25/07/14, 03:41 pm

    ขอบคุณมากครับสำหลับสคิปและแนวทาง เดวเย็นเลิกงานแร้วจะไปลองดู

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