Var2=DropList{195:1|196:2|197:3|198:4|199:5|200:6|201:7|202:8|203:9|204:10|205:11|206:12|207:13|208:14|209:15}=0 【主刷服】
UserVar Var1=DropList{195:1|196:2|197:3|198:4|199:5|200:6|201:7|202:8|203:9|204:10|205:11|206:12|207:13|208:14|209:15}=0 【副刷服】
UserVar Var4=DropList{是:1|否:2}=2 跑服后是否开设房间
UserVar Var5=DropList{是:1|否:2}=2 是否开设密码房间
UserVar Var3=2000 跑服延时
//------------------上面是自定内容
Plugin a = Window.Foreground()
Delay 50
VBS set ppt=createobject("wscript.shell")
VBS pp="HKEY_LOCAL_MACHINE\SOFTWARE\MPlay\Crazy Arcade\"
VBS way=ppt.regread (pp&"CAPath")
moor="段神：自动跑F服工具1.4"
//定义，上面是设置的，下面的是设置房间名
VBS ppt.regwrite pp& "LastRoomTitle",moor,"REG_SZ"
Delay 50
Plugin Sys.SetCLB("段神自动跑F工具 - 1.4  .Www.dsbz.ys168.com - -// ")
KeyDown 17,1
KeyPress 86,1
KeyUp 17,1
Plugin Bkgnd.KeyPress(a, 13)
Delay 50
Plugin Bkgnd.LeftClick(a,118,584)
Delay 50
Gosub 副F
Delay Var3
KeyDown 17,1
KeyPress 86,1
KeyUp 17,1
Plugin Bkgnd.KeyPress(a, 13)
Delay 50
Plugin Bkgnd.LeftClick(a,118,584)
Delay 50
Gosub 主F
Delay Var3
KeyDown 17,1
KeyPress 86,1
KeyUp 17,1
Plugin Bkgnd.KeyPress(a, 13)
Delay 50
If Var4=2
EndIf 
If Var4=1
    Plugin Bkgnd.LeftClick(a, 283, 80)
    If Var5=1
        Plugin Bkgnd.LeftClick(a, 483,343)
        Plugin Bkgnd.LeftClick(a, 485,316)
        Plugin Bkgnd.KeyPress(a, 77)
    EndIf 
    Plugin Bkgnd.KeyPress(a, 13)
EndIf 
EndScript 
Sub 副F
    Plugin Bkgnd.LeftClick(a, 753, 134)
    Delay 100
    If Var1=1
        Plugin Bkgnd.LeftClick(a, 504, 248)
    EndIf 
    //下面这句是得到当前最前面的窗口句柄
    If Var1=2
        Plugin Bkgnd.LeftClick(a, 673, 251)
    EndIf 
    If Var1=3
        Plugin Bkgnd.LeftClick(a, 503, 302)
    EndIf 
    If Var1=4
        Plugin Bkgnd.LeftClick(a, 674, 302)
    EndIf 
    If Var1=5
        Plugin Bkgnd.LeftClick(a, 500, 357)
    EndIf 
    If Var1=6
        Plugin Bkgnd.LeftClick(a, 670, 365)
    EndIf 
    If Var1=7
        Plugin Bkgnd.LeftClick(a, 503, 414)
    EndIf 
    If Var1=8
        Plugin Bkgnd.LeftClick(a, 666, 415)
    EndIf 
    If Var1=9
        Plugin Bkgnd.LeftClick(a, 504, 476)
    EndIf 
    If Var1=10
        Plugin Bkgnd.LeftClick(a, 670, 472)
    EndIf 
    If Var1=11
        Plugin Bkgnd.LeftClick(a, 565, 519)
        Delay 200
        Plugin Bkgnd.LeftClick(a, 503, 251)
    EndIf 
    If Var1=12
        Plugin Bkgnd.LeftClick(a, 565, 519)
        Delay 200
        Plugin Bkgnd.LeftClick(a, 672, 247)
    EndIf 
    If Var1=13
        Plugin Bkgnd.LeftClick(a, 565, 519)
        Delay 200
        Plugin Bkgnd.LeftClick(a, 498, 302)
    EndIf