• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站
梦幻西游成语飘浮数据换个NPC对话CALL
发布: 2014-01-14 08:43:08 | 作者: | 来源: 按键精灵资源站
Sub 成语验证
    Rem 成语验
    Call 提示字(hwnd)
    TracePrint 提示的字
    成语 = split(提示的字, "例句")(1)
    TracePrint 成语
    Call 字1字(hwnd)
    Call 字2字(hwnd)
    Call 字3字(hwnd)
    Call 字4字(hwnd)
    a = instr(成语, 字1的字)
    b = instr(成语, 字2的字)
    c = instr(成语, 字3的字)
    d = instr(成语, 字4的字)
    TracePrint a
    TracePrint b
    TracePrint c
    TracePrint d
    If a < b and a < c and a < d Then
        TracePrint "a是第一个"
        位置 = a
        Call PY(156, 167)
        Delay 150
        dm.leftclick
    End If
    If b < a and b < c and b < d Then
        TracePrint "b是第一个"
        位置=b
        Call PY(208, 174)
        Delay 150
        dm.leftclick
    End If
    If c < a and c < b and c < d Then
        TracePrint "c是第一个"
        位置 = c
        Call PY(251, 180)
        Delay 150
        dm.leftclick
    End If
    If d < a and d < b and d < c Then
        TracePrint "d是第一个"
        位置 = d
        Call PY(308, 179)
        Delay 150
        dm.leftclick
    End If
    TracePrint 位置
    aa = mid(成语, 位置 + 1, 3)
    TracePrint aa
    Delay 200
    Call 字1字(hwnd)
    Call 字2字(hwnd)
    Call 字3字(hwnd)
    Call 字4字(hwnd)
    a = instr(aa, 字1的字)
    b = instr(aa, 字2的字)
    c = instr(aa, 字3的字)
    d = instr(aa, 字4的字)
    If a = 1 Then
        Call PY(156,172)
        dm.leftclick
    ElseIf b = 1 Then
        Call PY(208,179)
        dm.leftclick
    ElseIf c = 1 Then
        Call PY(251,185)
        dm.leftclick
    ElseIf d = 1 Then
        Call PY(308,184)
        dm.leftclick        
    End If
    aa = mid(aa, 2, 2)
    TracePrint aa
    Delay 200
    Call 字1字(hwnd)
    Call 字2字(hwnd)
    Call 字3字(hwnd)
    Call 字4字(hwnd)
    a = instr(aa, 字1的字)
    b = instr(aa, 字2的字)
    c = instr(aa, 字3的字)
    d = instr(aa, 字4的字)
    If a = 1 Then
        Call PY(156,172)
        dm.leftclick
    ElseIf b = 1 Then
        Call PY(208,179)
        dm.leftclick
    ElseIf c = 1 Then
        Call PY(251,185)
        dm.leftclick
    ElseIf d = 1 Then
        Call PY(308,184)
        dm.leftclick        
    End If
    aa = mid(aa, 2, 1)
    TracePrint aa
    Delay 200
    Call 字1字(hwnd)
    Call 字2字(hwnd)
    Call 字3字(hwnd)
    Call 字4字(hwnd)
    a = instr(aa, 字1的字)
    b = instr(aa, 字2的字)
    c = instr(aa, 字3的字)
    d = instr(aa, 字4的字)
    If a = 1 Then
        Call PY(156,172)
        dm.leftclick
    ElseIf b = 1 Then
        Call PY(208,179)
        dm.leftclick
    ElseIf c = 1 Then
        Call PY(251,185)
        dm.leftclick
    ElseIf d = 1 Then
        Call PY(308,184)
        dm.leftclick        
    End If
    Delay 1000
    Call PY(304, 311)
    Delay 200
    dm.leftclick '点击确定
    Call 查看是否回答正确
    If i = 1 Then
    ElseIf i = 2 Then
        Goto 成语验
    End If
End Sub



有数据的朋友私密我