[Source]Sharecash Downloader Using Premium Credits

[Source]Sharecash Downloader Using Premium Credits - Printable Version

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: [Source]Sharecash Downloader Using Premium Credits (/Thread-Source-Sharecash-Downloader-Using-Premium-Credits)

[Source]Sharecash Downloader Using Premium Credits - Itsmezack - 11-11-2012

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

RE: [Source]Sharecash Downloader Using Premium Credits - Falcon - 11-11-2012

Thanks for this tut, bro, really nice.

RE: [Source]Sharecash Downloader Using Premium Credits - +Respawn - 11-11-2012

Nice tut! Thanks for giving credit also Wink

RE: [Source]Sharecash Downloader Using Premium Credits - Zealotry - 11-16-2012

(11-16-2012, 12:36 AM)Talen Wrote: 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.