1.VB怎么做动态内存地址的注入修改器?
2.vb高手看一下这十几行源码,为什么一执行就显示:“编译错误:end select没有select case”
VB怎么做动态内存地址的型外flash 粒子源码修改器?
vb改内存跟位操作没关系,只要你会用ReadProcessMemory和WriteProcessMemory就能做修改器
修改动态地址一般两种方法:找基址和偏移,代码注入
我以前做了个植物大战僵尸修改器,部分源码我贴上来,是代码注入的,你参考下:
Option Explicit
Private Declare Function FindWindow Lib "user" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel" (ByVal hObject As Long) As Long
Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim hHwnd As Long
Dim pid As Long
Dim hProcess As Long
Dim base(5) As Long
Private Sub doSun() '无限阳光
WriteProcessMemory hProcess, ByVal &HBAB5, &HE9, 1, 0 'jmp E
WriteProcessMemory hProcess, ByVal &HBAB6, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HBAB7, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HBAB8, &HE3, 1, 0
WriteProcessMemory hProcess, ByVal &HBAB9, &HFF, 1, 0
WriteProcessMemory hProcess, ByVal &HBABA, &H, 1, 0 'nop
WriteProcessMemory hProcess, ByVal &HE, &H3E, 1, 0 'add eax,dword ptr ds:[edx+]
WriteProcessMemory hProcess, ByVal &HE, &H3, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H0, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H0, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0 'mov dword ptr [E],edx
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HEA, &HE1, 1, 0
WriteProcessMemory hProcess, ByVal &HEB, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HEC, &H0, 1, 0
WriteProcessMemory hProcess, ByVal &HED, &HE9, 1, 0 'jmp BABB
WriteProcessMemory hProcess, ByVal &HEE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HEF, &HD9, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H1C, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H0, 1, 0
End Sub
Private Sub doFreeze() '冻结时间
WriteProcessMemory hProcess, ByVal &HE, &HE9, 1, 0 'jmp E
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE7A, &HDC, 1, 0
WriteProcessMemory hProcess, ByVal &HE7B, &HFF, 1, 0
WriteProcessMemory hProcess, ByVal &HE7C, &H, 1, 0 'nop
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0 'mov dword ptr ss:[ebp+],eax
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0 'mov dword ptr [E],ebp
WriteProcessMemory hProcess, ByVal &HE, &H2D, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &HE1, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H0, 1, 0
WriteProcessMemory hProcess, ByVal &HEA, &H, 1, 0 'mov dword ptr ss:[ebp+],eax
WriteProcessMemory hProcess, ByVal &HEB, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HEC, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HED, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HEE, &HE9, 1, 0 'jmp E7D
WriteProcessMemory hProcess, ByVal &HEF, &H6A, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &HAD, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H0, 1, 0
WriteProcessMemory hProcess, ByVal &HE, &H, 1, 0 'nop
End Sub
Private Sub Timer1_Timer()
Static isChange As Boolean
hHwnd = FindWindow(vbNullString, "植物大战僵尸中文版")
If hHwnd <> 0 Then
Call GetWindowThreadProcessId(hHwnd, pid)
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess <> 0 Then
If isChange = False Then
'代码注入
Call doSun
Call doFreeze
isChange = True
End If
If myCheck(0).Value = 1 Then '无限阳光
ReadProcessMemory hProcess, &HE, base(0), 4, 0
WriteProcessMemory hProcess, base(0) + &H, , 4, 0 '阳光数量改成
End If
If myCheck(1).Value = 1 Then '冻结时间
ReadProcessMemory hProcess, &HE, base(1), 4, 0
WriteProcessMemory hProcess, base(1) + &H, , 4, 0 '冻结时间
End If
End If
End If
End Sub
vb高手看一下这十几行源码,为什么一执行就显示:“编译错误:end select没有select case”
后面又少个 end if ,挂源https 劫持源码另外你的代码写的不规范例,不太好看,以后这样写程序,把我这块复制过去就好用了!
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 = Str(Index)
FirstNum = False
Else
StrNum1 = StrNum1 + Str(Index)
End If
Case
If pointflag = False Then
If StrNum1 = True Then
StrNum1 = "0."
StrNum1 = False
Else
StrNum1 = StrNum1 + "."
pointflag = True
End If
If pointflag = True Then Exit Sub '这可以这样写,你写的少个end if ,也可以像我这样写
End If
Text1.Text = StrNum1
End Select
End Sub
2024-12-29 14:191337人浏览
2024-12-29 13:57935人浏览
2024-12-29 13:46770人浏览
2024-12-29 13:422031人浏览
2024-12-29 13:242494人浏览
2024-12-29 13:092320人浏览
科技企业员工持股计划和股权激励贷款,已在张江科学城面向科技型非上市公司开展试点。视觉中国/图近日,上海开始在全市试点科技企业“员工持股贷”,旨在为科技型初创企业高管及核心员工提供相应的股权融资通道,将