- ///////////////////////////////////////////
- //--------龙战挂机刷怪V1.0-----------
- // 2008-12-10 by vrorca
- ///////////////////////////////////////////
- //打开龙战进入游戏
- 开始VBScript块
- dim iedg
- set iedg=createobject("internetexplorer.application")
- iedg.navigate "http://w1.lz.woniu.com/"
- do While iedg.busy or iedg.readystate<4
- 延时500毫秒
- Loop
- iedg.visible=1
- iedg.document.all.userName.value="*******"
- iedg.document.all.pwd.value="******"
- 'iedg.document.all.enter.click
- msgbox "请输入验证码过后,点击确定继续!"
- 结束VBScript块
- 调用插件命令 Window.Active(iedg.hwnd)
- 调用插件命令 Window.max(iedg.hwnd)
- set iedg=nothing
- //初始化IE控制界面
- 开始VBScript块
- Dim ie,exit_my_script
- exit_my_script=-1
- pause_my_script=-1
- Set ie=createobject("internetexplorer.application")
- ie.menubar=0
- ie.addressbar=0
- ie.toolbar=0
- ie.statusbar=0
- ie.width=500
- ie.height=420
- ie.resizable=0
- ie.navigate "about:blank"
- ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width))
- ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height))
- ie.visible=1
- with ie.document
- .write "<BODY bgcolor=cccccc><table><font color=blue size=+1>龙战自动挂机v1.0</font>"
- .write "************************<INPUT TYPE=Button NAME=extDrgGame VALUE=结束脚本>"
- .write "<INPUT TYPE=Button NAME=pauseDrgGame VALUE=暂停><hr>"
- .write "<font size=-1>选择怪物<select name=selectMonst width=50>"
- .write "<option value=FFCC>骷髅勇士[3]FFCC</option>"
- .write "<option value=FF99>鼠怪头领[3]FF99</option> "
- .write "<option value=BF4C>狂狗[2]BF4C</option>"
- .write "<option value=FFFF>杀人蜂卫兵[3]FFFF</option> "
- .write "</select>"
- .write "设置攻击模式<select name=attacktype width=50>"
- .write "<option value=0>按组合招式0</option>"
- .write "<option value=1>探索组合招式1</option>"
- .write "组合招式<INPUT TYPE=text NAME=attackorder VALUE=112322 size=5>"
- .write "</select><hr>"
- .write "角色血量:<input type=text name=maxblood value=203>"
- .write "回血速度:<input type=text name=bldUpSpd value=2.0><br>"
- .write "杀怪经验:<input type=text name=perEXP value=0.02>"
- .write "是否组队:<input type=text name=term value=0><br>"
- .write "除错时间:<input type=text name=outTimes value=30>"
- .write "过场延迟:<input type=text name=maxdly value=3000>"
- .write "</table><hr>"
- .write "<table align=left border=0><tr><th>"
- .write "<textarea type=text style=background-color:FFC5F1;color:7B0000;font:12px;width:230;height=160>Loading Please wait...</textarea></th>"
- .write "<th><textarea type=text style=background-color:39292F;color:FA9FC6;font:11px;width:230;height=160>Loading Please wait...</textarea></th></tr></table>"
- .write "</font></BODY>"
- End With
- dim ietxt
- set ietxt = IE.Document.getElementsBytagName("textarea")
- ie.document.all.extDrgGame.onclick=getref("exitscript")
- ie.document.all.pauseDrgGame.onclick=getref("pausescript")
- 子程序 exitscript
- exit_my_script=-exit_my_script
- End sub
- '//暂停为什么按下了就不能再按了?
- 子程序 pausescript
- pause_my_script=-pause_my_script
- 如果表达式 (pause_my_script=1 then: ie.document.all.pauseDrgGame.value="暂停") 为真,则
- 如果表达式 (pause_my_script=1 then: ie.document.all.pauseDrgGame.value="继续") 为真,则
- End sub
- 结束VBScript块
- ///////////////////////////////////////////
- dim hwnd,subhwnd,subtip(3),main_win_left,main_win_top,gameinfotext
- dim rect,bcxy,rectxy,pupxy,monsterxy,termxy,dagxy,btlxy,btlendxy,chkdiexy,chkbloodxy,chkplacexy,chkbloodxy2
- subtip(0)=" -- 网页对话框"
- subtip(1)="消息 -- 网页对话框"
- subtip(2)="《龙战:龙之遗产》中文官方网站 - Microsoft Internet Explorer"
- 调用插件命令 hwnd=Window.MousePoint()
- //Plugin clss=Window.GetClass(hwnd)
- //inputbox clss,,clss
- //EndScript
- //Plugin hwnd1=Window.Find(0,subtip(2))
- //Plugin hwnd=Window.FindEx(0,0,"Internet Explorer_Server",0)
- 调用插件命令 rect=Window.GetWindowRect(hwnd)
- rectxy=Split(rect,"|",-1,1)
- main_win_left=rectxy(0)*1:main_win_top=rectxy(1)*1
- strMsg="游戏窗口: " & hwnd & " 已经被锁定!" & vbcrlf
- strMsg=strmsg&"窗口大小:" & main_win_left & "," & main_win_top
- msgbox strmsg
- strmsg=""
- gameinfotext=""
- dim left,top,right,bottom,c,c1,dagc,x,y,x1,y1,i,j,k,mytermid