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

ħÓò1280¡Á1024´°¿ÚģʽºÏBB°´¼ü¾«Áé½Å±¾ÖÆ×÷Ö¸ÄÏ

Èȶȣº
ħÓòºÏ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Ãë¡£
ÓÎÏ·¸üкóÐèÖØÐÂÐ£×¼×ø±ê£¬½çÃæ±ä¶¯»áµ¼Öµã»÷´íλ¡£

¸Ã½Å±¾½öÓÃÓÚ¼ò»¯Öظ´µã»÷²Ù×÷£¬ºËÐĺϳɲßÂÔÈÔÐèÍæ¼Ò×ÔÐÐÅжϡ£Êµ¼ÊʹÓÃʱӦ½áºÏ×ÔÉí±³°ü²¼¾Ö΢µ÷×ø±ê²ÎÊý¡£