[VB6 sp6] Problemi OPENURL

**benjy** · 12-01-2010, 18:43

Cari Amici, ho un problema. E' tutto il pomeriggio che ci sbatto e non riesco a capire cosa mi manca.
Sto provando l'uso del Controllo Microsoft Internet Transfer

. Come spiegate anche voi in alcune discussioni, questo codice

'Inet1.Proxy = "mioNomeProxy" ' non necessaria, si dice, mi collego con Alice ADSL

Inet1.AccessType = icNamedProxy

Text1.Text = Inet1.OpenURL("http://www.microsoft.com/bussys/readme.txt")

dovrebbe aprirmi nella casella testo il file readme.txt

Il problema è che non mi apre nulla senza dare errori, a volte mi va in timeout.
Comunque, se sostituisco l'URL con l'indirizzo FTP del mio spazio su virgilio, ove ho appoggiato un file di testo piccolissimo per prova, e provo a far girare la routine, non mi da nessun errore, anzi, l'istruzione di OPENURL la passa immediatamente (eseguendo il debug). Ma non dovrebbe darmi almeno un errore in quanto non fornisco user e password ? Anche settando USER e PWD su INET1, ho lo stesso risultato. Dove sto errando? Scommetto che ho tralasciato qualche stupidaggine della quale non sono a conoscenza. Grazie a tutti coloro i quali mi saranno di aiuto!!!

**oregon** · 12-01-2010, 19:57

Perchè non usi

Inet1.AccessType = icDirect

?

**benjy** · 12-01-2010, 20:19

Innanzitutto, un cordialissimo saluto Oregon,
Per quanto riguarda il problema da me sollevato, purtroppo ho provato le varie combinazioni.
Nel frattempo ho anche provato con il metodo EXECUTE, con il quale verifico che senza utente e pwd, da errore.

Visto che il tutto nasce con lo scopo di poter leggere e aggiungere dati ad un file posizionato sul mio spazio di virgilio, innanzitutto, sono sulla strada giusta?

**benjy** · 12-01-2010, 23:04

Ennesima prova:

Inet1.AccessType = icDirect

strURL = "ftp://ftp.microsoft.com/developr/vb/public/readme.txt"
Text1.Text = Inet1.OpenURL(strURL)

esito: timeout della richiesta.

Non riesco a capacitarmi.

**gibra** · 12-01-2010, 23:52

Questo funziona

codice:

    Dim strURL  As String
    With Inet1
        .AccessType = icDirect        
        .Protocol = icHTTP
        strURL = "http://www.filehippo.com/index.html"

        Text1.Text = .OpenURL(strURL, icString)
        While .StillExecuting: DoEvents: Wend
        
    End With

**benjy** · 13-01-2010, 00:06

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>FileHippo.com - Download Free Software</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="description" content="Fast downloads of the latest free software!" />
<meta name="keywords" content="download software freeware shareware program filehippo file hippo" />
<link rel="stylesheet" type="text/css" href="/inc/main5.css" />
<link rel="alternate" type="application/rss+xml" title="FileHippo.com RSS" href="http://feeds2.feedburner.com/filehippo" />
<link rel="search" type="application/opensearchdescription+xml" href="/inc/opensearch.xml" title="FileHippo.com" />
<link rel="icon" href="http://cache.filehippo.com/favicon.ico" type="image/x-icon" />
<script src="/inc/main2.js" type="text/javascript"></script>
</head>
<body>
<div id="upperbar">
<div id="links">Login</div>
<div id="searchbox">
<form name="f" action="/search">
<input type="text" id="q" name="q" maxlength="150" />
<input type="submit" id="search-submit" value="Search" />
</form></div></div>
<div id="header"><div id="head-logo">

</div>
<div id="head-right">

<a href="/updatechecker/">Download our FREE Update Checker

and scan your PC for the latest software updates!</a></div></div>
<div id="entire">
<div id="content">

<div id="content-full">

<center>

<div style="width:400px;margin:30px 0px 30px 0px" align="left">

<h1>404 Error</h1>

Sorry the page you requested could not be found.</p>

Click here to return to the homepage.</p>

</div>

</center>

</div>

</div>
<div class="bottombar">Homepage-About-Terms and Conditions-Advertise-Update Checker</div>
</div>
<div class="copybar">
<div class="copy-left">
© Copyright 2004-2010 FileHippo.com. All rights reserved.

v2.142</div>
<div class="copy-right">

All Updates</div>
</div>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-5815250-1");
pageTracker._trackPageview();
</script>
</body></html>

Caro Gibra,
questo è il risultato. Se non doveva essere questo, temo di avere qualcosa che non va a livello di settaggio del pc.
Modificando il tuo codice nel seguente modo

Dim strURL As String
With Inet1
.AccessType = icDirect

.Protocol = icFTP
strURL = "ftp://ftp.microsoft.com/developr/vb/public/readme.txt"

Text1.Text = .OpenURL(strURL, icString)
While .StillExecuting: DoEvents: Wend

End With

mi ricompare l'errore di timeout.

(mi sa che il terremoto mi ha scombussolato anche il pc :master: )

... e continua la scalata

P.S.: chiedo scusa, ma non so come fare a 'quotare' il codice. Pardon.

**oregon** · 13-01-2010, 00:30

Per FTP prova così

codice:

    With Inet1
        .AccessType = icDirect
        .Protocol = icFTP
        
        .URL = "ftp://ftp.microsoft.com"
        
        .Execute , "GET developr/vb/public/readme.txt local.txt"

        While .StillExecuting
            DoEvents
        Wend
    End With
    
    Open "local.txt" For Input As #1
    Text1.Text = Input(LOF(1), 1)
    Close #1

Il file temporaneo (local.txt) va cancellato, se esiste, prima di eseguire il codice.
Ho usato il canale #1 per comodità ... sarebbe necessario usare la FreeFile per ottenere un canale libero dal sistema.

**benjy** · 13-01-2010, 00:37

Come al solito.

6 sempre il migliore!!!!
Quindi, mi sembra di capire che URL non può puntare a sottocartelle!
Ora che sono stato messo sulla strada, cerco di camminare da solo... altrimenti richiederò aiuto.

Grazie a tutti quanti hanno collaborato.

**gibra** · 13-01-2010, 02:24

Originariamente inviato da benjy
Caro Gibra,
questo è il risultato. Se non doveva essere questo, temo di avere qualcosa che non va a livello di settaggio del pc.

Tranquillo, il risultato è corretto.

Originariamente inviato da benjy
P.S.: chiedo scusa, ma non so come fare a 'quotare' il codice. Pardon.

Lo vedi il tastino QUOTE (in basso a destra del post) ?

(sopra il pulsante Rispondi )

Discussione: [VB6 sp6] Problemi OPENURL

Strumenti discussione

Ricerca discussione

Visualizza

[VB6 sp6] Problemi OPENURL

Re: [VB6 sp6] Problemi OPENURL

Permessi di invio