专升本哪种方式最快捷:Visual Basic下载

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
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 Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public ChraddCL As Long '人物跳转地址
Public ChraddSD As Long '商店跳转地址
Private Const keymf = 192
Dim DRHwnd As Long
Dim DRPid As Long
Dim DRProcessHandle As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Sub Command1_Click()
DRHwnd = FindWindow("Corum Online Project", "Corum Online Project")
GetWindowThreadProcessId DRHwnd, DRPid
DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)
If DRProcessHandle = 0 Then
MsgBox "外挂开启失败", , ""
Else
Command1.Caption = "开启成功"
Command1.Enabled = False
ReadProcessMemory DRProcessHandle, &H60E3BC, ChraddCL, 4, 0&
ReadProcessMemory DRProcessHandle, &H887980, ChraddSD, 4, 0&
Command2.Enabled = True
Timer1.Enabled = True
Timer2.Enabled = True
Check3.Enabled = True
End If
End Sub

Private Sub Command2_Click()
WriteProcessMemory DRProcessHandle, ChraddSD + 40, &O1, 1, 0& '打开商店
End Sub

Private Sub Timer1_Timer()
If Check3.Value Then
WriteProcessMemory DRProcessHandle, ChraddCL + 68, &H100A, 2, 0& '魔法锁定
Call Sleep(1)
WriteProcessMemory DRProcessHandle, ChraddCL + 68, &HC0A, 2, 0& '恢复行走
End If
End Sub

Private Sub Timer2_Timer()
If (Not GetAsyncKeyState(9) = 0) And (Not GetAsyncKeyState(vbKeyTab) = 0) Then
WriteProcessMemory DRProcessHandle, ChraddSD + 40, &O1, 1, 0& 'Tab 打开商店
End If
If (Not GetAsyncKeyState(192) = 0) And (Not GetAsyncKeyState(keymf) = 0) Then
If Check3.Value Then
Check3.Value = 0
Else
Check3.Value = 1
End If '~ 开启魔法
End If
End Sub
谁能把他编出来，我的QQ是122069904
不是的，这个没有，只是一个源代码而已