vbs实用代码
vbs吧
全部回复
仅看楼主
level 2
warfid 楼主
各位大侠来点实用代码。。。供学习。。。。嘿嘿。。。求注释
2011年04月16日 14点04分 1
level 4
茶香a四逸
我点点点点点点点点点点点点点点点点点点点点点点
2011年04月17日 00点04分 2
level 6
bd_tianda
CreateObject...貌似没有这个脚本什么都干不了
2011年04月17日 01点04分 3
level 6
cracker2121
实用的很多啊..
2011年04月17日 05点04分 4
level 2
warfid 楼主
回复：4楼
[口水]比如一下呗
2011年04月17日 11点04分 5
level 8
Coo_boi
回复：3楼
额 GetObject和Set无奈的路过。。。
2011年04月17日 14点04分 6
level 6
1196307933
自动存盘工具：
dim ws,time,txtfilenameset
ws=createobject("wscript.shell")
time=inputbox("输入定时存盘的间隔时间（必须是数字，单位：秒）","设置")
time=int(time)
time=time*1000
txtfilename=inputbox("请输入将要存的文件名（英文）","设置")
txtfilename=lcase(txtfilename)
ws.run "notepad"
do
wscript.sleep 200
msgbox "准备完毕!",,"提示"
wscript.sleep 20
ws.appactivate "无标题 - 记事本"
do
wscript.sleep time
if msgbox("要存盘吗？",vbyesno)=vbyes then
wscript.sleep 20
ws.appactivate "无标题 - 记事本"
ws.sendkeys "%"
ws.sendkeys "{enter}"
ws.sendkeys "x"
ws.sendkeys "y"
wscript.sleep 400
ws.sendkeys txtfilename
ws.sendkeys "{enter}"
exit do
end if
loop
if msgbox("要退出吗？",vbyesno)=vbyes then
exit do
end if
ws.run txtfilename&".txt"
loop
2011年05月22日 07点05分 7
level 6
1196307933

计算器：dim gn,a1,a2,a3
gn=inputbox("请选择功能：1加 2减 3乘 4除")
if gn="1" then
a1=inputbox("请输入被加数")
a2=inputbox("请输入加数")
a1=cdbl(a1)
a2=cdbl(a2)
a3=a1+a2
msgbox(a1&"+"&a2&"="&a3)
elseif gn="2" then
a1=inputbox("请输入被减数")
a2=inputbox("请输入减数")
a1=cdbl(a1)
a2=cdbl(a2)
a3=a1-a2
msgbox(a1&"-"&a2&"="&a3)
elseif gn="3" then
a1=inputbox("请输入第一个因数")
a2=inputbox("请输入第二个因数")
a1=cdbl(a1)
a2=cdbl(a2)
a3=a1*a2msgbox(a1&"×"&a2&"="&a3)
elseif gn="4" then
a1=inputbox("请输入被除数")
a2=inputbox("请输入除数")
a1=cdbl(a1)
a2=cdbl(a2)
a3=a1/a2msgbox(a1&"÷"&a2&"="&a3)
else
msgbox("本程序没此功能！")
end if
我也刚开始学习的。。。
2011年05月22日 07点05分 8
1