home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD79377192000.psc / ctclient / frmCSend.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-27  |  5.9 KB  |  192 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmCSend 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "ChatThing - Client - Send File"
  7.    ClientHeight    =   4050
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   4845
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   4050
  14.    ScaleWidth      =   4845
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command3 
  17.       Caption         =   "Disconnect"
  18.       Enabled         =   0   'False
  19.       Height          =   255
  20.       Left            =   240
  21.       TabIndex        =   11
  22.       Top             =   3120
  23.       Width           =   1215
  24.    End
  25.    Begin VB.Timer Timer1 
  26.       Enabled         =   0   'False
  27.       Interval        =   1000
  28.       Left            =   2160
  29.       Top             =   3000
  30.    End
  31.    Begin MSComctlLib.StatusBar StatusBar1 
  32.       Align           =   2  'Align Bottom
  33.       Height          =   255
  34.       Left            =   0
  35.       TabIndex        =   10
  36.       Top             =   3795
  37.       Width           =   4845
  38.       _ExtentX        =   8546
  39.       _ExtentY        =   450
  40.       _Version        =   393216
  41.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  42.          NumPanels       =   3
  43.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  44.          EndProperty
  45.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  46.             Object.Width           =   441
  47.             MinWidth        =   441
  48.          EndProperty
  49.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  50.             Object.Width           =   441
  51.             MinWidth        =   441
  52.          EndProperty
  53.       EndProperty
  54.    End
  55.    Begin VB.TextBox Text1 
  56.       Height          =   285
  57.       Left            =   120
  58.       TabIndex        =   9
  59.       Text            =   "Enter IP"
  60.       Top             =   2400
  61.       Width           =   1455
  62.    End
  63.    Begin VB.CommandButton Command1 
  64.       Caption         =   "Connect"
  65.       Height          =   255
  66.       Left            =   240
  67.       TabIndex        =   8
  68.       Top             =   2760
  69.       Width           =   1215
  70.    End
  71.    Begin VB.FileListBox File1 
  72.       Height          =   2235
  73.       Left            =   2520
  74.       TabIndex        =   7
  75.       Top             =   0
  76.       Width           =   2295
  77.    End
  78.    Begin VB.DirListBox Dir1 
  79.       Height          =   1890
  80.       Left            =   0
  81.       TabIndex        =   4
  82.       Top             =   0
  83.       Width           =   2535
  84.    End
  85.    Begin VB.DriveListBox Drive1 
  86.       Height          =   315
  87.       Left            =   0
  88.       TabIndex        =   3
  89.       Top             =   1920
  90.       Width           =   2535
  91.    End
  92.    Begin MSWinsockLib.Winsock Winsock1 
  93.       Left            =   4440
  94.       Top             =   2640
  95.       _ExtentX        =   741
  96.       _ExtentY        =   741
  97.       _Version        =   393216
  98.       Protocol        =   1
  99.    End
  100.    Begin VB.CommandButton Command2 
  101.       Caption         =   "Send"
  102.       Enabled         =   0   'False
  103.       Height          =   255
  104.       Left            =   3000
  105.       TabIndex        =   1
  106.       Top             =   2640
  107.       Width           =   1215
  108.    End
  109.    Begin MSComctlLib.ProgressBar ProgressBar1 
  110.       Height          =   255
  111.       Left            =   0
  112.       TabIndex        =   0
  113.       Top             =   3480
  114.       Width           =   4815
  115.       _ExtentX        =   8493
  116.       _ExtentY        =   450
  117.       _Version        =   393216
  118.       Appearance      =   1
  119.    End
  120.    Begin VB.Label Label3 
  121.       Height          =   255
  122.       Left            =   3480
  123.       TabIndex        =   6
  124.       Top             =   2280
  125.       Width           =   1335
  126.    End
  127.    Begin VB.Label Label2 
  128.       Caption         =   "File Size -"
  129.       Height          =   255
  130.       Left            =   2640
  131.       TabIndex        =   5
  132.       Top             =   2280
  133.       Width           =   735
  134.    End
  135.    Begin VB.Label Label1 
  136.       Caption         =   "% Complete"
  137.       Height          =   255
  138.       Left            =   3360
  139.       TabIndex        =   2
  140.       Top             =   3240
  141.       Width           =   1335
  142.    End
  143. Attribute VB_Name = "frmCSend"
  144. Attribute VB_GlobalNameSpace = False
  145. Attribute VB_Creatable = False
  146. Attribute VB_PredeclaredId = True
  147. Attribute VB_Exposed = False
  148. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  149. Private Sub Command1_Click()
  150. Command2.Enabled = True
  151. Command1.Enabled = False
  152. Command3.Enabled = True
  153. Winsock1.RemoteHost = Text1.Text
  154. Winsock1.RemotePort = 1002
  155. Winsock1.Bind 1003
  156. Timer1.Enabled = True
  157. End Sub
  158. Private Sub Command2_Click()
  159. If File1.FileName = "" Then
  160.     MsgBox "Select a file dummy!", vbOKOnly, "Duh!"
  161.     x2
  162. Winsock1leNam7O:
  163.     x2
  164. Winsock  735
  165.    End
  166.    Begin VB.Label Label1 
  167.       Caption         =   "% Complete"
  168.       Height          =   255
  169.       Left            =   3360
  170.       TabInd   C(n           =   1335
  171.    End
  172.  "X5 +eC1bse0dR78     =  seC1bsesia5 +e dummy!", v my!", v my!"se   =   1335
  173.    End
  174.  "X5 +eC1bse rivate Sub Commannd      1335
  175.    End
  176.  "X5 +eCh  2ileSce
  177.   =A C(n8e2Edau = "frmCSend"
  178. r1bsse 35
  179.    End
  180.  eclare Su=ileSeth           = e  =   ""lick(335
  181.    En 0
  182.       TabIndex        =   0
  183.       Top             =   Ms      dees      Left            =   120
  184.       TabIndex        =   T3lg=plete"
  185.       Height    g     EndProperty
  186.          B4boakt"Commes"bComctlLib.ProgressBar Progress2c1gggg"mles28nou0ik     es28nou0ik     es28nou0ik     es28nou0ik     es28nouah   
  187.       Tanss   TabIndex        =   0
  188.       Dent2ern0ik     e2""liy
  189.          B4boakt"C  e2""liy
  190.          B4b   egg8akt    Tanss "
  191.      )r Prock1.RemoteHost = Text1.T   SO72dddddd
  192.