7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-10-24
- 打赏
- 举报
try:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal bytes As Long)
Private Sub Command1_Click()
Dim myvalue
CopyMemory myvalue, ByVal &H35BB680, 16
label1.Caption = myvalue
End Sub
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal bytes As Long)
Private Sub Command1_Click()
Dim myvalue
CopyMemory myvalue, ByVal &H35BB680, 16
label1.Caption = myvalue
End Sub
