ฟอรั่มของบล็อก http://pssix.blogspot.com


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

Share

sticked
PSsix Member
PSsix Member


จำนวนข้อความ : 24
ความนิยม : 1
เข้าร่วมเมื่อ : 30/01/2012
อายุ : 27

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

ตั้งหัวข้อ by sticked on 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 ครั้ง

loveapple244
PSsix Member Super Class II
PSsix Member Super Class II

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

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

ตั้งหัวข้อ by loveapple244 on 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กันเพราะมันเหมือนสร้างเป็นบ๊อกๆแต่ยังไม่เข้าใจการย้อนความคิดซะเท่าไหร่-*-

Fast
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Program Coder
จำนวนข้อความ : 217
ความนิยม : 52
เข้าร่วมเมื่อ : 19/06/2011

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

ตั้งหัวข้อ by Fast on 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
PSsix Member
PSsix Member


จำนวนข้อความ : 24
ความนิยม : 1
เข้าร่วมเมื่อ : 30/01/2012
อายุ : 27

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

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

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

    เวลาขณะนี้ 08/12/16, 02:50 pm