摘要：
Public Const WM_NULL = &H0 '空消息Public Const WM_NCCREATE = &H81 '当窗口第一次被创建时，此消息在WM_CREATE消息发送前发送Public Const WM_CREATE = &H1 '窗口被创建时发送到它的窗口过程的消息Public Const WM_NCDESTROY = &H82 '当窗口的非客户区正在销毁时Public Const WM_DESTROY = &H2 '当窗口正在销毁时Public Const WM_ACTIVATEAPP = & 阅读全文
摘要：
'Explorer 崩溃重启后的任务栏图标重建'在窗体中：'**************************************************************************'**模 块 名：工程1 - Form1'**说 明：永远的魔灵 by icecept(郭卫）'**创 建 人：icecept(魔灵)'**日 期：2009-06-17 01:09:52'**修 改 人：icecept(魔灵)'**版 本：V1.0.0'**E-mail ：icecept@163.com QQ： 阅读全文
摘要：
'添加 Command1 Timer1Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMs 阅读全文
摘要：
'添加 Command1Private Sub Command1_Click() MsgBox "CPU系列号:" & GetCpuEnd SubPublic Function GetCpu() As String On Error Resume Next Dim TmpCode$ Dim objWMIService As Object, objItem As Object, colItems As Object Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set co 阅读全文
摘要：
'添加 Picture1 Picture2 Command1 Imagelist1 ListView1Option Explicit'**************************** 进程 APIPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetParent 阅读全文
摘要：
'添加 Command1Private Sub Command1_Click() Dim aa$, winIP As Object aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf aa = aa & "本机用户名称:" & Environ("username") & vbCrLf Set winIP = CreateObject("MSWinsock.Winsock") MsgB 阅读全文
摘要：
'添加Command1Option ExplicitConst NORMAL_PRIORITY_CLASS = &H20&Const STARTF_USESTDHANDLES = &H100&Const STARTF_USESHOWWINDOW = &H1Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As LongEnd TypePrivate Type STARTUPINFO cb As Long lpRe 阅读全文
摘要：
'添加 Command1和ListView1Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lp 阅读全文
摘要：
'关闭计算机的模块 Option Explicit Public Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserv 阅读全文
摘要：
Option ExplicitPrivate IgnoreText As Boolean'----------------------各控件说明 ----------------------------'--名称-------------------------类型----------------------作用 ------------------'frmMain Form CHAT主窗体'Winsock1 Winsock 连... 阅读全文