[VB.NET] da VB6 a VB.NET

[c-enrico]

In questa funzione in vb.net se metto * 2024 nel riga
Dim sReadBuffer As String * 2024
mi segnala errore nelle righe dov'è sReadBuffer
Cosa devo fare?
Ringrazio per l'aiuto.

Enrico

[c-enrico]

In questa funzione in vb.net se metto * 2024 nel riga
Dim sReadBuffer As String * 2024
mi segnala errore nelle righe dov'è sReadBuffer
Cosa devo fare?
Ringrazio per l'aiuto.

Enrico

la funzione è questa

Public Function GetHTMLFromURL(sUrl As String) As String

        Dim sBuffer As String
        Dim hOpen As Long
        Dim hOpenUrl As Long
        Dim bDoLoop As Boolean
        Dim bRet As Boolean
        Dim sReadBuffer As String * 2024 
        Dim lNumberOfBytesRead As Long

        hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
        hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)

        bDoLoop = True
        While bDoLoop
            sReadBuffer = vbNullString
            bRet = InternetReadFile(hOpenUrl, sReadBuffer, 1024, lNumberOfBytesRead)
            sBuffer = sBuffer & Left(sReadBuffer, lNumberOfBytesRead)

            If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
        End While
 
        If hOpenUrl <> 0 Then InternetCloseHandle(hOpenUrl)
        If hOpen <> 0 Then InternetCloseHandle(hOpen)
 
        GetHTMLFromURL = sBuffer

    End Function

[c-enrico]

allora ho visto che si deve mettere

Dim sReadBuffer As String = 1024

sembra funzionare ma c'è un altro punto da risolvere


sBuffer = sBuffer & kj

dove kj è un carattere

da errore e non trovo la soluzione su Internet

ho cercato

aggiungere carattere in vb.net

ma non trovo niente

qualcuno mi vuole aiutare?

[oregon]

Ma perché con .NET utilizzi questi vecchisimi metodi?

Utilizza le classi appositamente esistenti (WebClient e simili) ... spiega cosa vuoi fare a prescindere dal codice e se ne parla meglio ...

[renygade]

Ma perché con .NET utilizzi questi vecchisimi metodi?

Utilizza le classi appositamente esistenti (WebClient e simili) ... spiega cosa vuoi fare a prescindere dal codice e se ne parla meglio ...

In assoluto accordo con Oregon, il codice che hai postato è stra superato perché VB.NET mette a disposizioni classi e metodi più efficaci e completi.
Ti basta 1 riga

Dim sourceString As String = New System.Net.WebClient().DownloadString("SomeWebPage")

Mi pare il minimo citare la fonte:
http://stackoverflow.com/questions/5...e-using-vb-net

[c-enrico]

Volevo aprire l'Url "http://tycho.usno.navy.mil/cgi-bin/timer.pl"
che da l'ora esatta e sincronizzare l'orologio di sistema
Un vecchio programma in vb6 ricava l'ora esatta ma non modifica
l'ora di sistema ed usa wininet.
Grazie per indirizzarmi sui nuovi programmi, seguirò i vostri suggerimenti.

Di sicuro avrò ancora bisogno di aiuto.

[oregon]

Non sono "nuovi programmi" ...

Se utilizzi .NET dovrai studiare il framework (con le classi e i metodi che ti serviranno).

Dovrai praticamente dimenticare l'approccio e il codice VB6 e riscrivere praticamente tutto.

[c-enrico]

Come mi avete suggerito ho provato il codice così
e funziona bene:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourceString As String = New System.Net.WebClient().DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
        Dim gs, ns As String
        Dim nn As Integer
        gs = sourceString.Substring(0, 200)
        nn = InStrRev(gs, ",")
        ns = Mid(gs, (nn + 2), 8)
        TextBox1.Text = ns

    End Sub

Grazie mille

[oregon]

Io direi che bastano queste due righe

Dim sourceString As String = New System.Net.WebClient().DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
TextBox1.Text = sourceString.Substring(sourceString.IndexOf(":") - 2, 8)

[c-enrico]

Urca che roba, io credo che non ci sarei mai arrivato,
grazie
ciao