Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. 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