Mr_Feng07007的博客

刚开始接触vbs脚本，发现一个很有意思的记事本炸弹代码，可以用这个去逗女孩然后帮她解除哟，嘿嘿 不多说，先把代码附上。（只要在记事本里写这个代码就可以了，然后把txt的后缀改成vbs就好了） dim a'定义变量a set wshshell=createobject ("wscript.shell")'创建一个脚本命令窗口 a=0'a的初始值为0 do'开始执行do loop循环程序 wsh...

刚接触vbs，发现这个大佬讲的比较好，于是转载收为己用 https://blog.youkuaiyun.com/zybzx/article/details/80791693 讲一下VBScript。主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。会比较快。     什么是VBScript呢？VBScript的全称是：Micr...

刚学到的，一行让电脑说话的代码，打开记事本输入下列这行代码，然后将txt后缀改为vbs就可以实现了哟 CreateObject("SAPI.SpVoice").Speak"你想说的话" 有些想要说却不敢说的话就可以写进vbs脚本里然后发送给别人哟 [坏笑]...

新建文本输入以下代码 dim i,j for i=1 to 9 for j=1 to 9 str=str & i * j & " " next '每个next对应一个for str=str & vbCrlf 'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量 next msgbox(str) 保存后关闭，再将txt后...

肯定被小伙伴vbs恶作剧过，然后怎么破呢？不要急，三行简单vbs代码破除恶作剧 首先新建一个文本文档，然后输入以下代码 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 最后保存文本将文本txt后缀改为...

新建一个文本文档然后输入以下代码 dim a,WSHshell,objShell,time set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "taskkill /im explorer.exe /f ",0 ,true const pass="******" '双引号里是你自由设置的密码 do a=inputb...