|
本帖最后由 bhc2300639 于 2011-7-9 12:50 编辑
【功能说明】
网金摇点,测试是大陆收费版其他版本类似。
【使用说明】
打开网金,要一次点,搜索臂力数值,再摇点变更数值,再次搜索。
正确的是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
|
|