Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
04/06/07 22:36
gecko6989
Volevo sapere se tramite un command button (o qualcos'altro)si poteva far aprire una pagina di internet explorer

Che dite???
aaa
05/06/07 7:29
MeTeMpSiCoSi
Intendi far aprire la pagina tramite IE, o vuoi aprire la pagina dentro il form?
aaa
05/06/07 11:23
SuperTiz
dentro il commandbutton schiaffaci questo:

Dim shell as Object
set shell = createobject ("shell.application";)
shell.open text1.text

creato un text1, dentro ci scrivi l'url della pagina web da aprire (es google.it)
senza apici e te la apre!

se invece vuoi fare il tutto senza bisogno di una textbox, dopo

shell.open

anzichè mettere text1.text scrivi l'url del sito da aprire (tra apici questa volta)

ciao ciao
aaa
05/06/07 14:55
gecko6989
e per chiudere la pagina web aperta come devo fare???

Grazie
aaa
05/06/07 16:22
SuperTiz
purtroppo non conosco un modo per chiudere con vb un applicazione aperta, ma solo terminarne il processo


metti questo in un commandbutton

For Each obj In GetObject("winmgmts:";).ExecQuery("select * fromWin32_Process WHERE Name='iexplore.exe'";)
obj.Terminate
Next



in questo modo termini il processo iexplore e quindi come se chiudessi la pagina web, però se ne hai due aperte ( o di più;) termina tutti i processi col nome iexplore.exe e quindi ti chiude tutte le pagine aperte... mi dispiace ma non conosco alternative (anche se ce ne sono)

ciao ciao
aaa
05/06/07 17:00
Hacker
se no utilizzare l'oggetto web browser di vb?
aaa
28/06/07 20:57
ma che c'è un modo semplicissimo!
Ringrazio Gius per il codice sorgente...
Basta che aggiungi un componente chiamato
"Microsoft internet control" e la metti sul form dopo di che la nomini "Web"
Dopo di che metti una textbox e dei command button
dopo di che prendi una commandbutton a caso... la chiami "VAI" e ci metti nel codice:
Web.Navigate "HTTP:\" & Text1.Text
text1.text è il nome della textbox che hai messo..
poi vabbeh puoi mettere il fatto che ti manda all'home page, alla pagina indietro, a quella avanti...


Un avvertimento! Quando farai il progetto non lanciarlo fai direttamente l'exe
in modo
che nn ti da problemi


In più quando vai ad aggiungere il componente fai prima sfoglia... e scegli shdocvw.dll dopo metti la spunta al componente... ciao!!!! fammi sapere!
22/06/08 17:32
comanque
Ciao a tutta la community...
Avrei un problema simile e spero che possiate
aiutarmi.
il mio problema inerente a questa discussione e':
che dopo aver aperto una istanza con shell.open "C:\pippo\remedy.exe" ( una applicazione web)come faccio a passare il controllo ad shdocvw?
Mi spiego meglio:
avviata l'istanza application vorrei acuisire i dati del web control con l'ocx shdocvw.
Function TCS()
Dim shell As Application
Dim IE As InternetExplorer
Set IE = New InternetExplorer
Set ShellApplication = CreateObject("Shell.Application";)
Dim C, D, E, F, G, H, L, M, fso, fsi
shell.Open "c:\Pippo\Remedy\aruser.exe"
IE.Navigate .........???
""avrei pensato alla ricerca dell'address bar
ma niente da fare""
End Function

Avete qualche idea?
Grazie anticipatamente
aaa