Oppure

Loading
29/10/06 19:38
alejandro
scusate se rompo i codici con le mie domande,ma il passaggio da VB a VB.net si sta presentando + dificile del previsto:D
domanda:
che fine a fatto il vecchio e bravo "App.path"???8-|

P.S. :per non aprire un altro topic aggiungo un'altra domanda:

If (My.Computer.Network.IsAvailable) Then
If My.Computer.Network.Ping("209.85.135.104", 1000) Then
TextBox2.Text = "OK.Computer en red"
Else
TextBox2.Text = "KO.Computer no en red"
End If
End If

mi chiede la conessione ( tramite firewall ) e poi mi ritorna False.ma VB6 a lo stesso ip mi pinga benissimo:grr:

scusate se rompo i codici con le mie domande,ma il passaggio da VB a VB.net si sta presentando + dificile del previsto:D
domanda:
che fine a fatto il vecchio e bravo "App.path"???8-|

P.S. :per non aprire un altro topic aggiungo un'altra domanda:

If (My.Computer.Network.IsAvailable) Then
If My.Computer.Network.Ping("209.85.135.104", 1000) Then
TextBox2.Text = "OK.Computer en red"
Else
TextBox2.Text = "KO.Computer no en red"
End If
End If

mi chiede la conessione ( tramite firewall ) e poi mi ritorna False.ma VB6 a lo stesso ip mi pinga benissimo:grr:

edit by netarrow: titolo fuori regolamento! ho sistemato io sta volta.
Ultima modifica effettuata da netarrow 03/11/06 11:25
aaa
01/11/06 5:37
GoLDBeRG
app.path è diventato application.startuppatch riguardo al ping non so ciao
aaa
02/11/06 17:02
Il Totem
Ho scritto poco tempo fa un programma sul ping in vb.net, vedi se riesci a trovarlo con il motore di ricerca del sito. Il nome dovrebbe, originalmente, essere 'ping'.
aaa
02/11/06 20:28
alejandro
no ho trovato il tuo lavoro :( se ce l'hai ancora il sorgente me lo potresti inviare via e-mail.cmq:
Public Class frmScanLink

    Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStart.Click
        Dim delta As Long
        If My.Computer.Network.IsAvailable Then
            For delta = 90 To 110
                Application.DoEvents()
                If My.Computer.Network.Ping((txIP.Text & delta), Val(txTimeOut.Text)) Then
                    txVentana.Text = txVentana.Text & (txIP.Text & delta) & _
                                     " -- Maquina conectada en red" & vbCrLf
                Else
                    txVentana.Text = txVentana.Text & (txIP.Text & delta) & _
                                     " -- Maquina no conectada en red" & vbCrLf
                End If
            Next
        End If
    End Sub

    Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click
        txVentana.Text = vbNullString
    End Sub
End Class

funge,male,ma funge:k:
il passaggio da vb6 al .net sta diventando un po ostico.lo stesso programma in vb6 va una canonata.
aaa