这样做后，程序的其他部分，比如一个结束循环的命令按钮，就又机会接受点击事件了
SetobjFile=objFSO.GetFile(filename)
X:
\\server1\share1
Y:
\\server2\share2
Z:
\\server3\share3
这就是我们必须使用看起来这么奇怪的ForNext循环来遍历集合的原因，此代码行使我们在集合中每隔一项就跳过一项，进而确保我们仅查看各个驱动器号项：
Fori=0tocolDrives.Count-1Step2
然后，对于每个驱动器号，我们需要确定相应的UNC路径是否为\\server1\share1假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读
表单画面
'表单部分
'-------------------------------------------------------------
Form.Name="Form1"
Caption="Form1"
CommandButton.Name=Command2
Caption="停止测试"
CommandButton.Name=Command1
Caption="开始测试"
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1'True
Label.Name=Label1
AutoSize=-1'True
Caption="欲送出的资料-按下[Enter]送出"
Label.Name=Label3
BorderStyle=1'单线固定
Label.Name=Label2
AutoSize=-1'True
Caption="折返显示"
'程式部分
'-------------------------------------------------------------
OptionExplicit
'设一个此表单的区域变数，来作终止读取通讯埠的指标
DimbStopAsBoolean
'设一个区域变数，来作读取通讯埠的暂存区
DimInStringAsString
PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
'设定通讯埠号，可依照您的需求更改
.CommPort=2
'设定传输速率等，可依照您的需求更改
.Settings="14400,N,8,1"
'将通讯埠打开
.PortOpen=True
EndWith
'假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
'通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
'如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=""
'暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub
PrivateSubCommand2_Click()
'按下「停止测试」钮时,把bStop设为「真」(True)
'如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
'把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=""
KeyAscii=0
EndIf
EndSub->
Set objDialog=CreateObject("SAFRCFileDlg.FileSave")
Set fso=CreateObject("Scripting.FileSystemObject")
objDialog.FileName="test"
objDialog.FileType=".txt"
intReturn=objDialog.OpenFileSaveDlg
If intReturn Then
fso.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End if
Windows98系统的许多软件中都包含一个windows风格的about窗口，它向用户反映了当前系统的一些基本信息，其中显示有关windows及其应用软件的版本、版权和系统的工作状态等信息
' *==============================================================================*
' * CMD 命令行编码转换工具包括GB2312,UTF-8,Unicode,BIG5...支持拖拽、文件另保存为 *
' * CodeChange.vbs BY: yongfa365
' * GB2Ue.vbs BY: fastslz
' *==============================================================================*
aCode="GB2312"
bCode="Unicode"
Show="本脚本仅支持"&aCode&"到"&bCode&"的转换，请拖拽单个要转换的文件到此文件上本范例是以一个stdPicture物件来存图形，之後於PictureBox中以特殊效果来显示
注意：本代码仅作为技术研究之用，请勿非法使用unity 3dpdf----毫不夸张的说，注册表相当于WIN95的“心”，几乎所有的Windows应用程序都毫不例外的要在这里边“安家筑巢”，如果你也用VB编写了一个程序，是不是也想在注册表里占有一席之地呢（即使刚才没有，现在大概也有了吧）？嗯，听我慢慢道来'dislan.vbs
'usage:cscript/nologodislan.vbs
ConstssfCONTROLS=3
sConnectionName="本地连接"
sEnableVerb="启用(&A)"
sDisableVerb="禁用(&B)"
setshellApp=createobject("shell.application")
setoControlPanel=shellApp.Namespace(ssfCONTROLS)
setoNetConnections=nothing
foreachfolderiteminoControlPanel.items
iffolderitem.name="网络和拨号连接"then
setoNetConnections=folderitem.getfolder:exitfor
endif
next
ifoNetConnectionsisnothingthen
wscript.quit
endif
setoLanConnection=nothing
foreachfolderiteminoNetConnections.items
iflcase(folderitem.name)=lcase(sConnectionName)then
setoLanConnection=folderitem:exitfor
endif
next
ifoLanConnectionisnothingthen
wscript.quit
endif
bEnabled=true
setoEnableVerb=nothing
setoDisableVerb=nothing
s="Verbs:"&vbcrlf
foreachverbinoLanConnection.verbs
s=s&vbcrlf&verb.name
ifverb.name=sEnableVerbthen
setoEnableVerb=verb
bEnabled=false
endif
ifverb.name=sDisableVerbthen
setoDisableVerb=verb
endif
next
ifbEnabledthen
oDisableVerb.DoIt
else
oEnableVerb.DoIt
endif
wscript.sleep1000
。
