home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / ___P2P_Fil176620752004.psc / server / Form1.frm next >
Text File  |  2004-07-05  |  8KB  |  272 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form Form1 
  5.    BackColor       =   &H00FFFFFF&
  6.    Caption         =   "File Transter Server"
  7.    ClientHeight    =   3285
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   6615
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form1"
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   3285
  16.    ScaleWidth      =   6615
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin MSComDlg.CommonDialog fs 
  19.       Left            =   3840
  20.       Top             =   840
  21.       _ExtentX        =   847
  22.       _ExtentY        =   847
  23.       _Version        =   393216
  24.    End
  25.    Begin MSWinsockLib.Winsock wrec 
  26.       Left            =   2760
  27.       Top             =   240
  28.       _ExtentX        =   741
  29.       _ExtentY        =   741
  30.       _Version        =   393216
  31.       Protocol        =   1
  32.    End
  33.    Begin VB.TextBox fNames 
  34.       Height          =   285
  35.       Left            =   1320
  36.       Locked          =   -1  'True
  37.       TabIndex        =   9
  38.       Top             =   1560
  39.       Width           =   4935
  40.    End
  41.    Begin VB.TextBox Text2 
  42.       Height          =   285
  43.       IMEMode         =   3  'DISABLE
  44.       Left            =   1320
  45.       MaxLength       =   12
  46.       PasswordChar    =   "*"
  47.       TabIndex        =   6
  48.       Top             =   1200
  49.       Width           =   1455
  50.    End
  51.    Begin VB.PictureBox Picture3 
  52.       Align           =   2  'Align Bottom
  53.       BorderStyle     =   0  'None
  54.       Height          =   975
  55.       Left            =   0
  56.       ScaleHeight     =   975
  57.       ScaleWidth      =   6615
  58.       TabIndex        =   3
  59.       Top             =   2310
  60.       Width           =   6615
  61.       Begin VB.CommandButton Command1 
  62.          Caption         =   "Accept"
  63.          Height          =   375
  64.          Left            =   720
  65.          TabIndex        =   5
  66.          Top             =   480
  67.          Width           =   1455
  68.       End
  69.       Begin VB.CommandButton Command2 
  70.          Caption         =   "Close"
  71.          Height          =   375
  72.          Left            =   2400
  73.          TabIndex        =   4
  74.          Top             =   480
  75.          Width           =   1455
  76.       End
  77.    End
  78.    Begin VB.TextBox txtServer 
  79.       Height          =   285
  80.       Left            =   1320
  81.       Locked          =   -1  'True
  82.       TabIndex        =   2
  83.       Top             =   840
  84.       Width           =   1455
  85.    End
  86.    Begin VB.ListBox List1 
  87.       Height          =   1815
  88.       Left            =   5760
  89.       TabIndex        =   0
  90.       Top             =   3480
  91.       Visible         =   0   'False
  92.       Width           =   1215
  93.    End
  94.    Begin MSWinsockLib.Winsock wLogin 
  95.       Left            =   4560
  96.       Top             =   240
  97.       _ExtentX        =   741
  98.       _ExtentY        =   741
  99.       _Version        =   393216
  100.       Protocol        =   1
  101.    End
  102.    Begin VB.Timer Timer1 
  103.       Interval        =   1
  104.       Left            =   5760
  105.       Top             =   1200
  106.    End
  107.    Begin MSWinsockLib.Winsock Winsock1 
  108.       Left            =   5760
  109.       Top             =   360
  110.       _ExtentX        =   741
  111.       _ExtentY        =   741
  112.       _Version        =   393216
  113.       Protocol        =   1
  114.    End
  115.    Begin MSWinsockLib.Winsock wServer 
  116.       Left            =   1200
  117.       Top             =   120
  118.       _ExtentX        =   741
  119.       _ExtentY        =   741
  120.       _Version        =   393216
  121.       Protocol        =   1
  122.    End
  123.    Begin VB.Label Label2 
  124.       AutoSize        =   -1  'True
  125.       BackStyle       =   0  'Transparent
  126.       Caption         =   "File Name:"
  127.       BeginProperty Font 
  128.          Name            =   "MS Sans Serif"
  129.          Size            =   8.25
  130.          Charset         =   0
  131.          Weight          =   700
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       ForeColor       =   &H00404040&
  137.       Height          =   195
  138.       Index           =   0
  139.       Left            =   360
  140.       TabIndex        =   8
  141.       Top             =   1560
  142.       Width           =   915
  143.    End
  144.    Begin VB.Label Label2 
  145.       AutoSize        =   -1  'True
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   "Password:"
  148.       BeginProperty Font 
  149.          Name            =   "MS Sans Serif"
  150.          Size            =   8.25
  151.          Charset         =   0
  152.          Weight          =   700
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       ForeColor       =   &H00404040&
  158.       Height          =   195
  159.       Index           =   1
  160.       Left            =   360
  161.       TabIndex        =   7
  162.       Top             =   1200
  163.       Width           =   885
  164.    End
  165.    Begin VB.Label Label3 
  166.       BackStyle       =   0  'Transparent
  167.       Caption         =   "Remote:"
  168.       BeginProperty Font 
  169.          Name            =   "MS Sans Serif"
  170.          Size            =   8.25
  171.          Charset         =   0
  172.          Weight          =   700
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       ForeColor       =   &H00404040&
  178.       Height          =   375
  179.       Left            =   480
  180.       TabIndex        =   1
  181.       Top             =   840
  182.       Width           =   1815
  183.    End
  184. End
  185. Attribute VB_Name = "Form1"
  186. Attribute VB_GlobalNameSpace = False
  187. Attribute VB_Creatable = False
  188. Attribute VB_PredeclaredId = True
  189. Attribute VB_Exposed = False
  190. Public cIP, fName, accok As Boolean
  191.  
  192. Private Sub Command1_Click()
  193. Winsock1.SendData "Accept"
  194. wrec.LocalPort = 1215
  195. wrec.Bind
  196. End Sub
  197.  
  198. Private Sub Command2_Click()
  199. Unload Me
  200. End Sub
  201.  
  202. Private Sub Form_Load()
  203. wServer.Close
  204. wServer.Bind 7777, wServer.LocalIP
  205. Command1.Enabled = False
  206. End Sub
  207.  
  208. Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
  209. On Error Resume Next
  210. Winsock1.GetData gotstring, vbString
  211. End Sub
  212.  
  213. Private Sub wLogin_DataArrival(ByVal bytesTotal As Long)
  214. On Error Resume Next
  215. wLogin.GetData gotstring, vbString
  216. End Sub
  217.  
  218. Private Sub wrec_DataArrival(ByVal bytesTotal As Long)
  219. wrec.GetData newbuf, 1
  220. filecontents = newbuf
  221. fs.CancelError = True
  222. fs.ShowSave
  223. Open fs.FileName For Binary Access Write As #1
  224. Put #1, , filecontents
  225. Close #1
  226. MsgBox "File successfully copied", vbOKOnly + vbInformation, "Server"
  227. End Sub
  228.  
  229. Private Sub wServer_DataArrival(ByVal bytesTotal As Long)
  230. wServer.GetData gotstring, vbString
  231.  
  232. Select Case gotstring
  233. Case "Ready?"
  234. Winsock1.SendData "OK"
  235. End Select
  236. partsting = Left(gotstring, 3)
  237. Select Case partsting
  238. Case "IP="
  239. txtServer.Text = cIP
  240. cIP = Mid(gotstring, 4, Len(gotstring) - 3)
  241. Winsock1.Close
  242. Winsock1.RemoteHost = cIP
  243. Winsock1.LocalPort = 11111
  244. Winsock1.RemotePort = 7778
  245. Winsock1.Bind Winsock1.LocalPort
  246. Winsock1.SendData "Yes"
  247. End Select
  248. partsting = Left(gotstring, 5)
  249. Select Case partsting
  250. Case "File="
  251. fName = Mid(gotstring, 6, Len(gotstring) - 5)
  252. fNames.Text = fName
  253. End Select
  254. partstring = Left(gotstring, 9)
  255. Select Case partstring
  256. Case "Password="
  257. password = Mid(gotstring, 10, Len(gotstring) - 9)
  258. If Text2.Text = password Then
  259. Winsock1.SendData "OK All"
  260. accok = True
  261. If Len(Trim(fNames)) > 0 Then
  262. Command1.Enabled = True
  263. End If
  264. Else
  265. Winsock1.SendData "Reject"
  266. End If
  267.  
  268. End Select
  269. End Sub
  270.  
  271.  
  272.