ฟอรั่ม 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
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

    ตั้งหัวข้อ by longaddza01 22/07/14, 12:49 pm

    ผมเขียนสคิปขึ้นมาได้ผลดีเเร้ว ขาดเเค่ว่าผมอยากไห้
    กด ESCเเร้วโปรเเกรมหยุดทำงานอ่ะครับ
    นี่คลิปผม
    Global $GameHD

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

    If _PSsixLoadH("Special Force") Then WinActivate($GameHD)
    While 1
    If PixelGetColor(807, 202) = 0xEAE8E8 Then
    MouseClick("left", 498, 207, 1, 0)
    EndIf
    Sleep(100)
    WEnd

    รบกวนผู้รู้ตอบทีนะครับว่าผมควรเขียนยังไงไห้มัน หยุดด้วยESCครับ
    ขอบคุณล่วงหน้าครับ
    Arm
    Arm
    PSsix Member Super Class III
    PSsix Member Super Class III


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

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

    ตั้งหัวข้อ by Arm 22/07/14, 02:27 pm

    HotkeySet("{F8}", "quit")

    func quit()
    Exit
    EndFunc

    ใส่โค้ดนี้ครับ
    avatar
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

    ตั้งหัวข้อ by longaddza01 22/07/14, 02:44 pm

    รบกวนอีกนิดได้รึป่าวครับ ไส่ ช่วงไหนของสคลิป อ่ะครับ

    ขอบคุณมากครับ
    Arm
    Arm
    PSsix Member Super Class III
    PSsix Member Super Class III


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

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

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

    ใส่ hotkeyset ไว้ส่วนบนของสคริปต์ และใส่ส่วนฟังก์ชั่นไว้ด้านล่างของสคริปต์ครับ  em219 
    avatar
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

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

    ครับผมขอบคุณมากครับ
    avatar
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

    ตั้งหัวข้อ by longaddza01 23/07/14, 08:08 am

    ลบกวนอีกนิดนะครับคือผมวางแบบนี้ถูกไหมครับ F8ไม่เห็นปิดโปรเเกรมเลย
    Global $GameHD

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

    HotkeySet("{F8}", "quit")

    If _PSsixLoadH("Special Force") Then WinActivate($GameHD)
    While 1
    If PixelGetColor(807, 202) = 0xEAE8E8 Then
    MouseClick("left", 498, 207, 1, 0)
    EndIf
    Sleep(100)
    WEnd
    func quit()
    Exit
    EndFunc

    ลบกวนบางไห้ดูสัก 1ครั้งได้ไหมครับ

    ว่าสวนไหนคือส่วนบน และล่างของสคลิป ขอบคุณล่วงหน้าครับ
    Arm
    Arm
    PSsix Member Super Class III
    PSsix Member Super Class III


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

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

    ตั้งหัวข้อ by Arm 24/07/14, 11:13 am

    กด F8 ก็ปิดได้นะครับ เทสแล้ว..

    ที่จริงสคริปต์ควรจะจัดเรียงแบบนี้ครับ ให้เอาโค้ด Main ประกาศตัวแปร กำหนดค่าต่างๆ ไว้ข้างบน แล้วข้างล่างจึงจะเป็นฟังก์ชั่นครับ
    Code:
    Global $GameHD
    HotkeySet("{F8}", "quit")
    If _PSsixLoadH("Special Force") Then WinActivate($GameHD)

    While 1
    If PixelGetColor(807, 202) = 0xEAE8E8 Then
    MouseClick("left", 498, 207, 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
    avatar
    longaddza01
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty
    จำนวนข้อความ : 12
    ความนิยม : 0
    เข้าร่วมเมื่อ : 21/07/2014

    รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ Empty Re: รบกวนผู้รู้ช่วยทีครับผมมือไหม่หัดทำ

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

    ครับเดวจะลองดูนะครับขอบคุณมาก

      เวลาขณะนี้ 09/05/24, 06:04 am