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 |
yahoo status change
Last Updated: Feb 03 2007 21:57, Started by
dragosh_F
, Sep 14 2006 03:13
·
0
#1
Posted 14 September 2006 - 03:13
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 |
#2
Posted 03 February 2007 - 21:57
da-mi mai multe detalii !!! despre cum si in ce fel vrei sa ti se schimbe statusu !!!
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users