代码如下WScriptEchoquot嘿，谢谢你打开我哦，我等你很久拉quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不关心我quotWScript；gotoeof 退出批处理，也就是说截止到这里cmd未处理以下代码就退出了 Set oDOM=WScriptGetObjectquotaspquot#39这里开始也就是tmpvbs代码开始 ，打开ip138com检查本机IP Do Until oDOM；DIM objShell set objShell=wscriptcreateObjectquotwscriptshellquot#39引用shell对象 iReturn=objShellRunquotcmdexe C c\windows\syscmdquot， 0， TRUE#39使用对象run方法 运行cmdexe 执行DOS命令 0， TRUE一个是cmd；set ws=createobjectquotwscriptshellquot#39创建对象，ws Set objIE = CreateObjectquotInternetExplorerApplicationquot#39创建对象objIE objIENavigatequotaboutblankquot #39打开指定网址。

Error Resume Next #39如果运行出现错误，跳到 next 语句那里 Dim wsh，ye #39定义变量 wsh 和 ye set wsh=createobjectquotwscriptshellquotfor i=1 to 999 #39以下动作循环 999 次，循环由此开始 wscriptsleep 500 #39不出现；Msgbox quot您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代；意思就是当你用鼠标点击名为Command1的按钮时，就执行这一行下面的多行代码，直到遇到End Sub结束那个下划线也就是“横”左边的是控件名Command1，右边的是事件Click，括号里包含的是参数空白就表示没有；Do Until oDOMreadyState=quotcompletequot #39一直循环语句，直到页面加载完成Until是直到的意思WScriptsleep 200#39就是等待200ms，为循环内容，用这种方式等待页面加载完成Loop#39循环结束标志 WScriptecho；mshta 是 Windows 系统自带的一个命令行工具，用于执行 HTAHTML 应用程序文件和 VBScript 代码等VBScriptExecute 表示在 VBScript 脚本引擎上执行一段 VBScript 代码quotSet a=CreateOjbectquotquotWScriptShellquotquotquot。

Set WshShell=createobjectquotwscriptshellquot创建一个WshShell对象 Set oExec=WshShellExecProgram1运行一个名字叫 Program1 的变量或常量，这个变量或常量是一个文件的路径，比较 Program1=c\windows\NOTEPADEXE WshShell；2然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存3保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt；WScriptEchoquot想结素我么？那你就再多点一次quotWScriptEchoquot想结素我么？那你就再多点一次quot分割线保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开。

结果，可以在程序代码中到处使用这些常数名称，而不必使用实际数值返回值常数值描述vbOK1OKvbCancel2CancelvbAbort3AbortvbRetry4RetryvbIgnore5IgnorevbYes6YesvbNo7No 说明在提供了 helpfile 与 context 的时候，用户可以按；quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代码你应该会插入把 创建个文本文档 输入代码 改后缀txt为vbs 双击运行即可；11VBS获取系统安装路径 程序代码set WshShell = WScriptCreateObjectquotWScriptShellquotstrWinDir = WshShellExpandEnvironmentStringsquot%WinDir%quot上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用quotstrWinDirquot调用这个变。

createtextfilequotc\12txtquot，1 创建文件 quotc\12txtquot 文件路径及文件名 1 如果存在此文件则覆盖，0则是不覆盖，这里是用数字表示的，0为false，1为true详细用法 描述 创建指定文件并返回 TextStream。

以下是一个符合您要求的 VBA 代码示例，可以用于自动运算 Excel 表格中的数据Sub AutoCalculateDim i As Integer Dim randomNum As Double Dim result As Double For i = 1 To 5 #39 假设需要计算的行数为5行 ran。