'msgbox  VarType(tmpmonst)
        'TracePrint tmpmonst & "," & len(tmpmonst)
        'msgbox tmpmonst & ","
        monst(0)=tmpmonst
        c=tmpmonst
        'TracePrint monst(0) & "," & c & left("ernkernl",4)
        '//msgbox monst(0) & vbcrlf &  c
        term=.term.value*1
        outTimes=.outTimes.value*1
        blood=.maxblood.value*1
        bldUpSpd=.bldUpSpd.value*1
        rndAtk=.attacktype.value*1
        attackOrder=.attackorder.value
        'msgbox term & "," & outtimes & "," & blood & "," & bldupspd & "," & attackorder
        End with
    VBSEnd 
Return 
EndScript 
Sub ExitDrgGame
    vbsexit=msgbox("确认退出龙战挂机？",1)
    If vbsexit=1
        Goto drgExit_
    Else 
        Goto returnCtl_
    EndIf 
    Rem drgExit_
    ie.quit
    set ietxt=nothing
    set ie=nothing
EndScript 
Rem returnCtl_
Return 
EndScript 
Sub OnScriptExit
    ie.quit
    set ietxt=nothing
    set ie=nothing
EndScript 
Return