高手进来帮忙一下，看哪里出错了

荷公塘主

Dim Hwnd,JTime
Dim base,tmph,bas,tmp,id,mod1,mod2
Dim dydxue,dymxue,dyzt
Dim dxue,dlan,mxue,mlan,jingyan_dq,dengji,qian
Dim NowTime
Dim zj_mxue,zj_mlan,zj_dxue,zj_dlan
Dim dy_dxue,dy_mxue
Dim jin,yin,tong
Dim zj_jingyan,zj_dengji,zj_dqian
Dim xue_nember,lan_nember
Sub Main()    '脚本主程序，请在此下写入主程序代码
    Hwnd = HApp.GetAcceptHwnd()
    HApp.SendKeyPress Hwnd,"2"
    Delay zt_time * 1000
     
    If neicun = "指针A" Then
        base = "12F824"
    End If
    If neicun = "指针B" Then
        base = "8D24F4"
    End If
    base = HMEM.ReadMEMEX(Hwnd,"&h" & base,3)
    base = base + 36      '获得2级指针
    tmph = gethex(hex(base))
    base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
    id = base + 1948      '获得id
    id = HMEM.ReadMEMEX(Hwnd,tmph & hex(id),3)
    base = base + 316    '获得ECX
    tmph = gethex(hex(base))
    base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
    base1 = base + 40    '获得MAX
    base2 = base + 28    '获得选中人物首地址
    tmph = gethex(hex(base))
    base1 = HMEM.ReadMEMEX(Hwnd,tmph & hex(base1),3)
    base2 = HMEM.ReadMEMEX(Hwnd,tmph & hex(base2),3)
     
    'Mod运算-----------------------------------------------
    mod1 = id mod base1
     
    base = base2 + mod1 * 4  '获得偏移后地址
    tmph = gethex(hex(base))
    base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
    base = base + 4
    tmph = gethex(hex(base))
    base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
    dydxue = base + 600
    dymxue = base + 624
    dyzt = base + 284
    tmph = gethex(hex(base))
    '以上是选中人物部分-------------------------------------
     
    If neicun = "指针A" Then
        bas = "12F824"
    End If
    If neicun = "指针B" Then
        bas = "8D24F4"
    End If
    bas = HMEM.ReadMEMEX(Hwnd,"&h" & bas,3)
    bas = bas + 36      '获得2级指针
    tmp = gethex(hex(base))
    bas = HMEM.ReadMEMEX(Hwnd,tmp & hex(bas),3)
    dxue = bas + 600
    dlan = bas + 604
    mxue = bas + 624
    mlan = bas + 628
    jingyan_dq = bas + 608
    dengji = bas + 592
    qian = bas + 728
    tmp = gethex(hex(base))

基址全部+4了~但是一运行马上就停止了，看看哪里出错了

EchanEeg

你都没形成一个循环当然停止啦。 :D