baocun=-1
        For baocunD
            baocun=baocun+1
        EndFor 
        MoveTo 516,349+38*baocun
        Delay 128
        LeftClick 1
        Delay 3000
        For 8
            KeyPress kjjF3,1
            Delay 800
        EndFor 
        KeyPress 9,1
        Delay 128
        Goto 开始挂机
    EndIf 
Return 回城补充
Sub 快捷键设置
    kjjF1=111
    For kjF1
        kjjF1=kjjF1+1
    EndFor 
    kjjF2=111
    For kjF2
        kjjF2=kjjF2+1
    EndFor 
    kjjF3=111
    For kjF3
        kjjF3=kjjF3+1
    EndFor 
    kjjF4=111
    For kjF4
        kjjF4=kjjF4+1
    EndFor 
    kjjF5=111
    For kjF5
        kjjF5=kjjF5+1
    EndFor 
    kjjF6=111
    For kjF6
        kjjF6=kjjF6+1
    EndFor 
    kjjF7=111
    For kjF7
        kjjF7=kjjF7+1
    EndFor 
    kjjF8=111
    For kjF8
        kjjF8=kjjF8+1
    EndFor 
Return 快捷键设置
Sub 写入日志
    dim file,f1,fileexist,savestring,filename
    Const ForWriting=2
    Const ForAppending=8
    set file = CreateObject("Scripting.FileSystemObject")
    fileexist=file.FileExists(filename)
    If fileexist=-1
        Goto append
    EndIf 
    Set f1 =file.CreateTextFile(filename,ForWriting)
    f1.Close
    Rem append
    Set f1 =file.OpenTextFile(filename,ForAppending)
    savestring=Cstr(Year(Now))+"年"+Cstr(Month(Now))+"月"+Cstr(Day(Now))+"日"+Cstr(Hour(Now))+"时"+Cstr(Minute(Now))+"分"+Cstr(Second(Now))+"秒 "+savestring
    f1.WriteLine(savestring)
    f1.Close
Return 写入日志
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//【脚本经过修改、测试】
//【创作日期】2006.9
//【脚本作者】逆风之帆
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓