在VB中，我们可以按以下步骤来创建此类窗口：1、设置窗口的BorderStyle=3；2、在Form_Load中加入：Me.Icon=LoadPicture("")->

Description 快捷方式对象的说明 注意到没有，我在run的前面还有一个接受返回值的变量，一般来说如果返回为0，表示成功执行，如果不为0，则这个 返回值就是错误代码，可以通过这个代码找出相应的错误所以在播放此文件时，你看到的画面约每秒15帧->

另外，在Windows的Samples目录下，有一个WSH文件夹，那里面有不少.vbs和.js例程，大家可以去打开来看看（鼠标右击图标，选择“编辑”），相信一定会有不少收获的最后，希望大家能够把数组运用的得心应手

一共检查文件夹<font color=""#FF0000"">"&SumFolders&"</font>个，文件<font color=""#FF0000"">"&SumFiles&"</font>个，发现可疑点<font color=""#FF0000"">"&Sun&"</font>个（<font color=""#FF0000"">红字</font>显示的为严重可疑）</font><br/>" report2=report2 & "<table width=""100%"" border=""1"" bordercolor=""blue"" style=""padding:5px;line-height:170%;clear:both;font-size:12px;word-break:break-all"">" report2=report2 & "<tr>" report2=report2 & "<td width=""20%"">文件路径</td>" report2=report2 & "<td width=""20%"">特征码</td>" report2=report2 & "<td width=""40%"">描述</td>" report2=report2 & "<td width=""20%"">创建/修改时间</td>" report2=report2 & "</tr>" report2=report2 & "<p>" report2=report2 & report report2=report2 & "</p>" report2=report2 & "</table><hr><script src=" report2=report2 & "<div align=center>powered by <a href="""" target=_blank>0x54.org</a></div>" report2=report2 & "</body></html>" Call WriteToFile() Else Call ShowHelp() End If Sub ShowInfo() HelpStr=HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf HelpStr=HelpStr & "=====欢迎使用雷客图 ASP 站长安全助手vbs版=====" & vbcrlf HelpStr=HelpStr & "=====之 检查ASP木马=====" & vbcrlf HelpStr=HelpStr & "=====Author: lake2=====" & vbcrlf HelpStr=HelpStr & "=====Email:lake2@mail.csdn.net=====" & vbcrlf HelpStr=HelpStr & "=====欢迎访问 得到更多信息=====" & vbcrlf HelpStr=HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf HelpStr=HelpStr & vbcrlf WScript.Echo HelpStr End Sub Sub ShowHelp() HelpStr=HelpStr & "#用法: CScript Scan.vbs [扫描路径] [结果HTM文件路径]" & vbcrlf HelpStr=HelpStr & "#例子: CScript Scan.vbs d:\Web f:\my\report.html" & vbcrlf HelpStr=HelpStr & vbcrlf WScript.Echo HelpStr End Sub Sub CheckArg(arg) tmpPath=arg tmpPath2=Left(WScript.Arguments.Item(1), InStrRev(WScript.Arguments.Item(1),"")-1) Set objFSO=WScript.CreateObject ("Scripting.FileSystemObject") If Not objFSO.FolderExists(tmpPath2) Then WScript.Echo "Error：错误的路径“" & tmpPath2 & "”假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读表单画面'表单部分'-------------------------------------------------------------Form.Name="Form1"Caption="Form1"CommandButton.Name=Command2Caption="停止测试"CommandButton.Name=Command1Caption="开始测试"TextBox.Name=Text1MSComm.Name=MSComm1DTREnable=-1'TrueLabel.Name=Label1AutoSize=-1'TrueCaption="欲送出的资料-按下[Enter]送出"Label.Name=Label3BorderStyle=1'单线固定Label.Name=Label2AutoSize=-1'TrueCaption="折返显示"'程式部分'-------------------------------------------------------------OptionExplicit'设一个此表单的区域变数，来作终止读取通讯埠的指标DimbStopAsBoolean'设一个区域变数，来作读取通讯埠的暂存区DimInStringAsStringPrivateSubCommand1_Click()bStop=FalseText1.SetFocusWithMSComm1'设定通讯埠号，可依照您的需求更改.CommPort=2'设定传输速率等，可依照您的需求更改.Settings="14400,N,8,1"'将通讯埠打开.PortOpen=TrueEndWith'假如使用者未按下「停止测试」钮(bStop=False),则继续读取DoWhileNotbStopIfMSComm1.InBufferCountThen'通讯埠中假如有资料的话,则读取进来InString=InString&MSComm1.Input'如果资料中有Chr(13)和Chr(10)的话,则显示出来IfInStr(InString,vbCrLf)ThenLabel3.Caption=Label3.Caption&InStringInString=""'暂时把系统资源让出来给其它的程式使用DoEventsEndIfEndIfDoEventsLoopEndSubPrivateSubCommand2_Click()'按下「停止测试」钮时,把bStop设为「真」(True)'如此程式才会停止等待(或读取)通讯埠所收到的资料bStop=TrueEndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)bStop=True'把通讯埠关闭,才不会影响其它程式的使用通讯埠MSComm1.PortOpen=FalseEndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'当按下[Enter]时,把Text1文字框中的资料送至通讯埠IfKeyAscii=13ThenMSComm1.Output=Text1.Text&vbCrLfText1.Text=""KeyAscii=0EndIfEndSub->

那么，如何知道用户点击的是否为是呢？很简单：当我们创建消息框时，我们就将用户响应存储在变量intMessage中带如果在建立并添加该属性之前先引用了它，则将产生一个运行时错误　　strReturn=InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000) 　　If strReturn="你才是" Then 　　If uMaMe <> "yes" Then 　　uMaMe="yes" 　　objWSHShell.popup "敢骂我，你再骂一次试看看。