UserVar jinyan=1260000 当前级别升级需要经验
UserVar t=10 隔多少分钟得到结果
UserVar fb=DropList{1360×768分辨率1088×612窗口:3|1440×900分辨率1280×720窗口:0|1440×900分辨率1088×612窗口:2|1024×768分辨率800×600窗口:1}=0  选择屏幕和游戏窗口的分辨率类型//主程序部分
//传说中的分割线=======================================================================================
Rem 程序开始
VBSCall MessageBox("老大，我要开始了，单击确定继续程序，"&t&" 分钟后知道结果!")
Gosub 判断分辨率类型
Gosub 鉴别阶段
//第一次鉴别是找到开始的经验
If q=0
    VBSCall MessageBox("请确认游戏运行正常，经验条没有被遮挡，分辨率正确！！！")
    Goto 程序结束
EndIf 
kaishi=p
Gosub 延时阶段
//第二次鉴别是找到设定时间结束时经验，两次使用的是一个子程序，可以节省代码，呵呵。个人认为用子程序是好习惯。！@ ！
Gosub 鉴别阶段
jieshu=p
Gosub 赋值阶段
If zengliang=0
    Gosub 没有长经验
    Goto 程序结束
EndIf 
If w>1
    Gosub 总时间大于两个小时
EndIf 
If w=1
    Gosub 总时间一个小时
EndIf 
If w=0
    Gosub 总时间不到一个小时
EndIf 
If jy>10000
    jy=Fix(jy/10000)
    VBSCall MessageBox("你的本级升级所需的剩余经验呢约为 "&jy&" W余点！继续努力！")
Else 
    If jy>1000
        jy=Fix(jy/1000)
        VBSCall MessageBox("你的本级升级所需的剩余经验只有 "&jy&"  千余点！加油加油！")
    Else 
        VBSCall MessageBox("你的本级升级所需的剩余经验约为 "&jy&" 点！很快就升级了！")
    EndIf 
EndIf 
If g>0
    Gosub 剩余时间大于一个小时
EndIf 
If g=0
    Gosub 剩余时间不到一个小时
EndIf 
VBSCall MessageBox("本级升级效率是每分钟 "&i&" 点经验！")
//下面的代码是来估计完成时间的，把系统的时间和得到时间相加，并且判断是否大于24点的（因为挂机的一般都是晚上，^_^）
shi=Hour(Now)+g
fen=Minute(Now)+k
half=0
If fen>60
    jinshi=Fix(fen/60)
    fen=fen-60*jinshi
    shi=shi+jinshi
EndIf 
If shi>23
    shi=shi-24
EndIf 
If shi>12
    shi=shi-12
    half=1
EndIf 
If half=0
    VBSCall MessageBox("预计本次升级结束时间为 "&shi&"："&fen&" "&" Am！")
Else 
    VBSCall MessageBox("预计本次升级结束时间为 "&shi&"："&fen&" "&" Pm！")
EndIf 
VBSCall MessageBox("OK，我的工作是结束了哦，你还要继续呢！！！拜拜！！")
Rem 程序结束
//传说中的分割线========================================================================================
以下是程序的子程序部分
//子程序的分割线----------------------------------------------------------------------------------------------------------------------------------------------------------
Sub 判断分辨率类型
    //我的电脑是1440*900的宽屏分辨率，点是自己抓得，如果各位大侠测试的时候没有找到游戏，可以自己改点（本来想用找颜色的，可是用这个比较方便）
    If fb=0
        leng=970
        //leng是经验条的长度，抓点以后自己算得
        f=744
        //f是经验条绿色部分的纵坐标，可以稍微偏差一点
        zuimodian=1204
        //zuimodian是经验条最末点x坐标
    EndIf 
    If fb=1
        leng=791
        f=618
        zuimodian=907
    EndIf 
    If fb=3
        leng=970
        f=623
        zuimodian=1164
    EndIf 
    If fb=2
        leng=970
        f=689
        zuimodian=1204