Rapidshare downloader Premium account

[io.kent]

This is the Source Code for Rapidshare Downloader Using Premium Account....

By Using this You Need

Webbrowser

Textbox

Button1 for Navigate

Button2 for Download

First You Need to Add the Webbrowser from the Toolbox

After that

Click the Form1 and Add this Code :-

[This will Load the Rapidshare Server

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Enabled = False
WebBrowser1.Navigate("http://www.rapidshare.com")
End Sub

Click the Button1 and Add this Code :-

This is Enter Ur Premium account Details and Login You In....

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
MsgBox("Please Wait !!.. 1 Minutes For the First Use", MsgBoxStyle.Information, "Rapidshare Premium Downloader")
With WebBrowser1.Document
.GetElementById("js-directlogin-username").SetAttribute("Value", "your Username")
.GetElementById("js-directlogin-password").SetAttribute("Value", "your password")
End With
Dim allelements2 As HtmlElementCollection = WebBrowser1.Document.All

For Each webpageelement As HtmlElement In allelements2

If webpageelement.GetAttribute("value") = "Login" Then

webpageelement.InvokeMember("click")

End If

Next
Catch
MsgBox("Please Try Again !!", MsgBoxStyle.Information, "Rapidshare Premium downloader")
End Try
End Sub

After that Add this Code :-

If the Document Completed It Enable the Program

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Me.Enabled = True
End Sub

At Last Click the Button2 and Add this Code :-

This will download Begin

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub

Enjoy..