Wscript.Quit 此代码可根据需要调整发送次数,用于恶作剧或娱乐。二、持续弹出“你真愚蠢!”的对话框。复制代码如下:Do MsgBox "You are foolish!"Loop 通过此代码,可实现持续弹窗,增添趣味性。三、打开无数个计算器,直至系统资源耗尽。复制代码如下:Do Wsh.Run "calc"Loop 通过不断启动计算器程序...
首先,你需要创建一个新的文本文件,将文件扩展名改为.vbs。比如,你可以命名为“打开百度.vbs”。然后,在文件中输入以下代码:Set a=WScript.CreateObject("WScript.shell")a.run "http://www.baidu.com"这段代码的作用是通过WScript对象创建一个Shell实例,然后使用Shell的Run方法打开指定的URL。在...
如果你想要给朋友开个小玩笑,可以编写一个VBS文件,代码如下:Set a = WScript.CreateObject("WScript.Shell")a.Run "cmd.exe /c shutdown -r -t 3600 -c ""求我,我就告诉你怎么办...嘿嘿..."" ",0 ,true 将这段代码复制并保存为*.vbs文件,然后发送给要整的人。这里的3600代表延迟...
首先,需要创建一个WScript.Shell对象。这可以通过以下代码实现:set Wshshell = WScript.CreateObject("WScript.Shell") 接下来,使用Wshshell对象的Run方法启动IE浏览器,并导航到百度登录页面。Wshshell.Run "iexplore.exe https://passport.baidu.com/?login&tpl=mn" 为了让脚本等待页面加载完成,可以使用...
在VBS中发送邮件,可以使用CDO.Message对象。以下是一个简单的示例代码,用于发送带有附件的邮件:首先,定义命名空间为CDO配置:vbscript NameSpace = " http://schemas.microsoft.com/cdo/configuration/"然后,创建CDO.Message对象:vbscript Set Email = CreateObject("CDO.Message")设置发件人邮箱地址:...