[General]
Description=ȡСͼ
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Attachment]
UEsDBBQAAgAIAPwZrDj1/1B7dgAAAPYAAAALABEATWluaVRvcC5ibXBVVA0AB0K2J0hdtidIXbYnSH1OIQ6AMBAbignEBGLy5ATixEImEIRMnIBkkufyKjQ9ZkgINO2la3q5LdtpKkYoQC1kocb4Oz/MG2UiiTSzlxKqB8030NRyZpkCjK4k/9MvmbQcCU1djPrUf3X2Sees6x3yFCkNOKGTg04Q+S68ryySqqke+QVQSwECFwsUAAIACAD8Gaw49f9Qe3YAAAD2AAAACwAJAAAAAAAAACAAgIEAAAAATWluaVRvcC5ibXBVVAUAB0K2J0hQSwUGAAAAAAEAAQBCAAAAsAAAAAAA


[Script]
VBS dim mx,my,ocr,sps,i1
//Ҫõı
set ocr=createobject("simplugocr.ocr")
//91ocrʶģ
ocr.dict="minipos.txt"
//趨ֿΪmimipos.txt
Delay 2000
//ͣ2ӣ2԰СͼʾԱűִʱܹ
Gosub GetMiniPos
//ִк getminiposĹȡСͼ꣬xmxymy
i1=10
//һi1һ֣ʾֺ֮㣬ּܻȷλԱ㽫Ҫƶλú֮ľ룬ƶҪȥ
If cint(mx)>i1
//ͨ׼vbscintmxתΪ֣Ȼi1бȽϣi1󣬾
    mx=cint(mx)-i1
//mxֵڵǰx-i1ֵ
    MessageBox mx&","&my
//ʾmxmy
EndIf 
//ǶȡСͼָλõʾ
Sub GetMiniPos
    Rem a1
//һa1
    VBSCall FindPic(80,80,680,480,"attachment:\minitop.bmp",0.9,x,y)
//ѰСͼϽǣϽǵ洢x,y
    If y>0
//ҵСͼϽǣͿִʶ
        ocr.fontcolor="F8FC00"
//趨ʼʱ91ocrʶģɫΪ"F8FC00"ɫСͼָλõʾĻɫ
        sps=ocr.ocr(x,y,680,420)
//ʶСͼϽǵĻ680420֣֮ʶ𵽵ִڱsps棬ɫղѾ趨"F8FC00"Ļɫ壬ΪǴɫ֣ɫƫҪ趨ҲƫΪ0
        i=instr(sps,",")
//spsҵ,λã֮ȷֻxy꣬ΪͨʶСͼϽǣѾСͼֻɫΪf8fc00ԺԷиԺı̹ʶ𵽵Ľпո񣬾Ҫñ׼vbsreplaceȥո񣬾ͿȷȡҪ
        mx=left(sps,i-1)
//ͨ׼vbsleft,֣Ҳxŵmx棬xͶ
        my=right(sps,len(sps)-i)
//ͨ׼vbsright,ұߵ֣Ҳyڱmy棬yҲ
    Else 
        Goto a1
//ûҵСͼϽǣѰСͼϽ
    EndIf 
Return 
