05.按键精灵大漠内存读写命令

波哥讲解游戏脚本链接

 //代码开始区域 
Function 读NpcCall()
    Dim 游戏句柄,Npc代码
    游戏句柄 = dm.FindWindow("", "寻仙")
    Npc代码 = dm.ReadInt( 游戏句柄,"[[[[基址+偏移]+1]+2]+3]+4",0)
End Function

Function 写NpcCall(z)
    Dim 游戏句柄,Npc代码
    游戏句柄  =   dm.FindWindow("", "寻仙")
    Npc代码 = dm.WriteInt(游戏句柄,"[[[[基址+偏移]+1]+2]+3]+4",0,z )
End Function

Function 写游戏设置()
    Dim 游戏句柄
    游戏句柄  = dm.FindWindow("", "寻仙")
    显示名字 = dm.WriteInt(游戏句柄, "基址+偏移", 0, 1)
    帧率限制 = dm.WriteInt(游戏句柄, "基址+偏移", 0, 1)
    锁定仰角 = dm.WriteInt(游戏句柄, "[[基址+偏移]+111]+1", 0, 1)
    无限视距 = dm.WriteFloat(游戏句柄,"[[基址+偏移]+222]+2",8)
    人物朝向 = dm.WriteFloat(游戏句柄, "[[基址+偏移]+333]+3", 0)
    镜头方向 = dm.WriteFloat(游戏句柄, "[[基址+偏移]+444]+4", 0.30)
    隐藏玩家名字 = dm.WriteInt(游戏句柄, "基址+偏移", 0, 0) 
End Function

Function 读人物坐标()
    Dim 游戏句柄,x坐标,y坐标,z坐标,x坐标2,y坐标2,z坐标2
    游戏句柄 = dm.FindWindow ("", "寻仙")
    Do 
        x坐标 = dm.ReadFloat(游戏句柄,"[[基址+偏移]+1]+2")
        y坐标 = dm.ReadFloat(游戏句柄,"[[基址+偏移]+1]+4")
        z坐标 = dm.ReadFloat(游戏句柄, "[[基址+偏移]+1]+6")
        Delay 1000
        x坐标2 = dm.ReadFloat(游戏句柄,"[[基址+偏移]+1]+2")
        y坐标2 = dm.ReadFloat(游戏句柄,"[[基址+偏移]+1]+4")
        z坐标2 = dm.ReadFloat(游戏句柄, "[[基址+偏移]+1]+6") 
        If x坐标 = x坐标2 Then 
            TracePrint "到达目的地"
            Exit do
        Else 
            TracePrint "寻路中,请稍后"
            Delay 300
        End If 
    loop
End Function
// 波哥简易 游戏脚本封装例子 网游安全VIPQQ群：191075097 //    
//代码结束区域