Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Presbiopia - la 43 ani ?

Termen transcriere autovehicul

Cazare Timisoara pe 4-5 zile

Primele zile ale internetului per...
 Ditra 25

Casti USB-C ptr A-54

Aplicatie medicala / asistent med...

De ce vor atația politicieni...
 ERR_ADDRESS_UNREACHABLE

Legea 18/1968 Se mai aplica?

Digi conectare 2 routere prin fir

Succesiune notar versus instanta ...
 Montaj aer conditionat in balcon ...

Cont curent mulți valuta far...

Sugestii plan casa

Experiente cu firme care cumpara ...
 

VBS help

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

#1
bob32cc

bob32cc

    Junior Member

  • Grup: Members
  • Posts: 74
  • Înscris: 11.11.2005
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
Hato0be

Hato0be

    Junior Member

  • Grup: Members
  • Posts: 49
  • Înscris: 05.07.2006
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

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