动画介绍：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const SPECIFIC_RIGHTS_ALL = &HFFFF
Const STANDARD_RIGHTS_ALL = &H1F0000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Const PROCESS_VM_OPERATION = &H8&
Const PROCESS_VM_READ = &H10&
Const PROCESS_VM_WRITE = &H20&
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
zhuxian = FindWindow(vbNullString, "Element Client") ’得到游戏句柄
youxi1 = zhuxian
youxi2 = zhuxian
GetWindowThreadProcessId youxi1, pid1
pHandle1 = OpenProcess(PROCESS_ALL_ACCESS, False, pid1)
ReadProcessMemory pHandle1, ByVal &H91F664, VarPtr(qian1), 4, 0
ReadProcessMemory pHandle1, ByVal (qian1 + &H28), ByVal VarPtr(jizhi), 4, 0
ReadProcessMemory pHandle1, ByVal (jizhi + &H254), ByVal VarPtr(hong), 4, 0
If hong <= Val(Text1) Then
Call keybd_event(55, 0, 0, 0)
’这里写按键盘的
End If
GetWindowThreadProcessId youxi2, pid2
pHandle2 = OpenProcess(PROCESS_ALL_ACCESS, False, pid2)
ReadProcessMemory pHandle2, ByVal &H91F664, VarPtr(qian2), 4, 0
ReadProcessMemory pHandle2, ByVal (qian2 + &H28), ByVal VarPtr(jizhi2), 4, 0
ReadProcessMemory pHandle2, ByVal (jizhi2 + &H258), ByVal VarPtr(lan), 4, 0
If lan <= Val(Text7) Then
Call keybd_event(56, 0, 0, 0) ’模拟按下8键
End If
Private Sub Check1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Interval = Val(Text2)
Timer1.Enabled = True
End If
End Sub
Private Sub Check2_Click()
If Timer2.Enabled = True Then
Timer1.Enabled = False
Else
Timer2.Interval = Val(Text6)
Timer2.Enabled = True
End If
End Sub |
安全中国首页 > 动画中心 > 综合漏洞动画
