Newsgroup: it.comp.lang.visual-basic
Titolo: Come posso inviare un comando in una pagian html

Ciao a Tutti,
sto cercando di fare un programma VB che legge alcuni dati da una
pagina html, e dopo di che deve scrivere alcuni caratteri e dare un
comando di invio, vorrei sapere come faccio a scrivere i caratteri ed
a dare un comando di invio ??????

"Saso" 
IE come browser predefinito e settings di sicureszza su BASSI
' per trovare facilmente gli index (item) su qui lo script si basa :
http://www.filegone.com/05d8
' pasticciare (leggere/mettere ) coi dati
Set objIE = CreateObject("InternetExplorer.application")
' IE security settings MUST be set on LOW
objIE.Visible = True
    objIE.Navigate "
http://snipurl.com/index.php
"
 
       WScript.Sleep 2000
   Do While objIE.Busy = True
        WScript.Sleep 50
     Loop
objIE.document.forms.item(0).link.Value="
http://translate.google.com/translate_t
"
objIE.Document.all.item(106).click
WScript.Sleep 1000
GetText = objIE.document.parentwindow.clipboardData.GetData("text")
'msgbox GetText
 objIE.Navigate GetText
 
       WScript.Sleep 1000
   Do While objIE.Busy = True
        WScript.Sleep 50
     Loop
 objIE.document.forms.item(0).langpair.Value="de|en"
objIE.document.forms.item(0).text.Value="hier ist es einfacher"
objIE.Document.all.item(66).click
'set oShell = CreateObject("WScript.Shell")
'oShell.run"C:\PROGRA~1\INTERN~1\IEXPLORE.EXE -new "& GetText
'Copia incolla su notepad e salva con estensione .vbs   
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
'leggere l'HTML di una pagina web
x = TextFromHTML("
http://www.google.it/
") 
'WScript.Echo x 
Function TextFromHTML(URL) 
  set ie = createobject("InternetExplorer.Application") 
  ie.navigate URL 
  do until ie.readystate = 4 : wscript.sleep 10: loop 
  TextFromHTML = ie.document.body.outerHtml
  ie.quit 
End Function 
filename = "google.html" 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set newf = fso.createtextfile(filename) 
newf.WriteLine x 
x = TextFromHTML("
http://www.google.it/
") 
'WScript.Echo x 
Function TextFromHTML(URL) 
  set ie = createobject("internetexplorer.application") 
  ie.navigate URL 
  do until ie.readystate = 4 : wscript.sleep 10: loop 
  TextFromHTML = ie.document.body.innerHtml
  ie.quit 
End Function 
filename = "google.txt" 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set newf = fso.createtextfile(filename) 
newf.WriteLine x 
-- 
Fosco

 Set objIE = CreateObject("InternetExplorer.application")
PS:
tutto facilmente "trasportabile" in VB ... 
InternetExplorer.Application  e' il metodo piu completo e semplice IMHO
-- 
Fosco

 tutto facilmente "trasportabile" in VB ... 
NON ho la possibilita' di provarlo ma questo dovrebbe andare
Private Sub Form_Load()
Set objIE = CreateObject("InternetExplorer.application")
' IE security settings MUST be set on LOW
objIE.Visible = True
    objIE.navigate "
http://snipurl.com/index.php
"
 
     Pause 2
   Do While objIE.Busy = True
        Pause 1
     Loop
objIE.document.Forms.Item(0).link.Value _
= "
http://translate.google.com/translate_t
"
objIE.document.All.Item(106).Click
Pause 5
objIE.quit
End Sub
Private Sub Pause(sec As Single)
    Dim t As Single
    t = Timer
    While Timer <= t + sec
        DoEvents
    Wend
End Sub
-- 
Fosco

 wrote in message
news:4fo2a21avan9nkejf...@4ax.com

Non ho capito bene cosa intendi fare....dove li vuoi scrivere i
caratteri?
Spiegati meglio e vedrai che una soluzione la troviamo!
:-) Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Non ho ben capito...dove intendi scrivere alcuni caratteri?
Prova a spiegarti meglio e vedrai che una soluzione la troviamo
Ciao :-)



ha scritto:


 >
[cut]
...non solo funziona alla grande, ma a me funziona anche con i livelli 
protezione sicurezza di default. Addirittura funziona anche su pagine https 
!!
ciao e grazie da striker 
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php