Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Esplora Risorse Remote(ESR) - Server.frm

Server.frm

 Caricato da: P4p3r0g4
Scarica il programma completo

  1. Option Explicit
  2. Dim k, d, f, x As Integer
  3. Dim conteggio As Double
  4. Dim Drive(0 To 100) As String
  5. Dim file(0 To 200) As String
  6. Dim dir(0 To 150) As String
  7. Dim datiricevuti As String
  8. Private Sub Combo1_Click()
  9. On Error GoTo Error
  10. Drive1.Drive = Combo1.List(Combo1.ListIndex)
  11. Error:
  12. End Sub
  13. Private Sub Dir1_Change()
  14. File1.Path = Dir1.Path
  15. Call Aggiorna
  16. End Sub
  17. Private Sub Drive1_Change()
  18. On Error GoTo error_handler
  19. Dir1.Path = Drive1.Drive
  20. error_handler:
  21. End Sub
  22. Private Sub Aggiorna()
  23. List1.Clear
  24. List2.Clear
  25. For k = 0 To (Drive1.ListCount - 1)
  26. Drive(k) = Drive1.List(k)
  27. Combo1.List(k) = Drive(k)
  28. Next k
  29. List1.AddItem ("..")
  30. For d = 0 To (Dir1.ListCount - 1)
  31. dir(d) = Dir1.List(d)
  32. List1.List(d + 1) = dir(d)
  33. Next d
  34. For f = 0 To (File1.ListCount - 1)
  35. file(f) = File1.List(f)
  36. List2.List(f) = file(f)
  37. Next f
  38. resend
  39. End Sub
  40. Private Sub connetti()
  41.  
  42. wsk.Close
  43. wsk.LocalPort = 321
  44. wsk.Listen
  45.  
  46. wsk2.Close
  47. wsk2.RemotePort = 322
  48. wsk2.RemoteHost = "127.0.0.1"
  49. wsk2.Connect
  50.  
  51. Wsk3.Close
  52. Wsk3.LocalPort = 323
  53. Wsk3.Listen
  54.  
  55. Wsk4.Close
  56. Wsk4.RemotePort = 324
  57. Wsk4.RemoteHost = "127.0.0.1"
  58. Wsk4.Connect
  59. End Sub
  60. Private Sub Form_Load()
  61. connetti
  62. Aggiorna
  63. End Sub
  64. Private Sub List1_dblClick()
  65. On Error GoTo Error
  66. Dir1.Path = List1.List(List1.ListIndex)
  67. Error:
  68. End Sub
  69. Private Sub wsk2_Connect()
  70. Aggiorna
  71. End Sub
  72. Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
  73. If wsk.State <> sckClosed Then wsk.Close
  74. wsk.Accept requestID
  75. Aggiorna
  76. End Sub
  77. Private Sub wsk3_ConnectionRequest(ByVal requestID As Long)
  78. If Wsk3.State <> sckClosed Then Wsk3.Close
  79. Wsk3.Accept requestID
  80. End Sub
  81. Public Sub resend()
  82. On Error GoTo Error
  83. wsk2.SendData "start"
  84. DoEvents
  85. For k = 0 To List2.ListCount - 1
  86. wsk2.SendData "file:" & List2.List(k)
  87. DoEvents
  88. Next k
  89. For k = 0 To Combo1.ListCount - 1
  90. wsk2.SendData "drive:" & Combo1.List(k)
  91. DoEvents
  92. Next k
  93. For k = 0 To List1.ListCount - 1
  94. wsk2.SendData "dir:" & List1.List(k)
  95. DoEvents
  96. Next k
  97. Error:
  98. End Sub
  99. Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
  100. wsk.GetData datiricevuti
  101. If Mid(datiricevuti, 1, 6) = "drive:" Then
  102. Combo1.ListIndex = Mid(datiricevuti, 7, Len(datiricevuti) - 6)
  103. ElseIf Mid(datiricevuti, 1, 4) = "dir:" Then
  104. List1.ListIndex = Mid(datiricevuti, 5, Len(datiricevuti) - 4)
  105. List1_dblClick
  106. End If
  107. End Sub
  108. Private Sub Wsk3_DataArrival(ByVal bytesTotal As Long)
  109. Dim data3 As String
  110. Dim data4 As String
  111. Wsk3.GetData data3
  112. Open File1.Path & "\" & data3 For Binary As #1
  113. Wsk4.SendData "down"
  114. DoEvents
  115. data4 = Space(4000)
  116. For conteggio = 0 To CLng(LOF(1) / 4000)
  117. Get #1, conteggio * CLng(4000) + 1, data4
  118. Wsk4.SendData data4
  119. DoEvents
  120. Next conteggio
  121. Wsk4.SendData "Ter"
  122. DoEvents
  123. Close #1
  124. End Sub
  125. Private Sub Timer1_Timer()
  126. Select Case wsk.State
  127. Case sckConnected
  128. Text1.BackColor = RGB(100, 255, 100)
  129. Text1.Text = "Connected"
  130. Case sckClosed
  131. Text1.BackColor = RGB(255, 100, 100)
  132. Text1.Text = "Closed"
  133. Case sckListening
  134. Text1.BackColor = RGB(255, 255, 100)
  135. Text1.Text = "Listening.."
  136. Case sckConnectionPending
  137. Text1.BackColor = RGB(255, 255, 100)
  138. Text1.Text = "Connection Pending..."
  139. Case sckResolvingHost
  140. Text1.BackColor = RGB(100, 255, 100)
  141. Text1.Text = "Resolving Host.."
  142. Case sckConnecting
  143. Text1.BackColor = RGB(255, 255, 100)
  144. Text1.Text = "Connecting"
  145. Case sckClosing
  146. Text1.BackColor = RGB(255, 100, 100)
  147. Text1.Text = "Closing.."
  148. wsk.Close
  149. wsk.LocalPort = 321
  150. wsk.Listen
  151. Case sckError
  152. Text1.BackColor = RGB(255, 100, 100)
  153. Text1.Text = "!Error!"
  154. wsk.Close
  155. wsk.LocalPort = 321
  156. wsk.Listen
  157. End Select
  158. Select Case wsk2.State
  159. Case sckConnected
  160. Text2.BackColor = RGB(100, 255, 100)
  161. Text2.Text = "Connected"
  162. Case sckClosed
  163. Text2.BackColor = RGB(255, 100, 100)
  164. Text2.Text = "Closed"
  165. Case sckListening
  166. Text2.BackColor = RGB(255, 255, 100)
  167. Text2.Text = "Listening.."
  168. Case sckConnectionPending
  169. Text2.BackColor = RGB(255, 255, 100)
  170. Text2.Text = "Connection Pending..."
  171. Case sckResolvingHost
  172. Text2.BackColor = RGB(100, 255, 100)
  173. Text2.Text = "Resolving Host.."
  174. Case sckConnecting
  175. Text2.BackColor = RGB(255, 255, 100)
  176. Text2.Text = "Connecting"
  177. Case sckClosing
  178. Text2.BackColor = RGB(255, 100, 100)
  179. Text2.Text = "Closing.."
  180. wsk2.Close
  181. wsk2.RemotePort = 322
  182. wsk2.RemoteHost = "127.0.0.1"
  183. wsk2.Connect
  184. Case sckError
  185. Text2.BackColor = RGB(255, 100, 100)
  186. Text2.Text = "!Error!"
  187. wsk2.Close
  188. wsk2.RemotePort = 322
  189. wsk2.RemoteHost = "127.0.0.1"
  190. wsk2.Connect
  191. End Select
  192. Select Case Wsk3.State
  193. Case sckConnected
  194. Text3.BackColor = RGB(100, 255, 100)
  195. Text3.Text = "Connected"
  196. Case sckClosed
  197. Text3.BackColor = RGB(255, 100, 100)
  198. Text3.Text = "Closed"
  199. Case sckListening
  200. Text3.BackColor = RGB(255, 255, 100)
  201. Text3.Text = "Listening.."
  202. Case sckConnectionPending
  203. Text3.BackColor = RGB(255, 255, 100)
  204. Text3.Text = "Connection Pending..."
  205. Case sckResolvingHost
  206. Text3.BackColor = RGB(100, 255, 100)
  207. Text3.Text = "Resolving Host.."
  208. Case sckConnecting
  209. Text3.BackColor = RGB(255, 255, 100)
  210. Text3.Text = "Connecting"
  211. Case sckClosing
  212. Text3.BackColor = RGB(255, 100, 100)
  213. Text3.Text = "Closing.."
  214. Wsk3.Close
  215. Wsk3.LocalPort = 323
  216. Wsk3.Listen
  217. Case sckError
  218. Text3.BackColor = RGB(255, 100, 100)
  219. Text3.Text = "!Error!"
  220. Wsk3.Close
  221. Wsk3.LocalPort = 323
  222. Wsk3.Listen
  223. End Select
  224. Select Case Wsk4.State
  225. Case sckConnected
  226. Text4.BackColor = RGB(100, 255, 100)
  227. Text4.Text = "Connected"
  228. Case sckClosed
  229. Text4.BackColor = RGB(255, 100, 100)
  230. Text4.Text = "Closed"
  231. Case sckListening
  232. Text4.BackColor = RGB(255, 255, 100)
  233. Text4.Text = "Listening.."
  234. Case sckConnectionPending
  235. Text4.BackColor = RGB(255, 255, 100)
  236. Text4.Text = "Connection Pending..."
  237. Case sckResolvingHost
  238. Text4.BackColor = RGB(100, 255, 100)
  239. Text4.Text = "Resolving Host.."
  240. Case sckConnecting
  241. Text4.BackColor = RGB(255, 255, 100)
  242. Text4.Text = "Connecting"
  243. Case sckClosing
  244. Text4.BackColor = RGB(255, 100, 100)
  245. Text4.Text = "Closing.."
  246. Wsk4.Close
  247. Wsk4.RemotePort = 324
  248. Wsk4.RemoteHost = "127.0.0.1"
  249. Wsk4.Connect
  250. Case sckError
  251. Text4.BackColor = RGB(255, 100, 100)
  252. Text4.Text = "!Error!"
  253. Wsk4.Close
  254. Wsk4.RemotePort = 324
  255. Wsk4.RemoteHost = "127.0.0.1"
  256. Wsk4.Connect
  257. End Select
  258. End Sub