Yahoo! Messenger Dinamic Status

alexacrist are dreptate, oricum, nu conteaza cat de lunga este melodia, hyper IM schimba statusul la un interval de timp setat. Iar in legatura cu programelul acela frumos, de ce nu incercati sa il implementati in visual basic, este mult mai simplu decat sa va batetzi capul in C, si puteti accesa direct registry, avetzi si functzia timer, si are o interfatza mult mai placuta, iar programul final nu trebuie sa fie tzinut minimizat pe tot parcursul utilizarii, existand posibilitatea folosirii system tray. Daca sunteti interesati o sa postez si un cod care schimba statusul, iar daca avetzi nevoi de ajutor sau explicatzii aditzionale trebuie doar sa intrebatzi  :P

'By Rusvi
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim ws As Object
Dim cyid As String
Dim nysm As String
Dim yhwnd As String
Dim ydhwnd As String
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 Timer1_Timer()
On Error Resume Next
	Set ws = CreateObject("wscript.shell")
	cyid = ws.RegRead("HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID")
	nysm = "Prin orash... buzz daca e ceva..."
	


	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 Sub

Poate daca ma rugatzi frumos, rein si cu programelul gata facut...  :D

PS: Numai acum am observat k ultimul mesaj a fost prin noiembrie :P

imi explica si mie cineva unde trebuie facut asa ceva????plz

Daca te referi la programul cu care sa compilezi codul, este vorba de Visual Basic 6.

umpik prea complicat pt mine:)vroiam doar sa stiu unde trebuie modificat la alea 1000 de sec refreshul:)

Am si eu o intrebare: ati auzit vreodata de status flood? Daca nu stiti ce inseamna, va explic eu: daca schimbati rea des statusul la messenger, Yahoo vi-l blocheaza (intervalul pt cat timp ramane blocat este variabil, in functie de cat de sever a fost flood-ul). Mai pe romaneste: ceea ce vreti voi se poate, insa dupa cateva minute de folosire, veti ajunge cu statusul BLOCAT pentru cateva ore (sau mai mult...au fost cazuri in care a fost blocat o zi). Deci...spor la facut status dinamic

Surprize surprize, am revenit cu versiunea doi a programului, sper sa va placa... astept sugestii in continuare, momentan e versiune BETA, dak apar probleme anuntzatzi-ma ;)

Recunosc ca nu am incercat programul postat mai sus.

Insa, fiind un topic postat la Software la cerere, banuiesc ca nu este off-topic sa imi postez si eu creatia aici. :rolleyes:

Pentru fanii HyperIM, va fi disponibil in curand un plug-in, numit Sliding Status, cu care se poate crea un status animat (asa cum se vorbeste in acest topic). Diferenta fata de alte programe va fi ca:
- va functiona cu toate versiunile de YM, de la v7 pana la v9
- va functiona si cu alti clienti de IM (cum ar fi Miranda, GTalk, si toti ceilalti clienti suportati de HyperIM)
- va putea afisa ca status animat nu numai un simplu text, ci orice poate genera HyperIM (respectiv: melodia ascultata, ce faci acum, sau orice altceva ce se poate scoate din diferitele plug-in-uri)
- normal, va fi 100% freeware (fara adware, spyware, sau alte panarame) ;)

Postez si un screenshot, in premiera:
HIM_Sliding_Status.jpg

Momentan este in stadiul de ALFA VERSION, iar in cateva zile (sper) va aparea ca versiune BETA pe forumul HyperIM. :)
Daca vrea cineva sa fie ALFA/BETA tester (fara sa se inscrie pe forumul HyperIM), sa ma caute pe PM. ;)

Si..cum e?a iesit?
Da si tu un link  :worthy: