Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii
 Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...
 Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor
 Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...

Renault Android
 

yahoo status change

- - - - -
  • Please log in to reply
1 reply to this topic

#1
dragosh_F

dragosh_F

    Junior Member

  • Grup: Members
  • Posts: 33
  • Înscris: 23.09.2005
salutare. de ceva zile incerc sa fac un programel in vb care sa schimbe statusul la yahoo. am gasit un cod cu care pot sa schimb statusul doar 1 data. arata cam asa:

	
On Error Resume Next
	
   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
	
	Set ws = CreateObject("wscript.shell")
	cyid = ws.RegRead("HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID")
	nysm = WebBrowser1.document.Body.innerHTML
	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

... cam asa arata, a suferit cateva modificari (il am de pe planet source code).

sper sa ma poata ajuta cineva. nu imi reomandati programe gen hyperim pt ca incerc sa fac ceva practic si in acelasi timp sa si invat. multzam :coolspeak:

#2
viper27

viper27

    Junior Member

  • Grup: Members
  • Posts: 53
  • Înscris: 09.05.2006
da-mi mai multe detalii !!! despre cum si in ce fel vrei sa ti se schimbe statusu !!!

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate