Zur Richtigstellung !!!!!!!

Knower · 01/18/2009, 20:54

Da fast alle meiner Programme die ich online gestellt habe gesgat wurde das es Viren/Viruse seine
gebe ich euch einfach mal den source code habe kb durchgehend gesagt zu bekommen oh lowposter des Ist virus last die finger davon etc
denn auch noch das manns net öffnen könne usw alle meine freunde können sie öffnen ansonsten wie wäre es mit Errornachricht naja hier mla die source

Source vom SpamBot:

Code:

public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")
       

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Timer3.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If GetAsyncKeyState(118) Then
            Timer3.Enabled = False
            Timer1.Enabled = False
        End If
        If GetAsyncKeyState(117) Then
            Timer1.Interval = TextBox2.Text
            Timer1.Enabled = True
        End If
        If GetAsyncKeyState(119) Then
            Timer3.Interval = TextBox2.Text
            Timer3.Enabled = True
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Interval = TextBox2.Text
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim TxtBx As TextBox = CType(sender, TextBox)
        Dim MatchPattern As String = "[^(0-9)|^,]+"
        If TxtBx.TextLength > 0 Then
            Dim Match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(TxtBx.Text, MatchPattern)
            If Match.Success Then
                MsgBox("Sie haben ein unerlaubtes Zeichen eingegeben: " & """" & Match.Value & """")
                Dim i As Integer = TxtBx.Text.IndexOf(Match.Value)
                TxtBx.Text = TxtBx.Text.Remove(i, Match.Length)
                Me.TextBox1.Select(i, 0)
                Me.TextBox1.ScrollToCaret()
            End If
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub Timer3_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")

        SendKeys.Send(TextBox1.Text + "1")
        SendKeys.Send("{Enter}")
    End Sub
End Class

Source vom PickUp:

Code:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer1.Interval = TextBox2.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(116) Then
            Timer1.Interval = TextBox2.Text
            Timer1.Enabled = True
        End If
        If GetAsyncKeyState(117) Then
            Timer1.Interval = TextBox2.Text
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim TxtBx As TextBox = CType(sender, TextBox)
        Dim MatchPattern As String = "[^(0-9)|^,]+"
        If TxtBx.TextLength > 0 Then
            Dim Match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(TxtBx.Text, MatchPattern)
            If Match.Success Then
                MsgBox("Sie haben ein unerlaubtes Zeichen eingegeben: " & """" & Match.Value & """")
                Dim i As Integer = TxtBx.Text.IndexOf(Match.Value)
                TxtBx.Text = TxtBx.Text.Remove(i, Match.Length)
                Me.TextBox1.Select(i, 0)
                Me.TextBox1.ScrollToCaret()
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Source vom PotterBot:

Code:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send(TextBox4.Text)


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = TextBox3.Text
        Timer1.Enabled = True
        Timer3.Enabled = True
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        SendKeys.Send(TextBox5.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Interval = TextBox3.Text
        Timer1.Enabled = False
        Timer3.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(116) Then
            Timer1.Interval = TextBox3.Text
            Timer1.Enabled = True
            Timer3.Enabled = True
        End If
        If GetAsyncKeyState(117) Then
            Timer1.Interval = TextBox3.Text
            Timer1.Enabled = False
            Timer3.Enabled = False
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim TxtBx As TextBox = CType(sender, TextBox)
        Dim MatchPattern As String = "[^(1-4)|^,]+"
        If TxtBx.TextLength > 0 Then
            Dim Match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(TxtBx.Text, MatchPattern)
            If Match.Success Then
                MsgBox("Sie haben ein unerlaubtes Zeichen eingegeben: " & """" & Match.Value & """")
                Dim i As Integer = TxtBx.Text.IndexOf(Match.Value)
                TxtBx.Text = TxtBx.Text.Remove(i, Match.Length)
                Me.TextBox1.Select(i, 0)
                Me.TextBox1.ScrollToCaret()
            End If
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim TxtBx As TextBox = CType(sender, TextBox)
        Dim MatchPattern As String = "[^(1-4)|^,]+"
        If TxtBx.TextLength > 0 Then
            Dim Match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(TxtBx.Text, MatchPattern)
            If Match.Success Then
                MsgBox("Sie haben ein unerlaubtes Zeichen eingegeben: " & """" & Match.Value & """")
                Dim i As Integer = TxtBx.Text.IndexOf(Match.Value)
                TxtBx.Text = TxtBx.Text.Remove(i, Match.Length)
                Me.TextBox1.Select(i, 0)
                Me.TextBox1.ScrollToCaret()
            End If
        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        Dim TxtBx As TextBox = CType(sender, TextBox)
        Dim MatchPattern As String = "[^(0-9)|^,]+"
        If TxtBx.TextLength > 0 Then
            Dim Match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(TxtBx.Text, MatchPattern)
            If Match.Success Then
                MsgBox("Sie haben ein unerlaubtes Zeichen eingegeben: " & """" & Match.Value & """")
                Dim i As Integer = TxtBx.Text.IndexOf(Match.Value)
                TxtBx.Text = TxtBx.Text.Remove(i, Match.Length)
                Me.TextBox1.Select(i, 0)
                Me.TextBox1.ScrollToCaret()
            End If
        End If
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
End Class

So und Nun nocheinmal es sind Keine viruse drine auch wenn ihr des meint....

Rawsteeey · 01/18/2009, 20:57

kk close plx!!1

USB Schnittstelle · 01/18/2009, 21:22

RICHTIGSTELLUNG !!!!!!!!!!!!!

Es heißt Viren, nicht Viruse

donduck · 01/18/2009, 21:35

Quote:

Originally Posted by USB Schnittstelle

RICHTIGSTELLUNG !!!!!!!!!!!!!

Es heißt Viren, nicht Viruse

Epic fail!

Selfowned.

Der Virus, die Viren.. erzähl nix anderes^^

Alex

USB Schnittstelle · 01/18/2009, 21:46

Quote:

Originally Posted by donduck

Epic fail!

Selfowned.

Der Virus, die Viren.. erzähl nix anderes^^

Alex

Und wieso ist das jetzt selfowned?

Obilee · 01/18/2009, 21:54

Weil du keine Freunde hast also ab in die Ecke und weine weil du dich self geowned hast.

Rawsteeey · 01/18/2009, 21:55

Quote:

Originally Posted by donduck

Epic fail!

Selfowned.

Der Virus, die Viren.. erzähl nix anderes^^

Alex

selfowned
er hat das richtige gesagt

Knower · 01/18/2009, 22:16

aber jetzt ist hoffentlich kla das ich keine Viren/Viruse reingecodet habe...
ich habe viele dumme Posts unter meinen proggs gehabt sie sind zwar nicht die besten aber jeder beginnt irgendwan und ist denn auf einem hohem level (nach langer zeit)
und die die sich beschweren sind meist auchnoch solche die nix davon verstehen

Cholik · 01/18/2009, 22:32

OMG hör endlich auf Viruses zu posten. Die Armen Leutes :E

Rawsteeey · 01/18/2009, 22:45

Quote:

Originally Posted by al_j

OMG hör endlich auf Viruses zu posten. Die Armen Leutes :E

genaus!

X-Matrix · 01/18/2009, 22:51

#Close

geht -.- scheiß Macht D:

invisible · 01/18/2009, 23:55

Sinnlose Posts kann man sich auch im Off-Topic Bereich sparen.
Vorallem als Mod.

#closed