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 |
VBS help
Last Updated: Jan 17 2007 19:02, Started by
bob32cc
, Jan 14 2007 14:09
·
0
#1
Posted 14 January 2007 - 14:09
Am si eu o intrebare pt vbs:
Am un cod care deschide o fereastra IEXPLORER si se logheaza pe pagina de mail cu userul si parola respectiva: On Error Resume Next Dim IE Dim document Dim elementsOnPage Set IE = CreateObject("InternetExplorer.Application") IE.Visible = true IE.Navigate2("PAGINA DE LOGARE") 'goto mailpage While(IE.Busy) WScript.Sleep(500) 'Ashteapta incarcarea paginii Wend Set document = IE.Document 'Ia documentul paginii incarcate ' toate elementele paginii Set elementsOnPage = document.all For Each element In elementsOnPage 'enumeram toate elementele pe pagina Dim nameVar nameVar = CStr(element.name) If(nameVar <> Empty) then if(nameVar = "Login") then dim tagVarName tagVarName = CStr(element.tagName) if(tagVarName <> empty) then if(tagVarName = "INPUT") then 'fa stuff o data ce ai gasit tampenia element.value = "USERNAME-UL" 'userul de mail end if end if end if end if 'de lene mai fac o data pt pass dim nameVarPass 'passwd nameVarPass = CStr(element.name) if(nameVarPass <> empty) then if(nameVarPass = "Pass") then dim passTagVarName passTagVarName = CStr(element.tagName) if(passTagVarName <> empty) then if(passTagVarName = "INPUT") then 'fa stuff daca a gasit input de pass element.value = "PAROLA" 'parola de mail end if end if end if end if Next For Each element In elementsOnPage 'enumeram toate elementele pe pagina 'mai facem o data pt activarea botonului de sign-in 'tre sa fim siguri ca e la sfarshit dim nameVarSButton nameVarSButton = CStr(element.name) if(nameVarSButton <> empty) then if(nameVarSButton = "buton_ok") then element.click end if end if next while(IE.busy) WScript.Sleep(500) wend Ce vreau eu: Sa fac un cod care sa imi deschida un program din Program Files si sa completeze niste spatii, sa apese pe anumite butoane etc. Se poate face asta? Multumesc. |
#2
Posted 17 January 2007 - 19:02
E posibil , cu conditia ca aplicatia din Program Files , pe care doresti sa o deschizi si sa o manipulezi in asa mod suporta "OLE Autmation". Cu alte cuvite , daca intr-o aplicatie nu e prevazuta asa functionalitate, dupa modalitatea care ai descris-o mai sus - nu poti controla cu elementele de pe fereastra. Ar fi o solutie sa manipulezi cu elementele ferestrei prin functii API.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users