Option Explicit '计算谷歌pr查询加密参数模块 '示例: "http://toolbarqueries.google.com/search?client=navclient-auto&...
【VB源码】VB系统服务操作类模块
注意:是类模块,不是模块。别搞错了。 用法: Private Sub Command1_Click() Dim NTSrv As New SetSvc With NTSrv .Name = "...
【vb知识】VB Ascii 码对照表
Ascii 码对照表 文章来源于lcx.cc:【vb知识】VB Ascii 码对照表相关推荐: 【Asp】ASP接收Post的Byte数组数据并保存ASP接收Post来的二进制/Byte数组数据,并保...
【VB知识】VB KeyCode 常数表
VB KeyCode 常数表 常数 值 描述 vbKeyLButton 0x1 鼠标左键 vbKeyRButton 0x2 鼠标右键 vbKeyCancel 0x3 CANCEL 键 vbKeyM...
【VB技巧】VB纯手工Link/链接编译
VB纯手工Link/链接编译 这些其实VB6.0 IDE把这些功能屏蔽了,不让用户使用。 具体为啥,不知道 实际上vb6.0 link.exe和vc++的用法一样。 可以手工来连接。 先替换link....
【VB技巧】VB中直接重启/强制重启
VB中直接重启/强制重启/相当于按下重启键: Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege...
【VB技巧】VB判断字符串中汉字个数
VB判断字符串中汉字个数/判断汉字个数: Public Function CLen(S As String) As Integer '判断汉字个数 Dim I, Tmp For I = 1 To Le...
【VB技巧】VB中的环境变量
VB中的环境变量Environ ("Windir") 'c:windows Windows 目录 Environ ("ProgramFiles") 'c:ProgramFiles 应用程序文件夹 En...
【VB技巧】VB检测CPU占用率
VB检测CPU占用率 Option Explicit Private Declare Function NtQuerySystemInformation Lib "ntdll" (ByVal dwIn...
【VB技巧】VB Timer按任意时间间隔执行
VB Timer按任意时间间隔执行,VB timer按分钟执行,VB timer按小时执行。 Dim TmpTime As String, NowTime As String '临时时间,当前时间 P...
【VB技巧】VB比较时间
msgbox DateDIff("S","2009-12-18 9:42:40","2009-12-18 9:42:45") 'S:以秒为单位;H以小时为单位;D:以天为单位;M:以月为单位;Y:以天...
【VB技巧】VB控件随窗体高宽度变化
VB控件随窗体高宽度变化 Option Explicit Dim FormOWidth As Long, FormOHeight As Long '窗体原始宽度,原始高度 Private Sub Re...
15