//※※※※※※※※※【在电脑桌面建立挂机记录】※※※※※※※※
IsFile = Plugin.File.IsFileExit("C:\Documents and Settings\Administrator\桌面\打怪记录.txt")   
If IsFile <> True Then 
set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(x & "\打怪记录.txt")
//↑写一个TXT到桌面
//↑判断挂机记录.txt是否存在，如不存在，则建立。
myfile.writeline ("天龙八部打怪，可在800*600或1024*768窗口大小下运行，可在屏幕上随意放置游戏窗口。注意：1、人物和珍兽的血条和级别数字要显在桌面上；2、窗口遮住时，影响识别防挂图 和捡包，建议记住挂图出现并估计再次出现时间（30分钟左右），不捡包；3、珍兽食物要足够,4、防挂图出现区域隐蔽在屏幕外时测防挂图时，因间接测珍兽级别数字，准确率不高；5、如果要移动窗口，需结束脚本后移动，然后重启脚本，不能暂停脚本。")
myfile.writeline ("F1：门派第1本书第1个技能，F6：普技或大群，F7：普技或大群，F8：加血药或共生或峨嵋清心，F9：加蓝药或血祭,F10：宝宝食物，ALT1：所有门派都有的这个近攻技能")
myfile.writeline ("打怪开始时间:" & now)
myfile.Close 
End If 
//※※※※※※※※※【检测屏幕分分辨率是否：1024*768】※※※※※※※※
Dimenv allx,ally
allx = Plugin.Sys.GetScRX()
ally = Plugin.Sys.GetScRY()
If allx <> 1024 and ally <> 768 Then 
	//↑allx为屏幕分辨率宽度,↑ally为屏幕分辨率高度.   
   MessageBox "请将屏幕分辨率设为：1024*768后，再开启此工具。"
   EndScript
End If
//※※※※※※※※※【锁定当前窗口,得到窗口客户区大小】※※※※※※※※
Dimenv Lx, Ty, Rx, By
//↑定义全局变量
Hwnd = Plugin.Window.Foreground()   
Call Plugin.Window.Active(Hwnd)
sRect = Plugin.Window.GetClientRect(Hwnd)   
Dim MyArray   
MyArray = Split(sRect, "|")   
Lx = Clng(MyArray(0)): Ty = Clng(MyArray(1))   
Rx = Clng(MyArray(2)) : By = Clng(MyArray(3))
//※※※※※※※※※【获取游戏窗口上端框架颜色】※※※※※※※※
Dimenv Tcolor
//↑存储游戏窗口在正常状态下的颜色，防止窗口不在最前端。
Tcolor = GetPixelColor(Lx + 486, Ty - 15)
//※※※※※※※※※【鼠标形状代码数值】※※※※※※※※
UserVar sbdm=954439560 "鼠标(包/箱)形状代码"
UserVar pkdm=1594686126 "鼠标(剑)形状代码"
UserVar mousen=4 "鼠标移动圈数"
//※※※※※※※※※【用户自定义变量】※※※※※※※※
UserVar fuben=DropList{"不延时":"0"|"不当队长延时等待":"1"|"当队长延时点击":"2"}=0 "进副本延时选项"
UserVar yanshi=600 "(当队长)延时(秒)鼠标左击选项进副本"
UserVar killms=DropList{"逐个杀怪":"0"|"抢怪/引怪(只打红)":"1"}=0 "打怪模式"
UserVar pkms=DropList{"只用F1攻":"0"|"用F1-F7攻":"1"|"用F1-F7和ALT2-ALT5攻":"2"}=0 "技能设置"
UserVar gsms=DropList{"不跟随":"0"|"(近攻)跟随怪":"1"}=0 "跟随设置"
UserVar salt1=15 "普通近攻跟随ALT1间隔(秒)"
UserVar gsys=1 "近攻跟随移动过程中耗用时间(秒)"
UserVar bossms=DropList{"遇BOSS不报警/不近攻":"0"|"遇BOSS报警":"1"|"遇BOSS近攻":"2"}=0 "遇BOSS模式"
UserVar gxue=DropList{"≤40%时近攻":"0.5"|"≤60%时近攻":"0.6"|"≤80%时近攻":"0.7"}=1 "BOSS血占第1行血?比例时近攻"
UserVar delayt=100 "寻怪延时(毫秒/个)"
UserVar maxtime=15 "杀怪限时(秒/个)"
UserVar jbms=DropList{"不捡包":"0"|"(画圈)搜包":"1"}=1 "捡拾设置"
UserVar fguatu=DropList{"不测防挂图":"0"|"防挂图出现区域无隐蔽时测防挂图":"1"|"防挂图出现区域隐蔽在屏幕外时测防挂图":"2"}=1 "报警设置"
UserVar baojing=DropList{"声音(声卡)报警":"0"|"乐曲(播放器)报警":"1"|"关游戏":"2"|"关机":"3"}=0 "报警选项"
UserVar sf1=1 "门派第1本书第1个技能F1间隔(秒)"
UserVar sf2=21 "攻击F2间隔(秒)"
UserVar sf3=26 "攻击F3间隔(秒)"
UserVar sf4=31 "攻击F4间隔(秒)"
UserVar sf5=64 "攻击F5间隔(秒)"
UserVar sf6=61 "攻击F6间隔(秒)"
UserVar melee=DropList{"停用F6":"0"|"F6普通技能":"1"|"F6群攻技能(拖放)":"2"}=0 "F6设置"
UserVar sf7=61 "攻击F7间隔(秒)"
UserVar attack=DropList{"停用F7":"0"|"F7普通技能":"1"|"F7群攻技能(拖放)":"2"}=0 "F7设置"
UserVar salt2=1 "攻击ALT2间隔(秒)"
UserVar salt3=61 "攻击ALT3间隔(秒)"
UserVar salt4=61 "攻击ALT4间隔(秒)"
UserVar salt5=94 "攻击ALT5间隔(秒)"
UserVar xuems=DropList{"不补血":"0"|"(共生/药品)补血":"1"|"清心补血":"2"}=2 "补血设置"
UserVar lanms=DropList{"不补蓝":"0"|"(血祭/药品)补蓝":"1"}=1 "补蓝设置"
UserVar rxue=DropList{"≤50%时补血":"0.5"|"≤60%时补血":"0.6"|"≤70%时补血":"0.7"}=1 "人物补血比例"
UserVar rlan=DropList{"≤50%时补蓝":"0.5"|"≤60%时补蓝":"0.6"|"≤70%时补蓝":"0.7"}=0 "人物补蓝比例"
UserVar sxue=DropList{"≤50%时补血":"0.5"|"≤60%时补血":"0.6"|"≤70%时补血":"0.7"}=1 "珍兽补血比例"
UserVar song=DropList{"不测试":"0"|"测声音(声卡)报警":"1"|"测乐曲(播放器)报警":"2"}=0 "报警声音测试C:\WINDOWS\Media\air.wav"
If song = 1 Then 
Call 声音()
ElseIf song = 2 Then 
Call 乐曲()
End If
//※※※※※※※※※【定义时间变量】※※※※※※※※
Dim tf1, tf2, tf3, tf4, tf5, tf6, tf7
tf1 = now : tf2 = now : tf3 = now : tf4 = now : tf5 = now : tf6 = now : tf7 = now
Dim talt1, talt2, talt3, talt4, talt5
talt1 = now : talt2 = now : talt3 = now : talt4 = now : talt5 = now 
Dim tmax
tmax = now 
Dim tboss
tboss = now
//※※※※※※※※※【定义环境变量】※※※※※※※※
Dimenv xuemode, lanmode, jbmode, alerting, photo
//↑xuemode：加血模式, lanmode：加蓝模式, jbmode：捡包模式,alerting:报警选项，photo：防挂图报警模式
xuemode = xuems
lanmode = lanms
jbmode = jbms
alerting = baojing
photo = fguatu