barenx的专栏

Attribute VB_Name = "ModuleCapturePic"Option ExplicitOption Base 0Powered by barenxPrivate Type PALETTEENTRY   peRed As Byte   peGreen As Byte   peBlue As Byte   peFlags As ByteEnd TypePrivate Type

Attribute VB_Name = "Reg_Operation"这是一个操作注册表的Bas文件,其中包含可以建立新键值,删除键值,查询键值的函数.Powered by barenxOption ExplicitOption Base 0Public Declare Function RegCloseKey()Function RegCloseKey Lib "advapi32.dll"

Attribute VB_Name = "Shell32Function"Option ExplicitPrivate Declare Sub CopyMemory()Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Long, pSrc As Long, ByVal ByteLen As Long)Private De

Attribute VB_Name = "Module1"Option ExplicitPrivate Declare Function RegisterShellHook()Function RegisterShellHook Lib "Shell32" Alias "#181" (ByVal hwnd As Long, ByVal nAction As Long) As Long use

Private Declare Function SetSuspendState()Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As BooleanPowered b

Attribute VB_Name = "ModuleWMI"    Powered by barenxOption ExplicitPrivate Declare Function ExpandEnvironmentStrings()Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStri

Option ExplicitPowered by barenxPrivate Declare Function SHBrowseForFolder()Function SHBrowseForFolder Lib "shell32.dll" Alias _        "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongPr

Attribute VB_Name = "MainModule"Option ExplicitOption Base 0   Powered by barenxPrivate Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String

    Dim s As String    s = String$(255, vbNullChar)    Mid$(s, 1, 5) = "12345"    Mid$(s, 6, 7) = "abcdefg"    Debug.Print sPowered by barenx 对于vb来说string类型实质是oleString 在进行连接的时候都有再次分配内存 然后复制原字

Attribute VB_Name = "mShellNotify"Option Explicit Brought to you by Brad Martinez   http://members.aol.com/btmtz/vb   http://www.mvps.org/ccrp Code was written in and formatted for 8pt MS San Se

 VERSION 5.00Begin VB.Form Form1    Appearance      =   0  Flat   BackColor       =   &H80000015&   Caption         =   "MS-04"   ClientHeight    =   1350   ClientLeft      =   60   ClientTop    

Attribute VB_Name = "Enum_Window"Option ExplicitOption Base 0Powered by barenxPublic Declare Function FindWindow()Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String

设计思路　　(1)分配控制台程序的内存资源。　　(2)设置控制台的相关属性。　　(3)通过控制台输出文本内容。　　(4)接收交互信息并继续输出。　　(5)释放控制台程序的内存并关闭程序。实现步骤　　(1)启动VB，新建一个工程，删除默认的“From1”窗体，然后添加一个模块，在该模块中输入常量和全局变量的定义代码。　　注：API函数的声明可参照“本期API函数声明”

网上有很多获取硬盘序列号的代码，大部分都只能取得逻辑分区的序列号，而不能取得硬盘的物理序列号；或虽然能取得物理序号，但需要外带一个VC编写的DLL文件......我们知道，逻辑分区的序列号是FORMAT时产生的，重新FORMAT将会改变，这对于要求唯一识别码的程式来说是致命的。下面的 VB 代码利用 Windows API 可以取得物理硬盘的很多特性，包括硬盘出厂时的唯一编号。这段代码我是从 CS

collected by barenxWindows动态连接库是包含数据和函数的模块，可以被其它可执行文件（EXE、DLL、OCX 等）调用。动态连接库包含两种函数：输出（exported）函数和内部（internal）函数。输出函数可以被其它模块调用，而内部函数则只能在动态连接库内部使用。尽管动态连接库也能输出 数据，但实际上它的数据通常是只在内部使用的。使用动态连接库的优点是显而易见的

   下面是一个例子显示如何拷贝文件：     1. 在Visual Basic中启动一个新的EXE工程，其中包括Form1。     2. 添加两个检查框和一个按钮在Form1上。     3. 加入以下代码到Form1的代码窗口:       Option Explicit           Private Const FO_COPY = &H2& Copies the f

 collected by barenx Option ExplicitPrivate Sub Form_Load()Sub Form_Load()Dim ret As Long    记录原来的window程序地址    preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)    用自定义程序代替原来的window程序    ret =

Powered by barenx Global Memory FlagsPrivate Const GMEM_MOVEABLE = &H2Private Const GMEM_ZEROINIT = &H40Private Const GENERIC_READ = &H80000000Private Const FILE_SHARE_READ = &H1Private Const OPEN

Attribute VB_Name = "Run_Command"Option ExplicitOption Base 0Powered by barenxPrivate Declare Function CreateProcess()Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplica

Public Declare Function RegisterClass()Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class AsClass As WNDCLASS) As LongPublic Declare Function UnregisterClass()Function UnregisterClass

 需要提升进程权限的模块Attribute VB_Name = "Exit_Windows"Option ExplicitOption Base 0Powered by barenxPrivate Declare Function ExitWindowsEx()Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByV

在XP/2K系统中隐藏进程的VB代码Attribute VB_Name = "modHideProcess"-------------------------------------------------------------------------------------模块名称：modHideProcess.bas模块功能：在 XP/2K 任务管理器的进程列表中隐藏

VERSION 1.0 Class BEGINCLASSBEGIN  MultiUse = -1  TrueENDAttribute VB_Name = "cDIBSection"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribut

Attribute VB_Name = "Run_Command"Option ExplicitOption Base 0Powered by barenxPrivate Declare Function CreateProcess()Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplica

 VERSION 1.0 Class BEGINCLASSBEGIN  MultiUse = -1  True  Persistable = 0  NotPersistable  DataBindingBehavior = 0  vbNone  DataSourceBehavior  = 0  vbNone  MTSTransactionMode  = 0  NotAnMTSOb

Attribute VB_Name = "ModBase64"Option ExplicitPowered by barenxPublic key(1 To 3) As LongPrivate Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"Public Sub GenKey()

Attribute VB_Name = "ModuleDiskInfo"Option ExplicitPowered by barenxPrivate Const DRIVE_CDROM = 5Private Const DRIVE_FIXED = 3Private Const DRIVE_RAMDISK = 6Private Const DRIVE_REMOTE = 4Private Co

Attribute VB_Name = "Enable_Privileges"Option ExplicitOption Base 0Powered by barenxPrivate Declare Sub CloseHandle()Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)Private Declare Function L

Attribute VB_Name = "Enume_Task"Option ExplicitOption Base 0Powered by barenxPrivate Declare Function GetSystemDirectory()Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (B

 VERSION 1.0 Class BEGINCLASSBEGIN  MultiUse = -1  True  Persistable = 0  NotPersistable  DataBindingBehavior = 0  vbNone  DataSourceBehavior  = 0  vbNone  MTSTransactionMode  = 0  NotAnMTSOb

Attribute VB_Name = "ModFromClass"Option ExplicitPowered by barenxPublic Declare Function SetWindowPos()Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVa

Attribute VB_Name = "mIntelJPEGLibrary"Option ExplicitPowered by barenxPrivate Enum IJLERREnum IJLERR  // The following "error" values indicate an "OK" condition.  IJL_OK = 0  IJL_INTERRUPT_OK = 1

(声明：魏滔序原创，转贴请注明出处。)阿国哥的代码(找到链接后再补上)，我稍微改良了一下，做绿色软件的朋友肯定用的到。IDE下可以引用那个dll使用。编译后可以在未注册dll的计算机上正常工作了。使用方法：Dim pDll As Long 记录Dll，用来最后完美释放Dim Update As Update.Handle 要实例化的对象Set Update = LoadObj

Attribute VB_Name = "modManifest"Option ExplicitPrivate Declare Function GetVersionEx()Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPriva

Option ExplicitPrivate Declare Function VirtualAlloc()Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As

Option ExplicitAuthor:    Sam HuggillEmail:     sam@vbsquare.comcollected by barenxPrivate Declare Function InternetOpen Lib "wininet.dll" _         Alias "InternetOpenA" _            (ByVal lpszCa