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


    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ

    dieip
    dieip
    PSsix Member
    PSsix Member


    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 0
    เข้าร่วมเมื่อ : 10/10/2013

    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ

    ตั้งหัวข้อ by dieip 16/10/13, 03:33 pm

    [You must be registered and logged in to see this link.] อ้างจากลิ้งนี้
    ผมได้หัดเขียนautoit ได้อาทิตย์กว่าๆแล้ว แต่ก็ยังติดใจเรื่องการเขียนพิกัดแบบลิ้งด้านบนอ่าคบ
    คือต้องใช้คำสั่งแบบไหนจะพอออกมาได้แบบนี้อ่าครับ (กรอบสี่เหลี่ยมในรูปแนบ)
    เพราะตัวที่ผมเขียนตอนนี้มันต้องไปใส่พิกัดและสีเอง เลยอยากทำแบบกด f2 แล้วเซพพิกัดได้อ่าครับ
    ในหนังสือ เจาะระบบ registry มันไม่มีอ่าครับ ช่วยแนะทีนะครับ
    dieip
    dieip
    PSsix Member
    PSsix Member


    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 0
    เข้าร่วมเมื่อ : 10/10/2013

    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty ตัวอย่างตัวที่ผมทำ คนเก่งๆอาจจะมองว่าผมใช้ภาษาเปลื่องนะคับ แต่ก็ช่วยแนะนำได้นะครับผมมือใหม่

    ตั้งหัวข้อ by dieip 16/10/13, 03:35 pm

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=D:\cpro\appglobes\GameSpy.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include
    #include
    #include
    #Region ### START Koda GUI section ### Form=
    $fm01 = GUICreate("Dieip", 251, 169, 348, 226)
    GUISetBkColor(0xA6CAF0)
    $Radio1 = GUICtrlCreateRadio("กดแฝง = 1200 ครั้ง", 24, 16, 113, 17)
    $Radio2 = GUICtrlCreateRadio("กดแฝง = 2400 ครั้ง", 24, 40, 113, 17)
    $Radio3 = GUICtrlCreateRadio("กดแฝง = 3600 ครั้ง", 24, 64, 113, 17)
    $Radio4 = GUICtrlCreateRadio("กดแฝง = 4800 ครั้ง", 24, 88, 113, 17)
    $Radio5 = GUICtrlCreateRadio("กดแฝง = 6000 ครั้ง", 24, 112, 113, 17)
    $Radio6 = GUICtrlCreateRadio("กดแฝงไปเรื่อยๆ", 24, 136, 113, 17)
    $Button1 = GUICtrlCreateButton("แฝงโจมตี", 152, 48, 81, 25, $WS_GROUP)
    GUICtrlSetBkColor(-1, 0x3399FF)
    $Button2 = GUICtrlCreateButton("แฝงป้องกัน", 152, 88, 81, 25, $WS_GROUP)
    GUICtrlSetBkColor(-1, 0x3399FF)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    HotKeySet("{ESC}", "stop")
    Func stop()
    ToolTip('หยุดการทำงาน', 0, 0)
    Sleep(500)
    Exit
    EndFunc


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

    Case $Button1
    Opt("MouseCoordMode", 2)
    Opt("PixelCoordMode", 2)
    Opt("CaretCoordMode", 2)
    If _PSsixLoadH("Dynasty Dragon - Server 5 - Mozilla Firefox") Then WinActivate($Dieip)
    d01()
    Case $Button2
    Opt("MouseCoordMode", 2)
    Opt("PixelCoordMode", 2)
    Opt("CaretCoordMode", 2)
    If _PSsixLoadH("Dynasty Dragon - Server 5 - Mozilla Firefox") Then WinActivate($Dieip)
    d02()
    EndSwitch
    WEnd

    Func d01()
    If $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 1200 ครั้ง")

    for $i =1 To 1200
    If PixelGetColor(945, 362) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 371) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 373) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit

    EndIf
    If $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 2400 ครั้ง")

    for $i =1 To 2400
    If PixelGetColor(945, 362) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 371) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 373) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit

    EndIf
    If $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 3600 ครั้ง")

    for $i =1 To 3600
    If PixelGetColor(945, 362) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 371) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 373) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit

    EndIf
    If $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 4800 ครั้ง")

    for $i =1 To 4800
    If PixelGetColor(945, 362) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 371) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 373) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit

    EndIf
    If $radio5 And BitAND(GUICtrlRead($radio5), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 6000 ครั้ง")

    for $i =1 To 6000
    If PixelGetColor(945, 362) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 371) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 373) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit

    EndIf
    If $radio6 And BitAND(GUICtrlRead($radio6), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตีไม่จำกัดครั้ง")

    for $i =1 To 9999
    If PixelGetColor(945, 362) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 371) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 373) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit

    EndIf
    EndFunc

    Func d02()
    If $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 1200 ครั้ง")

    for $i =1 To 1200
    If PixelGetColor(945, 389) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 397) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 399) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit
    EndIf
    If $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 2400 ครั้ง")

    for $i =1 To 2400
    If PixelGetColor(945, 389) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 397) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 399) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit
    EndIf
    If $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 3600 ครั้ง")

    for $i =1 To 3600
    If PixelGetColor(945, 389) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 397) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 399) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit
    EndIf
    If $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 4800 ครั้ง")

    for $i =1 To 4800
    If PixelGetColor(945, 389) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 397) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 399) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit
    EndIf
    If $radio5 And BitAND(GUICtrlRead($radio5), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 6000 ครั้ง")

    for $i =1 To 6000
    If PixelGetColor(945, 389) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 397) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 399) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit
    EndIf
    If $radio6 And BitAND(GUICtrlRead($radio6), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน ไม่จำกัดครั้ง")

    for $i =1 To 9999
    If PixelGetColor(945, 389) = 0x09E60C Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(945, 397) = 0xDD0202 Then
    MouseClick("left",840,639,1,99)
    Sleep(400)
    EndIf

    If PixelGetColor(881, 399) = 0xFFFFFF Then
    MouseClick("left",739,636,1,99)
    Sleep(400)
    EndIf

    Sleep(450)
    MouseClick("left",791,634,1,99)
    Sleep(450)

    Next
    Exit
    EndIf
    EndFunc
    dieip
    dieip
    PSsix Member
    PSsix Member


    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 0
    เข้าร่วมเมื่อ : 10/10/2013

    ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ Empty Re: ขอถามบางส่วนเกี่ยวกับ psautoclick-14 ช่วยทีครับ

    ตั้งหัวข้อ by dieip 16/10/13, 03:36 pm

    ถ้าเลือกพิกัดได้เองแบบโปรแกรมตามลิ้ง คงจะดีกว่านี้เยอะเลย T^T

      เวลาขณะนี้ 08/05/24, 02:28 am