Source Code for Yahoo! Annoyer

Here you go for people who have Yahoo Messeneger and wanna annoy you buddies this works only that i have tested on Yahoo Messenger 7.0.2.120

What this does is makes you sign off and on off really just makes you go under invisible mode and then displays you online again it floods your buddies with you sign on and invisible with the display messages heres the code…

add theses…
1 timer
1 Module
set timer Interval at 300 will do
also make the timer enable false
2 command buttons

inside command 1

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

inside command2

Private Sub Command2_Click()

Timer1.Enabled = Flase

End Sub

inside the timer1 add this…

Dim yahoobuddymain As Long

Dim x As Long, editx As Long

Dim Button As Long



On Error Resume Next

yahoobuddymain = FindWindow("yahoobuddymain", vbNullString)

PostMessage yahoobuddymain, WM_COMMAND, 32926, 0



DoEvents

x = FindWindow("#32770", vbNullString)

editx = FindWindowEx(x, 0&, "Edit", vbNullString)





DoEvents

x = FindWindow("#32770", vbNullString)

Button = FindWindowEx(x, 0&, "button", "&Invisible to Everyone")

Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)

Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)



DoEvents

yahoobuddymain = FindWindow("yahoobuddymain", vbNullString)

PostMessage yahoobuddymain, WM_COMMAND, 376, 0



DoEvents

x = FindWindow("#32770", vbNullString)

editx = FindWindowEx(x, 0&, "Edit", vbNullString)





DoEvents

x = FindWindow("#32770", vbNullString)

Button = FindWindowEx(x, 0&, "button", "&Available")

Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)

Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)

inside the module add…

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_KEYDOWN = &H100

Public Const WM_KEYUP = &H101

Public Const WM_COMMAND = &H111

Public Const VK_SPACE = &H20

Here it already compiled…