Quote:
Originally Posted by cool_daniel
ich würde die finger von lassen.. lowpost hacks sind nich immer gefährlich aber vertrauen tu ich ihm trozdem net.. (siehe seine anderen posts)
|
Lol als wenn des virus wäre nä und wenn es gibt so viele Virenscan und ich habe ja wohl kaum den Hex. so gemacht das Antivire des net mekr hier haste source:
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.T ext, 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.T ext, 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.T ext, 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
EDIT
Dafür das es viele schlechtgemacht haben hat es trotzdem viele downloads bekommen