Opera Mini 5.1 Native Windows Mobile+ Extra Options(UPDATED)
- Thread starter imbunned
- Start date
Improved MegaVideo support! Just copy the megavideo link and it'll do the rest (some stuff will show in the screen for moment but just let it work).
PS: I'm using Keep-Tube to get the most important part of the address (token2):
I believe it's "calculated" from the flashvars.s, flashvars.un, flashvars.k1, flashvars.k2 values from the page source. If anyone knows where I can find the formula I wouldn't need to piggy-back on Keep-Tube....
PS: I'm using Keep-Tube to get the most important part of the address (token2):
Code:
"http://www" & fvar_s & ".megavideo.com/files/" & token2 & "/video.flv"I believe it's "calculated" from the flashvars.s, flashvars.un, flashvars.k1, flashvars.k2 values from the page source. If anyone knows where I can find the formula I wouldn't need to piggy-back on Keep-Tube....
This is not my thread or project. The attached script was modified for personal usage. I'm just sharing it because I added a website (some people can find it useful... the method I used can be adapted to add more websites). If you wish to use this script you'll need to change it (it's tailored for my system language and apps... you can use it with whatever apps if you prefer).
I don't own a copy of CorePlayer (hence I don't use it... also because I despise what Core did to the TCPMP project) but I doubt that's the problem. Most likely you introduced a typo or forgot to change some of the paths to the apps (the script works fine in my device... the faults I experience are from the other apps).
PS: It may also be because of the Mortscript version (don't know why...). 4.3b15 is the latest version (more recent than the one bundled in the cab).
I don't own a copy of CorePlayer (hence I don't use it... also because I despise what Core did to the TCPMP project) but I doubt that's the problem. Most likely you introduced a typo or forgot to change some of the paths to the apps (the script works fine in my device... the faults I experience are from the other apps).
PS: It may also be because of the Mortscript version (don't know why...). 4.3b15 is the latest version (more recent than the one bundled in the cab).
Last edited:
for your favorite posts of xda-developers. check new message with mortscript. (only 7-8 kb data exchange, very speedy)
because it's the control that the link for example,
http://xdaforums.com/misc.php?do=whoposted&t=781203
Note: link format must be this
http://xdaforums.com/showthread.php?t=781203&page=5
independent opera. cab file to try
because it's the control that the link for example,
http://xdaforums.com/misc.php?do=whoposted&t=781203
Code:
o=find(x, "xdaforums.com")
m=find(x, "t=")
.
.
.
.
.
.
.
.
.
.
a=cliptext()
b=""""
c="Connect ""The Internet""^NL^b=""http://xdaforums.com/misc.php?do=whoposted&t=""^NL^err=find(address, ""t="")^NL^c=find(address, ""="")^NL^d=Substr(address, c+1)^NL^f=b.d^NL^if(err=0)^NL^message ""Invalid Address""^NL^exit^NL^endif^NL^x=readfile(f)^NL^y=find(x, ""Total Posts"")^NL^z=substr(x, y)^NL^q=find(z, "":"")^NL^w=substr(z, q+2)^NL^e=find(w, ""<"")^NL^r=substr(w, 0, e-1)^NL^if (regkeyexists(""hkcu"", ""xda"")=0)^NL^regwritestring(""hkcu"", ""xda"", name \ ""posts"", r)^NL^endif^NL^s=regread(""hkcu"", ""xda"", name \ ""posts"")^NL^if(s eq """")^NL^regwritestring(""hkcu"", ""xda"", name \ ""posts"", r)^NL^s=regread(""hkcu"", ""xda"", name \ ""posts"")^NL^endif^NL^if (r>s)^NL^regwritestring(""hkcu"", ""xda"", name \ ""posts"", r)^NL^if question ( r-s & "" "" & ""unread message. Do you want go to post"", name & "" "" & ""unread message"")^NL^createshortcut(""\Windows\a.lnk"", ""http://"" & address)^NL^run ""\Windows\a.lnk""^NL^delete ""\Windows\a.lnk""^NL^endif^NL^else^NL^message( ""No New Message"", name)^NL^endif"
d="address="
e="name="
f=input("Give a name..a shortcut will be created with this name (\My Documents\XDA)", "name", FALSE, TRUE)
g=".mscr"
j=systempath("documents")
if NOT direxists (j \ "\XDA")
mkdir (j \ "\XDA")
endif
m="\XDA\"
i="^NL^"
writefile(j.m.f.g, d.b.a.b.i.e.b.f.b.i.c)Note: link format must be this
http://xdaforums.com/showthread.php?t=781203&page=5
independent opera. cab file to try
Last edited:
hi firend
congrulations for megavideo work. but i think codecs may be porblems. for example on 2 vp6. tcpmp supported this codec but its slow playing to this codecs As you well know. see you later
Thanks for this
This is really TRUE and SAD
)
I prepare this script to polish roms m8 I edut mscr and change all patch for apps!
Got newstest one
hey thanks for your tweaks i use this as my default web browser.
i do have one issue though, i have a google search box on my today and when i use it it opens mini but, its using the vanilla opera mini and not using your tweaks.
do you think this can be fixed?
i do have one issue though, i have a google search box on my today and when i use it it opens mini but, its using the vanilla opera mini and not using your tweaks.
do you think this can be fixed?
fix
all language rom and youtube fixed(thanks to frmariam)
all language rom and youtube fixed(thanks to frmariam)
Code:
if(regkeyexists("hkcu", "operaext1")=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", "Operaext1", "operamini", ""&programs&"\Opera Mini\OperaMini5-WM-armv4.exe")
regwritestring("hkcu", "Operaext1", "player", ""&programs&"\CorePlayer\player.exe")
regwritestring("hkcu", "Operaext1", "opera9", "\Windows\OperaL.exe")
regwritestring("hkcu", "Operaext1", "opera10", ""&programs&"\Opera Mobile 10\Opera10-armv4i.exe")
regwritestring("hkcu", "Operaext1", "ucweb", ""&programs&"\UCWEB\UCWEB.exe")
regwritestring("hkcu", "Operaext1", "uzardweb", ""&programs&"\uZardWebP\uZardWebP.exe")
endif
Run(regread("hkcu", "operaext1", "operamini"))
player=regread("hkcu", "Operaext1", "player")
ucweb=regread("hkcu", "Operaext1", "ucweb")
uzardweb=regread("hkcu", "Operaext1", "uzardweb")
opera9=regread("hkcu", "Operaext1", "opera9")
opera10=regread("hkcu", "Operaext1", "opera10")
while Procexists OperaMini5-WM-armv4.exe
if wndactive Opera Mini
x=cliptext()
a=find(x, ".mp4")
b=find(x, ".mp3")
c=Find(x, "youtube.com/watch")
if(a+b<>0)
switch(Question("Mp4-Mp3 found.For watch press Yes, For Download press No", "Mp4", "YesNoCancel"))
case(yes)
y="http://"
Run ( player, y.x )
if NOT procexists player.exe
Message "CorePlayer not installed. pls install"
endif
case(no)
Run (ucweb, x)
if NOT procexists UCWEB.exe
Message "UCWEB not installed. pls install"
endif
case(cancel)
Endswitch
elseif(c<>0)
switch(Question("Youtube Video found.For watch press Yes, For Download press No", "Youtube", "YesNoCancel"))
case(yes)
d=part(x, "v=", 2)
e=part(d, "&", 1)
f=readfile("http://www.youtube.com/watch?v="&e&"")
g=part(f, "&t=", 2)
h=part(g, "&", 1)
i="&t="
j="&fmt=18&asv=2"
link="http://www.youtube.com/get_video?video_id="&e&i&h&j&""
Run (player, link)
if NOT procexists player.exe
Message "CorePlayer not installed. pls install"
endif
case(no)
d=part(x, "v=", 2)
e=part(d, "&", 1)
f=readfile("http://www.youtube.com/watch?v="&e&"")
g=part(f, "&t=", 2)
h=part(g, "&", 1)
i="&t="
j="&fmt=18&asv=2"
link="http://www.youtube.com/get_video?video_id="&e&i&h&j&""
Run(opera9, link)
if NOT procexists OperaL.exe
Run (opera10, link)
if NOT procexists Opera10-armv4i.exe
message "Opera Mobile Not installed. PLS install"
endif
endif
case(cancel)
endswitch
elseif(a+b=0)
k=find(x, ".")
if (k<>0)
switch(question("For Opera Mobile Press YES, for uZardWeb press NO", "Question", "YesNoCancel"))
case(yes)
Run(opera9, x)
if NOT procexists OperaL.exe
Run (opera10, x)
if NOT procexists Opera10-armv4i.exe
message "Opera Mobile Not installed. PLS install"
endif
endif
case(no)
Run (uzardweb, x)
if NOT procexists uZardWebP.exe
Message "uZardWebP not installed. pls install"
endif
case(cancel)
endswitch
endif
endif
endif
sleep 1000
endwhile
if NOT procexists OperaMini5-WM-armv4.exe
Disconnect
endif
Last edited:
Update
Ok so I added a bunch of website (didn't test very long though so there may be bugs). I intend to add a whole lot more but for now I must go study (no time to play).
The current script has lots of redundant code (will cleanup later... should make it a lot smaller).
So far supported:
Youtube
Megavideo (piggyback on keep-tube.com)
Google Video
Metacafe
MySpace videos
Facebook videos
Sapo Videos
As per usual this is my personal script (not the official one) and everyone is free to modify it (in fact you'll need to at least change the paths for all the apps to suit your device).
Ok so I added a bunch of website (didn't test very long though so there may be bugs). I intend to add a whole lot more but for now I must go study (no time to play).
The current script has lots of redundant code (will cleanup later... should make it a lot smaller).
So far supported:
Youtube
Megavideo (piggyback on keep-tube.com)
Google Video
Metacafe
MySpace videos
Facebook videos
Sapo Videos
As per usual this is my personal script (not the official one) and everyone is free to modify it (in fact you'll need to at least change the paths for all the apps to suit your device).
Doesn't work on my xperia x1, after following the installation steps, Opera Mini would not launch at all. When i uninstalled it and reinstall the official Opera Mini, it boots with a blank screen forever.
@marijanstanisic
You should consider changing antivirus. AFAIK every file in this thread is clean.
@Kellicros
The shortcut and scripts in the cab look for specific install paths (in English system localization). My scripts were tailored for Portuguese localization (apps installed to "A minha memória"). If your system setup is different you need to edit these components or else it won't work.
You should consider changing antivirus. AFAIK every file in this thread is clean.
@Kellicros
The shortcut and scripts in the cab look for specific install paths (in English system localization). My scripts were tailored for Portuguese localization (apps installed to "A minha memória"). If your system setup is different you need to edit these components or else it won't work.
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)
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)
Code:
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
ExitSimilar threads
Top Liked Posts
-
There are no posts matching your filters.
-
1@marijanstanisic
You should consider changing antivirus. AFAIK every file in this thread is clean.
@Kellicros
The shortcut and scripts in the cab look for specific install paths (in English system localization). My scripts were tailored for Portuguese localization (apps installed to "A minha memória"). If your system setup is different you need to edit these components or else it won't work.
New posts
-
-
[App][Beta] Stinger News - News and RSS feeds your way. [FREE] [NO ADS]
- Latest: Stephen.k.spear
-
[ROM][13][amogus] AOSP 13.0- Latest: \approx Riesi
