声明我就不说了。。。
这是timer的引发代码:
Dim Address As Long
If GetPid = 0 Then
cmdMoneyUnlimited.Caption = "启用阳光无限"
Timer1.Enabled = False
Exit Sub
End If
Address = ReadMemoryValue(baseAddress)
Address = Address + &H768 ‘这里为什么要加一串十六进制符?
Address = ReadMemoryValue(Address) ’地址变了还读取内存数据?
Address = Address + &H5560 ’这里也是
WriteMemoryValue Address, &H1869F
还有timer2的:
Dim Address As Long
If GetPid = 0 Then
cmdMoneyUnlimited.Caption = "启用金钱无限"
Timer2.Enabled = False
Exit Sub
End If
Address = ReadMemoryValue(baseAddress)
Address = Address + &H82C ‘这里加的不一样?
Address = ReadMemoryValue(Address)
Address = Address + &H28 再加?
WriteMemoryValue Address, &H1869F '这个就是十进制的99999