- 博客(9)
- 收藏
- 关注
RSS订阅原创 关于如何添加桌面快捷方式
Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" _ Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long Private
2007-10-25 15:41:00
4445
原创 利用VB制作托盘
1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False 2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas 3、在Module1中写下如下代码： Option Explicit Public Const MAX_TOOLTIP As Integer = 64 Public Const NIF_ICON =
2007-10-25 15:35:00
824
原创 ExitWindowsEx
退出操作系统可以调用Windows API的ExitWindowsEx函数。在Win9x下，只要简单地调用ExitWindowsEx函数就可以实现关机或者重新启动。但是在Win 2000/XP下调用ExitWindowsEx函数时，还需要先调用AdjustTokenPrivileges函数。下面的例子在Win9x和Win 2000/XP下都可以使用。请参考程序中的注释。 例子： 1、建立一个窗体，
2007-10-25 15:33:00
1372
转载 JavaScript的9个陷阱
来自Nine Javascript Gotchas, 以下是JavaScript容易犯错的九个陷阱。虽然不是什么很高深的技术问题，但注意一下，会使您的编程轻松些，即所谓make life easier. 笔者对某些陷阱会混杂一些评点。 1、最后一个逗号 如这段代码，注意最后一个逗号，按语言学角度来说应该是不错的（python的类似数据类型辞典dictionary就允许如此）。IE会报语
2007-10-24 08:29:00
566
原创 MSXML2.XMLHTTP
XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面。 来自MSDN的解释：XmlHttp提供客户端同http服务器通讯的协议。客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软
2007-10-11 14:00:00
1445
原创 关于Adodb.Stream 的使用说明
组件："Adodb.Stream" 有下列方法： Cancel 方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close 方法 使用方法如下 Object.Close ：关闭对像 CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[CharNumber]) 说明：将对像的数据复制，destSt
2007-10-11 13:49:00
548
原创 Scripting.FileSystemObject对象
Set fso = Server.CreateObject("Scripting.FileSystemObject") 定义FSO对象 fso.CreateFolder(Server.MapPath(folder)) 得到路径 Set fout = fso.CreateTextFile(Server.MapPath(filepath)) 定义创建对象 fout.WriteLine mb_code
2007-10-10 15:35:00
1027
转载 Win32_NetworkAdapterConfiguration
class Win32_NetworkAdapterConfiguration : CIM_Setting{ boolean ArpAlwaysSourceRoute; boolean ArpUseEtherSNAP; string Caption; string DatabasePath; boolean DeadGWDetectEnabled; string DefaultI
2007-10-10 14:15:00
3986
原创 利用GetObject("WinMgmts:")获取系统信息
用WMI对象列出系统所有进程:----Instance.vbs---- 程序代码Dim WMI,objsSet WMI = GetObject("WinMgmts:")Set objs = WMI.InstancesOf("Win32_Process") For Each obj In objs Enum1 = Enum1 + obj.Description + Chr(13) + C
2007-10-10 10:34:00
5921
2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人