其他
文章平均质量分 50
yinweihong
这个作者很懒,什么都没留下…
展开
-
获取机器DirectX版本
引用windows scripting host object modelPrivate Sub Form_Load()Dim regwsh, Value, DValue, temp As StringSet regwsh = New IWshShell_ClassDValue = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/Installed原创 2004-05-28 10:25:00 · 1901 阅读 · 0 评论 -
LockListViewHead
Option ExplicitPrivate Sub Command1_Click() Call LockListViewHead(ListView1.hwnd)End SubPrivate Sub Command2_Click() Call UnLockHead(ListView1.hwnd)End SubPrivate Sub Form_Load()Dim i As Long原创 2004-09-27 02:28:00 · 987 阅读 · 0 评论 -
GetPID
Option ExplicitConst MAX_PATH = 260Const TH32CS_SNAPPROCESS = 2&Private Type PROCESSENTRY32 lSize As Long lUsage As Long lProcessId As Long lDefaultHeapId原创 2004-09-27 02:19:00 · 1051 阅读 · 0 评论 -
GetInternetIP
if user is not connected to internet, it will return the Lan IPConst MAX_IP = 5 To make a buffer..Type IPINFO dwAddr As Long IP address dwIndex As Long interface index dwMask As Lon原创 2004-09-27 01:59:00 · 1024 阅读 · 0 评论 -
列举正在运行的所有应用程序
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongPublic Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As LongPublic Declare原创 2004-09-27 01:45:00 · 2030 阅读 · 0 评论 -
四舍五入
Public Function RoundF(Number, Optional NumOfDigits As Long) As Double If Not IsNumeric(Number) Then Exit Function Dim iPos As Long iPos = InStr(Number, ".") Dim dbDesimalPart As Long D原创 2004-09-27 01:37:00 · 1002 阅读 · 0 评论 -
BrowseFolder
Option ExplicitPrivate Const MAX_PATH = 260Private Const BIF_RETURNONLYFSDIRS = 1With New FolderPrivate Const BIF_NEWDIALOGSTYLE As Long = &H40udtBI.ulFlags = BIF_RETURNONLYFSDIRS + BIF_NEWDIALOGST原创 2004-09-27 01:35:00 · 2393 阅读 · 0 评论 -
ShowInTaskbar
Public Declare Function GetWindowLong Lib "user32" Alias _"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib "user32" Alias _"SetWindowLongA"原创 2004-09-26 17:40:00 · 1422 阅读 · 0 评论 -
GetLnkTargetPath
Function GetTargetPath(ByVal LinkName As String) On Local Error Resume Next Dim Obj As Object Set Obj = CreateObject("WScript.Shell") Dim Shortcut As Object Set Shortcut = Obj.CreateS原创 2004-09-25 18:54:00 · 1236 阅读 · 1 评论 -
零碎代码
显示关闭计算机对话框Option ExplicitPrivate Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As LongPrivate Sub cmdShutDown_Click()ShutDownDialog 0End Sub-------删除目录及其内容Privat原创 2004-09-27 02:55:00 · 941 阅读 · 0 评论