Option Explicit
Dim k, d, f As Integer
Dim Drive(0 To 100) As String
Dim file(0 To 200) As String
Dim dir(0 To 150) As String
Dim datiricevuti As String
Private Sub List2_dblClick()
If Wsk4.State = sckConnected Then
Wsk4.SendData List2.List(List2.ListIndex)
End If
End Sub
Private Sub connetti()
wsk.Close
wsk.LocalPort = 322
wsk.Listen
Wsk3.Close
Wsk3.LocalPort = 324
Wsk3.Listen
Wsk4.Close
Wsk4.RemotePort = 323
Wsk4.RemoteHost = "127.0.0.1"
Wsk4.Connect
wsk2.Close
wsk2.RemotePort = 321
wsk2.RemoteHost = "127.0.0.1"
wsk2.Connect
End Sub
Private Sub Form_Load()
connetti
End Sub
Private Sub paint()
If Mid(datiricevuti, 1, 6) = "drive:" Then
Combo1.AddItem Mid(datiricevuti, 7, Len(datiricevuti) - 6)
ElseIf Mid(datiricevuti, 1, 4) = "dir:" Then
List1.AddItem Mid(datiricevuti, 5, Len(datiricevuti) - 4)
ElseIf Mid(datiricevuti, 1, 5) = "file:" Then
List2.AddItem Mid(datiricevuti, 6, Len(datiricevuti) - 5)
ElseIf Mid(datiricevuti, 1, 5) = "start" Then
List1.Clear
List2.Clear
Combo1.Clear
End If
End Sub
Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
If wsk.State <> sckClosed Then wsk.Close
wsk.Accept requestID
End Sub
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
wsk.GetData datiricevuti
paint
End Sub
Private Sub wsk3_ConnectionRequest(ByVal requestID As Long)
If Wsk3.State <> sckClosed Then Wsk3.Close
Wsk3.Accept requestID
End Sub
Private Sub Wsk3_DataArrival(ByVal bytesTotal As Long)
Dim data4 As String
Wsk3.GetData data4
If data4 = "down" Then
Open App.Path & "\" & List2.List(List2.ListIndex) For Binary As #1
ElseIf data4 = "Ter" Then
Close #1
Else
Put #1, , data4
End If
End Sub
Private Sub List1_dblClick()
On Error GoTo Error
wsk2.SendData "dir:" & List1.ListIndex
Error:
End Sub
Private Sub Combo1_Click()
On Error GoTo Error
wsk2.SendData "drive:" & Combo1.ListIndex
Error:
End Sub
Private Sub Timer1_Timer()
Select Case wsk.State
Case sckConnected
Text1.BackColor = RGB(100, 255, 100)
Text1.Text = "Connected"
Case sckClosed
Text1.BackColor = RGB(255, 100, 100)
Text1.Text = "Closed"
Case sckListening
Text1.BackColor = RGB(255, 255, 100)
Text1.Text = "Listening.."
Case sckConnectionPending
Text1.BackColor = RGB(255, 255, 100)
Text1.Text = "Connection Pending..."
Case sckResolvingHost
Text1.BackColor = RGB(100, 255, 100)
Text1.Text = "Resolving Host.."
Case sckConnecting
Text1.BackColor = RGB(255, 255, 100)
Text1.Text = "Connecting"
Case sckClosing
Text1.BackColor = RGB(255, 100, 100)
Text1.Text = "Closing.."
wsk.Close
wsk.LocalPort = 322
wsk.Listen
Case sckError
Text1.BackColor = RGB(255, 100, 100)
Text1.Text = "!Error!"
wsk.Close
wsk.LocalPort = 322
wsk.Listen
End Select
Select Case wsk2.State
Case sckConnected
Text2.BackColor = RGB(100, 255, 100)
Text2.Text = "Connected"
Case sckClosed
Text2.BackColor = RGB(255, 100, 100)
Text2.Text = "Closed"
Case sckListening
Text2.BackColor = RGB(255, 255, 100)
Text2.Text = "Listening.."
Case sckConnectionPending
Text2.BackColor = RGB(255, 255, 100)
Text2.Text = "Connection Pending..."
Case sckResolvingHost
Text2.BackColor = RGB(100, 255, 100)
Text2.Text = "Resolving Host.."
Case sckConnecting
Text2.BackColor = RGB(255, 255, 100)
Text2.Text = "Connecting"
Case sckClosing
Text2.BackColor = RGB(255, 100, 100)
Text2.Text = "Closing.."
wsk2.Close
wsk2.RemotePort = 321
wsk2.RemoteHost = "127.0.0.1"
wsk2.Connect
Case sckError
Text2.BackColor = RGB(255, 100, 100)
Text2.Text = "!Error!"
wsk2.Close
wsk2.RemotePort = 321
wsk2.RemoteHost = "127.0.0.1"
wsk2.Connect
End Select
Select Case Wsk3.State
Case sckConnected
Text3.BackColor = RGB(100, 255, 100)
Text3.Text = "Connected"
Case sckClosed
Text3.BackColor = RGB(255, 100, 100)
Text3.Text = "Closed"
Case sckListening
Text3.BackColor = RGB(255, 255, 100)
Text3.Text = "Listening.."
Case sckConnectionPending
Text3.BackColor = RGB(255, 255, 100)
Text3.Text = "Connection Pending..."
Case sckResolvingHost
Text3.BackColor = RGB(100, 255, 100)
Text3.Text = "Resolving Host.."
Case sckConnecting
Text3.BackColor = RGB(255, 255, 100)
Text3.Text = "Connecting"
Case sckClosing
Text3.BackColor = RGB(255, 100, 100)
Text3.Text = "Closing.."
Wsk3.Close
Wsk3.LocalPort = 324
Wsk3.Listen
Case sckError
Text3.BackColor = RGB(255, 100, 100)
Text3.Text = "!Error!"
Wsk3.Close
Wsk3.LocalPort = 324
Wsk3.Listen
End Select
Select Case Wsk4.State
Case sckConnected
Text4.BackColor = RGB(100, 255, 100)
Text4.Text = "Connected"
Case sckClosed
Text4.BackColor = RGB(255, 100, 100)
Text4.Text = "Closed"
Case sckListening
Text4.BackColor = RGB(255, 255, 100)
Text4.Text = "Listening.."
Case sckConnectionPending
Text4.BackColor = RGB(255, 255, 100)
Text4.Text = "Connection Pending..."
Case sckResolvingHost
Text4.BackColor = RGB(100, 255, 100)
Text4.Text = "Resolving Host.."
Case sckConnecting
Text4.BackColor = RGB(255, 255, 100)
Text4.Text = "Connecting"
Case sckClosing
Text4.BackColor = RGB(255, 100, 100)
Text4.Text = "Closing.."
Wsk4.Close
Wsk4.RemotePort = 323
Wsk4.RemoteHost = "127.0.0.1"
Wsk4.Connect
Case sckError
Text4.BackColor = RGB(255, 100, 100)
Text4.Text = "!Error!"
Wsk4.Close
Wsk4.RemotePort = 323
Wsk4.RemoteHost = "127.0.0.1"
Wsk4.Connect
End Select
End Sub
