[VB] Tipp @ Alle "Devil Kidz"

[SiNNeR]

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Timer1.Enabled = True
Text1.Locked = True
Text1.Text = Replace(Text1.Text, ":", "+.")
Text1.Text = Replace(Text1.Text, ";", "+,")
Text1.Text = Replace(Text1.Text, "/", "+7")
Text1.Text = Replace(Text1.Text, ")", "+9")
Text1.Text = Replace(Text1.Text, "(", "+8")
Text1.Text = Replace(Text1.Text, "%", "+5")
Text1.Text = Replace(Text1.Text, "!", "+1")
Text1.Text = Replace(Text1.Text, "=", "+0")

End Sub

Private Sub coundown_Click()
cOuntDown1.Show vbModeless, Me
End Sub

Private Sub Form_Load()
Label4.Caption = 10
End Sub

Private Sub Timer1_Timer()
Label4.Caption = Label4.Caption - 1
If Label4.Caption = 0 Then
    Timer1.Enabled = False
flood
    End If
End Sub
Public Sub flood()
On Error Resume Next
Dim i, Q As Integer
Dim anfang, ende As Long
Dim zufall, zufall2 As Single
Dim dreck As String
anfang = Timer
Text1.Locked = False
For i = 1 To Text3.Text
    Sleep 5
    SendKeys (Text1.Text)
    DoEvents
    If Check1.Value = 1 Then
    dreck = ""
        For Q = 1 To Text2.Text
                Randomize
                zufall = Int((Rnd * 2) + 1)
                If zufall = 1 Then
                    Randomize
                    zufall2 = Int((25 * Rnd) + 65)
                Else
                    Randomize
                    zufall2 = Int((25 * Rnd) + 97)
                End If
                dreck = dreck & Chr$(zufall2)
                DoEvents
        Next Q
        SendKeys (dreck)
    End If
    
    SendKeys ("{ENTER}")
    DoEvents
Next i
ende = Timer
Label4.Caption = cOuntDown1.Text1.Text
End Sub

Code für CountDown:

Private Sub Command1_Click()
Chatflooder.Label4.Caption = (Text1.Text)
Me.Hide
End Sub

Private Sub Command2_Click()
Me.Hide
End Sub

ziemlich einfach

Wer errattet was das ist bekommt die *.exe davon

 

[7H3 N4C3R]

Super. Was für ein tolles Programm

 

[lordZ]

[Ironie]... Und wie interessant ...[/Ironie]

 

[SiNNeR]

mögt ihr solche "n00b" progz net ?

das macht doch ab und zu mal spass chat4free user zu ärgern

 

[camelus]

uppe mal irgendwo die exe