Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Macro for Rapidshare
#31
I remember in olders QM versions it worked...On the same computer, with the same IE version.(Windows 2000 IE 6.0.2800.1106).
#32
One more thing:

out hd.GetHtml

<HTML><HEAD></HEAD>
<BODY><PRE>&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE&gt;RapidShare: 1-CLICK Web hosting - Easy Filehosting&lt;/TITLE&gt;
&lt;SCRIPT type=text/javascript&gt;
if (top != self) top.location = self.location;
if (document.URL.substr(7,7) == "intern.")
document.write('&lt;base href="http://rapidshare.com"&gt;');
&lt;/SCRIPT&gt;
&lt;LINK href="/img2/favicon.ico" type=image/ico rel=icon&gt;&lt;LINK href="/img2/favicon.ico" rel="SHORTCUT ICON"&gt;
&lt;META http-equiv=Content-Type content=text/html;charset=UTF-8&gt;
&lt;META content="Saso Nikolov" name=author&gt;
...

out hd.GetText

<HTML><HEAD><TITLE>RapidShare: 1-CLICK Web hosting - Easy Filehosting</TITLE>
<SCRIPT type=text/javascript>
if (top != self) top.location = self.location;
if (document.URL.substr(7,7) == "intern.")
document.write('<base href="http://rapidshare.com">');
</SCRIPT>
<LINK href="/img2/favicon.ico" type=image/ico rel=icon><LINK href="/img2/favicon.ico" rel="SHORTCUT ICON">
<META http-equiv=Content-Type content=text/html;charset=UTF-8>
<META content="Saso Nikolov" name=author>
...

Is it normal?
#33
Not normal.

It is bug in IE 5 and older IE 6 versions. In IE 6.0.2900 already fixed.
http://support.microsoft.com/?id=323569

I'll try to do something tomorrow.
#34
I test the macro

Macro Macro9
Code:
Copy      Help
;parameters
str url="http://rapidshare.com/files/342182548/Cambridge_Advanced_Learners_Dictionary.part4.rar"
str save_folder="$desktop$"

;-------------------

;download first page
HtmlDoc hd.InitFromWeb(url)

;get URL of second page
str s url2 sd
hd.GetForm(0 url2 sd)
;out url2
;out sd

;download second page
IntPost url2 "dl.start=Free" s
;out s ;;html of second page

;extract direct download link
str rx=
;<form name="dlf" action="(.+?)"
str url3
if(findrx(s rx 0 0 url3 1)<0) end "failed"
;out url3

;wait (because error if does not wait) and download
40
IntPost url3 "mirror=" s
;out s.len
;out s ;;file data if ok, or html error page if error

;save
str filename.getfilename(url3 1)
str save.from(save_folder "\" filename)
s.setfile(save)

in other pc, but doesn't download the file. Maybe rapidshare changed something. Can you help?
#35
Where fails?
Here it downloads file of size 5.8 KB.
#36
http://rapidshare.com/files/342182548/C ... .part4.rar | 51119 KB
#37
Change file extension to htm and you'll see that it is an error page.

"The download cannot be provided. Please check, if your browser supports Javascript."

Something changed in rapidshare. Need to download through web browser or web browser control. InitFromWeb and IntPost don't execute scripts, just download the web page.


Forum Jump:


Users browsing this thread: 1 Guest(s)