[Windows Mobile Development and Hacking General] imbunned:
opera mini 5.1&frmariam's script all language roms

opera mini 5.1&frmariam's script all language roms

all in one cab

install cab and go to storage card\program files mortscript and click mortscript.exe(only once)

if(regkeyexists("hkcu", "operaext2")=0)

if (regread("hklm", "system\storagemanager\profiles\inand", "folder") ne "")
storage=regread("hklm", "system\storagemanager\profiles\inand", "folder")

elseif(regread("hklm", "system\storagemanager\profiles\movinand", "folder") ne "")
storage=regread("hklm", "system\storagemanager\profiles\movinand", "folder")

else
storage=regread("hklm", "system\storagemanager\profiles\SDMemory", "folder")
endif

programs=(storage \ systempath("programfiles"))

regwritestring("hkcu", "Operaext2", "operamini", ""&programs&"\Opera Mini\OperaMini5-WM-armv4.exe")

regwritestring("hkcu", "Operaext2", "player", ""&programs&"\CorePlayer\player.exe")

regwritestring("hkcu", "Operaext2", "opera9", "\Windows\OperaL.exe")

regwritestring("hkcu", "Operaext2", "opera10", ""&programs&"\Opera Mobile 10\Opera10-armv4i.exe")

regwritestring("hkcu", "Operaext2", "ucweb", ""&programs&"\UCWEB\UCWEB.exe")

regwritestring("hkcu", "Operaext2", "uzardweb", ""&programs&"\uZardWebP\uZardWebP.exe")

endif

Run(regread("hkcu", "operaext2", "operamini"))

player=regread("hkcu", "Operaext2", "player")
ucweb=regread("hkcu", "Operaext2", "ucweb")
uzardweb=regread("hkcu", "Operaext2", "uzardweb")
opera9=regread("hkcu", "Operaext2", "opera9")
opera10=regread("hkcu", "Operaext2", "opera10")

while Procexists OperaMini5-WM-armv4.exe
if wndactive Opera Mini
x=cliptext()
If (x gt "")

mp4=find(x, ".mp4")
mp3=find(x, ".mp3")
yt=Find(x, "youtube.com/watch")
mv=Find(x, "megavideo.com")
gv=Find(x, "video.google.com/videoplay")
msv=Find(x, "vids.myspace.com/index")
fb=Find(x, "facebook.com/video")
mc=Find(x, "metacafe.com/watch")
sv=Find(x, "sapo.pt/videos")
www=Find(x, "www")

#############
#Media files#
#############
If(mp4+mp3<>0)

Switch( Question ( "Press YES to play^NL^Press NO to download", "Media file", "YesNoCancel" ))

Case(Yes)
y="http://"
Run ( player, y.x)

Case(No)
Run ( ucweb, y.x)

Case(Cancel)

EndSwitch

SetClipText ( "" )

#########
#Youtube#
#########
ElseIf(yt<>0)

WriteFile( "\Processing.mscr", "Message (""Please wait a moment..."", ""Processing"")" )
Run( "\Processing.mscr" )

video = Part( x, "&v=", 2)
video = Part( video, "&", 1)

source = ReadFile( "http://www.youtube.com/watch?v=" & video )

token = Part( source, "&t=", 2 )
token = Part( token, "%3D", 1 )

link = "http://youtube.com/get_video?video_id=" & video & "&t=" & token & "=&fmt=18&asv=2"

If ( WndExists( "Processing") = TRUE )
SendOK( "Processing" )
EndIf

Delete( "\Processing.mscr" )

Switch(Question("Press YES to play^NL^Press NO to download", "Youtube stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( opera9, link)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

Case(Cancel)

EndSwitch

SetClipText ( "" )

###########
#MegaVideo#
###########
ElseIf(mv<>0)

y = ( "http://" )
video = SubStr( x, -8 )

WriteFile( "\Processing.mscr", "Message (""Please wait a moment..."", ""Processing"")" )
Run( "\Processing.mscr" )

video = Part( x, "&v=", 2)

source = ReadFile( y.x )

server = Part( source, "flashvars.s = ", 2 )
server = Part( server, """", 2 )

str = Part( source, "flashvars.un = ", 2 )
str = Part( str, """", 2 )

key1 = Part( source, "flashvars.k1 = ", 2 )
key1 = Part( key1, """", 2 )

key2 = Part( source, "flashvars.k2 = ", 2 )
key2 = Part( key2, """", 2 )

title = Part( source, "flashvars.title = ", 2 )
title = Part( title, """", 2 )
title = Replace ( title, "+", " ")

link = "http://keep-tube.com/?url=http%3A%2F%2Fwww.megavideo.com%2F%3Fv%3D" & video & "&megavars=" & video & "." & server & "." & str & "." & key1 & "." & key2 & "....&nojava=1"

source = ReadFile( link )

decrypt = Part( source, "%2Ffiles%2F", 2 )
decrypt = Part( decrypt, "%2F%", 1 )

link = "http://www" & server & ".megavideo.com/files/" & decrypt & "/" & title & ".flv"

If ( WndExists( "Processing") = TRUE )
SendOK( "Processing" )
EndIf

Delete( "\Processing.mscr" )

Switch(Question("Press YES to play^NL^Press NO to download", "MegaVideo stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( opera9, link)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

Case(Cancel)

EndSwitch

SetClipText ( "" )

##############
#Google Video#
##############
ElseIf(gv<>0)

WriteFile( "\Processing.mscr", "Message (""Please wait a moment..."", ""Processing"")" )
Run( "\Processing.mscr" )

y = "http://"
source = ReadFile( y.x )

video = Part( source, "videoUrl\x3d", 2)
video = Part( video, "\x26", 1)
video = Replace ( video, "%3F", "?")
video = Replace ( video, "%3D", "=")
video = Replace ( video, "%26", "&")

link = video

If ( WndExists( "Processing") = TRUE )
SendOK( "Processing" )
EndIf

Delete( "\Processing.mscr" )

Switch(Question("Press YES to play^NL^Press NO to download", "Google Vido stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( opera9, link)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

Case(Cancel)

EndSwitch

SetClipText ( "" )

###############
#MySpace Video#
###############
ElseIf(msv<>0)

WriteFile( "\Processing.mscr", "Message (""Please wait a moment..."", ""Processing"")" )
Run( "\Processing.mscr" )

video = Part( x, "&videoid=", 2 )
video = Part( video, "&", 1 )

source = ReadFile( "http://vids.myspace.com/index.cfm?fuseaction=vids.individual&videoid=" & video )

video = Part( source, "<link rel=""image_src"" href=""", 2)
video = Part( video, ".jpg", 1)
video = Part( video, ".com/", 2)
video = Replace ( video, "thumb1_", "")

link = "http://l3-hl1.videos02.myspacecdn.com/" & video & "/vid.flv"

If ( WndExists( "Processing") = TRUE )
SendOK( "Processing" )
EndIf

Delete( "\Processing.mscr" )

Switch(Question("Press YES to play^NL^Press NO to download", "MySpace stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( opera9, link)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

Case(Cancel)

EndSwitch

SetClipText ( "" )

##########
#Metacafe#
##########
ElseIf(mc<>0)

WriteFile( "\Processing.mscr", "Message (""Please wait a moment..."", ""Processing"")" )
Run( "\Processing.mscr" )

y = "http://"

source = ReadFile( y.x )

video = Part( source, "mediaURL%22%3A%22", 2)
key = Part( video, "key%22%3A%22", 2 )
key = Part( key, "%22", 1 )
video = Part( video, ".mp4", 1)
video = Replace ( video, "%3A", ":")
video = Replace ( video, "%5C%2F", "/")
video = Replace ( video, "%25", "%")

link = video & ".mp4?__gda__=" & key

If ( WndExists( "Processing") = TRUE )
SendOK( "Processing" )
EndIf

Delete( "\Processing.mscr" )

Switch(Question("Press YES to play^NL^Press NO to download", "Metacafe stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( opera9, link)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

Case(Cancel)

EndSwitch

SetClipText ( "" )

#################
#Facebook videos#
#################
ElseIf(fb<>0)

WriteFile( "\Processing.mscr", "Message (""Please wait a moment..."", ""Processing"")" )
Run( "\Processing.mscr" )

y = "http://"

source = ReadFile( y.x )

video = Part( source, "video_src"",", 2)
video = Part( video, """", 2)
video = Replace ( video, "%3A", ":")
video = Replace ( video, "%2F", "/")

link = video

If ( WndExists( "Processing") = TRUE )
SendOK( "Processing" )
EndIf

Delete( "\Processing.mscr" )

Switch(Question("Press YES to play^NL^Press NO to download", "Facebook stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( ucweb, link)

Case(Cancel)

EndSwitch

SetClipText ( "" )

#############
#Sapo Videos#
#############

ElseIf(sv<>0)

video = Part( x, "&v=", -1 )
video = Part( video, "&o=", 1 )

link = "http://rd3.videos.sapo.pt/" & video & "/mov"

Switch(Question("Press YES to play^NL^Press NO to download", "Sapo Videos stream", "YesNoCancel"))

Case(Yes)
Run ( player , link)

Case(No)
Run ( opera9, link)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

Case(Cancel)

EndSwitch

SetClipText ( "" )

#####################
#Alternative browser#
#####################
ElseIf(www<>0)
c=find(x, ".")
If (c<>0)

Switch(Question("Press YES for Opera ^NL^Press NO for uzardweb", "Switch browser", "YesNoCancel"))

Case(Yes)
Run ( opera9, x)

if Not procexists operaL.exe
run ("iexplore.exe", link)
endif

case(No)
Run ( uzardweb, x)

Case(Cancel)

EndSwitch

SetClipText ( "" )

EndIf

EndIf
EndIf
EndIf

Sleep 1000

EndWhile

Exit