蜀门Online简单打怪脚本(vbs)

 1 Dim  bstop,skill1,skill2,resku1,resku2,sleeptime,sleeptimes,nextfire,bfinish,i,confightml,beatcount
 2
 3 Set  confg = CreateObject ( " InternetExplorer.Application " )
 4 set  Wshell = WScript.CreateObject( " Wscript.Shell " ) 
 5 confg.visible = true
 6 confg.navigate  " E:\GM\Shumenol\config.html "
 7 While  (confg.Busy)
 8     Sleep( 3000 )
 9 Wend
10 i = 1
11 LoadConfig(confg)
12 Call  AddLog(confg, " 开始休眠10秒等待窗口激活 " )
13 Sleep( 10000 )
14
15 While  ( not  bfinish)
16      IF   not  bstop  Then
17         Sleep(nextfire)
18     
19          IF  (i  mod  sleeptimes) = 0   Then
20              Call  AddLog(confg, " 开始休眠 " & (sleeptime / 1000 ) & " 秒 " )
21              ' 发送休眠key
22             gmSleep
23             Sleep(sleeptime) ' 程序休眠
24             LoadConfig(confg) ' 加载配置信息
25          End   IF
26         
27         i = i + 1 ' 增量    
28          Call  AddLog(confg, " 开始打怪. " )    
29         showSkill
30      Else
31         Sleep(sleeptime) ' 程序休眠
32         LoadConfig(confg) ' 加载配置信息
33      End   IF
34 Wend
35 confg.quit
36 set  Wshell = nothing
37
38
39 ' ****************Function******************
40 Function  showSkill()
41      Call  AddLog(confg, " 选怪. " )
42     Wshell.SendKeys  " {Tab} "
43      Call  Sleep(nextfire) ' 休眠
44     
45      Call  AddLog(confg, " 开始使用技能. " )
46      IF   true   Then
47          For  k = 1   to  beatcount
48              Call  Sleep(nextfire) ' 休眠
49              ' 使用技能
50             Wshell.SendKeys  Cstr (skill1)
51          Next
52      End   IF
53     
54 End Function
55
56 Function  gmSleep()
57     Wshell.SendKeys  " x "
58 End Function
59
60 Function  Sleep(tim)
61     WScript.Sleep tim
62 End Function
63
64 Function  AddLog(ieobj,strLog)
65      IF   len (ieobj.document.getElementById( " logwindow " ).InnerHTML) > 1000   Then
66         ieobj.document.getElementById( " logwindow " ).InnerHTML = ""
67      End   IF
68     ieobj.document.getElementById( " logwindow " ).InnerHTML = Now () & " -- " & strLog & "
" & ieobj.document.getElementById( " logwindow " ).InnerHTML
69 End Function
70
71 Function  getConfigValue(ieobj,strElID)
72     getConfigValue = ieobj.document.getElementById(strElID).value
73 End Function
74
75 Function  LoadConfig(coie)
76      ' Load Config Info
77     bstop = getConfigValue(coie, " isbeat " )
78     skill1 = getConfigValue(coie, " skill1 " )
79     skill2 = getConfigValue(coie, " skill2 " )
80     resku1 = getConfigValue(coie, " skill1time " )
81     resku2 = getConfigValue(coie, " skill2time " )
82     sleeptime = getConfigValue(coie, " sleeptime " )
83     sleeptimes = getConfigValue(coie, " sleepsplit " )
84     nextfire = getConfigValue(coie, " beatsplit " )
85     bfinish = getConfigValue(coie, " bfinish " )
86     beatcount = getConfigValue(coie, " beatcount " )
87      ' End of Load Config Info
88 End Function
89

 1 < html >
 2 < head >
 3 < title > 配置信息 title >
 4 head >
 5 < style  type ="text/css" >
 6.logwindow{}{ width:100%; height:200px; border:solid #999999 1px; overflow:scroll;}
 7.datable{}{ width:100%; padding:4px;}
 8 style >
 9 < script  type ="text/Javascript" >
10function chgvalue(obj)
11{
12    obj.value=(obj.value=="true"?"false":"true");
13}
14 script >
15 < body >
16 < fieldset >
17      < legend > 系统配置信息 legend >
18      < table  class ="datable" >
19          < tr >
20              < th  colspan ="4" > 是否退出： < input  type ="checkbox"  value ="false"  id ="bfinish"  onClick ="chgvalue(this)" /> th >
21          tr >
22          < tr >
23              < th  colspan ="4" > 打怪设置 th >
24          tr >
25          < tr >
26              < td > 是否打怪
27              < input  type ="checkbox"  id ="isbeat"  name ="isbeat"  value ="1"  checked ="checked"  onClick ="chgvalue(this)"   /> td >
28              < td > 打怪次数
29              < input  type ="text"  id ="beatcount"  name ="beatcount"  value ="5" /> td >
30              < td > 打怪间隔 td >
31              < td >< input  type ="text"  id ="beatsplit"  value ="3000"   /> td >
32          tr >
33          < tr >
34              < th  colspan ="4" >
35               技能配置      
36              th >   
37          tr >
38          < tr >
39              < td > 技能一[优先使用]： td >
40              < td >< input  type ="text"  value ="1"  id ="skill1"   /> td >
41              < td > 冷却时间： td >
42              < td >< input  type ="text"  value ="2000"  id ="skill1time" /> td >
43          tr >
44          < tr >
45              < td > 技能二： td >
46              < td >< input  type ="text"  value ="-1"  id ="skill2" /> td >
47              < td > 冷却时间： td >
48              < td >< input  type ="text"  value ="2000"  id ="skill2time" /> td >
49          tr >
50          < tr >
51              < th  colspan ="5" >
52                 时间设定：
53              th >
54          tr >
55          < tr >
56              < td > 打坐时间： td >
57              < td >< input  type ="text"  value ="50000"  id ="sleeptime" /> td >
58              < td > 打坐间隔： td >
59              < td >< input  type ="text"  value ="5"  id ="sleepsplit" /> td >
60          tr >
61      table >
62 fieldset >
63 < hr />
64 < h3 > 日志信息 h3 >
65 < div  class ="logwindow"  id ="logwindow" >
66 div >
67 body >
68 html >