SCM编码器的窗口化

最近发现很多电影的后缀都是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: [email protected]   或者   [email protected]  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