Referrer Link Generator Verfasst am: 17.06.2009, 14:35
Dieses Programm fügt den eingegebenen Links einen Refferer hinzu (in diesem Falle stealth.to)
Code:
<br />Public Class Form1 <br /> Dim ausgabe As String <br /> Dim reflink As String = "http://via.stealth.to/?" <br /> <br /> Private Sub Button2_Click(ByVal sender As System.Object, _<br /> ByVal e As System.EventArgs) Handles Button2.Click <br /> 'Generiert die Links<br /> Dim content() As String = TextBox1.Lines <br /> For i As Integer = 0 To TextBox1.Lines.Length - 1 <br /> ausgabe = ausgabe & reflink & content(i) & vbNewLine <br /> Next <br /> TextBox1.Text = ausgabe <br /> End Sub <br /> <br /> Private Sub Button1_Click(ByVal sender As System.Object, _<br /> ByVal e As System.EventArgs) Handles Button1.Click <br /> 'Leert die Textbox für eine erneute Eingabe<br /> TextBox1.Text = "" <br /> ausgabe = ""<br /> End Sub <br />End Class
Es könnte in etwa so aussehen:
Dieser Source wurde von serious geschrieben _________________