08-13-2011, 05:31 PM
Hey guys , I thought about making a tutorial about how to make a $harecash downloader anyways I found this tutorial and I would like to share it with you guys . This is made in VB.net . I also give proper credits to the author of this .
What you need to do this :
Now go back to your form and double click on Button 1(Navigate) and add the following code :
After the Documents Completed Navigating to Your Url (Goto the Download Page)
It is only for mirror links so download so Add This Code (If $harecash.org Link Enter Popup Message)
Now go back again to your form and double click the Download button ( Button 2 ) and add this code :
There you go! Now you have made a $harecash downloader !
An important stuff to notice :
ALL CREDITS GO TO : DevilMayCry
What you need to do this :
- A textbox
- Button 1 ( Call it Navigate )
- Button 2 ( Call it Download )
Code:
Dim Iclick, submitCode:
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 SubCode:
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 SubCode:
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 SubCode:
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 = "Prominent" replace Prominent with your username
.All("prem_password").InnerText = "Prominent" replace Prominent with your password
End With
submit.InvokeMember("click")
End SubAn important stuff to notice :
- You need a premium $harecash account .
- Wait around 1 -2 minutes after click navigate please wait 1~2 minutes then click download .
- Add a web browser
ALL CREDITS GO TO : DevilMayCry
