µ±Ç°Î»Öà : 145zÓÎÏ·Õ¾¡¡|¡¡Ä§Óò¡¡|¡¡¼¼Êõ½Ì³Ì¡¡|¡¡

ħÓò×Ô¶¯Ñ°Â·½Å±¾·½ÏòʧЧÎÊÌâ½âÎö

Èȶȣº
Äã±àдµÄ°´¼ü¾«Áé½Å±¾Âß¼­½á¹¹ÕýÈ·£¬µ«Êµ¼ÊÔËÐÐÖнÇɫֻ³¯Ò»¸ö·½ÏòÒÆ¶¯£¬Ô­ÒòÖ÷Òª¼¯ÖÐÔÚËæ»úÊýÉú³É»úÖÆÓëÑ­»·¿ØÖÆ·½Ê½ÉÏ¡£ÒÔÏÂÖðÏî˵Ã÷ÎÊÌâËùÔÚ¼°ÐÞÕý·½·¨¡£

1. Randomize Ó÷¨´íÎó
´úÂëÖÐдΪ Randomize ÊýÖµ£¬µ«“ÊýÖµ”䶨Ò壬µ¼ÖÂËæ»úÖÖ×ӹ̶¨¡£°´¼ü¾«ÁéµÄ Randomize Èô²»´«ÈëÓÐЧ²ÎÊý£¨Èç Timer£©£¬»áʹÓÃĬÈÏÖÖ×Ó£¬Ê¹ Rnd º¯Êýÿ´Î·µ»ØÏàͬÐòÁС£Ó¦¸ÄΪ£º
Randomize Timer

´ËÓï¾äÈ·±£Ã¿´ÎÖ´ÐÐʱÒÔϵͳʱ¼ä×÷ΪÖÖ×Ó£¬Éú³ÉÕæÕýËæ»úµÄ n Öµ¡£

2. Ëæ»úÊýÉú³ÉλÖò»µ±
µ±Ç° n = Int(rnd * 4) λÓڽű¾¿ªÍ·£¬½öÔÚ³ÌÐòÆô¶¯Ê±Ö´ÐÐÒ»´Î¡£ºóÐøÍ¨¹ý Goto Ìø×ª»Ø“Ѱ·´ò¹Ö”±êǩʱ£¬²¢Î´ÖØÐ¼ÆËã n£¬Òò´ËʼÖÕʹÓóõʼֵ¡£Ðè½«Ëæ»úÊýÉú³ÉÒÆÖÁÑ­»·ÄÚ²¿£º
Rem Ѱ·´ò¹Ö
Randomize Timer
n = Int(Rnd * 4)

ÕâÑùÿ´ÎÑ­»·¶¼»áÖØÐÂÉú³É 0-3 µÄËæ»úÕûÊý¡£

3. ×ø±êÆ«ÒÆÂß¼­È±ÏÝ
½Å±¾Ê¹Óà GetClientRect »ñÈ¡´°¿Ú¿Í»§Çø×ø±ê£¬µ«Ä§Óò²¿·Ö°æ±¾´°¿Ú±ß¿ò»ò±êÌâÀ¸»áÓ°Ïìʵ¼Êµã»÷λÖ᣽¨Òé¸ÄÓà Plugin.Window.GetWindowRect »ñÈ¡ÍêÕû´°¿Ú×ø±ê£¬²¢ÑéÖ¤ ux¡¢uy ÊÇ·ñΪ¸ºÖµ£¨³£¼ûÓÚÎޱ߿ò´°¿Ú£©¡£Èô×ø±êÆ«ÒÆÒì³££¬¿ÉÁÙʱÊä³öµ÷ÊÔÐÅÏ¢£º
Call Plugin.Msg.ShowScrMsg(0, 0, "ux:" & ux & " uy:" & uy, 1000)

È·ÈÏÆ«ÒÆÁ¿ÊÇ·ñºÏÀí¡£

4. ȱÉÙ״̬Åжϵ¼ÖÂÎÞЧѭ»·
½Å±¾ÎÞÏÞÑ­»·Ö´Ðеã»÷²Ù×÷£¬µ«Î´¼ì²â½ÇÉ«ÊÇ·ñ´¦ÓÚÕ½¶·×´Ì¬»òÒÆ¶¯ÖС£Èô½ÇÉ«¿¨ÔÚÕϰ­Îïºó£¬Öظ´µã»÷Í¬Ò»ÇøÓò²»»á¸Ä±äλÖ᣽¨Òé¼ÓÈë¼òµ¥ÑÓ³Ù»òÒÆ¶¯Íê³ÉÅжϣ¨ÈçµÈ´ý»­Ãæ±ä»¯£©£¬µ«°´¼ü¾«Áé±¾ÉíÎÞͼÏñʶ±ð¹¦ÄÜ£¬¿ÉÊʵ±ÑÓ³¤ Delay ʱ¼äÖÁ 2000 ºÁÃëÒÔÉÏ£¬È·±£¶¯×÷Íê³É¡£

5. RightClick ÓÃ;²»Ã÷
ħÓòÖÐÓÒ¼üͨ³£ÓÃÓÚ½»»¥»òÈ¡Ïû²Ù×÷£¬Á¬Ðø LeftClick + RightClick ¿ÉÄܸÉÈÅÒÆ¶¯Ö¸Áî¡£ÈôÄ¿±êÊÇÒÆ¶¯µ½×ø±êµã£¬½öÐè LeftClick ¼´¿É¡£¿É³¢ÊÔ×¢Ê͵ôËùÓÐ RightClick ÐУ¬¹Û²ìÐÐΪÊÇ·ñ¸ÄÉÆ¡£

ÐÞÕýºóºËÐÄ´úÂë½á¹¹ÈçÏ£º
Hwnd = Plugin.Window.Find(0, "ħÓò´°¿Ú")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray = Split(sRect, "|")
ux = CLng(MyArray(0))
uy = CLng(MyArray(1))

Rem Ѱ·´ò¹Ö
Randomize Timer
n = Int(Rnd * 4)

If n = 0 Then
MoveTo 298 + ux, 173 + uy
Delay 100
LeftClick 1
Delay 2000
End If

If n = 1 Then
MoveTo 650 + ux, 208 + uy
Delay 100
LeftClick 1
Delay 2000
End If

If n = 2 Then
MoveTo 634 + ux, 431 + uy
Delay 100
LeftClick 1
Delay 2000
End If

If n = 3 Then
MoveTo 287 + ux, 426 + uy
Delay 100
LeftClick 1
Delay 2000
End If

Goto Ѱ·´ò¹Ö


µ÷Õûºó½Å±¾½«ÕæÕýʵÏÖËĸö·½ÏòµÄËæ»úÒÆ¶¯¡£ÈôÈÔ´æÔÚÎÊÌ⣬Ðè¼ì²éħÓò´°¿Ú±êÌâÊÇ·ñÍêȫƥÅä“ħÓò´°¿Ú”£¬»òʹÓà Plugin.Window.Search ÁгöËùÓд°¿Ú±êÌâ½øÐÐÈ·ÈÏ¡£