苗启源的部落格

实现功能：
1.预算剩余时间
2.预测剩余进度
3.转换大小
4.自动调整比列
5.显示转换所有时间
6.显示调整所用时间
7.显示征途所有时间

下面给出程序源代码(r.vbs)

oh=640 ‘最大高度
op=10 ‘运行完等待时间，默认1000，即1秒
 
Function Mappath(v)
Mappath=fso.getAbsolutePathName(v)
End Function
 
Sub Convert
imgnum=fpo.files.count
wscript.echo "图片批量转换工具 1.0 By 苗启源"&vbCrlf&String(60,"=")
imgsta=timer()
imgi=1
for each file in fpo.files
if ucase(fso.getExtensionName(file))="JPG" Then
imgedit=timer()
wscript.echo "开始"&file.name&"转换…"
jpeg.open file
owidth=jpeg.originalwidth
oheight=jpeg.originalheight
[...]

‘QQ一键登陆代码
‘Design:MiaoQiyuan.cn
dim program
program="D:\Program Files\Tencent\QQ\QQ.exe"
rem
set Wshell=CreateObject("Wscript.Shell")
set oexec1=Wshell.Exec(program)
rem
wscript.Sleep 500
Wshell.SendKeys "QQ密码{TAB}"
wscript.Sleep 1
wshell.Sendkeys "QQ账号{ENTER}"
rem
set oexec2=Wshell.Exec(program)
rem
wscript.Sleep 1000
Wshell.appactivate "QQ密码"
Wshell.SendKeys "mqycn521{TAB}"
wscript.Sleep 1
Wshell.SendKeys "QQ账号{ENTER}"
rem