by Dr Morphin (8 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 10th April 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
How do Manipulative Yahoo Messenger Status....;))
VBcoders
' By : Dr M0rphin
'Email me : [email protected]
'''''''''''''''''''''''''''''''''
Option explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Const WM_COMMAND = &H111
Private Sub Form_Load()
On Error Resume Next
Set ws = CreateObject("wscript.shell")
cyid = ws.RegRead("HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID")
nysm = InputBox("new yahoo status message?")
If nysm = "" Then
MsgBox "error!"
End
End If
ws.RegWrite "HKEY_CURRENT_USER\Software\yahoo\pager\profiles\" & cyid & "\custom msgs\1", nysm, "REG_SZ"
ws.RegDelete "HKEY_CURRENT_USER\Software\yahoo\pager\profiles\" & cyid & "\custom msgs\1_bin"
'if u want to show busy icon
'ws.RegWrite "HKEY_CURRENT_USER\Software
' \yahoo\pager\profiles\" & cyid & "\custo
' m msgs\1_dnd", 1, "REG_DWORD"
' if u dont want then
ws.RegWrite "HKEY_CURRENT_USER\Software\yahoo\pager\profiles\" & cyid & "\custom msgs\1_dnd", 0, "REG_DWORD"
yhwnd = FindWindow("YahooBuddyMain", vbNullString)
If yhwnd = 0 Then
End
Else
SendMessageLong yhwnd, WM_COMMAND, 388, 1&
ydhwnd = FindWindow("#32770", vbNullString)
If ydhwnd <> 0 Then
SendKeys ("{enter}")
End If
End If
End
End Sub
