Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. 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