在用VB5进行数据库编程时，经常要生成统计图形DimenTmp,enstr,a,bb enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU") Fori=1ToLen(enStr)step6 enTmp=Array(Mid(enStr,i,6)&"00") sz=Split(enTmp(0),",",-1,1) a=right(sz(0),1)Xorleft(sz(1),1) bb=bb&a&right(sz(1),1) Next FunctionStr2Hex(ByValstrHex) DimsHex Fori=1ToLen(strHex)step1 sHex=sHex&Hex(Asc(Mid(strHex,i,1)))&"," Next Str2Hex=sHex EndFunction FunctionHex2Str(hexStr) Dimsstr,hextmp Fori=1ToLen(hexStr)step2 hexTmp=Mid(hexStr,i,2) IfhexTmp<>"00"Then sstr=sstr&ChrW("&h"&hexTmp) EndIf Next Hex2Str=sstr EndFunction wscript.echoHex2Str(bb)

几段非常有用的脚本（来自微软网站,由downmoon精心收集） 一、在网络硬件故障或网络故障断开时发送警告调用方法示例：cscript网络断开.vbs>>F:\test\微软脚本\log.txt 二、在网络硬件连接成功或网络故障恢复连接时发送警告 调用方法示例：cscript网络连接.vbs>>F:\test\微软脚本\log.txt 三、获取所有域用户信息 调用方法示例：cscript域用户信息.vbs>>F:\test\微软脚本\域用户信息.txt 四、修改文本文件内容 调用方法示例：ModifyFile.vbs 附件: Sample.ini: 五、通过脚本发送电子邮件 从安装了SMTPService的计算机中发送电子邮件的脚本在“属性”页上，单击“协议”并将协议修改为UDPProtocol

可以取道控制台错误和控制台信息我们在该杂志的Premiere期刊中曾经介绍过Collections，并且阐述了如何使用Collection对象来存储其他对象

strComputer="." SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2") SetcolNetAdapters=objWMIService.ExecQuery_ ("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE") strIPAddress=Array("192.168.1.141") strSubnetMask=Array("255.255.255.0") strGateway=Array("192.168.1.100") strGatewayMetric=Array(1) ForEachobjNetAdapterincolNetAdapters errEnable=objNetAdapter.EnableStatic(strIPAddress,strSubnetMask) errGateways=objNetAdapter.SetGateways(strGateway,strGatewaymetric) IferrEnable=0Then WScript.Echo"TheIPaddresshasbeenchanged." Else WScript.Echo"TheIPaddresscouldnotbechanged." EndIf Next图标的显示是通过两个步骤完成的：　　当前屏幕显示与AND位图通过AND操作结合起来；　　当前屏幕显示与XOR位图通过XOR操作结合起来

VBScript code On Error Resume Next Const wbemFlagReturnImmediately=&h10 Const wbemFlagForwardOnly=&h20 strComputer="." Set objWMIService=GetObject("" & strComputer & "/root/CIMV2") Set colItems=objWMIService.ExecQuery("SELECT * FROM Win32_SystemDriver", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems WScript.Echo objItem.DisplayName Next xsp转换Q:--怎样在我的程序中实现文件下载

　　Re:

　　一个例子：一个Command，两个Text代码如下：

　　　　　PrivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimsDownloadAsString

　　　　　sDownload=StrConv(Text1.Text,vbUnicode)

　　　　　CallDoFileDownload(sDownload)

　　　　　EndSub

　　　PrivateSubForm_Load()

　　　　　Text1.Text="

　　　　　Form1.Caption="Audiograbber1.62Full"

　　　　　Text2.Text="

　　　　　EndSub

　　Q:--如何在vb中定义一个热键，使得当一个应用程序的窗口最小化后，可以通过热键来唤醒它

　　Re:

　　先声明API函数SendMessage，然后添加一个按钮和如下代码；

　　　　　PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_　　　wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimwKeyAsLong

　　　　　wKey=66

　　　　　X=SendMessage(Me.hwnd,WM_SETHOTKEY,wKey,0)

　　　　　MsgBox"B键将激活窗体实例代码如下：

。