'VB_纯API 打开保存对话框源码'Call FileDialog(Me, False, "测试", "*.*", "", "", "")  'TRUE 保存  FALSE 打开'DownLoad Code  Option ExplicitPublic Type OPENFILENAME    lStructSize       As Long    hwndOwner         As Long    hInstance         As Long    lpstrFilter       As String    lpstrCustomFilter As String    nMaxCustFilter    As Long    nFilterIndex      As Long    lpstrFile         As String    nMaxFile          As Long    lpstrFileTitle    As String    nMaxFileTitle     As Long    lpstrInitialDir   As String    lpstrTitle        As String    flags             As Long    nFileOffset       As Integer    nFileExtension    As Integer    lpstrDefExt       As String    lCustData         As Long    lpfnHook          As Long    lpTemplateName    As StringEnd TypePublic Type BrowseInfo    hwndOwner         As Long    pIDLRoot          As Long    pszDisplayName    As Long    lpszTitle         As Long    ulFlags           As Long    lpfnCallback      As Long    lParam            As Long    iImage            As LongEnd Type

    牛顿过TP的全套源码_附各个游戏保护的驱动源码(VB梦工厂VI…

*******************************************************…

游戏内存数据分析和基本算法，本套教程完美去除播放密码，下载后可以直接播放。 第1集 介绍存储器与设置Cheat…

传Q3智辅教程上半部目录： 传Q3智辅教程下半部目录： 本教程收集来自网络，传Q3智辅教程完整版下载地址：链接…

   VB梦工厂VIP外挂对象模块，对于VB做外挂的朋友是必备模块。省心、省力、高效。 模…

Windows Loader是一个很不错的 Windows7/2008激活工具，外国牛人的作品，推荐给安装了W…

课程名称：郑州百诺远程CCNA培训班 课时：12天    周一– 周五 &nb…

#include <windows.h>#include <stdio.h>// // Code Build By:Arvin QQ:348619517// My Blog http://www.arvinhk.com//#define MEM_SIZE 0x1000#define WIN7     0x1#define WINXP    0x2#define WIN03    0x4typedef struct _LSA_UNICODE_STRING {    USHORT Length;    USHORT MaximumLength;    PWSTR  Buffer;} LSA_UNICODE_STRING , *PLSA_UNICODE_STRING ;typedef struct _SECURITY_LOGON_SESSION_DATA {      ULONG Size;      LUID LogonId;     LSA_UNICODE_STRING UserName;      LSA_UNICODE_STRING LogonDomain;      LSA_UNICODE_STRING AuthenticationPackage;      ULONG LogonType;  ULONG Session;      PSID Sid;      LARGE_INTEGER LogonTime;      LSA_UNICODE_STRING LogonServer;      LSA_UNICODE_STRING DnsDomainName;      LSA_UNICODE_STRING Upn;} SECURITY_LOGON_SESSION_DATA,  *PSECURITY_LOGON_SESSION_DATA ;typedef int (__stdcall * pNTQUERYPROCESSINFORMATION)(HANDLE, DWORD, PVOID, ULONG, PULONG) ;typedef int (__stdcall * pLSAENUMERATELOGONSESSIONS)(PULONG, PLUID *) ;typedef int (__stdcall * pDECRIPTFUNC)(PBYTE, DWORD) ;typedef int (__stdcall * pLSAFREERETURNBUFFER)(PVOID) ;typedef int (__stdcall * pLSAGETLOGONSESSIONDATA)(PLUID, PSECURITY_LOGON_SESSION_DATA *) ;

'模块:Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As LongPrivate Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As LongPrivate Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As LongPrivate mThreadHandle As Long'示例Function addnumber() As Long    Dim i As Long    For i = 0 To 100000        Form1.Label1.Caption = i    NextEnd Function'创建线程Public Function CreateNewThread(ByVal cFunction As Long) As Long    Dim mhandle As Long    Dim lpThreadID As Long    mhandle = CreateThread(ByVal 0&, ByVal 0&, cFunction, ByVal 0&, 0, lpThreadID)    If mhandle <> 0 Then mThreadHandle = mhandleEnd Function'终止线程Public Function TerminateTh() As Long    SuspendThread mThreadHandle    TerminateThread mThreadHandle, ByVal 0&    TerminateThread lpThreadID, ByVal 0&End Function