自-魔兽世界战场脚本编码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《自-魔兽世界战场脚本编码 》，欢迎阅读！

魔兽世界战场脚本编码

学了按键精灵脚本制作2天了，试做了一个魔兽世界战场脚本,可以适应各个分辨率，各位大神指点一二吧。编码如下:

Ｒeｍ WＯＷ战场挂机 UserVar sｔr="＂ Rem 开始

VBSCaｌl FindPic(0，0,10２4,76８，＂Attachmenｔ:\tａnhao.bmp"，0.9,Ｘ１，Y１) If Ｘ1＞0 and Y1>0 MoveTo X1+30，Y1+10 Dｅlay 50０ LeｆtCliｃk １ Delａy ５0０ Elsｅ

MｅssagｅBoｘ "没有＂ EｎdIf

VBSCalｌ FindＰｉｃ(0,0,1024，7６８,＂Aｔtａcｈmｅnt:\ｚc.bmp"，０.9,X2,Y2) If X2>0 and Y２>0

MoｖeTｏ Ｘ2+5,Y2+５ Delａｙ ５0０ LｅftClick １ Ｄelaｙ 5０0 Elｓe

Gotｏ Ｐ EndＩｆ Reｍ P

str="Aｔtachｍenｔ:\daａｏ．bmp＂ Gosub PaiZC ＬeftClｉck 1 Ｄelay 1000

stｒ＝"Attachmeｎt：\fb．bmp" Gosｕb ＰaiZC Gｏsub Ｇｏｇo Ｄelay 10００

sｔr＝"Attａｃhment:\zg.bｍp" Goｓub ＰａiZC Gｏsub Ｇogo Delａy 1000

stｒ="Atｔachｍｅｎｔ:\aｌx.bmp" Ｇosuｂ PaiZＣ Gｏsub Gogo Delay 100０


Ｗhilｅ 1 Ｇosub IｎZC EｎdWhile Ｒｅm over Delaｙ 5０00 Ｗhile 1

Gosub OｕtZＣ ＥndWｈile Sub OutZC

KeyDｏwn 65，1

VBＳCall FｉnｄPic(0,0，1０２4,76８,＂Attaｃhｍｅnt:\ｊｉnｒuｚd.bmｐ＂，0.9,Ｘ，Y) If X>0 and Y>0 MoveTo X，Y Dｅｌay 500 LｅftClｉck 1 Delay ５00 Goto Ｐ EｎdＩｆ ＫｅyＵp 65，1 Retｕrn OutＺC Sub ＩnZC

VBSCaｌl FindPｉc(０，0，１024,７６8,"Attacｈment:\ｊinｒuzd.bmp＂,０．9,X,Ｙ) If X>0 and Y>0 MovｅTo X,Y Delay 50０ LｅftCｌick 1 Delay 500 Ｇoto oｖer EnｄＩf Ｒeturn InＺＣ Sub Gogo

LeftCｌick 1

VＢSCaｌl ＦinｄPic(0,０,1024,768,"Atｔachment:\ｊrｚd.bｍp＂，0.９，Ｘ,Y) Ｉf Ｘ>0 and Y>0 MoveTo X，Y Delay 500 ＬeftClick 1 Ｄｅlay ５00 EndIf Ｒｅturｎ Gogo Ｓub ＰaiZＣ

VＢSCaｌｌ FｉndPｉｃ（0,０,102４,７68,stｒ,0.９,X,Y) If X>0 ａnｄ Y＞0 MoveＴo X,Y

本文来源：https://www.wddqxz.cn/67b5b1daa8ea998fcc22bcd126fff705cd175c30.html