Flood
Ecco a te:
1)Crea un modulo e metti questo codice:
CODICE
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SystemParamsLong Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
Const SPI_GETKEYBOARDSPEED = 10
Ora passiamo al form1.
1) Crea un timer con intervallo = 0 ed enabled = true
2) Crea 4 textbox dove andrà inserito il testo da flooddare
3) Vicino ad ogni textbox crea un option button.
Inserire questo codice:
CODICE
Private Sub Form_Load()
Dim Ritardo As Long
Timer1.Interval = Ritardo + 150
End Sub
Che servirà a dare un ritardo al timer.
Inserire poi questo codice:
CODICE
Private Sub Timer1_Timer()
If Option1.Value = True And GetAsyncKeyState(vbKeyF1) Then
SendKeys ("{enter}")
SendKeys (Text1.Text)
ElseIf GetAsyncKeyState(vbKeyF1) And Option1.Value = False Then
SendKeys (Text1.Text)
ElseIf Option2.Value = True And GetAsyncKeyState(vbKeyF2) Then
SendKeys ("{enter}")
SendKeys (Text2.Text)
ElseIf GetAsyncKeyState(vbKeyF2) And Option1.Value = False Then
SendKeys (Text2.Text)
ElseIf Option3.Value = True And GetAsyncKeyState(vbKeyF3) Then
SendKeys ("{enter}")
SendKeys (Text3.Text)
ElseIf GetAsyncKeyState(vbKeyF3) And Option1.Value = False Then
SendKeys (Text3.Text)
ElseIf Option4.Value = True And GetAsyncKeyState(vbKeyF4) Then
SendKeys ("{enter}")
SendKeys (Text4.Text)
ElseIf GetAsyncKeyState(vbKeyF4) And Option1.Value = False Then
SendKeys (Text4.Text)
End If
End Sub
Con questo codice ho dichiarato che quando un utente premerà F1 il primo testo verrà scritto, e se l'option button sarà cliccato il tasto enter sarà incluso, così che il messaggio su msn o dove volete voi sarà inviato da solo..
Fonte: ercorallino.forumcommunity.net
ah per quanto riguarda l'altra cosa dovresti sapere qualcosa sull'intercettazione di pacchetti che si scambiano client e server... comunque di solito per gli script si usa il C#
