///////////////////////////////////////////
//--------龙战挂机刷怪V1.0-----------
// 2008-12-10 by vrorca
///////////////////////////////////////////
//打开龙战进入游戏
VBSBegin
dim iedg
set iedg=createobject("internetexplorer.application")
iedg.navigate "http://w1.lz.woniu.com/"
do While iedg.busy or iedg.readystate<4
Delay 500
Loop
iedg.visible=1
iedg.document.all.userName.value="*******"
iedg.document.all.pwd.value="******"
'iedg.document.all.enter.click
msgbox "请输入验证码过后，点击确定继续！"
VBSEnd
Plugin Window.Active(iedg.hwnd)
Plugin Window.max(iedg.hwnd)
set iedg=nothing
//初始化IE控制界面
VBSBegin
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")
Sub exitscript
exit_my_script=-exit_my_script
End sub
'//暂停为什么按下了就不能再按了？
Sub pausescript
pause_my_script=-pause_my_script
If pause_my_script=1 then: ie.document.all.pauseDrgGame.value="暂停"
If pause_my_script=1 then: ie.document.all.pauseDrgGame.value="继续"
End sub
VBSEnd
///////////////////////////////////////////
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"
Plugin 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)
Plugin 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