Show Console.bas syntax highlighted
Attribute VB_Name = "Console"
'***************************************************
'*
'* AllToAVI
'*
'* Genesis Kiith 2006-2007
'*
'* genesis.kiith@gmail.com
'*
'***************************************************
Public firstlogs(41) As String
Public lastlogs(41) As String
Public currentfirst As Integer
Public currentlast As Integer
Public hProc As Long
Public Sub update_working(line As String)
'Pos: 325.4s 9757f (20%) 85.85fps Trem: 7min 156mb A-V:0.005 [691:127]
'Pos: 0.4s 13f ( 0%) 0.00fps Trem: 0min 0mb A-V:0.
On Error GoTo Err
Dim trem As String
Dim size As String
Dim curbit As String
Dim pos As Long
Dim pos2 As Long
Dim perc As Long
Dim speed As String
If currentfirst < 20 Then
firstlogs(currentfirst) = line
currentfirst = currentfirst + 1
GoTo SKIP
End If
If currentlast < 20 Then
lastlogs(currentlast) = line
currentlast = currentlast + 1
Else
currentlast = 0
End If
'Debug.Print currentlast
SKIP:
pos = InStr(1, line, "Trem:")
pos2 = InStr(pos + 6, line, "min")
trem = "Time Remaining: " & Mid(line, pos + 5, pos2 - 1 - pos - 4) & "min"
'Debug.Print trem
If Len(trem) > 24 Then GoTo Err
pos = InStr(1, line, "mb")
size = "Estimated Size: " & Mid(line, pos2 + 4, pos - pos2 - 4) & "mb"
'Debug.Print size
If Len(size) > 26 Then GoTo Err
pos = InStr(1, line, "[")
pos2 = InStr(1, line, "]")
curbit = "Current Bitrate [Video:Audio]: " & Mid(line, pos, pos2 + 1)
'Debug.Print curbit
If Len(curbit) > 47 Then GoTo Err
pos = InStr(1, line, "(")
pos2 = InStr(1, line, "%)")
perc = Int(Mid(line, pos + 1, pos2 - (pos + 1)))
'Debug.Print perc
pos = InStr(1, line, "fps")
pos2 = InStr(1, line, ") ")
speed = "Current Speed: " & Mid(line, pos2 + 2, pos - pos2 - 5) & "fps"
'Debug.Print speed
If Len(speed) > 28 Then GoTo Err
frm_working.lb_timeL.Caption = trem
frm_working.lb_bitrate.Caption = curbit
frm_working.lb_filesize.Caption = size
frm_working.lb_speed.Caption = speed
frm_working.pb.Value = perc
frm_working.Refresh
Err:
'Debug.Print "Errored"
End Sub
See more files for this project here
A program that batch convert ogm, mkv to avi, with subtitle and audio track selection, video resizing, bitrate selection and codec selection. It is centered around mencoder, with a commandline tool as well as a GUI for Window
Project homepage:
http://sourceforge.net/projects/alltoavi
Programming language(s): JavaScript,PHP,Visual Basic
License: other
BACKUP_REG/
BACK_Folder.reg
BACK_Star.reg
Reg_ShellExt_AllFiles_Convert.reg
Reg_ShellExt_AllFolders_Convert.reg
PSP/
AllToAVI_PMP_Mod_2002.zip
art/
ATA Cube.png
First_Fine_Edge_Fullbalck_.psd
First_Fine_Edge_Fullbalck_L.png
First_Fine_Edge_Fullbalck_Logo.bmp
First_Fine_Edge_Fullbalck_Logo2.bmp
First_Fine_Edge_Fullbalck_Logo_Final.png
First_Rough_Edge.psd
Icon.jpg
Icon.png
Icon.psd
Sidev1.jpg
Sig_Mai_Otome_Small_Border_.png
Splashv2.jpg
Splashv2.psd
Splashv2_2.jpg
Splashv2_3.jpg
Splashv2_4.jpg
Splashv2_6.jpg
Splashv2_text.psd
Splashv2_text_placement2.psd
Splashv2_with_bat.png
Splashv3.bmp
Splashv3_6.jpg
Thumbs.db
aero_link.cur
cube.ico
iconv2.ico
iconv2.jpg
iconv2_2.bmp
iconv2_2.jpg
sidev2.gif
sidev2.jpg
sidev3.jpg
splashv1_1_reflect.png
v3.psd
v3_Opt.jpg
v3_Opt.psd
bin/
mplayer/
QuickTime.qts
QuickTimeEssentials.qtx
asusasv2.dll
asusasvd.dll
atrac3.acm
atrc3260.dll
avizlib.dll
cook3260.dll
ctadp32.acm
divx_c32.ax
divxa32.acm
divxc32.dll
drv23260.dll
drv33260.dll
drv43260.dll
here.txt
huffyuv.dll
i263_32.drv
ir50_32.dll
ivvideo.dll
mencoder.exe
mpg4c32.dll
mpg4ds32.ax
mplayer.exe
msadp32.acm
msh261.drv
msvidc32.dll
pmp_muxer.exe
qdv.dll
sipr3260.dll
tm20dec.ax
vsshdsd.dll
wma9dmod.dll
wmadmod.dll
wmsdmod.dll
wmv8ds32.ax
wmv9dmod.dll
wmvadvd.dll
wmvdmod.dll
wmvds32.ax
zmbv.dll
components/
AdvancedProgressBar/
CompEdit/
Cool_XP_Progress/
doc/
manual/
fdl.txt
gpl.txt
fonts/
mplayer_Arial_14/
mplayer_Arial_18/
mplayer_Arial_24/
mplayer_Arial_28/
mplayer_bak/
logs/
debug.txt
debug2.txt
plugins/
a2a_plg_merger.exe
a2a_plg_merger.exe.manifest
a2a_plg_splitter.exe
a2a_plg_splitter.exe.manifest
plugins_src/
plg_merger/
plg_splitter/
serverSide/
update/
test files/
update/
001.html
002.html
003.html
413204.html
414132.html
414133.html
47144.html
top.jpg
web/
admin/
images/
tutorial/
THANKS TO HIRVINE
download.php
features.php
footer.php
header.php
index.php
rss.php
style.css
APB.oca
APB.ocx
AlltoaviV4.PDM
AlltoaviV4.res
AlltoaviV4.vbp
AlltoaviV4.vbw
Comp_intrn.dll
Comp_lst.dll
Comp_lst.txt
Console.bas
ConsoleInterface.bas
Ported.ocx
browserWnd.frm
browserWnd.frx
browserWnd.log
dlg_codec.frm
dlg_codec.frx
dlg_fps.frm
dlg_fps.frx
dlg_plugins.frm
dlg_plugins.frx
fontsize.frm
fontsize.frx
frmSplash.frm
frmSplash.frx
frm_PMP.frm
frm_PMP.frx
frm_action.frm
frm_action.frx
frm_h264.frm
frm_h264.frx
frm_main.frm
frm_main.frx
frm_options.frm
frm_options.frx
frm_working.frm
frm_working.frx
mXPFrameFix.bas
main.bas
mdXpThemeSupport.bas
modXPTheme2.bas
plugins.dll
split.txt
streaminfo.bas
test.bat
update.frm
update.frx