[Itsmezack]

This Is the ShareCash Downloader Source Uses PRemium Accounts...
It Is Only FOr Mirror Link Not Sharecash.org

By Doing THis Use Need

Textbox
Buttons
Button1 (Change to Navigate)
Button2 (Change to Download)


Let's The Coding Part....

After the Public Class Add This Code :-

Code:

Dim Iclick, submit

Click the Navigate Button Add This Code :-

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Please enter a valid URL")
        Else
            WebBrowser1.Navigate(TextBox1.Text)
            MsgBox("Succesfully navigated, please wait!")
            Button2.Enabled = True
        End If
End Sub

After the Documents Completed Navigating to Your Url (Goto the Download Page)

Code:

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Iclick = WebBrowser1.Document.GetElementById("Image19")
        submit = WebBrowser1.Document.GetElementById("button")
        If (WebBrowser1.DocumentText.Contains("Close")) Then
            WebBrowser1.Document.GetElementById("dark").InvokeMember("click")
        End If
End Sub

It is Only for Mirror So Add This Code (If Sharecash.org Link Enter Popup Message)

Code:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim str1 As String = (TextBox1.Text)
        If str1.Contains("sharecash") Then
            MsgBox("You must make your link a mirror!")
            TextBox1.Text = ""
        End If
    End Sub

On The Download Button Add This Final Code:-

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Iclick.InvokeMember("click")
        With WebBrowser1.Document
            .All("prem_username").InnerText = "l33ts" ' replace l33ts with your username
            .All("prem_password").InnerText = "l33ts" ' replace l33ts  with your password
        End With
        submit.InvokeMember("click")
    End Sub

Important:-

Code:

After Click Navigate Please Wait 1~2 Minutes then Click Download

Credits: DevilMayCry

[Falcon]

Thanks for this tut, bro, really nice.

[+Respawn]

Nice tut! Thanks for giving credit also

[Zealotry]

wait so we cant use this on reg. sharecash accs? and does this atually give money?

This is just for downloading with premium credits.

Thanks for the share, OP. I might port this over to Python, not sure.