Sky_小天

vbs 搞怪 msgbox"儿童节到了！！" msgbox"开心不！！祝你节日快乐啊！" dim j do while j<1 select case msgbox("我是不是你的小可爱？",68) case 6 j = 1 case 7 msgbox"这就是你不对了！" msgbox"再来一次！！！！" end select loop msgbox"这就乖了嘛！！" msgbox"那我的节日你不表示表示，给你个链接自己看着办！！" dim act,acv set act = creat

vsb 快捷打开多个应用 '相应应用的exe文件地址 program1 = "C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe" program2 = "C:\Program Files (x86)\Tencent\QQMusic\QQMusic1666.12.03.02\QQMusic.exe" program3 = "C:\Program Files (x86)\2345Soft\2345Explorer\2345Explorer.exe" set Iopen

vbs 自动打开QQ '电脑中QQ的exe文件地址 program1 = "C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe" set Iopen = createObject("wscript.shell") set p1 = Iopen.Exec(program1) wscript.sleep 1000 Iopen.AppActivate"QQ" Iopen.Sendkeys"{ENTER}"

** vbs 快速发送消息自设窗口名和次数版 ** Dim ordea Set ordea = wscript.CreateObject("wscript.shell") Dim name name = InputBox("请输入要发送的窗口名称：") ordea.AppActivate name Dim num num = InputBox("请输入发送次数：") For i = 1 To num wscript.sleep 100 ordea.SendKeys i For j = 1 T