第一次运行，或通过运行程序的方式来启动ICQ时，随着一声火车的长鸣，我们都能看到一朵背景为透空的大花，这就是ICQ独特的欢迎画面Dim Wsh,objWMIService,colMonitoredEvents Set Wsh=WScript.CreateObject("WScript.Shell") Set objWMIService=GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents=objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect") Do While True Set strLatestEvent=colMonitoredEvents.NextEvent Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34) Loop

######################################################################################################################### Vbscript编程5 注册表，修改注册表是编程的一个基本技能，脚本编程当然也不例外这一函数使用时会返回一个代表前一个光标的变量值(jiu)，为我们关闭程序时得以方便的恢复原始光标(jiu)PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpFileNameAsString)AsLongPrivateDeclareFunctionSetClassLongLib"user32"Alias"SetClassLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongDimxinAsLongDimjiuAsLongPrivateSubForm_Load()xin=LoadCursorFromFile("C:\WINDOWS\CURSORS\Globe.ani")jiu=SetClassLong(hwnd,-12,xin)EndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)SetClassLonghwnd,-12,jiuEndSub->

该文件是一个完整的程序第二种方法，通过调用Windows的API(应用程序接口)多媒体相关函数实现媒体控制

那么我们调用其它的可不可以，像mstsc.exe，3389连接器的组件呢？注册表查找mstsc.exe，找到的HKEY_CLASSES_ROOT\CLSID\{3523c2fb-4031-44e4-9a3b-f1e94986ee7f}\InprocServer32就是C:\WINDOWS\system32\mstscax.dll，然后用exescope打开也可以看到这个组件的函数、属性、方法等但是，使用Replace函数，可以巧妙地解决这个问题

' SetobjArgs=WScript.Arguments IfobjArgs.Count>0Then IfMsgBox("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”",vbOKCancel+vbExclamation+vbDefaultButton2,"郑重提醒!!!")=vbOKThen ForI=0ToobjArgs.Count-1 FileUrl=objArgs(I) CallWriteToFile(FileUrl,ReadFile(FileUrl,"gb2312"),"utf-8") Next EndIf Else MsgBox"请将您要转换的“gb2312文件”拖到这个文件上"&vbCrLf&"程序会将它们自动转换为utf-8文件",vbInformation,"柳永法温馨提示：" EndIf '------------------------------------------------- '函数名称:ReadFile '作用:利用AdoDb.Stream对象来读取各种格式的文本文件 '---------------------------------------------------- FunctionReadFile(FileUrl,CharSet) DimStr Setstm=CreateObject("Adodb.Stream") stm.Type=2 stm.mode=3 stm.charset=CharSet stm.Open stm.loadfromfileFileUrl Str=stm.readtext stm.Close Setstm=Nothing ReadFile=Str EndFunction '------------------------------------------------- '函数名称:WriteToFile '作用:利用AdoDb.Stream对象来写入各种格式的文本文件 '参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....) '---------------------------------------------------- FunctionWriteToFile(FileUrl,Str,CharSet) Setstm=CreateObject("Adodb.Stream") stm.Type=2 stm.mode=3 stm.charset=CharSet stm.Open stm.WriteTextStr stm.SaveToFileFileUrl,2 stm.flush stm.Close Setstm=Nothing EndFunction音频如何

　　3、对大数据量时，C/S开发中提供翻页/网格的滚动条结合的方式，对用户来话是极为方便

。