VB6 - Nudge Hack

[aClubSandwich from windsor]

I used to code in VB6 about a year and a half back. Then stopped because the warrock admin talked to me on msn (I'm fucking serious I have the e-mail on my msn). Anyhow, lets get started.

This gets pretty god dam annoying if your the victim.

Public WithEvents msn As MessangerAPI.Messanger
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendNudge Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const WM_close = &H10

Private Sub KewlButtons1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Set msn = New MessangerAPI.Messanger
End Sub

Private Sub Timer1_Timer()
For a = 1 To Text2.Text
msn.intstantmessanger (Text1.Text)
imwindowhwnd& = FindWindow("imwindowclass", vbsnullstring)
SendNudge imwindowhwnd&, &H111, &H2B1, ByVal 0&
SendNudge imwindowhwnd&, WH_close, 0, ByVal 0&
Next a
Timer1.Enabled = False
End Sub

[Hauskaz]

Pidgin makes this fairly trivial. Just spam /nudge.