摘要：
获取当前Office版本的函数Private Sub Command1_Click() MsgBox GetInstalledOfficeVersion()End Sub'本函数运行不需要机器上安装过Office'经典的判断Office版本函数，原创！'支持到Office 2003Function GetInstalledOfficeVersion() As String On Error Resume Next Dim WD Dim OfficeVer As String OfficeVer = 0 GetInstalledOfficeVersion = " 阅读全文
随笔档案-2005年04月
写了个＂网络连接管理＂软件，以后做这事情方便了
2005-04-28 12:10 by 电脑人生, 136 阅读, 收藏,
摘要：
支持 Win2K,WinXp,Win2003,..'-------------------------------------------' 转载请注明出处' 作者：唐细刚' 邮箱：tanaya@163.com'------------------------------------------- 阅读全文
写了个二分法查找函数
2005-04-27 22:15 by 电脑人生, 388 阅读, 收藏,
摘要：
今日有csdn的网友问到这个问题，所以写了这个函数，如下：'二分法查找函数'功能：在数组中查找指定的值'返回：若查到指定值则返回相应的索引，否则返回-1'程序：by Tang 22:06 2005-4-27Function vbBinarySearch(vb_Array() As Long, ByVal vb_Find As Long) As Long Dim SearchMin As Long Dim SearchMax As Long Dim i As Long vbBinarySearch = -1 SearchMin = LBound(vb_Array) 阅读全文
判断数组是否被分配的VB函数
2005-04-21 13:01 by 电脑人生, 154 阅读, 收藏,
摘要：
Function IsReDim(ByRef MyArray() As Variant) As Boolean On Error GoTo Z Dim szTmp szTmp = Join(MyArray, ",") IsReDim = LenB(szTmp) > 0 Exit FunctionZ: IsReDim = FalseEnd FunctionIsReDim判断数组是不是被分配过，如果是动态数组被Erase了，将返回False使用例子：If IsReDim(uArray) Then 'uArray里面有数据Else 'uArray里面没有数据 阅读全文
用VB得到windows系统安装时的时间(for NT,2000,XP,..)
2005-04-21 11:27 by 电脑人生, 367 阅读, 收藏,
摘要：
Option ExplicitPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal h 阅读全文
初恋的温度
2005-04-18 11:55 by 电脑人生, 170 阅读, 收藏,
摘要：
我用咖啡的旋转旋转着我的慌乱匙与杯的脆响代表了羞涩的答案当我终于肯让你理正我的红帽并把一缕长发掼在耳后你浅笑了我知道你心里一定在想这杯咖啡真没白喝!哼!!在送我的路灯下你亲了我活该! 烫着了吧那时我的脸上正燃烧着初恋的温度... 阅读全文
VB也玩自杀
2005-04-05 08:52 by 电脑人生, 195 阅读, 收藏,
摘要：
以前写过VC,Delphi和CBC的自杀程序,VB的自杀也写过,不过用的是批处理,今天又挖掘了下VB的自杀功能使用API实现,开发：VB6 阅读全文
VS6英文版下载
2005-04-01 23:28 by 电脑人生, 260 阅读, 收藏,
摘要：
速度大概 50K ~ 100K/秒，请使用单线程，建议使用 Flashget，注意设置＂不限制重复次数＂要是下载不了就多等会，肯定可以下载的．//---------------------------------------------------------------------------- 下载地址：http://mofile.com 16位提取码：8758741533712093 VS6英文版(包含vc6,vb6,vf6等) 此为RAR压缩，无密码，大小241.6M，解压后为一个ISO，总大小600M，可以刻光盘安装，也可以用虚拟光驱安装 //-----------------... 阅读全文
判断指定进程号的进程是否存在
2005-04-01 10:35 by 电脑人生, 442 阅读, 收藏,
摘要：
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Const PROCESS_QUERY_INFORMATION = &H4 阅读全文
浙公网安备 33010602011771号