欢迎来到vbs脚本网
5本网站提供多元化的vbs脚本,并且永久免费复制下载,祝大家使用愉快!
关于网站的介绍,请看视频→
您现在看到的网页是第35版网页,此网站首次上线于2022年1月26日 20:50
本网站拒绝为台独分子提供服务!!!
统一有好处 “台独”是绝路 外人靠不住
如何新建一个vbs文件
新建一个vbs文件其实很简单
1.在桌面上点击鼠标右键,点击“新建(w)”再点击“文本文档”即新建了一个文本文档
2.右击刚刚新建的文本文档,选择“重名为(M)”将后缀txt改为vbs
3.在弹出“重名为”窗口时点击“是”就完成了vbs文件的新建
如何编辑vbs文件
右键你的vbs文件,点击“编辑”即会打开记事本,这样就可以开始编辑了。
详见视频演示
弹出弹出的vbs脚本
x=msgbox("窗口文本内容",0+64,"窗口标题")
举例脚本(可直接复制至你的vbs文件里)直接点击下载
x=msgbox("感谢您来到vbs脚本大全网站",0+64,"感谢")
打开程序的vbs脚本(calc.exe是计算器)
createobject("wscript.shell").run "calc.exe"
举例脚本(可直接复制至你的vbs文件里)(打开“画图”)直接点击下载
createobject("wscript.shell").run "mspaint.exe"
关闭程序的vbs脚本('Taskmgr.exe'可更改)
set bag1=getobject("winmgmts:\\.\root\cimv2")
set pipe1=bag1.execquery("select * from win32_process where name='Taskmgr.exe'")
For each i in pipe1
i.terminate()
next举例脚本(可直接复制至你的vbs文件里)直接点击下载
set bag1=getobject("winmgmts:\\.\root\cimv2")
set pipe1=bag1.execquery("select * from win32_process where name='Taskmgr.exe'")
For each i in pipe1
i.terminate()
next关机的vbs脚本('3600000'为关机倒计时,可更改)
dim WSHshell
set ws=wscript.createobject("wscript.shell")
ws.run "shutdown -s -t 3600000",0
举例脚本(可直接复制至你的vbs文件里)直接点击下载
dim WSHshell
set ws=wscript.createobject("wscript.shell")
ws.run "shutdown -s -t 10",0
重启的vbs脚本
Dim return
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重启计算机吗?",vbokcancel+vbexclamation,"注意!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if举例脚本(可直接复制至你的vbs文件里)直接点击下载
Dim return
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重启计算机吗?",vbokcancel+vbexclamation,"look out!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if调小音量的vbs脚本(调小2%)
Set Ws =CreateObject("Wscript.Shell")
Ws.Sendkeys "棶"
举例脚本(可直接复制至你的vbs文件里)(调小4%)直接点击下载
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "棶"
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "棶"调大音量的vbs脚本(调大2%)
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "棷"
举例脚本(可直接复制至你的vbs文件里)(调大4%)直接点击下载
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "棷"
Set Ws = CreateObject("Wscript.Shell")
Ws.Sendkeys "棷"检查c盘剩余容量的vbs脚本(C: 为 C盘, 可更改)
Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
Wscript.Echo cint(objLogicalDisk.FreeSpace / 1024 / 1024 / 1024) & "GB"举例脚本(可直接复制至你的vbs文件里)直接点击下载
Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
Wscript.Echo cint(objLogicalDisk.FreeSpace / 1024 / 1024 / 1024) & "GB"打开网站的vbs脚本(vbs666.mysxl.cn是网站名称,可更改)
GetObject("", "WScript.Shell").Run "https://vbs666.mysxl.cn"
举例脚本(可直接复制至你的vbs文件里)直接点击下载
GetObject("", "WScript.Shell").Run "https://eve666.mysxl.cn"
查看正在使用内存大小的vbs脚本
GSet wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM CIM_OperatingSystem")
For Each wmiObject In wmiObjects
all=wmiObject.TotalVisibleMemorySize
over=wmiObject.FreePhysicalMemory
next
use=all-over
msgbox use/1024/1024&"GB内存使用中"举例脚本(可直接复制至你的vbs文件里)直接点击下载
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM CIM_OperatingSystem")
For Each wmiObject In wmiObjects
all=wmiObject.TotalVisibleMemorySize
over=wmiObject.FreePhysicalMemory
next
use=all-over
msgbox use/1024/1024&"GB内存使用中(此代码由vbs脚本大全网开发)"定时提醒的vbs脚本
set WshShell = WScript.CreateObject("WScript.Shell")'
alerttitle = "定时提醒"'
alerttext = vbnewline & vbnewline & "休息一下,起来活动活动。" & vbnewline & vbnewline & vbnewline & "生命不止,运动不息! "& vbnewline & vbnewline & vbnewline
for i = 1 to 12 '
WScript.Sleep(1000*60*60) '
msgbox alerttext,4096,alerttitle
next举例脚本(可直接复制至你的vbs文件里)直接点击下载
set WshShell = WScript.CreateObject("WScript.Shell")'
alerttitle = "定时提醒"'
alerttext = vbnewline & vbnewline & "休息一下,起来活动活动。" & vbnewline & vbnewline & vbnewline & "生命不止,运动不息! "& vbnewline & vbnewline & vbnewline
for i = 1 to 12 '
WScript.Sleep(1000*60*60) '
msgbox alerttext,4096,alerttitle
next获取操作系统及其版本号的vbs脚本
'*by r05e
'*操作系统及其版本号
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.Caption & " " & objOperatingSystem.Version
Next举例脚本(可直接复制至你的vbs文件)直接点击下载
'*by r05e
'*操作系统及其版本号
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.Caption & " " & objOperatingSystem.Version
Next读书的vbs脚本
CreateObject("SAPI.SpVoice").Speak"输入想要说的内容"
举例脚本(可直接复制至你的vbs文件)直接点击下载
CreateObject("SAPI.SpVoice").Speak"感谢你登陆并采纳的vbs脚本大全网的脚本"
截屏的vbs脚本
strComputer = "."
With CreateObject("Word.Basic")
.Sendkeys "{prtsc}"
.FileQuit '.AppClose
End With
Msgbox "已截屏复制至剪贴板。", vbSystemModal+vbInformation, WScript.ScriptName
举例脚本(可直接复制至你的vbs文件)直接点击下载
strComputer = "."
With CreateObject("Word.Basic")
.Sendkeys "{prtsc}"
.FileQuit '.AppClose
End With
Msgbox "已截屏复制至剪贴板上。", vbSystemModal+vbInformation, WScript.ScriptName
脚本投稿邮箱:
fangqihang1717@163.com
vbs脚本大全网