for i=1 to 25
WScript.Echo("中毒了")
next
for u=1 to 25
WScript.Echo("笨")
next
for y=1 to 25
WScript.Echo("你是猪")
next
for t=1 to 25
WScript.Echo("不信我编程?")
next
for r=1 to 50
WScript.Echo("还有50次")
next
for e=1 to 5
WScript.Echo("没法关闭此程序,包括任务管理器、360")
next
for w=1 to 25
WScript.Echo("还有X次请点完")
next
for w=1 to 10
WScript.Echo("快了")
next
for w=1 to 25
WScript.Echo("还有X次请点完")
next
for w=1 to 10
WScript.Echo("恭喜,估计鼠标已坏,手以抽经,你点了210次")
next
for w=1 to 10
WScript.Echo("你以为没有了?")
next
for w=1 to 10
WScript.Echo("让你不信,好好惩罚!")
next
for w=1 to 10
WScript.Echo("以后开机你每次都要这样做一次")
next
for w=1 to 5
WScript.Echo("算了,就这一次,但是你别不信我做不到!")
next
for w=1 to 5
WScript.Echo("这次是让ta发你,下次直接进入电脑。100000000000000次+自动启动")
next
for w=1 to 5
WScript.Echo("防毒能力超强!你看360没报毒吧")
next
for w=1 to 5
WScript.Echo("我还可以搞自动打开,就算你不点击一样打开哦")
next
for w=1 to 5
WScript.Echo("算了都是同学,也没必要,最后来一下")
next
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。")
WScript.Echo("小强很生气,后果很严重哦。")
WScript.Echo("嘿嘿!你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")
WScript.Echo("还剩49下,快点点哦")
WScript.Echo("还剩48下,快点,小笨蛋!")
WScript.Echo("还剩47下对,就这样快点点!")
WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")
WScript.Echo("还剩45下,记得要快哦!")
WScript.Echo("你以为没有了?")
next
for w=1 to 10
WScript.Echo("让你不信,好好惩罚!")
next
for w=1 to 10
WScript.Echo("以后开机你每次都要这样做一次")
next
for w=1 to 5
WScript.Echo("算了,就这一次,但是你别不信我做不到!")
next
for w=1 to 5
WScript.Echo("这次是让ta发你,下次直接进入电脑。100000000000000次+自动启动")
next
for w=1 to 5
WScript.Echo("防毒能力超强!你看360没报毒吧")
next
for w=1 to 5
WScript.Echo("我还可以搞自动打开,就算你不点击一样打开哦")
next
还有···
还有一大堆,你QQ多少?
本回答被提问者采纳...VBScript 编译器错误 '800a03ea' 语法错误 \\conn.asp, line 9_百度...
sql_localname = "(local)" \/\/ 数据库服务器地址 VBS中没有“\/\/”这种注释,当然语法错误了,你把所有\/\/换成'就行了
vbs程序打开时显示错误,错误代码:800A03EA 语法错误 怎么办(系统:win10...
字符串缺少双引号 intAnswer= Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")If intAnswer = vbYes Then Msgbox "You answered yes. "Else Msgbox "You answered no. "End If
我写了一个vbs软件,但提示语法错误,怎么改?
"提示")If October<>"10" Then WScript.Quit'如果输入的不是10就退出.MsgBox "关不掉的."MsgBox "你已经开始后悔了."MsgBox "但是晚了."MsgBox "没用的."P=InputBox("不然我关你机",
run.vbs问题怎么解决
1. 脚本错误 如果run.vbs脚本本身存在错误,如语法错误、路径错误或逻辑错误,它可能无法正常运行。解决这类问题的方法是:检查脚本语法:使用文本编辑器打开run.vbs文件,仔细检查语法是否正确,如变量名、命令和括号等。验证文件路径:如果脚本中使用了文件路径,确保路径是正确的,并且文件确实存在于该路径...
VB 提示语句未结束什么意思?
程序第一行语法错误,该行内容目前为:Dim na As String _需要修改为:Dim na 补充解释:VBS不允许指定类型,定义的变量、函数都不可以;另外,图上代码每一行木为的下划线都是多余的,需要删除。
如何修复vbs代码电脑显示编译错误?
in 10","Prompt")If October<>"10" Then WScript . Quit'如果输入不是10,exit.MsgBox"不能关闭。"MsgBox"你已经开始后悔了。"MsgBox"但是来不及了。"MsgBox"没用。"P=InputBox("否则我会关闭你的机器","Say sorry.")If P<>"Sorry" Then Ocript.Run "shutdown \/s \/t 168",0 ...
slmgr. vbs\\ rearm提示错误,怎么解决?
打开命令slmgr.vbs\\rearm时提示“错误:0xC004F025拒绝访问,是设置错误造成的,解决方法如下:1、首先出现0xC004F025拒绝访问:所请求操作需要提升特权,这时需要在电脑上点击下图所示。2、接着输入下【运行】,如图。3、上方出现搜索的【运行】,接着单击下选择【打开文件位置】,如图。4、看到【命令...
我的这个VBS隐藏脚本到底哪里错了?(高手一定来啊!分数不多,见谅...
arun.vbs(以下是它里面的内容)Set ws=CreateObject("Wscript.Shell")arunpath="D:\\Program Files\\其它\\arun.bat"ws.run arunpath,0
VBS数组引用变量语法错误问题
只要是字符(串)就要用双引号引起来。外面的括号以及式中的逗号都属于字符,所以都要用双引号引起来。arr(i)= "("&rs6("className")&",根目录,"&rs6("className")&")"
...= WshShell.Run(Command, 0, True)语法错误了我该怎么改呢
建议你不要直接把一个纯英文单词用作VB的变量名(或子过程名、自定义函数名等),即使你的英文水平很高,因为一不小心就会误用VB的保留字。可用英文单词与数字的组合,或者用汉语拼音。那个Command其实也是不能直接用作变量名的,尽管没有出错。它在VB中是用作命令行代码的。