ħÓòºÏBB£¨¼´ºÏ³É±¦±¦£©²Ù×÷ÐèÆµ·±µã»÷±³°ü¡¢ºÏ³É½çÃæ¼°È·Èϰ´Å¥£¬ÊÖ¶¯Ð§Âʵ͡£ÔÚ1280×1024´°¿Ú·Ö±æÂÊÏ£¬¿Éͨ¹ý°´¼ü¾«Áé±àд×Ô¶¯»¯½Å±¾ÊµÏÖÒ»¼üºÏ³É¡£ÒÔÏÂΪÍêÕûÖÆ×÷Á÷³ÌÓë¿ÉÖ´ÐдúÂë¡£
Ò»¡¢×¼±¸¹¤×÷
È·±£Ä§ÓòÔËÐÐÓÚ´°¿Úģʽ£¬·Ö±æÂÊÑϸñÉèΪ1280×1024¡£
´ò¿ª°´¼ü¾«Á飬н¨½Å±¾£¬ÆôÓÓÏà¶Ô×ø±ê”ģʽ£¨ÒÔÓÎÏ·´°¿Ú×óÉϽÇΪԵ㣩¡£
ʹÓÓץµã”¹¤¾ß»ñÈ¡ºÏ³É½çÃæ¹Ø¼ü×ø±ê£º
±³°ü´ò¿ª°´Å¥£¨Í¨³£Î»ÓÚÆÁÄ»ÓÒϽǣ©
±¦±¦À¸µÚÒ»¸ñλÖÃ
ºÏ³É°´Å¥£¨Ò»°ãÔÚ½çÃæÖв¿Æ«ÓÒ£©
È·ÈϺϳɵ¯´°µÄ“È·¶¨”°´Å¥
¶þ¡¢¹Ø¼ü×ø±êʾÀý£¨Ðèʵ²âУ׼£©
±³°ü¿ì½Ý¼ü£ºÄ¬ÈÏ“I”¼ü£¬»ò×ø±ê(1150, 900)
±¦±¦À¸µÚÒ»¸ñ£ºÔ¼(780, 320)
ºÏ³É°´Å¥£ºÔ¼(950, 500)
È·Èϰ´Å¥£ºÔ¼(860, 580)
Èý¡¢½Å±¾´úÂëÄ£°å
// ´ò¿ª±³°ü
KeyPress "I", 1
Delay 800
// µã»÷µÚÒ»¸ö±¦±¦£¨Ö÷³è£©
MoveTo 780, 320
LeftClick 1
Delay 500
// µã»÷µÚ¶þ¸ö±¦±¦£¨¸±³è£¬¼ÙÉèÔÚµÚ¶þ¸ñ£©
MoveTo 820, 320
LeftClick 1
Delay 500
// µã»÷ºÏ³É°´Å¥
MoveTo 950, 500
LeftClick 1
Delay 1000
// µã»÷È·ÈϺϳÉ
MoveTo 860, 580
LeftClick 1
Delay 1500
// ¹Ø±Õ±³°ü
KeyPress "I", 1
ËÄ¡¢ÔöÇ¿¹¦ÄÜ£¨¿ÉÑ¡£©
Ñ»·ºÏ³É£ºÔÚÍâ²ã¼ÓDo...Loop½á¹¹£¬ÅäºÏÔÝÍ£Èȼü£º
Dim StopScript
StopScript = False
Function OnScriptExit()
StopScript = True
End Function
Do
If StopScript Then Exit Do
// ²åÈëÉÏÊöºÏ³É´úÂë
Delay 2000
Loop
°ó¶¨F12ΪÖÕÖ¹¼ü£¬Ôڽű¾ÊôÐÔÖÐÉèÖÓÈȼüÍ£Ö¹”¡£
ÑÕÉ«ÅжϷÀÎó²Ù×÷£º¼ì²âºÏ³É°´Å¥ÊÇ·ñ¿ÉÓã¨Èç°´Å¥¸ßÁÁʱRGBΪ#FFD700£©£º
If GetPixelColor(950, 500) = "FFD700" Then
MoveTo 950, 500
LeftClick 1
End If
Îå¡¢µ÷ÊÔÒªµã
Ê×´ÎÔËÐÐǰ£¬¹Ø±ÕËùÓÐÕÚµ²ÓÎÏ·´°¿ÚµÄ³ÌÐò£¨ÈçÁÄÌ칤¾ß¡¢ä¯ÀÀÆ÷£©¡£
ÔÚ¿ÕÏеØÍ¼²âÊÔ£¬±ÜÃâÕ½¶·ÖжϲÙ×÷¡£
Èô×ø±êÆ«ÒÆ£¬Ê¹ÓÓÕÒͼ”¹¦ÄÜÌæ´ú¹Ì¶¨×ø±ê£º½ØÈ¡ºÏ³É°´Å¥Í¼Æ¬£¬ÓÃFindPic¶¨Î»¡£
ÑÓ³Ùʱ¼ä¸ù¾ÝµçÄÔÐÔÄܵ÷Õû£¬×îµÍ²»µÍÓÚ300ºÁÃ룬·ÀÖ¹µã»÷ʧЧ¡£
Áù¡¢×¢ÒâÊÂÏî
ºÏ³Éǰȷ±£Á½¸ö±¦±¦Âú×ãµÈ¼¶¡¢ÀàÐ͵ÈÓÎÏ·ÄÚ¹æÔò£¬½Å±¾²»ÑéÖ¤Ìõ¼þ¡£
Ƶ·±ºÏ³É¿ÉÄÜ´¥·¢ÏµÍ³¼ì²â£¬½¨Òé¼ä¸ô´óÓÚ1.5Ãë¡£
ÓÎÏ·¸üкóÐèÖØÐÂÐ£×¼×ø±ê£¬½çÃæ±ä¶¯»áµ¼Öµã»÷´íλ¡£
¸Ã½Å±¾½öÓÃÓÚ¼ò»¯Öظ´µã»÷²Ù×÷£¬ºËÐĺϳɲßÂÔÈÔÐèÍæ¼Ò×ÔÐÐÅжϡ£Êµ¼ÊʹÓÃʱӦ½áºÏ×ÔÉí±³°ü²¼¾Ö΢µ÷×ø±ê²ÎÊý¡£
Ò»¡¢×¼±¸¹¤×÷
È·±£Ä§ÓòÔËÐÐÓÚ´°¿Úģʽ£¬·Ö±æÂÊÑϸñÉèΪ1280×1024¡£
´ò¿ª°´¼ü¾«Á飬н¨½Å±¾£¬ÆôÓÓÏà¶Ô×ø±ê”ģʽ£¨ÒÔÓÎÏ·´°¿Ú×óÉϽÇΪԵ㣩¡£
ʹÓÓץµã”¹¤¾ß»ñÈ¡ºÏ³É½çÃæ¹Ø¼ü×ø±ê£º
±³°ü´ò¿ª°´Å¥£¨Í¨³£Î»ÓÚÆÁÄ»ÓÒϽǣ©
±¦±¦À¸µÚÒ»¸ñλÖÃ
ºÏ³É°´Å¥£¨Ò»°ãÔÚ½çÃæÖв¿Æ«ÓÒ£©
È·ÈϺϳɵ¯´°µÄ“È·¶¨”°´Å¥
¶þ¡¢¹Ø¼ü×ø±êʾÀý£¨Ðèʵ²âУ׼£©
±³°ü¿ì½Ý¼ü£ºÄ¬ÈÏ“I”¼ü£¬»ò×ø±ê(1150, 900)
±¦±¦À¸µÚÒ»¸ñ£ºÔ¼(780, 320)
ºÏ³É°´Å¥£ºÔ¼(950, 500)
È·Èϰ´Å¥£ºÔ¼(860, 580)
Èý¡¢½Å±¾´úÂëÄ£°å
// ´ò¿ª±³°ü
KeyPress "I", 1
Delay 800
// µã»÷µÚÒ»¸ö±¦±¦£¨Ö÷³è£©
MoveTo 780, 320
LeftClick 1
Delay 500
// µã»÷µÚ¶þ¸ö±¦±¦£¨¸±³è£¬¼ÙÉèÔÚµÚ¶þ¸ñ£©
MoveTo 820, 320
LeftClick 1
Delay 500
// µã»÷ºÏ³É°´Å¥
MoveTo 950, 500
LeftClick 1
Delay 1000
// µã»÷È·ÈϺϳÉ
MoveTo 860, 580
LeftClick 1
Delay 1500
// ¹Ø±Õ±³°ü
KeyPress "I", 1
ËÄ¡¢ÔöÇ¿¹¦ÄÜ£¨¿ÉÑ¡£©
Ñ»·ºÏ³É£ºÔÚÍâ²ã¼ÓDo...Loop½á¹¹£¬ÅäºÏÔÝÍ£Èȼü£º
Dim StopScript
StopScript = False
Function OnScriptExit()
StopScript = True
End Function
Do
If StopScript Then Exit Do
// ²åÈëÉÏÊöºÏ³É´úÂë
Delay 2000
Loop
°ó¶¨F12ΪÖÕÖ¹¼ü£¬Ôڽű¾ÊôÐÔÖÐÉèÖÓÈȼüÍ£Ö¹”¡£
ÑÕÉ«ÅжϷÀÎó²Ù×÷£º¼ì²âºÏ³É°´Å¥ÊÇ·ñ¿ÉÓã¨Èç°´Å¥¸ßÁÁʱRGBΪ#FFD700£©£º
If GetPixelColor(950, 500) = "FFD700" Then
MoveTo 950, 500
LeftClick 1
End If
Îå¡¢µ÷ÊÔÒªµã
Ê×´ÎÔËÐÐǰ£¬¹Ø±ÕËùÓÐÕÚµ²ÓÎÏ·´°¿ÚµÄ³ÌÐò£¨ÈçÁÄÌ칤¾ß¡¢ä¯ÀÀÆ÷£©¡£
ÔÚ¿ÕÏеØÍ¼²âÊÔ£¬±ÜÃâÕ½¶·ÖжϲÙ×÷¡£
Èô×ø±êÆ«ÒÆ£¬Ê¹ÓÓÕÒͼ”¹¦ÄÜÌæ´ú¹Ì¶¨×ø±ê£º½ØÈ¡ºÏ³É°´Å¥Í¼Æ¬£¬ÓÃFindPic¶¨Î»¡£
ÑÓ³Ùʱ¼ä¸ù¾ÝµçÄÔÐÔÄܵ÷Õû£¬×îµÍ²»µÍÓÚ300ºÁÃ룬·ÀÖ¹µã»÷ʧЧ¡£
Áù¡¢×¢ÒâÊÂÏî
ºÏ³Éǰȷ±£Á½¸ö±¦±¦Âú×ãµÈ¼¶¡¢ÀàÐ͵ÈÓÎÏ·ÄÚ¹æÔò£¬½Å±¾²»ÑéÖ¤Ìõ¼þ¡£
Ƶ·±ºÏ³É¿ÉÄÜ´¥·¢ÏµÍ³¼ì²â£¬½¨Òé¼ä¸ô´óÓÚ1.5Ãë¡£
ÓÎÏ·¸üкóÐèÖØÐÂÐ£×¼×ø±ê£¬½çÃæ±ä¶¯»áµ¼Öµã»÷´íλ¡£
¸Ã½Å±¾½öÓÃÓÚ¼ò»¯Öظ´µã»÷²Ù×÷£¬ºËÐĺϳɲßÂÔÈÔÐèÍæ¼Ò×ÔÐÐÅжϡ£Êµ¼ÊʹÓÃʱӦ½áºÏ×ÔÉí±³°ü²¼¾Ö΢µ÷×ø±ê²ÎÊý¡£

