摇点脚本-给不修改属性者

bhc2300639

【功能说明】
网金摇点，测试是大陆收费版其他版本类似。
【使用说明】
打开网金，要一次点，搜索臂力数值，再摇点变更数值，再次搜索。
正确的是3个结果。点击任意一个进去内存编辑，查看是否有相邻的值，如果有就把该地址粘贴到23行即可。（注意地址为 &H + 地址。例子&H6BE7043）
不修改地址的话，重开无效。
最好不要超过3个数值，双25也非常慢，推荐25 + 20 + 20
【说明】
献给不打算修改属性者，建人用。
测试使用按键版本8

//变量定义
Dim WantVal,Status,Val(6)
StatusNow = 0
UserVar wantVal1=15 "设定最小值"
UserVar wantVal2=15 "设定最小值"
UserVar wantVal3=25 "设定最小值"
UserVar wantVal4=15 "设定最小值"
UserVar wantVal5=15 "设定最小值"
UserVar wantVal6=15 "设定最小值"
UserVar wantVal7=15 "设定最小值"
//延迟时间
myDelay = 50
//计数器
myCount = 0
//开始时间
myStart = Plugin.GetSysInfo.GetTime()
//获取当前窗口句柄,注意切换到网金窗口然后开始脚本.
Hwnd = Plugin.Window.Foreground()
//内存地址在23行,请使用金山游侠查找后修改。
//子程序
Sub 读取当前内存数值()
i = 0
addr = &H6BE7043
For 7
tval = Plugin.Memory.Read8Bit(Hwnd, addr)
Val(i)=tval
addr = addr + &H01
i=i+1
Next
End Sub
Sub 比对数值()
Dim b1, b2, b3, b4, b5, b6, b7
If Cint(wantVal1) <= Cint(Val(0)) Then
        b1 = 1
Else
        b1 = 0
End If
If Cint(wantVal2) <= Cint(Val(1)) Then
        b2 = 1
Else
        b2 = 0
End If
If Cint(wantVal3) <= Cint(Val(2)) Then
        b3 = 1
Else
        b3 = 0
End If
If Cint(wantVal4) <= Cint(Val(3)) Then
        b4 = 1
Else
        b4 = 0
End If
If Cint(wantVal5) <= Cint(Val(4)) Then
        b5 = 1
Else
        b5 = 0
End If
If Cint(wantVal6) <= Cint(Val(5)) Then
        b6 = 1
Else
        b6 = 0
End If
If Cint(wantVal7) <= Cint(Val(6)) Then
        b7 = 1
Else
        b7 = 0
End If
If b1 = 1 And b2 = 1 And b3 = 1 And b4 = 1 And b5 = 1 And b6 = 1 And b7 = 1 Then
        StatusNow = 1
Else
        StatusNow = 0
End If
End Sub
Sub 摇点()
LeftClick 1
Delay myDelay
End Sub
Sub 输出成功信息()
myEnd = Plugin.GetSysInfo.GetTime()
myTime = (myEnd - myStart)/1000
MessageBox "成功！摇点次数："& myCount & ",时间："&myTime &"秒"
End Sub

Rem 脚本开始
//鼠标位置，窗口模式，默认位置对应如下鼠标位置
MoveTo 228, 521
Delay myDelay
LockMouse
While StatusNow = 0
        Call 摇点()
    Delay myDelay
        Call 读取当前内存数值()
    Delay myDelay
    Call 比对数值()
    Delay myDelay
    myCount = myCount + 1
Wend
UnlockMouse
Call 输出成功信息()
EndScript

旋玩

呃
你这个是按键精灵？