SCM编码器的窗口化

2007-08-21 20:16:35

最近发现很多电影的后缀都是SCM 查阅了下资料发现这种格式还不错下面有简介

所以下个编码器试着编码可是执行的时候确实黑黑的DOS 而且要输入很多参数很不方便

本着懒人的原则就用windows script的vbscript写个脚本程序然后利用脚本编译工具编译成exe文件不敢独享特拿出分享下面列出脚本内容

' ----- ExeScript Options Begin -----
' ScriptType: window,activescript
' DestDirectory: current
' Icon: I:\脚本调试与编辑\ICOfile\dragon.ico
' OutputFile: D:\scmConverter\ScmConvert.exe
' CompanyName: CQIE
' FileVersion: 1.0.0.1
' LegalCopyright: foxhack
' ProductName: ScmConvert
' ProductVersion: 1.0.0.1
'EMail: foxhack@qq.com 或者 hh19860709@126.com QQ: 278563291
' ----- ExeScript Options End -----

dim RunConverter, FilePath
set RunConverter=Wscript.CreateObject("Wscript.shell") '定义SHELL对象
FilePath=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-14) '得到解码器文件工作的路径

Dim PutFile
        PutFile=savefile     '调用函数 SAVEFILE 得到保存的路径
Dim fso, WriteFile         '写入批处理文件便于直接调用
       Set fso = CreateObject("Scripting.FileSystemObject")    '创建文件对象
       Set WriteFile = fso.CreateTextFile(FilePath&"Converter.cmd", True) '调用文件函数
             WriteFile.Write (FilePath&"scmConverter.exe"&" "&"-i"&" "&strLoadFile&" -o"&" "&PutFile&" "&"-ci"&" "&FilePath&"cfg.ini"&" "&" -ii"&" "&FilePath&"insert.ini"&" -oi"&" "&FilePath&"overlay.ini"&" "&" -mi"&" "&FilePath&"menu.ini") '使用WRITE方法
             WriteFile.Close()                                                                                                            '关闭句柄

RunConverter.Run (FilePath&"Converter.cmd" ) '运行批处理

Function strLoadFile                                                                                                               '文件打开函数
Set objDialog = CreateObject("UserAccounts.CommonDialog")                                              '使用通用窗口方法
objDialog.Filter = "媒体文件 rmvb avi wmv|*.*"                                                                        '确定类型
objDialog.InitialDir = ""                                                                                                          '确定路径
tfile=objDialog.ShowOpen                                                                                                     '窗口类型
strLoadFile = objDialog.FileName                                                                                          '文件路径
if tfile=0 Then
wscript.quit
end If
End Function

Function savefile                                                                                                                 '文件保存函数
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = " "                                                                                                      '文件路径和名字
objDialog.FileType = ".scm"                                                                                                  '文件后缀
intReturn = objDialog.OpenFileSaveDlg                                                                                '窗口类型
savefile=objDialog.FileName&".scm"                                                                                    '调用文件路径
If intReturn Then
objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)                                            '如果确定则保存文件
Else                                                                                                                                     '否则对出处理
Wscript.Quit
End If
END Function

附件下载：
　　

SCM 编码器

上一篇新or注入教程　　下一篇 U盘变为RAW的数据恢复与解决办法

类别：脚本资料 ┆ 技术圈() ┆ 阅读() ┆ 评论() ┆推送到技术圈 ┆返回首页

相关文章

文章评论

[匿名]51CTO游客

2007-08-21 21:16:17

用windows script的vbscript写的脚本程序啊，收藏收藏

wfyang

2007-08-22 13:02:40

不错不错，果然是很适合懒人：)

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：

bleach

SCM编码器的窗口化