小小鸭

摘要： '添加 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 阅读全文