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
EsR V2.0 - Client.frm

Client.frm

 Caricato da: P4p3r0g4
Scarica il programma completo

  1. Option Explicit
  2. Dim k, d, f As Integer
  3. Dim Drive(0 To 100) As String
  4. Dim file(0 To 200) As String
  5. Dim direc(0 To 150) As String
  6. Dim datiricevuti As String
  7. Dim IPAdress As String
  8. Dim Opzioni As Boolean
  9. Dim Savepath As String
  10. Dim updown As Integer
  11. Dim x As Integer
  12. Dim conteggio As Double
  13.  
  14. Private Sub Connect_Click()
  15. Timer1.Enabled = False
  16. IPAdress = Uppertext.Text
  17. SaveSetting "EsR", "Connessione", "IPAdress", IPAdress
  18. Timer1.Enabled = True
  19. connetti
  20. End Sub
  21.  
  22. Private Sub List2_dblClick()
  23. If Opzioni = False Then
  24. If Wsk4.State = sckConnected Then
  25. Wsk4.SendData List2.List(List2.ListIndex)
  26. End If
  27. Else
  28. If List2.ListIndex = 0 Then
  29. List2.Enabled = False
  30. Options.Enabled = False
  31. zscrit.Visible = True
  32. zscrit.Text = Savepath
  33. ElseIf List2.ListIndex = 1 Then
  34. If updown = True Then updown = False Else updown = True
  35. Opzioniliste
  36. End If
  37. End If
  38. End Sub
  39.  
  40.  
  41. Private Sub zscrit_KeyPress(KeyAscii As Integer)
  42. If KeyAscii = vbKeyReturn Then
  43. If Dir(zscrit.Text) = "" Or Not Right(zscrit.Text, 1) = "\" Then
  44. zscrit = List2.List(0)
  45. End If
  46. zscrit.Visible = False
  47. Savepath = zscrit.Text
  48. SaveSetting "EsR", "Path", "Savepath", Savepath
  49. Opzioniliste
  50. Options.Enabled = True
  51. List2.Enabled = True
  52. End If
  53. End Sub
  54.  
  55.  
  56. Private Sub connetti()
  57.  
  58. wsk.Close
  59. wsk.LocalPort = 322
  60. wsk.Listen
  61.  
  62. Wsk3.Close
  63. Wsk3.LocalPort = 324
  64. Wsk3.Listen
  65.  
  66. Wsk4.Close
  67. Wsk4.RemotePort = 323
  68. Wsk4.RemoteHost = IPAdress
  69. Wsk4.Connect
  70.  
  71. wsk2.Close
  72. wsk2.RemotePort = 321
  73. wsk2.RemoteHost = IPAdress
  74. wsk2.Connect
  75.  
  76. End Sub
  77.  
  78. Private Sub Form_Load()
  79. Savepath = GetSetting("EsR", "Path", "Savepath", App.Path & "\")
  80. IPAdress = GetSetting("EsR", "Connessione", "IPAdress", "127.0.0.1")
  81. Uppertext = IPAdress
  82. connetti
  83. End Sub
  84.  
  85. Private Sub paint()
  86. If Not Opzioni = True Then
  87. If Mid(datiricevuti, 1, 6) = "drive:" Then
  88. Combo1.AddItem Mid(datiricevuti, 7, Len(datiricevuti) - 6)
  89. ElseIf Mid(datiricevuti, 1, 4) = "dir:" Then
  90. List1.AddItem Mid(datiricevuti, 5, Len(datiricevuti) - 4)
  91. List3.AddItem Mid(datiricevuti, 5, Len(datiricevuti) - 4)
  92. ElseIf Mid(datiricevuti, 1, 5) = "file:" Then
  93. List2.AddItem Mid(datiricevuti, 6, Len(datiricevuti) - 5)
  94. ElseIf Mid(datiricevuti, 1, 5) = "start" Then
  95. List1.Clear
  96. List2.Clear
  97. List3.Clear
  98. Combo1.Clear
  99. End If
  100. End If
  101. End Sub
  102.  
  103. Private Sub localpaint()
  104. If Not Opzioni = True Then
  105. List4.Clear
  106. List5.Clear
  107. Combo1.Clear
  108. For x = 0 To Dril.ListCount - 1
  109. Combo2.AddItem Dril.List(x)
  110. Next x
  111. List4.AddItem ("..")
  112. For x = 0 To Dirl.ListCount - 1
  113. List4.AddItem Dirl.List(x + 1)
  114. Next x
  115. For x = 0 To Fill.ListCount - 1
  116. List5.AddItem Fill.List(x)
  117. Next x
  118. End If
  119. End Sub
  120.  
  121. Private Sub Options_Click()
  122. If Opzioni = False Then
  123. Opzioni = True
  124. Options.Enabled = False
  125. Connect.Enabled = False
  126. Combo1.Enabled = False
  127. Uppertext.Enabled = False
  128. List1.Enabled = False
  129. List1.Clear
  130. List2.Clear
  131. Uppertext.Text = "- - OPTIONS - -"
  132. If updown = False Then
  133. Do Until List1.Width = 1695
  134. List2.Width = List2.Width + 10
  135. List2.Left = List2.Left - 10
  136. List1.Width = List1.Width - 10
  137. DoEvents
  138. Loop
  139. Else
  140. List2.Clear
  141. List3.Clear
  142. List4.Clear
  143. List5.Clear
  144. Do Until List1.Left = 120
  145. List5.Left = List5.Left + 10
  146. List4.Left = List4.Left + 10
  147. List3.Left = List3.Left + 10
  148. List2.Left = List2.Left + 10
  149. List1.Left = List1.Left + 10
  150. DoEvents
  151. Loop
  152. Do Until Combo1.Left = 120
  153. Combo2.Left = Combo2.Left - 10
  154. Combo1.Left = Combo1.Left - 10
  155. Combo1.Width = Combo1.Width + 10
  156. DoEvents
  157. Loop
  158. End If
  159. Opzioniliste
  160. Options.Enabled = True
  161. Else
  162. Options.Enabled = False
  163. List1.Clear
  164. List2.Clear
  165. If updown = False Then
  166. Do Until List1.Width = 6135
  167. List2.Width = List2.Width - 10
  168. List2.Left = List2.Left + 10
  169. List1.Width = List1.Width + 10
  170. DoEvents
  171. Loop
  172. Else
  173. Do Until List3.Left = 120
  174. List5.Left = List5.Left - 10
  175. List4.Left = List4.Left - 10
  176. List3.Left = List3.Left - 10
  177. List2.Left = List2.Left - 10
  178. List1.Left = List1.Left - 10
  179. DoEvents
  180. Loop
  181. Do Until Combo2.Left = 120
  182. Combo2.Left = Combo2.Left + 10
  183. Combo1.Left = Combo1.Left + 10
  184. Combo1.Width = Combo1.Width - 10
  185. DoEvents
  186. Loop
  187. End If
  188. Uppertext.Text = IPAdress
  189. Connect.Enabled = True
  190. Uppertext.Enabled = True
  191. Combo1.Enabled = True
  192. List1.Enabled = True
  193. Options.Enabled = True
  194. Opzioni = False
  195. connetti
  196. localpaint
  197. End If
  198. End Sub
  199.  
  200. Private Sub Opzioniliste()
  201. List1.Clear
  202. List2.Clear
  203. List1.AddItem ("Download Path")
  204. List1.AddItem ("Upload Mode")
  205. List2.AddItem (Savepath)
  206. If updown = True Then List2.AddItem ("On") Else List2.AddItem ("Off")
  207. End Sub
  208.  
  209. Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
  210. If wsk.State <> sckClosed Then wsk.Close
  211. wsk.Accept requestID
  212. End Sub
  213. Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
  214. wsk.GetData datiricevuti
  215. paint
  216. End Sub
  217. Private Sub wsk3_ConnectionRequest(ByVal requestID As Long)
  218. If Wsk3.State <> sckClosed Then Wsk3.Close
  219. Wsk3.Accept requestID
  220. End Sub
  221. Private Sub Wsk3_DataArrival(ByVal bytesTotal As Long)
  222. Dim data4 As String
  223. Wsk3.GetData data4
  224. If data4 = "down" Then
  225. List1.Enabled = False
  226. List2.Enabled = False
  227. Combo1.Enabled = False
  228. Uppertext.Enabled = False
  229. Options.Enabled = False
  230. Connect.Enabled = False
  231. Uppertext.Text = "Downloading.."
  232. Open Savepath & List2.List(List2.ListIndex) For Binary As #1
  233. ElseIf data4 = "Ter" Then
  234. List1.Enabled = True
  235. List2.Enabled = True
  236. Combo1.Enabled = True
  237. Uppertext.Enabled = True
  238. Options.Enabled = True
  239. Connect.Enabled = True
  240. Uppertext.Text = IPAdress
  241. Close #1
  242. Else
  243. Put #1, , data4
  244. End If
  245. End Sub
  246. Private Sub List1_dblClick()
  247. On Error GoTo Error
  248. wsk2.SendData "dir:" & List1.ListIndex
  249. Error:
  250. End Sub
  251. Private Sub List3_dblClick()
  252. On Error GoTo Error
  253. wsk2.SendData "dir:" & List3.ListIndex
  254. Error:
  255. End Sub
  256. Private Sub Combo1_Click()
  257. On Error GoTo Error
  258. wsk2.SendData "drive:" & Combo1.ListIndex
  259. Error:
  260. End Sub
  261. Private Sub Combo2_Click()
  262. On Error GoTo Error
  263. Dril.Drive = Combo2.List(Combo2.ListIndex)
  264. Error:
  265. End Sub
  266. Private Sub Dirl_Change()
  267. Fill.Path = Dirl.Path
  268. localpaint
  269. End Sub
  270. Private Sub Dril_Change()
  271. On Error GoTo error_handler
  272. Dirl.Path = Dril.Drive
  273. error_handler:
  274. End Sub
  275. Private Sub List4_dblClick()
  276. On Error GoTo Error
  277. Dirl.Path = List4.List(List4.ListIndex)
  278. Error:
  279. End Sub
  280. Private Sub list5_dblClick()
  281. If Wsk4.State = sckConnected Then
  282. Dim data4 As String
  283. On Error GoTo Error
  284. List4.Enabled = False
  285. List5.Enabled = False
  286. List3.Enabled = False
  287. Combo1.Enabled = False
  288. Combo2.Enabled = False
  289. Uppertext.Enabled = False
  290. Options.Enabled = False
  291. Connect.Enabled = False
  292. Uppertext.Text = "Uploading.."
  293. Open Fill.Path & "\" & List5.List(List5.ListIndex) For Binary As #1
  294. Wsk4.SendData "upload:" & List5.List(List5.ListIndex)
  295. DoEvents
  296. data4 = Space(4000)
  297. For conteggio = 0 To CLng(LOF(1) / 4000)
  298. Get #1, conteggio * CLng(4000) + 1, data4
  299. Wsk4.SendData data4
  300. DoEvents
  301. Next conteggio
  302. Wsk4.SendData "upend"
  303. DoEvents
  304. Close #1
  305. List4.Enabled = True
  306. List5.Enabled = True
  307. List3.Enabled = True
  308. Combo1.Enabled = True
  309. Combo2.Enabled = True
  310. Uppertext.Enabled = True
  311. Options.Enabled = True
  312. Connect.Enabled = True
  313. Uppertext.Text = IPAdress
  314. End If
  315. Error:
  316. End Sub
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330. Private Sub Timer1_Timer()
  331. Select Case wsk.State
  332. Case sckConnected
  333. Text1.BackColor = RGB(100, 255, 100)
  334. Text1.Text = "Connected"
  335. Case sckClosed
  336. Text1.BackColor = RGB(255, 100, 100)
  337. Text1.Text = "Closed"
  338. Case sckListening
  339. Text1.BackColor = RGB(255, 255, 100)
  340. Text1.Text = "Listening.."
  341. Case sckConnectionPending
  342. Text1.BackColor = RGB(255, 255, 100)
  343. Text1.Text = "Connection Pending..."
  344. Case sckResolvingHost
  345. Text1.BackColor = RGB(100, 255, 100)
  346. Text1.Text = "Resolving Host.."
  347. Case sckConnecting
  348. Text1.BackColor = RGB(255, 255, 100)
  349. Text1.Text = "Connecting"
  350. Case sckClosing
  351. Text1.BackColor = RGB(255, 100, 100)
  352. Text1.Text = "Closing.."
  353. wsk.Close
  354. wsk.LocalPort = 322
  355. wsk.Listen
  356. Case sckError
  357. Text1.BackColor = RGB(255, 100, 100)
  358. Text1.Text = "!Error!"
  359. wsk.Close
  360. wsk.LocalPort = 322
  361. wsk.Listen
  362. End Select
  363. Select Case wsk2.State
  364. Case sckConnected
  365. Text2.BackColor = RGB(100, 255, 100)
  366. Text2.Text = "Connected"
  367. Case sckClosed
  368. Text2.BackColor = RGB(255, 100, 100)
  369. Text2.Text = "Closed"
  370. Case sckListening
  371. Text2.BackColor = RGB(255, 255, 100)
  372. Text2.Text = "Listening.."
  373. Case sckConnectionPending
  374. Text2.BackColor = RGB(255, 255, 100)
  375. Text2.Text = "Connection Pending..."
  376. Case sckResolvingHost
  377. Text2.BackColor = RGB(100, 255, 100)
  378. Text2.Text = "Resolving Host.."
  379. Case sckConnecting
  380. Text2.BackColor = RGB(255, 255, 100)
  381. Text2.Text = "Connecting"
  382. Case sckClosing
  383. Text2.BackColor = RGB(255, 100, 100)
  384. Text2.Text = "Closing.."
  385. wsk2.Close
  386. wsk2.RemotePort = 321
  387. wsk2.RemoteHost = IPAdress
  388. wsk2.Connect
  389. Case sckError
  390. Text2.BackColor = RGB(255, 100, 100)
  391. Text2.Text = "!Error!"
  392. wsk2.Close
  393. wsk2.RemotePort = 321
  394. wsk2.RemoteHost = IPAdress
  395. wsk2.Connect
  396. End Select
  397. Select Case Wsk3.State
  398. Case sckConnected
  399. Text3.BackColor = RGB(100, 255, 100)
  400. Text3.Text = "Connected"
  401. Case sckClosed
  402. Text3.BackColor = RGB(255, 100, 100)
  403. Text3.Text = "Closed"
  404. Case sckListening
  405. Text3.BackColor = RGB(255, 255, 100)
  406. Text3.Text = "Listening.."
  407. Case sckConnectionPending
  408. Text3.BackColor = RGB(255, 255, 100)
  409. Text3.Text = "Connection Pending..."
  410. Case sckResolvingHost
  411. Text3.BackColor = RGB(100, 255, 100)
  412. Text3.Text = "Resolving Host.."
  413. Case sckConnecting
  414. Text3.BackColor = RGB(255, 255, 100)
  415. Text3.Text = "Connecting"
  416. Case sckClosing
  417. Text3.BackColor = RGB(255, 100, 100)
  418. Text3.Text = "Closing.."
  419. Wsk3.Close
  420. Wsk3.LocalPort = 324
  421. Wsk3.Listen
  422. Case sckError
  423. Text3.BackColor = RGB(255, 100, 100)
  424. Text3.Text = "!Error!"
  425. Wsk3.Close
  426. Wsk3.LocalPort = 324
  427. Wsk3.Listen
  428. End Select
  429. Select Case Wsk4.State
  430. Case sckConnected
  431. Text4.BackColor = RGB(100, 255, 100)
  432. Text4.Text = "Connected"
  433. Case sckClosed
  434. Text4.BackColor = RGB(255, 100, 100)
  435. Text4.Text = "Closed"
  436. Case sckListening
  437. Text4.BackColor = RGB(255, 255, 100)
  438. Text4.Text = "Listening.."
  439. Case sckConnectionPending
  440. Text4.BackColor = RGB(255, 255, 100)
  441. Text4.Text = "Connection Pending..."
  442. Case sckResolvingHost
  443. Text4.BackColor = RGB(100, 255, 100)
  444. Text4.Text = "Resolving Host.."
  445. Case sckConnecting
  446. Text4.BackColor = RGB(255, 255, 100)
  447. Text4.Text = "Connecting"
  448. Case sckClosing
  449. Text4.BackColor = RGB(255, 100, 100)
  450. Text4.Text = "Closing.."
  451. Wsk4.Close
  452. Wsk4.RemotePort = 323
  453. Wsk4.RemoteHost = IPAdress
  454. Wsk4.Connect
  455. Case sckError
  456. Text4.BackColor = RGB(255, 100, 100)
  457. Text4.Text = "!Error!"
  458. Wsk4.Close
  459. Wsk4.RemotePort = 323
  460. Wsk4.RemoteHost = IPAdress
  461. Wsk4.Connect
  462. End Select
  463. End Sub