摘要：
/* hThread:线程句柄 返回值:成功返回线程ID,否则返回零值 */ DWORD GetThreadIdEx(HANDLE hThread) { THREAD_BASIC_INFORMATION tbi; DWORD dwReturnedSize; if(::ZwQ... 阅读全文
摘要：
/* * COPYRIGHT: See COPYING in the top level directory * PROJECT: ReactOS Ancillary Function Driver * FILE: include/afd/shared.h * P... 阅读全文
摘要：
Option Explicit Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProcess As Long, ByRef bIsNotX60 As Boolean) As Boolean Private Declar... 阅读全文
摘要：
/*判断是否是x64进程 参 数:进程句柄 返回值:是x64进程返回TRUE,否则返回FALSE */ BOOL IsWow64ProcessEx(HANDLE hProcess) { /*判断ntdll中的导出函数,可知是否是64位OS*/ HMODULE hMod=GetModuleHa... 阅读全文
摘要：
没有代码,仅提供方法思路 1,枚举所有线程获得其入口地址 2,获取EXE文件入口点 注:一般取得PE文件基址+入口点偏移即为入口地址,不过Win7中加载EXE的基会变化,需先获得进程的EXE模块基址+入口点偏移才=入口地址 3,判断线程入口地址与进程入口点是否相等 则为主线程 .......... 阅读全文
摘要：
#include "windows.h" #include "stdio.h" #include "winbase.h" HANDLE hEvent=NULL; DWORD WINAPI TestFun(LPVOID lpParam) { ::WaitForSingleObject(hEve... 阅读全文
摘要：
跟了一个晚上,终于解决了 大概要实现的是用这个函数替换ntdll中的KiUserExceptionDispatcher,实现方法如下: VOID NTAPI KiUserExceptionDispatcher(PEXCEPTION_RECORD pExcptRec,PCONTEXT pConte... 阅读全文
摘要：
'这里是启动过程[事件互斥就不写了] Dim f as frmMain Sub Main Set f=New frmMain f.Show End Sub '这里是一个线程类。。。随便写啥。。。 类名:BT '这里是主窗口 Dim c... 阅读全文
摘要：
Option Explicit Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPi... 阅读全文
摘要：
本来是想将升级模块与主程序写在一起,VB不支持多线程,下载文件时确实麻烦,用偏门方法整个多线程出来也麻烦.还是整一个单EXE作为升级程序得了.将他嵌入主程序中,嘿嘿... 花了近一小时把这流程图画出来了,明天再把代码搞定..-------------------------------------... 阅读全文
摘要：
Option Explicit Private Declare Function PrintWindow Lib "user32" (ByVal SrcHwnd As Long, ByVal DesHDC As Long, ByVal uFlag As Long) As Long Private... 阅读全文
摘要：
ClsServerXMLHTTP2009类 Option Explicit Public Enum EN_STATUS EN_STOP EN_SEND End Enum Public Enum EN_SENDMETHOD EN_GET = 0 EN_POST = 1... 阅读全文
摘要：
VB打开/保存任意编码格式文本文件/ 刚吃饭见论坛有人使用FSO对象保存UTF-8格式的文本文件。。顺便写了一个类。。属于俺们VB的FSO类 '-------------------- '类模块:FSO 'SielnceNet@qq.Com '时间:2008-7-4 15:57:53 '... 阅读全文