Saturday, 7 July 2012

Creating BackLink Generator Using Vb.Net

Backlinks, which is also known as incoming links, inbound links, inlinks, or inward links, are incoming links to a website or web page. This links add importance to your website. Your website’s reputation is calculated using backlinks.

So more backlinks your website have, earn more reputation. This is good for SEO (Search Engine optimization). Actually links are the food for SEO.

How backlinks work?

Suppose A have a website and B have a website so if A and B share each other links on their website, search engines can find one’s website through others. So both website are now more visible to search engines.

Today i am going to show you how can we make a backlink generator using VB.Net. The technique is.

  1. Pick a URL
  2. Send to 100 different website to create backlinks

We use website to perform our task.

If you use this site directly then you have to add all of your links manually one by one. But our application can send links automatically.

Here is the code..

Imports System.IO
Public Class Form1
Dim prt1, prt2 As String
Dim cnt As Integer
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dz.DragDrop
If CBool(e.KeyState And 8) Then
e.Effect = DragDropEffects.Copy
e.Effect = DragDropEffects.Move
End If
SaveTextToFile(prt1.Trim + e.Data.GetData(DataFormats.Text).ToString + prt2.Trim, Application.StartupPath + "\page.html")
End Sub
Public Sub loadbrowser()
Me.WebBrowser1.Navigate(Application.StartupPath + "\page.html")
End Sub
Public Function SaveTextToFile(ByVal strData As String, ByVal FullPath As String, Optional ByVal ErrInfo As String = "") As Boolean
Dim bAns As Boolean = False
Dim objReader As StreamWriter
objReader = New StreamWriter(FullPath)
bAns = True
Catch Ex As Exception
ErrInfo = Ex.Message
End Try
Return bAns
End Function
Private Sub p_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dz.DragEnter
If e.Data.GetDataPresent(DataFormats.Text, True) Then
If CBool(e.KeyState And 8) Then
e.Effect = e.AllowedEffect And DragDropEffects.Copy
e.Effect = e.AllowedEffect And DragDropEffects.Move
End If
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
prt1 = "<form method="post" name="frm1" action="">Domain: <input size="40" name="domain" prt2="" /><input value="Generate" type="submit" name="Generate" /><small>ex: or</small></form>"
Me.Height = 72
Me.Width = 90
cnt = 0
End Sub
Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
If e.Button = MouseButtons.Left Then
Me.PictureBox2.Capture = False
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
End If
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
cnt = cnt + 1
If cnt >= 3 Then
MsgBox("Link Submitted Successfully!")
cnt = 0
End If
End Sub
End Class

Download this complete project : Backlink - 170KB