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


3 posters

    ไม่ยอดหลุดออกจากลูป

    sticked
    sticked
    PSsix Member
    PSsix Member


    ไม่ยอดหลุดออกจากลูป Empty ไม่ยอดหลุดออกจากลูป Empty
    จำนวนข้อความ : 24
    ความนิยม : 1
    เข้าร่วมเมื่อ : 30/01/2012
    อายุ : 34

    ไม่ยอดหลุดออกจากลูป Empty ไม่ยอดหลุดออกจากลูป

    ตั้งหัวข้อ by sticked 14/02/12, 12:23 pm

    Code:
       
    Func atk()
    For $i = 1 to 1550
          Send("{"& GUICtrlRead($Input1 )&"}")
          Sleep(100)

          If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then
             $b1 = PixelGetColor(100, 13)
          ElseIf BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) Then
             $b1 = PixelGetColor(137, 13)
          Else
             $b1 = PixelGetColor(165, 13)
          EndIf
       If $b1 = 0x080608 Then

             If PixelGetColor(490, 746) = 0x9C8A6B Then
                Send("{F1}")
             ElseIf PixelGetColor(520, 746) = 0x9C8A6B Then
                Send("{F2}")
             ElseIf PixelGetColor(550, 746) = 0x9C8A6B Then
                Send("{F3}")
             ElseIf PixelGetColor(544, 745) = 0xA59A84 Then
                Send("z")
             Else
          EndIf
       EndIf

       If PixelGetColor(101, 29) <> 0x00046B Then


          If PixelGetColor(580, 746) = 0x4775C0 Then
             Send("{F4}")
          ElseIf PixelGetColor(610, 746) = 0x4775C0 Then
             Send("{F5}")
          ElseIf PixelGetColor(640, 746) = 0x4775C0 Then
             Send("{F6}")
          ElseIf PixelGetColor(670, 746) = 0x4775C0 Then
             Send("{F7}")
          ElseIf PixelGetColor(700, 746) = 0x4775C0 Then
             Send("{F8}")
          ElseIf PixelGetColor(730, 746) = 0x4775C0 Then
             Send("{F9}")
          ElseIf PixelGetColor(760, 746) = 0x4775C0 Then
             Send("{F10}")
          ElseIf PixelGetColor(752, 744) = 0xAD9E84 Then
                Send("z")
          Else
          EndIf
       EndIf

       If PixelGetColor(1161, 34) = 0x000000 Then
          Send("{"& GUICtrlRead($Input8 )&"}")
          ElseIf PixelGetColor(850, 747) = 0x7B96B5 Then
             Send("z")
          EndIf

          If GUIGetMsg() = $Button2 Then
             ExitLoop
          EndIf

       Next
          For $j = 1 to 2
          Send("{"& GUICtrlRead($Input2 )&"}")
          Sleep(3000)
          Send("4")
          Sleep(100)
       Next
       Sleep(100)
    EndFunc

    ยกทั้งหมดนี้ไปใส่ในฟังก์ชั่น
    Code:

    Case $Button1
       while 1
          atk()
            WEnd

    ผลปรากฎว่าไม่ยอมหลุดออกจากลูปคับ พอคลิกปุ่ม $button2
    em233


    แก้ไขล่าสุดโดย sticked เมื่อ 14/02/12, 02:59 pm, ทั้งหมด 1 ครั้ง
    avatar
    loveapple244
    PSsix Member Super Class II
    PSsix Member Super Class II


    PSsix Game Coder
    จำนวนข้อความ : 160
    ความนิยม : 9
    เข้าร่วมเมื่อ : 15/07/2011

    ไม่ยอดหลุดออกจากลูป Empty Re: ไม่ยอดหลุดออกจากลูป

    ตั้งหัวข้อ by loveapple244 14/02/12, 02:40 pm

    ไม่เห็นข้อมูลตัวแปร $iครับ- -*จับIfใส่ไปในฟังชั้นดีกว่าครับแล้วใช้การAdlibRegisterเช่น AdlibRegister ("love", 1000)
    Func love()
    If .....Then
    EndIf
    EndFunc
    แล้วก็Case $Button1 while 1 atk() WEndใช้รูป GUIถึงจะดีครับแล้วมันก็จะทำต่อไปไม่จบสิ้นถ้าไม่ประกาศGlobalเพื่อหยุดสคิปทั้งสคิปใช้ยาก- -*ถ้าเกิดตัวผังงานไม่ดีจิงๆรวนแน่ครับ ที่แนะนำอย่างนี้ผม GUIไม่เก่งพอ-*-เคยทำก็เป็นแบบนายเลยรวน- -*ใช้แบบไม่สวนแต่มันชัวดีกว่า แต่ถ้าเก่งกว่าก็สอนเราบ้านนะอิอิยากรู้วิธีแก้ปัญหา เซนแม้นนี้เหมือนกันว่าเค้าใช้ยังไงกันแต่เวปนอกก็เห็นใช้Caseกันเพราะมันเหมือนสร้างเป็นบ๊อกๆแต่ยังไม่เข้าใจการย้อนความคิดซะเท่าไหร่-*-
    avatar
    Fast
    PSsix Member Super Class III
    PSsix Member Super Class III


    ไม่ยอดหลุดออกจากลูป Empty PSsix Program Coder
    จำนวนข้อความ : 217
    ความนิยม : 54
    เข้าร่วมเมื่อ : 19/06/2011

    ไม่ยอดหลุดออกจากลูป Empty Re: ไม่ยอดหลุดออกจากลูป

    ตั้งหัวข้อ by Fast 14/02/12, 03:38 pm

    แบบนี้ em218




    #include
    #include
    #include
    #include

    $Form1 = GUICreate("ฟฟฟฟฟฟฟฟฟ", 422, 155, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 248, 24, 75, 25)
    $Button2 = GUICtrlCreateButton("Button2", 336, 24, 75, 25)
    $Edit1 = GUICtrlCreateEdit("", 24, 16, 193, 113)
    GUICtrlSetData(-1, "Edit1")
    GUISetState(@SW_SHOW)

    Global $cc

    AdlibRegister("ss",100)



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

    Case $Button1
    ff()
    Case $Button2
    EndSwitch
    WEnd

    Func ff()
    $tt =0
    $cc = 0

    While 1
    if $cc = 1 then ExitLoop
    $tt = $tt+1
    GUICtrlSetData($Edit1,$tt )
    Sleep(100)
    WEnd
    EndFunc


    Func ss()
    If GUIGetMsg() = $Button2 Then $cc =1
    EndFunc
    sticked
    sticked
    PSsix Member
    PSsix Member


    ไม่ยอดหลุดออกจากลูป Empty ไม่ยอดหลุดออกจากลูป Empty
    จำนวนข้อความ : 24
    ความนิยม : 1
    เข้าร่วมเมื่อ : 30/01/2012
    อายุ : 34

    ไม่ยอดหลุดออกจากลูป Empty Re: ไม่ยอดหลุดออกจากลูป

    ตั้งหัวข้อ by sticked 15/02/12, 06:00 pm

    ขอคุณทั้ง 2 ท่านมากเลยนะครับ ได้แล้วครับผม อิอิ

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