ZBLOG

vbs倒计时脚本

Sun, 27 Oct 2024 13:27:09 +0800

vbs倒计时脚本

rem msgbox now 'now is the system para

msgbox "倒计时",,"CreatedByXuTao"

dim limit

limit = int(inputbox("输入时间",,Setting))

dim a,b,c '保证只提醒一次

a=0

b=0

c=0

dim cur

cur = 0

m = hour(now)*60 + minute(now)

while cur<limit

cur = hour(now)*60+minute(now) - m

Wscript.sleep 10000

if limit-cur=10 and a=0 then

msgbox "10 Minutes Left!",,"Warnning"

a=1

elseif limit-cur=5 and b=0 then

msgbox "5 Minutes Left!",,"Warnning"

b=1

elseif limit-cur=1 and c=0 then

msgbox "1 Minute Left!",,"Warnning"

c=1

end if

wend

举例脚本（可直接复制至你的vbs文件）

rem msgbox now 'now is the system para

msgbox "倒计时",,"CreatedByXuTao"

dim limit

limit = int(inputbox("输入时间",,Setting))

dim a,b,c '保证只提醒一次

a=0

b=0

c=0

dim cur

cur = 0

m = hour(now)*60 + minute(now)

while cur<limit

cur = hour(now)*60+minute(now) - m

Wscript.sleep 10000

if limit-cur=10 and a=0 then

msgbox "10 Minutes Left!",,"Warnning"

a=1

elseif limit-cur=5 and b=0 then

msgbox "5 Minutes Left!",,"Warnning"

b=1

elseif limit-cur=1 and c=0 then

msgbox "1 Minute Left!",,"Warnning"

c=1

end if

wend

简易计算器的vbs脚本（2）

Sun, 27 Oct 2024 13:26:19 +0800

简易计算器的vbs脚本（2）此代码由风儿提供

msgbox "欢迎使用VBS简易计算机"

dim a,b,c,d

a=inputbox("请输入第一个数")

b=inputbox("请输入运算符")

c=inputbox("请输入第二个数")

a=int(a) '将a和c转换为整数 c=int(c) ' if b="+" then d=a + c ' if b="-" then d=a - c if b="*" then d=a * c if b="/" then d=a / c if a="" then '进行报错判定

msgbox "缺少参数",64,"Error" elseif b="" then msgbox "缺少运算符",64,"Error" elseif c="" then msgbox "缺少参数",64,"Error" else ' msgbox a&b&c&"="&d,,"计算完毕" End if

举例脚本（可直接复制至你的vbs文件）

msgbox "欢迎使用VBS简易计算机"

dim a,b,c,d

a=inputbox("请输入第一个数")

b=inputbox("请输入运算符")

c=inputbox("请输入第二个数")

a=int(a) '将a和c转换为整数 c=int(c) ' if b="+" then d=a + c ' if b="-" then d=a - c if b="*" then d=a * c if b="/" then d=a / c if a="" then '进行报错判定

msgbox "缺少参数",64,"Error" elseif b="" then msgbox "缺少运算符",64,"Error" elseif c="" then msgbox "缺少参数",64,"Error" else ' msgbox a&b&c&"="&d,,"计算完毕" End if

简易计算器的vbs脚本（1）

Sun, 27 Oct 2024 13:25:37 +0800

简易计算器的vbs脚本（1）

a=inputbox("乘法按1,加法按2,除法按3,减法按4","计算器")

if a="1" then

b=inputbox("请输入第一个数字","乘法")

c=inputbox("请输入第二个数字","乘法")

d=b*c

msgbox(d)

end if

if a="2" then

e=inputbox("请输入第一个数字","加法")

f=inputbox("请输入第二个数字","加法")

g=int(e)+int(f)

msgbox(g)

end if

if a="3" then

l=inputbox("请输入第一个数字","除法")

m=inputbox("请输入第二个数字","除法")

n=l\m

msgbox(n)

end if

if a="4" then

h=inputbox("请输入第一个数字","减法")

i=inputbox("请输入第二个数字","减法")

j=h-i

msgbox(j)

end if

举例脚本（可直接复制至你的vbs文件）

a=inputbox("乘法按1,加法按2,除法按3,减法按4","计算器")

if a="1" then

b=inputbox("请输入第一个数字","乘法模式")

c=inputbox("请输入第二个数字","乘法模式")

d=b*c

msgbox(d)

end if

if a="2" then

e=inputbox("请输入第一个数字","加法模式")

f=inputbox("请输入第二个数字","加法模式")

g=int(e)+int(f)

msgbox(g)

end if

if a="3" then

l=inputbox("请输入第一个数字","除法模式")

m=inputbox("请输入第二个数字","除法模式")

n=l\m

msgbox(n)

end if

if a="4" then

h=inputbox("请输入第一个数字","减法模式")

i=inputbox("请输入第二个数字","减法模式")

j=h-i

msgbox(j)

end if

自动打字的vbs脚本

Sun, 27 Oct 2024 13:24:54 +0800

自动打字的vbs脚本

set s = WScript.CreateObject("WScript.Shell")

app=s.Run ("C:\windows\notepad.exe")

code="pwzpwzdfllctdjbjlyqdxgsxdyzxxrzkly"

WScript.Sleep 1000

s.AppActivate app

s.SendKeys code

Wscript.quit

举例脚本（可直接复制至你的vbs文件）直接点击下载

set s = WScript.CreateObject("WScript.Shell")

app=s.Run ("C:\windows\notepad.exe")

code="pwzpwzdfllctdjbjlyqdxgsxdyzxxrzkly"

WScript.Sleep 1000

s.AppActivate app

s.SendKeys code

Wscript.quit

注销电脑的vbs脚本

Sun, 27 Oct 2024 13:24:34 +0800

注销电脑的vbs脚本

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Win32Shutdown(0)

举例脚本（可直接复制至你的vbs文件）直接点击下载

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Win32Shutdown(0)

新建文件夹的vbs脚本

Sun, 27 Oct 2024 13:23:56 +0800

新建文件夹的vbs脚本（新建在桌面上）（“vbs脚本大全网”是文件夹名称，可更改

Set objFso = CreateObject("Scripting.FileSystemObject")

objFso.CreateFolder "C:\Users\Administrator\Desktop\vbs脚本大全网"

Set objFso = Nothing

举例脚本（可直接复制至你的vbs文件）

Set objFso = CreateObject("Scripting.FileSystemObject")

objFso.CreateFolder "C:\Users\Administrator\Desktop\vbs脚本大全网"

Set objFso = Nothing

自动刷新网页、桌面的vbs脚本

Sun, 27 Oct 2024 13:22:26 +0800

自动刷新网页、桌面的vbs脚本（自动按“F5”）

Set objShell = CreateObject("Wscript.Shell")

WScript.Sleep 6000

objShell.SendKeys "{F5}"

WScript.Sleep 6000

objShell.SendKeys "{F5}"

loop

举例脚本（可直接复制至你的vbs文件）

Set objShell = CreateObject("Wscript.Shell")

WScript.Sleep 8000

objShell.SendKeys "{F5}"

WScript.Sleep 8000

objShell.SendKeys "{F5}"

loop

搜索磁盘内mp3文件的vbs脚本

Sun, 27 Oct 2024 13:21:52 +0800

搜索磁盘内mp3文件的vbs脚本

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colFiles = objWMIService. _

ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")

For Each objFile in colFiles

Wscript.Echo objFile.Name

举例脚本（可直接复制至你的vbs文件）

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colFiles = objWMIService. _

ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")

For Each objFile in colFiles

Wscript.Echo objFile.Name

获取屏幕分辨率的vbs脚本

Sun, 27 Oct 2024 13:21:27 +0800

获取屏幕分辨率的vbs脚本

Dim IE

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "about:blank"

Set screen = IE.Document.parentWindow.screen

WScript.Echo "分辨率:"& screen.width&"*"& screen.height

举例脚本（可直接复制至你的vbs文件）直接点击下载

Dim IE

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "about:blank"

Set screen = IE.Document.parentWindow.screen

WScript.Echo "分辨率:"& screen.width&"*"& screen.height

截屏的vbs脚本

Sun, 27 Oct 2024 13:20:13 +0800

截屏的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