change status message in yahoo messenger
it changes the status message in yahoo messenger. i know there are many such already present on VBC, but i found them difficult to interpret (personal opinion no offence) and hence coded something myself which easiest for me and less code. any comments/suggestions/complaints are welcome!
Rate change status message in yahoo messenger
(4(4 Vote))
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 & "\custom 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
change status message in yahoo messenger Comments
No comments yet — be the first to post one!
Post a Comment