|
[原创]VMP分析handler与脱壳插件&源码
感谢分享,学习了。 |
|
|
|
[求助]一段vb6.0的监视进程的代码帮忙看看哪里错误
nice, 我觉得你这个建议真不错哈. 应该给x作者写个建议信. 让其在指定的x环境下运行时, 如果遇到了x环境有x数字,或者x星,或者x山, 就自动暂停线程.这样就很有可能就避免被x直接结束进程了. 数日后,x作者可能会写感谢信回来, 说不定还会有精美小礼物呢. 然后再给x数字x星x山再写一封建议信, 让其检测到x软件的时候,不要结束进程,而直接让其暂停. 让x作者误以为正常运行ing... 数日后,x数字x星x山可能会写感谢信回来, 说不定还会有精美小礼物呢. |
|
|
|
|
|
[求助]一段vb6.0的监视进程的代码帮忙看看哪里错误
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 结束进程用这个就行了. "Don't call me,I will call you." vb对线程支持不是很好, 你可以用time控件解决. 或者直接用wmi的功能,也可以获取进程创建的消息. 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 GetModuleBaseName Lib "psapi.dll" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpBaseName As String, ByVal nSize As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Dim hwnd&, Pid&, pHandle&, str As String * 20 hwnd = FindWindow(vbNullString, "计算器") '这里测试的是计算器 If (hwnd = 0) Then Exit Sub GetWindowThreadProcessId hwnd, Pid pHandle = OpenProcess(&H1F0FFF, 0, Pid) If (pHandle = 0) Then Exit Sub GetModuleBaseName pHandle, 0, str, Len(str) MsgBox "进程名为:" & Trim(str), , "哈哈" '计算器的进程名称 TerminateProcess pHandle, 0 CloseHandle hProcess End Sub 希望能帮到你. |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值