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


4 posters

    ช่วยดูโค็ด autoclick ทีครับ

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


    ช่วยดูโค็ด autoclick ทีครับ Empty ช่วยดูโค็ด autoclick ทีครับ Empty
    จำนวนข้อความ : 1
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/02/2014

    ช่วยดูโค็ด autoclick ทีครับ Empty ช่วยดูโค็ด autoclick ทีครับ

    ตั้งหัวข้อ by worrawitch 15/02/14, 03:24 am

    Code:
    Global $GameHD

    Func _PSsixLoadH($gtitle)
    $GameHD = WinGetHandle($gtitle)
    If @error Then
    MsgBox(4096, "Error", "ไม่พบเกม")
    EndIf
    EndFunc

    _PSsixLoadH("FIFA")
    While 1
    ControlClick ("FIFA", "", "","left",1,1062,684)
    Sleep(5000)
    ControlClick ("FIFA", "", "","left",1,606,552)
    Sleep(5000)
    ControlClick ("FIFA", "", "","left",1,1286,748)
    Sleep(5000)
    WEnd
     
    คือตอนนี้ มันทำได้แค่กดเข้าเล่นเกม กับต่อสัญญา แต่ผมอยากให้มันมีโปรแกรมเหมือน PSautoclickpathx64_14 ที่มีให้เลือกเช่น กด f1 ทำงาน กด f2 หยุดทำงาน กดesc ปิดโปรแกรม ประมาณนี้อ่ะครับ แหละอีกอย่าง อยากได้skin ผมหาโหลดไม่ได้เลย
    wdiLi
    wdiLi
    PSsix Member High Class
    PSsix Member High Class


    PSsix Game Coder
    จำนวนข้อความ : 73
    ความนิยม : 7
    เข้าร่วมเมื่อ : 29/01/2011
    อายุ : 33

    ช่วยดูโค็ด autoclick ทีครับ Empty Re: ช่วยดูโค็ด autoclick ทีครับ

    ตั้งหัวข้อ by wdiLi 15/02/14, 09:10 pm

    #ฟังก์ชัน สำหรับหยุดพักสคริปชั่วคราว
    Code:
    HotKeySet("{F2}", "_pauseProg")
    Global $Paused = False

    Func _pauseProg()
        $Paused = NOT $Paused
        While $Paused
            sleep(100)
            ToolTip('Script is "Paused"',0,0)
        WEnd
        ToolTip("")
    EndFunc ; end function

    #ฟังก์ชัน สำหรับหยุดการทำงาน
    Code:
    HotKeySet("{ESC}","_stopProg")

    Func _stopProg()
       Exit 0
    EndFunc ; end function

    #รวมทุกฟังก์ชัน เข้าด้วยกัน + โค้ดตัวอย่าง
    Code:
    HotKeySet("{F1}", "_startProg") ; ตั้งปุ่ม F1 เริ่มทำงาน
    HotKeySet("{ESC}","_stopProg") ; ตั้งปุ่ม ESC ออกจากโปรแกรม
    HotKeySet("{F2}", "_pauseProg") ; ตั้งปุ่ม PAUSE หยุดพักสคริป

    Global $Paused = False , $GameHD , $gtitle  ; ประกาศตัวแปร เป็นแบบ Global

    While 1 ; ใส่ลูปเพื่อให้โปรแกรมทำงานจนกว่า จะกดปุ่มใดๆ ที่ตั้งไว้
    Sleep(200)
    WEnd

    Func _startProg() ;
       If _PSsixLoadH("FIFA") = 1 Then
          playGame()
       EndIf
    EndFunc ; end function

    Func _PSsixLoadH($gtitle)
       $GameHD = WinGetHandle($gtitle)
       If @error Then
          MsgBox(4096, "Error", "ไม่พบเกม")
       Else
          Return 1
       EndIf
    EndFunc ; end function

    Func playGame()
       ControlClick ("FIFA", "", "","left",1,1062,684)
       Sleep(5000)
       ControlClick ("FIFA", "", "","left",1,606,552)
       Sleep(5000)
       ControlClick ("FIFA", "", "","left",1,1286,748)
       Sleep(5000)
    EndFunc ; end function

    Func _pauseProg()
        $Paused = NOT $Paused
        While $Paused
            sleep(100)
            ToolTip('Script is "Paused"',0,0)
        WEnd
        ToolTip("")
    EndFunc ; end function

    Func _stopProg()
       Exit 0
    EndFunc ; end function

    ส่วน Skin ก็ลองเปิดกระทู้เก่า ๆ ดูนะครับ แอดมิน เคยโพสน์ไว้อยู่ ผมคงจะไม่หามาให้นะ
    โค้ดทุกอย่างที่ถามมันมีในบอร์ดนี้หมดแล้ว ขยันเปิดอ่านด้วยนะครับ แนะนำได้แค่นี้แหละ ...
    avatar
    TeamAC
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ช่วยดูโค็ด autoclick ทีครับ Empty ช่วยดูโค็ด autoclick ทีครับ Empty
    จำนวนข้อความ : 2
    ความนิยม : 0
    เข้าร่วมเมื่อ : 04/03/2014

    ช่วยดูโค็ด autoclick ทีครับ Empty Re: ช่วยดูโค็ด autoclick ทีครับ

    ตั้งหัวข้อ by TeamAC 04/03/14, 08:31 am

    ผมอยากให้ส่ง key insert ใน inactive window
    ControlSend("FIFA", "", "", "{INSERT}") ;
    เจ้าของกระทู้ใส่แล้วใช้ได้มั้ยอ่ะครับ มันเหมือนไม่กด Insert ข้ามฉาก อยู่ดี
    avatar
    gumasterben
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ช่วยดูโค็ด autoclick ทีครับ Empty ช่วยดูโค็ด autoclick ทีครับ Empty
    จำนวนข้อความ : 3
    ความนิยม : 0
    เข้าร่วมเมื่อ : 23/11/2011

    ช่วยดูโค็ด autoclick ทีครับ Empty Re: ช่วยดูโค็ด autoclick ทีครับ

    ตั้งหัวข้อ by gumasterben 05/03/14, 07:44 pm

    TeamAC พิมพ์ว่า:ผมอยากให้ส่ง key insert ใน inactive window
    ControlSend("FIFA", "", "", "{INSERT}") ;
    เจ้าของกระทู้ใส่แล้วใช้ได้มั้ยอ่ะครับ มันเหมือนไม่กด Insert ข้ามฉาก อยู่ดี

    ลองใส่ตัวนี้ดู if WinActive ($GameHD) then Send ("{INSERT}") ;สั่งกดปุ่ม
       Sleep(200) ;หน่วงเวลา 1 วินาที ก่อนกดปุ่มถัดไป

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