[jaydeeph]

Hello HF,
I am able to share this all thanks for DevilMayCry. It's all his I'm just sharing it on HF I hope you don't mind.


[vb.net]4Shared Downloader Use Premium accont[vb.net][Source]

This is the Source Code for 4Shared 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 4Shared Server]

Code

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

Click the Button1 and Add this Code :-
This is Enter Ur Premium account Details and Login You In....

Code

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, "4Shared Premium Downloader")
            With WebBrowser1.Document
                .GetElementById("login").InvokeMember("click")
                .GetElementById("loginfield").SetAttribute("Value", "your Username")
                .GetElementById("passfield").SetAttribute("Value", "your password")
            End With
            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

            For Each webpageelement As HtmlElement In allelements

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

                    webpageelement.InvokeMember("click")

                End If

            Next
        Catch
            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "4Shared Premium downloader")
End Try
End Sub

After that Add this Code :-
If the Document Completed It Enable the Program

Code

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

At Last Click the Button2 and Add this Code :-
This will download Begin

Code

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

===========================================================================

[vb.net]zShare Downloader Use Premium accont[vb.net]

This is the Source Code for zShare 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 zShare Server-

Code

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

Click the Button1 and Add this Code :
This is Enter Ur Premium account Details and Login You In....-

Code

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, "zShare Premium Downloader")
            WebBrowser1.Document.GetElementById("username").SetAttribute("Value", "your username")
            WebBrowser1.Document.GetElementById("password").SetAttribute("Value", "your password")
            WebBrowser1.Document.GetElementById("submit").Invokemember("click")
        Catch
            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "zShare Premium downloader")
        End Try
End Sub

After that Add this Code :
If the Document Completed It Enable the Program-

Code

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

At Last Click the Button2 and Add this Code :
This will download Begin-

Code

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

============================================================================

[vb.net]FileFactory Downloader Use Premium accont[vb.net][Source]

This is the Source Code for FileFactory 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 FileFactory Server

Code

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

Click the Button1 and Add this Code :-
This is Enter Ur Premium account Details and Login You In....

Code

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, "FileFactory Premium Downloader")
            WebBrowser1.Document.GetElementById("email").SetAttribute("Value", "your username")
            WebBrowser1.Document.GetElementById("password").SetAttribute("Value", "your password")
            WebBrowser1.Document.GetElementById("submit").Invokemember("click")
        Catch
            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "FileFactory Premium downloader")
        End Try
End Sub

After that Add this Code :-
If the Document Completed It Enable the Program

Code

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

At Last Click the Button2 and Add this Code :-
This will download Begin

Code

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

===========================================================================

[vb.net]Uploading.com Downloader Use Premium accont[vb.net][Source]

This is the Source Code for Uploading.com 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 Uploading Server

Code

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

Click the Button1 and Add this Code :-
This is Enter Ur Premium account Details and Login You In....

Code

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, "Uploading Premium Downloader")
            With WebBrowser1.Document
                .GetElementById("login_button").InvokeMember("click")
                .GetElementById("email").SetAttribute("Value", "your Username")
                .GetElementById("password").SetAttribute("Value", "your password")
            End With
            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

            For Each webpageelement As HtmlElement In allelements

                If webpageelement.GetAttribute("type") = "submit" Then

                    webpageelement.InvokeMember("click")

                End If

            Next
        Catch
            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "Uploading Premium downloader")
        End Try
End Sub

After that Add this Code :-
If the Document Completed It Enable the Program

Code

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

At Last Click the Button2 and Add this Code :-
This will download Begin

Code

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

===========================================================================

Well That All.

Again A Very Big Thanks To DevilMayCry. If You Use Any Of These Codes Please Give Him Credits For These Codes.

IF You Really Liked This And Used The Codes Please Rate Thread, Thanks.

[jaydeeph]

Thanks for your feedback, Yh If someone Want to Make one and post in anywhere, It will be useful.

---

Wow 42 View and only 1 reply. Come one Guys No one like this.