test

Code:

---

    Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********

        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

        prgStatus.Maximum = GetFileSize(strFilePath) '**********

        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub

---

HTML Code:

---

    Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********

        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

        prgStatus.Maximum = GetFileSize(strFilePath) '**********

        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub

---

PHP Code:

---

    Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********

        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

        prgStatus.Maximum = GetFileSize(strFilePath) '**********

        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub 


---

codehgh Code:

Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********
 
        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********
 
        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********
 
        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********
 
        prgStatus.Maximum = GetFileSize(strFilePath) '**********
 
        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub

Quote:

---

Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

OFD1.ShowDialog() '**********
strFilePath = OFD1.FileName '**********
strFileName = OFD1.SafeFileName '**********

Dim transfer As New FileTransferSend(strFilePath) '**********
AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

strHostName = System.Net.Dns.GetHostName() '**********
strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

prgStatus.Maximum = GetFileSize(strFilePath) '**********

send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
End Sub

---