![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBS
加油开心
你好呀
展开
-
VBS:if条件
dim dd=CDbl(inputbox("please input"))if d=1 then msgbox "woxihuanni"elseif d=2 then msgbox "woaini" else msgbox "wotaoyanni"end if原创 2019-09-02 12:54:02 · 5099 阅读 · 0 评论 -
根据数字弹出对应的窗口2
dim aa=inputbox("瞎几把输入一个数字","输入框")a=int(a)select case acase 1,2,3msgbox("尼玛今晚biss")case 4,5,6msgbox("我喜欢你的女朋友")case 7,8,9msgbox("我想和你做爱")case 10,11,12,13,14,15,16,17,18,19,20msgbox("SB,把数字输...原创 2019-09-25 15:02:54 · 198 阅读 · 0 评论 -
根据数字弹出对应的窗口1
dim aa=cdbl(inputbox("请输入任意数字[0-20]"))do while a<0 or a>20a=cdbl(inputbox("请输入正确的数值"))if a>=0 and a<=20 thenmsgbox("你输入了正确的值,我真他妈感动")exit doelsemsgbox("输入错误,请重新输入")end ifloop...原创 2019-09-25 15:02:10 · 234 阅读 · 0 评论 -
表白
msgbox "美女,你好"msgbox "美女我来了"msgbox "美女你好漂亮啊",vbYesNo,"真滴"dim jdo while j<1Select Case msgbox("可以加一个QQ吗",4+32)Case 6 j=j+1Case 7 msgbox("在想一想呗")end Selectloopmsgbox "摸摸哒"...原创 2019-09-25 15:01:28 · 116 阅读 · 0 评论 -
无限弹出
set ws=createobject("wscript.shell")dim ido while i<50ws.run("cmd.exe")ws.run("notepad.exe")ws.run("www.baidu.com")ws.run("matlab.exe")i=i+1loop原创 2019-09-25 15:00:47 · 614 阅读 · 0 评论 -
基本输出函数
msgbox "我是永远爱你的",vbOKCancel,"确定?"msgbox "我是永远喜欢你的",vbCriticalst=inputbox("显示内容","标题","默认值",8000,8000)msgbox "我爱你",0,"我喜欢你"'那个4096加64仅仅是标题的变化msgbox "我超级爱你哟",4096+64'vbs输出变量值直接msgbox 变量名...原创 2019-09-25 15:00:13 · 151 阅读 · 0 评论 -
运行可执行文件
set ws=wscript.createobject("wscript.shell")ws.run "notepad.exe",3,true'0:表示后台运行 1:正常运行 2:显示最小化 3:最大化,刚才是run第二个参数'run的第三个参数就是脚本等待和运行,true表示脚本等待程序运行结束在执行,还有false...原创 2019-09-25 14:59:03 · 745 阅读 · 0 评论 -
内建函数
'比如msgbox函数dim a'打印系统时间,还有time,now等函数,都是获取时间的a=date()msgbox a'内建函数第一节就只看了一点原创 2019-09-25 14:58:16 · 96 阅读 · 0 评论 -
遍历一个文件夹下所有文件
Function FilesTree(sPath) '遍历一个文件夹下的所有文件夹文件夹 Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder = oFso.GetFolder(sPath) Set oSubFolders = oFolder.SubFolders ...原创 2019-09-25 14:56:43 · 178 阅读 · 0 评论 -
注册表
SFC /SCANNOW系统修复命令注册表快跳cmd /k reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v lastkey /t reg_sz /d "注册表位置" /f && regedit.exe打开注册表(广播)<oBJECT c...原创 2019-09-02 13:00:55 · 231 阅读 · 0 评论 -
VBS:注册表
'注册表:regeditdim WshShellSet WshShell = CreateObject("Wscript.Shell")WshShell.RegWrite "HKEY_CURRENT_USER\Software\VMware, Inc.\VMware Tray",0,"REG_SZ"Wscript.Echo "完毕"Wscript.Quit原创 2019-09-02 13:00:26 · 493 阅读 · 0 评论 -
VBS:基本输入函数
dim aa=inputbox("please input number")msgbox a原创 2019-09-02 12:59:50 · 506 阅读 · 0 评论 -
VBS:基本输出函数
msgbox "box",,"title"msgbox "wo"&"ai"&"ni"原创 2019-09-02 12:59:18 · 1691 阅读 · 0 评论 -
VBS:关机
Set ws = WScript.CreateObject("WScript.Shell")ws.run "shutdown -s"原创 2019-09-02 12:58:34 · 637 阅读 · 0 评论 -
VBS:恶搞
Set ws = Wscript.CreateObject("Wscript.Shell")ws.popup "wwwww",11原创 2019-09-02 12:57:56 · 329 阅读 · 0 评论 -
VBS:打开网站
Set ws = WScript.CreateObject("WScript.Shell")ws.run("www.baidu.com")原创 2019-09-02 12:56:58 · 365 阅读 · 0 评论 -
VBS:变量定义
dim a,ba=45b="woaini"msgbox a&b原创 2019-09-02 12:55:26 · 747 阅读 · 0 评论 -
vbs爬取网站robots
'运行完下述代码之后你会在桌面上看到一个文本文件'里面保存了该网站的robots协议strFileURL="https://www.jd.com/robots.txt"strHDLocation="D:\自己的软件\55.txt"Set objXMLHTTP=CreateObject("MSXML2.XMLHTTP")'创建HTTP请求对象objXMLHTTP.open "GET",s...原创 2019-10-11 18:30:43 · 679 阅读 · 0 评论