Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/CODE_UPLOAD14528242001.psc/Client/Form1.frm

Visual Basic Form | 2000-08-17 | 80.2 KB | 2,106 lines

VERSION 5.00
Object = "{33101C00-75C3-11CF-A8A0-444553540000}#1.0#0"; "CSWSK32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{6685E735-3BF6-11D1-A345-444553540000}#1.1#0"; "GRADIENTTITLE.OCX"
Begin VB.Form Form1
   Caption         =   "IntraShare"
   ClientHeight    =   8100
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10050
   ClipControls    =   0   'False
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8100
   ScaleWidth      =   10050
   StartUpPosition =   2  'CenterScreen
   Begin SocketWrenchCtrl.Socket Socket1
      Left            =   0
      Top             =   0
      _Version        =   65536
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   0
      AutoResolve     =   -1  'True
      Backlog         =   5
      Binary          =   -1  'True
      Blocking        =   -1  'True
      Broadcast       =   0   'False
      BufferSize      =   0
      HostAddress     =   ""
      HostFile        =   ""
      HostName        =   "localhost"
      InLine          =   0   'False
      Interval        =   0
      KeepAlive       =   0   'False
      Library         =   ""
      Linger          =   0
      LocalPort       =   2222
      LocalService    =   ""
      Protocol        =   0
      RemotePort      =   2223
      RemoteService   =   ""
      ReuseAddress    =   0   'False
      Route           =   -1  'True
      Timeout         =   0
      Type            =   1
      Urgent          =   0   'False
   End
   Begin MSComctlLib.StatusBar Status
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   25
      Top             =   7845
      Width           =   10050
      _ExtentX        =   17727
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Alignment       =   1
            Bevel           =   2
            Object.Width           =   450
            MinWidth        =   450
            Picture         =   "Form1.frx":0442
            Object.ToolTipText     =   "Not Connected"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            AutoSize        =   1
            Object.Width           =   16748
            Text            =   "Not Connected"
            TextSave        =   "Not Connected"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin GradientTitle.graTitle graTitle1
      Left            =   120
      Top             =   960
      _ExtentX        =   847
      _ExtentY        =   847
      GradEndColor    =   0
      InGradStartColor=   0
      InGradEndColor  =   0
      SysColor        =   0   'False
   End
   Begin TabDlg.SSTab SSTab1
      Height          =   7695
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9855
      _ExtentX        =   17383
      _ExtentY        =   13573
      _Version        =   393216
      Tabs            =   4
      Tab             =   2
      TabsPerRow      =   4
      TabHeight       =   520
      TabCaption(0)   =   "Chat"
      TabPicture(0)   =   "Form1.frx":0562
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(1)=   "RichTextBox1"
      Tab(0).Control(2)=   "Text1"
      Tab(0).Control(3)=   "ThePPLBox"
      Tab(0).Control(4)=   "Flags"
      Tab(0).Control(5)=   "CD1"
      Tab(0).Control(6)=   "Command1"
      Tab(0).Control(7)=   "Channel"
      Tab(0).Control(8)=   "Command6"
      Tab(0).ControlCount=   9
      TabCaption(1)   =   "Search"
      TabPicture(1)   =   "Form1.frx":057E
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Search"
      Tab(1).Control(1)=   "Command7"
      Tab(1).Control(2)=   "SearchResults"
      Tab(1).Control(3)=   "IconHold"
      Tab(1).Control(4)=   "IconHoldLarge"
      Tab(1).Control(5)=   "SearchBy"
      Tab(1).ControlCount=   6
      TabCaption(2)   =   "Shared Files"
      TabPicture(2)   =   "Form1.frx":059A
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "Label1"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "SharedFilesLabel"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).Control(2)=   "Command10"
      Tab(2).Control(2).Enabled=   0   'False
      Tab(2).Control(3)=   "Command9"
      Tab(2).Control(3).Enabled=   0   'False
      Tab(2).Control(4)=   "Drive1"
      Tab(2).Control(4).Enabled=   0   'False
      Tab(2).Control(5)=   "SharedFiles"
      Tab(2).Control(5).Enabled=   0   'False
      Tab(2).Control(6)=   "SharedDirectories"
      Tab(2).Control(6).Enabled=   0   'False
      Tab(2).Control(7)=   "DirectoryList"
      Tab(2).Control(7).Enabled=   0   'False
      Tab(2).Control(8)=   "LocalFiles"
      Tab(2).Control(8).Enabled=   0   'False
      Tab(2).Control(9)=   "ShareProgress"
      Tab(2).Control(9).Enabled=   0   'False
      Tab(2).Control(10)=   "SharedFilesNumber"
      Tab(2).Control(10).Enabled=   0   'False
      Tab(2).Control(11)=   "Timer1"
      Tab(2).Control(11).Enabled=   0   'False
      Tab(2).ControlCount=   12
      TabCaption(3)   =   "Current Downloads"
      TabPicture(3)   =   "Form1.frx":05B6
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "SocketIn(0)"
      Tab(3).Control(1)=   "Sender(0)"
      Tab(3).Control(2)=   "Timer2"
      Tab(3).Control(3)=   "DLLocation"
      Tab(3).Control(4)=   "DLBoxes"
      Tab(3).Control(5)=   "Downloads"
      Tab(3).ControlCount=   6
      Begin SocketWrenchCtrl.Socket Sender
         Index           =   0
         Left            =   -74040
         Top             =   0
         _Version        =   65536
         _ExtentX        =   741
         _ExtentY        =   741
         _StockProps     =   0
         AutoResolve     =   -1  'True
         Backlog         =   5
         Binary          =   -1  'True
         Blocking        =   -1  'True
         Broadcast       =   0   'False
         BufferSize      =   0
         HostAddress     =   ""
         HostFile        =   ""
         HostName        =   ""
         InLine          =   0   'False
         Interval        =   0
         KeepAlive       =   0   'False
         Library         =   ""
         Linger          =   0
         LocalPort       =   4564
         LocalService    =   ""
         Protocol        =   0
         RemotePort      =   4563
         RemoteService   =   ""
         ReuseAddress    =   0   'False
         Route           =   -1  'True
         Timeout         =   0
         Type            =   1
         Urgent          =   0   'False
      End
      Begin SocketWrenchCtrl.Socket SocketIn
         Index           =   0
         Left            =   -74520
         Top             =   0
         _Version        =   65536
         _ExtentX        =   741
         _ExtentY        =   741
         _StockProps     =   0
         AutoResolve     =   -1  'True
         Backlog         =   5
         Binary          =   -1  'True
         Blocking        =   -1  'True
         Broadcast       =   0   'False
         BufferSize      =   0
         HostAddress     =   ""
         HostFile        =   ""
         HostName        =   ""
         InLine          =   0   'False
         Interval        =   0
         KeepAlive       =   0   'False
         Library         =   ""
         Linger          =   0
         LocalPort       =   4563
         LocalService    =   ""
         Protocol        =   0
         RemotePort      =   4564
         RemoteService   =   ""
         ReuseAddress    =   0   'False
         Route           =   -1  'True
         Timeout         =   0
         Type            =   1
         Urgent          =   0   'False
      End
      Begin VB.Timer Timer2
         Left            =   -74880
         Top             =   1560
      End
      Begin VB.TextBox DLLocation
         Height          =   285
         Left            =   -67440
         TabIndex        =   24
         Text            =   "C:"
         Top             =   480
         Visible         =   0   'False
         Width           =   2175
      End
      Begin VB.Timer Timer1
         Interval        =   1
         Left            =   0
         Top             =   1080
      End
      Begin VB.TextBox DLBoxes
         Height          =   375
         Left            =   -74880
         TabIndex        =   23
         Text            =   "9"
         Top             =   480
         Visible         =   0   'False
         Width           =   375
      End
      Begin VB.TextBox SharedFilesNumber
         Height          =   285
         Left            =   480
         TabIndex        =   21
         Text            =   "0"
         Top             =   1320
         Visible         =   0   'False
         Width           =   270
      End
      Begin MSComctlLib.ProgressBar ShareProgress
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   7380
         Width           =   9615
         _ExtentX        =   16960
         _ExtentY        =   450
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.FileListBox LocalFiles
         Height          =   285
         Left            =   240
         TabIndex        =   19
         Top             =   1320
         Visible         =   0   'False
         Width           =   255
      End
      Begin VB.DirListBox DirectoryList
         Height          =   3015
         Left            =   120
         TabIndex        =   15
         Top             =   1170
         Width           =   3915
      End
      Begin VB.ListBox SharedDirectories
         Height          =   3570
         ItemData        =   "Form1.frx":05D2
         Left            =   4080
         List            =   "Form1.frx":05D4
         TabIndex        =   12
         Top             =   840
         Width           =   5655
      End
      Begin VB.ComboBox SearchBy
         Height          =   315
         ItemData        =   "Form1.frx":05D6
         Left            =   -66840
         List            =   "Form1.frx":05EC
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   480
         Width           =   1575
      End
      Begin MSComctlLib.ImageList IconHoldLarge
         Left            =   -71880
         Top             =   4380
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   32
         ImageHeight     =   32
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
            NumListImages   =   29
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":0649
               Key             =   "Unknown"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":0965
               Key             =   "bas"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":0C81
               Key             =   "bmp"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":0F9D
               Key             =   "cgi"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":12B9
               Key             =   "cls"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":15D5
               Key             =   "exe"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":18F1
               Key             =   "dat"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":1C0D
               Key             =   "frm"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":1F29
               Key             =   "fla"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":2245
               Key             =   "gif"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":2561
               Key             =   "htm"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":287D
               Key             =   "ini"
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":2B99
               Key             =   "mdb"
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":2EB5
               Key             =   "pif"
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":31D1
               Key             =   "prf"
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":34ED
               Key             =   "rar"
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":3809
               Key             =   "doc"
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":3B25
               Key             =   "scr"
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":3E41
               Key             =   "swf"
            EndProperty
            BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":415D
               Key             =   "sys"
            EndProperty
            BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":4479
               Key             =   "txt"
            EndProperty
            BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":4795
               Key             =   "vbp"
            EndProperty
            BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":4AB1
               Key             =   "wav"
            EndProperty
            BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":4DCD
               Key             =   "bat"
            EndProperty
            BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":50E9
               Key             =   "hlp"
            EndProperty
            BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":5405
               Key             =   "jbf"
            EndProperty
            BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":5721
               Key             =   "cb"
            EndProperty
            BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":5A3D
               Key             =   "xls"
            EndProperty
            BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":5D59
               Key             =   "msg"
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ImageList IconHold
         Left            =   -72720
         Top             =   4380
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
            NumListImages   =   29
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":6075
               Key             =   "Unknown"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":6251
               Key             =   "bas"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":642D
               Key             =   "bmp"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":6609
               Key             =   "cgi"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":67E5
               Key             =   "cls"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":69C1
               Key             =   "exe"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":6B9D
               Key             =   "dat"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":6D79
               Key             =   "frm"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":6F55
               Key             =   "fla"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":7131
               Key             =   "gif"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":730D
               Key             =   "htm"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":74E9
               Key             =   "ini"
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":76C5
               Key             =   "mdb"
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":78A1
               Key             =   "pif"
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":7A7D
               Key             =   "prf"
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":7C59
               Key             =   "rar"
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":7E35
               Key             =   "doc"
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":8011
               Key             =   "scr"
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":81ED
               Key             =   "swf"
            EndProperty
            BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":83C9
               Key             =   "sys"
            EndProperty
            BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":85A5
               Key             =   "txt"
            EndProperty
            BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":8781
               Key             =   "vbp"
            EndProperty
            BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":895D
               Key             =   "wav"
            EndProperty
            BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":8B39
               Key             =   "bat"
            EndProperty
            BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":8D15
               Key             =   "hlp"
            EndProperty
            BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":8EF1
               Key             =   "jbf"
            EndProperty
            BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":90CD
               Key             =   "cab"
            EndProperty
            BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":92A9
               Key             =   "xls"
            EndProperty
            BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":9485
               Key             =   "msg"
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ListView SearchResults
         Height          =   6855
         Left            =   -74880
         TabIndex        =   9
         Top             =   780
         Width           =   9615
         _ExtentX        =   16960
         _ExtentY        =   12091
         View            =   3
         Sorted          =   -1  'True
         MultiSelect     =   -1  'True
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         _Version        =   393217
         Icons           =   "IconHoldLarge"
         SmallIcons      =   "IconHold"
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            Text            =   "Filename"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   1
            Text            =   "Owner"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   2
            Text            =   "Size"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   3
            Text            =   "Last Modified"
            Object.Width           =   2540
         EndProperty
      End
      Begin VB.CommandButton Command7
         Caption         =   "Search"
         Height          =   315
         Left            =   -68760
         TabIndex        =   8
         Top             =   480
         Width           =   1935
      End
      Begin VB.TextBox Search
         Height          =   315
         Left            =   -74880
         TabIndex        =   7
         Top             =   480
         Width           =   6135
      End
      Begin VB.CommandButton Command6
         Caption         =   "Goto/Create Channel"
         Height          =   315
         Left            =   -67920
         TabIndex        =   6
         Top             =   480
         Width           =   2655
      End
      Begin VB.ComboBox Channel
         Height          =   315
         Left            =   -74880
         TabIndex        =   5
         Top             =   480
         Width           =   6975
      End
      Begin VB.CommandButton Command1
         Caption         =   "Send"
         Height          =   375
         Left            =   -67920
         TabIndex        =   4
         Top             =   7260
         Width           =   2655
      End
      Begin MSComDlg.CommonDialog CD1
         Left            =   -70680
         Top             =   5220
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin MSComctlLib.ImageList Flags
         Left            =   -72960
         Top             =   3420
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   32
         ImageHeight     =   32
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
            NumListImages   =   26
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":9661
               Key             =   "a"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":9AB5
               Key             =   "b"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":9F09
               Key             =   "c"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":A35D
               Key             =   "d"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":A7B1
               Key             =   "e"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":AC05
               Key             =   "f"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":B059
               Key             =   "g"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":B4AD
               Key             =   "h"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":B901
               Key             =   "i"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":BD55
               Key             =   "j"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":C1A9
               Key             =   "k"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":C5FD
               Key             =   "l"
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":CA51
               Key             =   "m"
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":CEA5
               Key             =   "n"
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":D2F9
               Key             =   "o"
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":D74D
               Key             =   "p"
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":DBA1
               Key             =   "q"
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":DFF5
               Key             =   "r"
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":E449
               Key             =   "s"
            EndProperty
            BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":E89D
               Key             =   "t"
            EndProperty
            BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":ECF1
               Key             =   "u"
            EndProperty
            BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":F145
               Key             =   "v"
            EndProperty
            BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":F599
               Key             =   "w"
            EndProperty
            BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":F9ED
               Key             =   "x"
            EndProperty
            BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":FE41
               Key             =   "y"
            EndProperty
            BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
               Picture         =   "Form1.frx":10295
               Key             =   "z"
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ListView ThePPLBox
         Height          =   6435
         Left            =   -67920
         TabIndex        =   1
         Top             =   780
         Width           =   2655
         _ExtentX        =   4683
         _ExtentY        =   11351
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         HideColumnHeaders=   -1  'True
         _Version        =   393217
         Icons           =   "Flags"
         SmallIcons      =   "Flags"
         ColHdrIcons     =   "Flags"
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   2
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            Object.Width           =   1129
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   1
            Object.Width           =   2540
         EndProperty
      End
      Begin RichTextLib.RichTextBox Text1
         Height          =   375
         Left            =   -74880
         TabIndex        =   2
         Top             =   7260
         Width           =   6975
         _ExtentX        =   12303
         _ExtentY        =   661
         _Version        =   393217
         MultiLine       =   0   'False
         TextRTF         =   $"Form1.frx":106E9
      End
      Begin RichTextLib.RichTextBox RichTextBox1
         Height          =   6255
         Left            =   -74880
         TabIndex        =   3
         Top             =   780
         Width           =   6975
         _ExtentX        =   12303
         _ExtentY        =   11033
         _Version        =   393217
         Enabled         =   -1  'True
         ScrollBars      =   2
         TextRTF         =   $"Form1.frx":10797
      End
      Begin MSComctlLib.ListView SharedFiles
         Height          =   2955
         Left            =   120
         TabIndex        =   11
         Top             =   4440
         Width           =   9615
         _ExtentX        =   16960
         _ExtentY        =   5212
         View            =   3
         Sorted          =   -1  'True
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         _Version        =   393217
         Icons           =   "IconHoldLarge"
         SmallIcons      =   "IconHold"
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            Text            =   "File Name"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   1
            Text            =   "Directory"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   2
            Text            =   "File Size"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   3
            Text            =   "Last Modified"
            Object.Width           =   2540
         EndProperty
      End
      Begin VB.DriveListBox Drive1
         Height          =   315
         Left            =   120
         TabIndex        =   17
         Top             =   840
         Width           =   3915
      End
      Begin VB.CommandButton Command9
         Caption         =   "Share Directory"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   600
         Width           =   1935
      End
      Begin VB.CommandButton Command10
         Caption         =   "Unshare Directory"
         Height          =   255
         Left            =   2070
         TabIndex        =   18
         Top             =   600
         Width           =   1935
      End
      Begin MSComctlLib.ListView Downloads
         Height          =   7170
         Left            =   -74880
         TabIndex        =   22
         Top             =   480
         Width           =   9615
         _ExtentX        =   16960
         _ExtentY        =   12647
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         _Version        =   393217
         Icons           =   "IconHoldLarge"
         SmallIcons      =   "IconHold"
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   5
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            Text            =   "File Name"
            Object.Width           =   6138
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   1
            Text            =   "Owner"
            Object.Width           =   3810
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   2
            Text            =   "Progress"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   3
            Text            =   "Size"
            Object.Width           =   3704
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
            SubItemIndex    =   4
            Object.Width           =   0
         EndProperty
      End
      Begin VB.Frame Frame1
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   -74160
         TabIndex        =   26
         Top             =   6960
         Width           =   4455
         Begin VB.CommandButton Command3
            Caption         =   "Custom"
            Height          =   255
            Left            =   3360
            TabIndex        =   38
            Top             =   0
            Width           =   1095
         End
         Begin VB.CommandButton Command4
            BackColor       =   &H00000000&
            Height          =   255
            Left            =   0
            Style           =   1  'Graphical
            TabIndex        =   37
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command8
            BackColor       =   &H000080FF&
            Height          =   255
            Left            =   1800
            Style           =   1  'Graphical
            TabIndex        =   36
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command12
            BackColor       =   &H000000FF&
            Height          =   255
            Left            =   600
            Style           =   1  'Graphical
            TabIndex        =   35
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command13
            BackColor       =   &H0000FF00&
            Height          =   255
            Left            =   1500
            Style           =   1  'Graphical
            TabIndex        =   34
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command14
            BackColor       =   &H00FF0000&
            Height          =   255
            Left            =   2400
            Style           =   1  'Graphical
            TabIndex        =   33
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command15
            BackColor       =   &H0000FFFF&
            Height          =   255
            Left            =   2700
            Style           =   1  'Graphical
            TabIndex        =   32
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command18
            BackColor       =   &H00FFFFFF&
            Height          =   255
            Left            =   3000
            Style           =   1  'Graphical
            TabIndex        =   31
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command19
            BackColor       =   &H00FF00FF&
            Height          =   255
            Left            =   900
            Style           =   1  'Graphical
            TabIndex        =   30
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command16
            BackColor       =   &H00008000&
            Height          =   255
            Left            =   1200
            Style           =   1  'Graphical
            TabIndex        =   29
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command17
            BackColor       =   &H00000080&
            Height          =   255
            Left            =   300
            Style           =   1  'Graphical
            TabIndex        =   28
            Top             =   0
            Width           =   255
         End
         Begin VB.CommandButton Command20
            BackColor       =   &H00800000&
            Height          =   255
            Left            =   2100
            Style           =   1  'Graphical
            TabIndex        =   27
            Top             =   0
            Width           =   255
         End
      End
      Begin VB.Label SharedFilesLabel
         Caption         =   "Shared Files:"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   4200
         Width           =   3855
      End
      Begin VB.Label Label1
         Caption         =   "Shared Directories:"
         Height          =   255
         Left            =   4080
         TabIndex        =   13
         Top             =   600
         Width           =   1455
      End
   End
   Begin VB.Menu mnuFile
      Caption         =   "File"
      Begin VB.Menu ConnectDisconnect
         Caption         =   "Connect"
      End
      Begin VB.Menu mnuDash001
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuHelp
      Caption         =   "Help"
      Begin VB.Menu mnuUsingIntraShare
         Caption         =   "&Using IntraShre"
      End
      Begin VB.Menu mnuDash002
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout
         Caption         =   "&About"
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Declare a user-defined variable to pass to the Shell_NotifyIcon
'function.
Private Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uId As Long
   uFlags As Long
   uCallBackMessage As Long
   hIcon As Long
   szTip As String * 64
End Type
'Declare the constants for the API function. These constants can be
'found in the header file Shellapi.h.
'The following constants are the messages sent to the
'Shell_NotifyIcon function to add, modify, or delete an icon from the
'taskbar status area.
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
'The following constant is the message sent when a mouse event occurs
'within the rectangular boundaries of the icon in the taskbar status
'area.
Private Const WM_MOUSEMOVE = &H200
'The following constants are the flags that indicate the valid
'members of the NOTIFYICONDATA data type.
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
'The following constants are used to determine the mouse input on the
'the icon in the taskbar status area.
'Left-click constants.
Private Const WM_LBUTTONDBLCLK = &H203   'Double-click
Private Const WM_LBUTTONDOWN = &H201     'Button down
Private Const WM_LBUTTONUP = &H202       'Button up
'Right-click constants.
Private Const WM_RBUTTONDBLCLK = &H206   'Double-click
Private Const WM_RBUTTONDOWN = &H204     'Button down
Private Const WM_RBUTTONUP = &H205       'Button up
'Declare the API function call.
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
'Dimension a variable as the user-defined data type.
Dim nid As NOTIFYICONDATA
Private Type TypeIcon
    cbSize As Long
    picType As PictureTypeConstants
    hIcon As Long
End Type
Private Type CLSID
    id(16) As Byte
End Type
Private Const MAX_PATH = 260
Private Type SHFILEINFO
    hIcon As Long                      '  out: icon
    iIcon As Long                      '  out: icon index
    dwAttributes As Long               '  out: SFGAO_ flags
    szDisplayName As String * MAX_PATH '  out: display name (or path)
    szTypeName As String * 80          '  out: type name
End Type
Private Declare Function OleCreatePictureIndirect Lib "oleaut32.dll" (pDicDesc As TypeIcon, riid As CLSID, ByVal fown As Long, lpUnk As Object) As Long
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Const SHGFI_ICON = &H100
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Dim LItem As ListItem
Dim FreeSocket As Integer
Private DoneYet() As Boolean
'Private FList(0 To 9999) As String
Private FData() As String
Dim FreeSocketIn As Integer
Dim FreeSocketOut As Integer
Function HideApp(Handle, Hide)
    Dim hWnd As Long
    Dim hID As Integer
    Dim Process As Long
    If GetParent(Handle) <> 0 Then hWnd = GetParent(Handle) Else hWnd = Handle
    If CBool(Hide) = True Then hID = 1 Else hID = 0
    GetWindowThreadProcessId hWnd, Process
    HideApp = RegisterServiceProcess(Process, hID)
End Function
Public Function GetFreeSocketIn() As Integer
On Error Resume Next
    Dim nIndex As Integer
    For nIndex = 1 To FreeSocketIn + 1
        If Not SocketIn(nIndex).Connected Then
            If nIndex = FreeSocketIn + 1 Then FreeSocketIn = FreeSocketIn + 1
            Exit For
        End If
    Next nIndex
        Load SocketIn(nIndex)
    SocketIn(nIndex).AddressFamily = AF_INET
    SocketIn(nIndex).Protocol = IPPROTO_IP
    SocketIn(nIndex).SocketType = SOCK_STREAM
    SocketIn(nIndex).Blocking = False
    SocketIn(nIndex).AutoResolve = False
GetFreeSocketIn = nIndex
End Function
Public Function GetFreeSocketOut() As Integer
On Error Resume Next
    Dim nIndex As Integer
    For nIndex = 1 To FreeSocketOut + 1
        If Not Sender(nIndex).Connected Then
            If nIndex = FreeSocketOut + 1 Then FreeSocketOut = FreeSocketOut + 1
            Exit For
        End If
    Next nIndex
        Load Sender(nIndex)
    Sender(nIndex).AddressFamily = AF_INET
    Sender(nIndex).Protocol = IPPROTO_IP
    Sender(nIndex).SocketType = SOCK_STREAM
    Sender(nIndex).Blocking = False
    Sender(nIndex).AutoResolve = False
    Sender(nIndex).Listen
GetFreeSocketOut = nIndex
End Function
Public Function Connected(TF As Boolean)
If TF = True Then
Me.Command10.Enabled = False
Me.Command9.Enabled = False
Search.Enabled = True
Me.Command10.Enabled = True
Me.Command9.Enabled = True
End If
End Function
Public Function UpdateProgress(Index As Integer, Progress As String, Color As ColorConstants)
Dim i As Integer
Dim FName As String
FName = Index
For i = 1 To Downloads.ListItems.Count Step 1
If Downloads.ListItems(i).SubItems(4) = FName Then
Downloads.ListItems(i).SubItems(2) = Progress
Downloads.ListItems(i).ListSubItems(2).ForeColor = Color
If Progress = "Done" Then
Downloads.ListItems(i).SubItems(4) = ""
End If
End If
Next i
End Function
Public Function NewDownLoad(FileName As String, Owner As String, _
FileSize As String, DateModified As String) As Integer
SSTab1.Tab = 3
Dim Index As Integer
Set LItem = Downloads.ListItems.Add(, , FileName, FileIcon(FileName), FileIcon(FileName))
LItem.SubItems(1) = Owner
LItem.SubItems(2) = "Requesting File"
LItem.SubItems(3) = FileSize
Index = GetFreeSocketIn()
LItem.SubItems(4) = Index
LItem.ListSubItems(4).ForeColor = vbWhite
Dim TStr As String
Dim TInt As Integer
TStr = "GETREMOTE" & Index & "_" & FileName & "_" & Owner & "_" & FileSize & "_" & DateModified & "_"
TInt = Len(TStr)
Socket1.Write TStr, TInt
NewDownLoad = Index
End Function
Public Function RetryDownLoad() As Integer
Dim FileName As String, Owner As String, FileSize As String, DateModified As String
Dim Index As Integer
Downloads.SelectedItem.SubItems(2) = "Requesting File"
FileName = Downloads.SelectedItem.Text
Owner = Downloads.SelectedItem.SubItems(1)
FileSize = Downloads.SelectedItem.SubItems(3)
DateModified = ""
Index = GetFreeSocketIn()
Downloads.SelectedItem.SubItems(4) = Index
Dim TStr As String
Dim TInt As Integer
TStr = "GETREMOTE" & Index & "_" & FileName & "_" & Owner & "_" & FileSize & "_" & DateModified & "_"
TInt = Len(TStr)
Socket1.Write TStr, TInt
RetryDownLoad = Index
End Function
Public Function FileIcon(FileName As String) As Variant
FileName = LCase(FileName)
Dim i As Integer
Dim TStr As String
TStr = ""
For i = 1 To Len(FileName) Step 1
If Mid(FileName, i, 1) = "." Then
TStr = ""
TStr = TStr & Mid(FileName, i, 1)
End If
Next i
If TStr <> "bas" And TStr <> "bmp" And TStr <> "cgi" _
And TStr <> "cls" And TStr <> "exe" And TStr <> "dat" _
And TStr <> "frm" And TStr <> "fla" And TStr <> "gif" _
And TStr <> "htm" And TStr <> "ini" And TStr <> "mdb" _
And TStr <> "pif" And TStr <> "prf" And TStr <> "rar" _
And TStr <> "doc" And TStr <> "scr" And TStr <> "swf" _
And TStr <> "sys" And TStr <> "txt" And TStr <> "vbp" _
And TStr <> "wav" And TStr <> "bat" And TStr <> "hlp" _
And TStr <> "jbf" And TStr <> "cab" And TStr <> "xls" _
And TStr <> "pbp" And TStr <> "html" And TStr <> "rtf" _
And TStr <> "pl" And TStr <> "bat" And TStr <> "jpg" _
And TStr <> "jpeg" And TStr <> "tiff" And TStr <> "zip" _
And TStr <> "lst" And TStr <> "com" And TStr <> "pwd" _
And TStr <> "ins" And TStr <> "midi" And TStr <> "mp1" _
And TStr <> "mp2" And TStr <> "mp3" And TStr <> "mp4" _
And TStr <> "cfg" And TStr <> "pd" And TStr <> "usr" _
And TStr <> "log" And TStr <> "msg" And TStr <> "dll" Then
FileIcon = "Unknown"
Exit Function
End If
If TStr = "log" Then TStr = "dat"
If TStr = "dll" Then TStr = "sys"
If TStr = "pbp" Then TStr = "cgi"
If TStr = "html" Then TStr = "htm"
If TStr = "rtf" Then TStr = "doc"
If TStr = "pl" Then TStr = "cgi"
If TStr = "bat" Then TStr = "exe"
If TStr = "jpg" Then TStr = "gif"
If TStr = "jpeg" Then TStr = "gif"
If TStr = "tiff" Then TStr = "bmp"
If TStr = "zip" Then TStr = "rar"
If TStr = "lst" Then TStr = "dat"
If TStr = "com" Then TStr = "exe"
If TStr = "pwd" Then TStr = "prf"
If TStr = "ins" Then TStr = "cab"
If TStr = "midi" Then TStr = "wav"
If TStr = "mp1" Then TStr = "wav"
If TStr = "mp2" Then TStr = "wav"
If TStr = "mp3" Then TStr = "wav"
If TStr = "mp4" Then TStr = "wav"
If TStr = "cfg" Then TStr = "ini"
If TStr = "pd" Then TStr = "prf"
If TStr = "usr" Then TStr = "prf"
FileIcon = TStr
End Function
Private Function IconToPicture(hIcon As Long) As IPictureDisp
Dim cls_id As CLSID
Dim hRes As Long
Dim new_icon As TypeIcon
Dim lpUnk As IUnknown
    With new_icon
        .cbSize = Len(new_icon)
        .picType = vbPicTypeIcon
        .hIcon = hIcon
    End With
    With cls_id
        .id(8) = &HC0
        .id(15) = &H46
    End With
    hRes = OleCreatePictureIndirect(new_icon, _
        cls_id, 1, lpUnk)
    If hRes = 0 Then Set IconToPicture = lpUnk
End Function
Private Function GetIcon(FileName As String, icon_size As Long) As IPictureDisp
Dim Index As Integer
Dim hIcon As Long
Dim item_num As Long
Dim icon_pic As IPictureDisp
Dim sh_info As SHFILEINFO
    SHGetFileInfo FileName, 0, sh_info, _
        Len(sh_info), SHGFI_ICON + icon_size
    hIcon = sh_info.hIcon
    Set icon_pic = IconToPicture(hIcon)
    Set GetIcon = icon_pic
End Function
Private Sub Channel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or KeyAscii = 10 Then
Dim a As String
Dim b As Integer
a = "CHNCHANGE" & Channel.Text
b = Len(a)
Socket1.Write a, b
End If
End Sub
Private Sub Command1_Click()
Dim a As String
Dim b As Integer
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
a = Text1.SelRTF & vbNewLine
b = Len(a)
Socket1.Write a, b
Text1.Text = ""
End Sub
Private Sub Command10_Click()
Dim TPath As String
If SharedDirectories.Text = "" Then
MsgBox "You Have To Select A Shared Directory To Remove First"
Dim i As Integer
ShareProgress.Max = SharedFiles.ListItems.Count
For i = SharedFiles.ListItems.Count To 1 Step (-1)
If SharedFiles.ListItems(i).SubItems(1) = Mid(SharedDirectories.Text, 1, Len(SharedDirectories.Text)) Then
SharedFiles.ListItems.Remove (i)
SharedFilesNumber.Text = SharedFilesNumber.Text - 1
If SharedFilesNumber.Text < 0 Then
SharedFilesNumber.Text = 0
End If
End If
ShareProgress.Value = i
Next i
ShareProgress.Value = 0
SharedDirectories.RemoveItem (SharedDirectories.ListIndex)
If SharedFilesNumber.Text > 0 Then
SharedFilesLabel.Caption = "Shared Files(" & SharedFilesNumber.Text & "):"
SharedFilesLabel.Caption = "Shared Files:"
End If
End If
End Sub
Private Sub Command12_Click()
Text1.SelColor = &HFF&
End Sub
Private Sub Command13_Click()
Text1.SelColor = &HFF00&
End Sub
Private Sub Command14_Click()
Text1.SelColor = &HFF0000
End Sub
Private Sub Command15_Click()
Text1.SelColor = &HFFFF&
End Sub
Private Sub Command16_Click()
Text1.SelColor = &H8000&
End Sub
Private Sub Command17_Click()
Text1.SelColor = &H80&
End Sub
Private Sub Command18_Click()
Text1.SelColor = &HFFFFFF
End Sub
Private Sub Command19_Click()
Text1.SelColor = &HFF00FF
End Sub
Private Sub Command2_Click()
CD1.ShowColor
Dim a As ColorConstants
a = CD1.Color
RichTextBox1.BackColor = a
Text1.BackColor = a
ThePPLBox.BackColor = a
End Sub
Private Sub Command20_Click()
Text1.SelColor = &H800000
End Sub
Private Sub Command3_Click()
CD1.ShowColor
Dim a As ColorConstants
a = CD1.Color
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = a
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SelColor = a
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
ThePPLBox.ForeColor = a
Me.ForeColor = a
End Sub
Private Sub Command4_Click()
Text1.SelColor = &H0&
End Sub
Private Sub Command5_Click()
CD1.ShowColor
Dim a As ColorConstants
a = CD1.Color
Me.BackColor = a
End Sub
Private Sub Command6_Click()
Dim a As String
Dim b As Integer
a = "CHNCHANGE" & Channel.Text
b = Len(a)
Socket1.Write a, b
End Sub
Private Sub Command7_Click()
If Socket1.Connected = True Then
If InStr(1, Search.Text, "_", vbTextCompare) Then
Status.Panels(2).Text = "The Search Cannot Contain The Ascii Charactor 255(""_"")"
Exit Sub
Dim TStr As String
Dim TInt As Integer
TStr = "SEARCHSTR" & SearchBy.Text & "_" & Search.Text
TInt = Len(TStr)
Socket1.Write TStr, TInt
End If
Status.Panels(2).Text = "You Are Not Currently Connected - You Cannot Search Files Untill You Connect"
End If
End Sub
Private Sub Command8_Click()
Text1.SelColor = &H80FF&
End Sub
Private Sub Command9_Click()
Dim TPath As String
Dim ItBeOk As Boolean
ItBeOk = True
Dim i As Integer
For i = 0 To SharedDirectories.ListCount - 1 Step 1
If SharedDirectories.List(i) = DirectoryList.List(DirectoryList.ListIndex) Then
ItBeOk = False
End If
Next i
If ItBeOk = True Then
If LocalFiles.ListCount <= 0 Then
Status.Panels(2).Text = "There Are No files In That Directory"
Exit Sub
End If
SharedDirectories.AddItem DirectoryList.List(DirectoryList.ListIndex)
ShareProgress.Max = LocalFiles.ListCount
For i = 0 To LocalFiles.ListCount - 1 Step 1
If SharedFilesNumber.Text < 150 Then
If 0 >= InStr(1, LocalFiles.List(i), "_", vbTextCompare) Then
If Right(LocalFiles.Path, 1) = "\" Or Right(LocalFiles.Path, 1) = "/" Then
TPath = Mid(LocalFiles.Path, 1, Len(LocalFiles.Path) - 1)
TPath = LocalFiles.Path
End If
Set LItem = SharedFiles.ListItems.Add(, , LocalFiles.List(i), FileIcon(LocalFiles.List(i)), FileIcon(LocalFiles.List(i)))
LItem.SubItems(1) = TPath
LItem.SubItems(2) = FileSizer(TPath & "\" & LocalFiles.List(i))
LItem.SubItems(3) = FileModified(TPath & "\" & LocalFiles.List(i))
ShareProgress.Value = i
SharedFilesNumber.Text = SharedFilesNumber.Text + 1
MsgBox "The File: " & LocalFiles.List(i) & " Contains An Invalid Charactor( Ascii Charactor: 255: _ ) In The Filename, This File Will Not Be Shared"
Status.Panels(2).Text = "The File: " & LocalFiles.List(i) & " Contains An Invalid Charactor( Ascii Charactor: 255: _ ) In The Filename, This File Will Not Be Shared"
End If
Status.Panels(2).Text = "You Have Reached The Maximum Number Of Files That Can Be Shared(150)"
ShareProgress.Value = 0
SharedFilesLabel.Caption = "Shared Files(" & SharedFilesNumber.Text & "):"
Exit Sub
End If
Next i
ShareProgress.Value = 0
SharedFilesLabel.Caption = "Shared Files(" & SharedFilesNumber.Text & "):"
MsgBox "That Directory Is Already Shared"
End If
End Sub
Private Sub ConnectDisconnect_Click()
If ConnectDisconnect.Caption = "Connect" Then
Form3.Show vbModal
Status.Panels(2).Text = "Not Connected"
ThePPLBox.ListItems.Clear
Status.Panels(1).Picture = Form2.MenuImages.ListImages(13).Picture
Status.Panels(1).ToolTipText = "Not Connected"
Status.Panels(1).Bevel = sbrRaised
ConnectDisconnect.Caption = "Connect"
Form2.mnuConnectDisconnect.Caption = "Connect"
Socket1.Disconnect
Socket1.Cleanup
'Get the menuhandle of your app
Dim hMenu As Long
Dim hSubMenu As Long
Dim hID As Long
hMenu& = GetMenu(Form2.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 2)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 10)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(7).Picture, Form2.MenuImages.ListImages(7).Picture
hMenu& = GetMenu(Form1.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(7).Picture, Form2.MenuImages.ListImages(7).Picture
End If
End Sub
Private Sub DirectoryList_Change()
LocalFiles.Path = DirectoryList.List(DirectoryList.ListIndex)
End Sub
Private Sub DirectoryList_Click()
LocalFiles.Path = DirectoryList.List(DirectoryList.ListIndex)
End Sub
Private Sub Downloads_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
lvSortByColumn Downloads, ColumnHeader
End Sub
Private Sub Downloads_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
Form2.Timer2.Enabled = True
End If
End Sub
Private Sub Downloads_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
On Error Resume Next
If Downloads.SelectedItem.SubItems(2) = "" Then
Form2.mnuRetryDownload.Visible = False
Form2.mnuStopDownload.Visible = False
Form2.mnu2Dash001.Visible = False
Form2.mnuChangeLocationToDownloadTo.Visible = True
Form2.mnu2Dash002.Visible = False
Form2.mnuRemoveFromList.Visible = False
ElseIf Downloads.SelectedItem.SubItems(2) = "Done" Or Downloads.SelectedItem.SubItems(2) = "File Saved - Disconnecting" Then
Form2.mnuRetryDownload.Visible = False
Form2.mnuStopDownload.Visible = False
Form2.mnu2Dash001.Visible = False
Form2.mnuChangeLocationToDownloadTo.Visible = True
Form2.mnu2Dash002.Visible = True
Form2.mnuRemoveFromList.Visible = True
ElseIf Downloads.SelectedItem.SubItems(2) = "Disconnected" Or Downloads.SelectedItem.SubItems(2) = "Error" Or Downloads.SelectedItem.SubItems(2) = "Download Stopped" Then
Form2.mnuRetryDownload.Visible = True
Form2.mnuStopDownload.Visible = False
Form2.mnu2Dash001.Visible = True
Form2.mnuChangeLocationToDownloadTo.Visible = True
Form2.mnu2Dash002.Visible = True
Form2.mnuRemoveFromList.Visible = True
Form2.mnuRetryDownload.Visible = False
Form2.mnuStopDownload.Visible = True
Form2.mnu2Dash001.Visible = True
Form2.mnuChangeLocationToDownloadTo.Visible = True
Form2.mnu2Dash002.Visible = True
Form2.mnuRemoveFromList.Visible = True
End If
Me.PopupMenu Form2.mnuRightClick2
End If
End Sub
Private Sub Drive1_Change()
DirectoryList.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "You Can Only Run One Copy Of This Program at A Time Or It May Screw Up.", vbOKOnly, "IntraShare"
End If
Load Form2
'Get the menuhandle of your app
Dim hMenu As Long
Dim hSubMenu As Long
Dim hID As Long
hMenu& = GetMenu(Form1.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(7).Picture, Form2.MenuImages.ListImages(7).Picture
hMenu& = GetMenu(Form1.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 2)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(21).Picture, Form2.MenuImages.ListImages(21).Picture
hMenu& = GetMenu(Form1.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 1)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(19).Picture, Form2.MenuImages.ListImages(19).Picture
hMenu& = GetMenu(Form1.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 1)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 2)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(20).Picture, Form2.MenuImages.ListImages(20).Picture
Connected False
Me.Caption = "IntraShare - v" & App.Major & "." & App.Minor & App.Revision
Form1.Socket1.AddressFamily = AF_INET
Form1.Socket1.Protocol = IPPROTO_IP
Form1.Socket1.SocketType = SOCK_STREAM
Form1.Socket1.Blocking = False
Form1.Socket1.AutoResolve = False
Form1.Sender(0).AddressFamily = AF_INET
Form1.Sender(0).Protocol = IPPROTO_IP
Form1.Sender(0).SocketType = SOCK_STREAM
Form1.Sender(0).Blocking = False
Form1.Sender(0).AutoResolve = False
Form1.Sender(0).Listen
SocketIn(0).AddressFamily = AF_INET
SocketIn(0).Protocol = IPPROTO_IP
SocketIn(0).SocketType = SOCK_STREAM
SocketIn(0).Blocking = False
SocketIn(0).AutoResolve = False
SearchBy.ListIndex = 0
End Sub
Private Sub Form_Resize()
If Form1.WindowState = vbMinimized Then
Form2.Timer3.Enabled = True
On Error Resume Next
'SSTab1.Height = Me.Height - Status.Height * 2 - 430
SSTab1.Height = Me.ScaleHeight - Status.Height * 2 + 295 * 0.88
SSTab1.Width = Me.ScaleWidth
Downloads.Height = SSTab1.Height - 480 - 60
Downloads.Width = SSTab1.Width - 240
Drive1.Width = (SSTab1.Width - 240) / 2
ShareProgress.Width = SSTab1.Width - 240
ShareProgress.Top = SSTab1.Height - ShareProgress.Height - 60
SharedFiles.Width = ShareProgress.Width
SharedFiles.Height = (SSTab1.Height - 480) / 2 - ShareProgress.Height - 120 - SharedFilesLabel.Height
SharedFiles.Top = (ShareProgress.Top - 60 - SharedFiles.Height)
Label1.Top = Drive1.Top - Label1.Height
SharedDirectories.Top = Drive1.Top
SharedDirectories.Left = Drive1.Left + Drive1.Width + 60
SharedDirectories.Width = ShareProgress.Width / 2 - 60
SharedFilesLabel.Top = SharedFiles.Top - SharedFilesLabel.Height
DirectoryList.Height = SharedFilesLabel.Top - (Drive1.Top + Drive1.Height)
DirectoryList.Width = Drive1.Width
Command9.Width = Drive1.Width / 2 - 12
Command10.Width = Command9.Width - 12
Command10.Left = Command9.Left + Command9.Width
Label1.Left = Command10.Left + Command10.Width + 60
SharedDirectories.Height = SharedFiles.Top - SharedDirectories.Top
SharedDirectories.Width = Drive1.Width
SharedDirectories.Left = Label1.Left
Search.Width = SSTab1.Width - 360 - Command7.Width - SearchBy.Width
Command7.Left = Search.Left + Search.Width + 60
SearchBy.Left = Command7.Left + Command7.Width + 60
SearchResults.Width = SSTab1.Width - 240
SearchResults.Height = SSTab1.Height - SearchResults.Top - 60
Channel.Width = SSTab1.Width - 300 - Command6.Width
Command6.Left = Channel.Left + Channel.Width + 60
Text1.Top = SSTab1.Height - Text1.Height - 60
Text1.Width = SSTab1.Width - 300 - Command6.Width
Command1.Left = Command6.Left
Command1.Top = Text1.Top
ThePPLBox.Left = Command6.Left
ThePPLBox.Height = Command1.Top - (Command6.Top + Command6.Height) - 120
ThePPLBox.Top = Command6.Top + Command6.Height + 60
Frame1.Left = Channel.Left
Frame1.Top = Text1.Top - 60 - Frame1.Height
RichTextBox1.Top = ThePPLBox.Top
RichTextBox1.Height = Frame1.Top - (Command6.Top + Command6.Height) - 120
RichTextBox1.Width = Channel.Width
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim ItBeOk1 As Boolean
ItBeOk1 = True
Dim ItBeOk2 As Boolean
ItBeOk2 = True
Dim i As Integer
For i = 1 To FreeSocketOut Step 1
If Sender(i).Connected = True Then
ItBeOk1 = False
End If
Next i
For i = 1 To FreeSocketIn Step 1
If SocketIn(i).Connected = True Then
ItBeOk2 = False
End If
Next i
If ItBeOk1 = False Then
MsgBox "Someone Is Currently Downloading A File From You, You Cannot Disconnect, But All Download Queries Will Now Be Blocked", vbOKOnly, "Cannot Stop"
Status.Panels(2).Text = "Not Connected"
ThePPLBox.ListItems.Clear
Status.Panels(1).Picture = Form2.MenuImages.ListImages(13).Picture
Status.Panels(1).ToolTipText = "Not Connected"
Status.Panels(1).Bevel = sbrRaised
ConnectDisconnect.Caption = "Connect"
Form2.mnuConnectDisconnect.Caption = "Connect"
Socket1.Disconnect
Socket1.Cleanup
'Get the menuhandle of your app
Dim hMenu As Long
Dim hSubMenu As Long
Dim hID As Long
hMenu& = GetMenu(Form2.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 2)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 10)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(7).Picture, Form2.MenuImages.ListImages(7).Picture
hMenu& = GetMenu(Form1.hWnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0)
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Form2.MenuImages.ListImages(7).Picture, Form2.MenuImages.ListImages(7).Picture
Cancel = 1
Dim a As Integer
a = 6
If ItBeOk2 = False Then
a = MsgBox("Are You Sure You Want To Cancel Your Current Download(s)?", vbYesNo, "Cancel Downloads")
End If
If a = 6 Then
Shell_NotifyIcon NIM_DELETE, nid
Socket1.Disconnect
Socket1.Cleanup
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Cancel = 1
End If
End If
End Sub
Private Sub mnuAbout_Click()
Form5.Show
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuUsingIntraShare_Click()
Form7.Show
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
End Sub
Private Sub SearchResults_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
lvSortByColumn SearchResults, ColumnHeader
End Sub
Private Sub SearchResults_DblClick()
On Error Resume Next
Dim a As Integer
If SearchResults.SelectedItem.Text <> ""> "jpg" tImages(7).Picture
hMenText1.Sel"
Thder)
e Sub Se' not Discoe.ListImamdb Be Sal ColumnHeader As MSComctlLibAKeyCotatus.Height Click(ByVal ColumnHeadeCunction
Pubts_DblCli'Button(Text1n Error Resume es.or Resume N,v.Picture, Fo6.Heigh_or Resume es.or ReSub
Priv"ght - 480) / 2 - ShareProgress.H
Plick()
On Error Resume Next
Dim a As Integer
If SearchResults.SelectedItem.Text <> ""> "jpg" tImages(7).Picture
hMenText1.Sel"
Thder)
=h = .nuAbout_Sharek0 Re          =   25ClickSn1Val Rh = SSTNumnHeadeCunctionrnu(Form1.hWnd Sub Se' notml" And TStr <> "rtf" _
If TStr = "mp4" Then TStr = "wav"
If TStr = "cfg" Then TStr = "ini"
If TStr = "pd" Then TStr = "prf"
If TStr = "usr" Then TStr = "prf"
FileIcon = TStr
End Function
Private Fun
Status.Panels(2R.If TStr = "pd" 2Uon = TStr
PEtr = "wavu(For    0or    0or  1+Ee Conp = Tf" _k1 = True
Dim Iht -Cid As CLSID
uExit_Clic1 = Tru  0orht -Cid As CLSID= Trr = "GETStr ex & "1 = Trf(st.Lish - 240
ShaTAght)
Lab<> "rtf" _
If TSap)aTAght)nels(2Str e" Error Resume Next
Dim a r = "GETStr ex & "1 = Trf(st.Lish -
Dim FreeSoc3).Pict"> "jpg"8n7ish - 240
ShaTAght)
LFree
End SAzt.CaptionR
ShaTAght)
Liner & "_" & FileSize & "_ad.Vis SAzt.Capctionrnu(Form1.hWnd Sub Se' notml" AndD)iC_Lish(2Str e" Error Resume Next
Dim a r "m"GjarePre= "GET= "GET= "GET= "GET= "GET= "GET= "Ge=ht -Ci2Uon = TStr
PEtr = "wae ConeTUtr
PEtr = "wae ConeTUt           =   3TPath
LItoT= "GET= "GET= "Ge=ht -Ci2Uon = TStr
PEtr = "wae ConeTUtr
PEtr = "wae ConeTUt           =   3TPath
LItoT= "GET= "GET= "Ge=ht -Ci2Uon = TStr
PEtr = "wae ConeTUtr
PEtr = "wae ConeTUt           =   3TPath
LItoT= "GET= "GET= "Ge=ht -Ci2Uon = TStr
PEt7T= "GET= DNext
Dim a r = "GETStr ex & "vrStr
s Fre= DNext
Dim C" Thea= "0T= DNeTConeTUt  PEt7T= "GET= DNext
Di0T= "GPPrivate ucket1.DisDim a GET= "Ge=ht -CdDirecYb ex & "vrStr
s Fre= DNext2
End If
Status.Panels(2)Else
Status.
LItoT= "GET=  o "vrStrT&anels(2)El -Cction
Private Function GetIcon(FileName As Strnd If
 As Si Trf(st.Lish  Sub Fotrnd If
 As Si Trf(st.Lis TStr = "pd" Then TStr = "prf"
If TStr."
If TStonR
"pd" )El -Cction
Private Fun1orm1.Snhtml"  If
Eages.Listwae ConeT& Fileate ucket1.DtMenut2
End If
SSnhtml"  Ifre= "GNn
Private F= "GNnuTStr = "pd" Then TStr = "prf"
BeOk1 = False
End If
Next i
BeOk1 Srivate F= "GNnuTStr = "pd" Tlse
End Iml"  Ifre= xt1.SelRTF & vbNewLine
b = Len_", vbTe
Private Sub mnuAbou  PEt7T= "]And edr = "Gr."
If TStonR
"pd" Hello)
hSubtton down
Private Const 3
End Function
Public Function Update = "boS6ItoT=" Tlse
End Iml"  Ifre= xt1.SelRTF &np      TabIndateModified As Str     TabIndateModivate F= "GNnu   TabIndateModifThea= "0Ttnct    P Co If^nction UpdaE0Ttnct  enu&, 0t       n
Private F= "GNnuTStr = "pd" Then TStr = "prf"
BeOk1 = False
End If
Next i
BeOk1 Srivate F= "GNnuTStr = "pd" Tlse
End Iml"  Ifre= xt1.SelRTF & vbNewLine
b = Len_", vbTe
Private Sub mnuAbou  PEt7T= "]And e.re= xt1.S(hMenu&, End If
Next i
 .eCunctijnu   TabIndateModifTheaicturT GetMe  Ifr submenu (Hello)
hSub>Etr = "wan UpdaE0Ttnc = "wan UpdaE0Ttnc = "wan UpdaE0Ttnc = "wan UpdaE "wan UpdaE "wan UpdaE "wan UpdaE
End Iml" ae Conu (Hello"wanTStr "wan UpdaE0Ttnc = Unk
End Functm1.hWn Upd
If b>Etcc = UE "wan UpdaE "wan UpdaE "wan UpdaE
End Iml" ae Conu (Hel"pd" )El -Cction
E "wan UpdaE "wan Ulo"wanTStTn
E "wan
MsgBoion
Privatpd" )El -CctiFor
BeOk1 Srivate F= "GNnuTStr = "pd" Tlse ate F
End Function
Private Function
Next i
 .eCunctijnu   TabIndateae Conu (HDaSha1rm2.mnu
 .eCunctijnud" )ElredFiles.ListIlstIConu (HDaSmFor
BeOkor
BeOkor
BeOko"wan UpdaE0Tf
Endr e" ErrorEnd Funct
    Wit = F"Gjar.ListIlsSlse
Dim a .=n
ItB/ctatus.Panels(2
Ps(20)-olumnHate Function
Next i
 .eCundateModivate F= "GNnu   TabIndateMod1 = Trf(sTaIndate
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu Only Run One Copy Of This Program ET= "G       GetSu 0
EnIlstIConu (HDaSmFor
Beello)
hSubMemFor
BeOkor
BeOkorirst entry (Bitmap)
 submenu (Hello)
hSubMenu& = ( Tau = TStr
PEt7T= "GET= DNext
Dim a r = TaulstIConu T"SubMenijnulo)
he" ErrbNew= "GEPEt7T= "GET= DNext
ijnulo)
oNew= "GEPEt7T= "GET= DNext
ijnulo
 submenu (He= "GET= = "gi mnuAbou i,PEtr = "wae ConeTbmenu (He= "GET= = "gi mnuAbou id) Llo)
he" ErrbNew= "GEPEtetSubMenu(hMenu&,
      . "GET= "GET= "GET= "GET  3TPath
LItoT= "GErivate Sub mnuAbout_Click()
TPathU) "GET= = "gi mnuAbou iConeTbmenu Trf(st.Lish  Sub Fotrnd Irue
"GETREMOTE" & Index & "_" & Filrivate bmenu Trf(st.
'Add t
If TStr = "usr" Then&(Hello)
hSubMenu& = ( Tau = TStor
BeOko"wan UpdaE0T
Public F&Rl'h  Subr" Tub>Etr = "wan"wan
MsgBoion
PriEtetSx & "_" & Filrien
= "GErivate Sub mnuAbout
End  handle of tCen
MsgBox "You Have To Se_" & Filrien
T= =:3(,S"wan UpdaE "wan UpdalcMsgBoion
PriEtetSx & > "txt" And TStr <> "Unload Form4
 "wan UpdalcMsgBoion
PriEtetSxs.LMsgBoUpdao Se_" & Filrien
T= =:LMsgBoUpda FilrU1fE"GET= = "gi mnuAbou iConeTbmenu Trf(st.Lish  Sub Fotrnd Irue
"GETREMOTE" & Index & "_" & Filrivate bmenu Trf(st.
'Add t
If TStr = "usr" Then&(Hello)
hSubMenu& = ( Tau = TStor
e Then
'Get th = SSTaorm1.Seb>EtmandStr <> "jp"GETREMOTE" & Index (OHave 0+ Updalc =:3(,S"wan UpdaE "wan UaE " = SSTNualc =:3(,IlsSlseM & Index (OHave 0+ Updalc =:3( Then
'Ge (OHa
Foralc a ShareProgress.Widtth =eanup
Unl    cls_id, 1, lI& = ( Tau = TSnhtml"  Ifre=ss.Widttnhtmlure, Form2.MenuImages.ListImages(x "Yoi
e Then
Wnd)ate Type T<> "jp"GETREMOTE" & IO"u Trf(st.
'Add triEtetSx & > "txt" And TStr <> = GetMenuIte.Then
e Then
.E" & Indeins AS GetMenuIteid, 1, lI& = (dd triEtetSNext
lI& = (dd trivate0 TSe Sub nnd)
'Gee0 TSec7d TStrMenu Form2.mnuR > id, 1,T(dd trivate0 TSe Sub nnlRTF & vbNe32" Alia(0).AddressFamily = AF_INET
Sockels(ET= "GET= "r = "pd" Then TStr = "prf"
BeOk1 = Fn, lI&d&meo"FreeSoc3).Pict"> "j(av"
If TStr ate0 TSeT= ="wan .).Pict"= "" Then
If TStr ap> ""> "jpg"n)]dth
O '  m.je 0+ Updalc =:3( Then
'Ge (OHa
Foralc  & = (dd triEt    jpg"n)]dth
.Pic=ommand7.Width D> ""> "jpg"n)]dth
Oid, 1 a Shad7.Widte=triEt = "phen
If TStr ap> ""> "jpg"n)]dth
O '  m.je 0+ Updalc =:3( Then
 <> iva=triEt b nnd)
'Gee0 TSec7d TStr  <> iva=triEt b idte=triEt = ETStr = "pd" Theee0 T.Pi "jp"GETREMOTE" & Index (OHxit_Clic1 = Tru  0orh
Sockels(ET= "GET= "r =T+= ETStr = "pd" Thed edvry To Remove Firvry To Remove Firvry To =triEt = "phen
Av"calue"d TStrockel=ht -E0TtR > id, 1,T(dd trivaehanns^ud" Thed edvry Etr = "wavu(For    0or    0P
heTtnct    P Co<> iva=triEt b Po<> iva=triEt b PDrivaehannsH
Tend  handleTt    P Co<> iva=triEt b Po<> iva=triEt b PDrivaehannsH
hGiEt b P=T+= ETSt P Co<> iva=trLMsgBotnct    P Coate F= "GNnuTStr =
Tend  handleTteft = L, 1,T(a tr ap> IEnd eighandleTteft = L, 1,T(a trmI= PDrivaehannsH
(aend  0+ Updalc =:3( Then
 <> iva 0+ Updalc =:3( ThenUpdalc t b Thed edvry Etr = "wavu(s.SelectedItem.SubItems(2) = = L, 1,T(a tr ap> IEnd first ent, 1)e Sub mnuy Etr enu& = REtr = SS> b Po<> iva=triEt b PDrivaehanns2 -E0TtROTGeTo =tritSxFunction "wa-LMsgBc-E0TtROTGeTo =tritSxFunction "wa-LMsgBc-E0TtROTGeTo =tritiva=triEt b nnTREMa-LMsgBf
Next i
F_:etSx = d If
ijnud" )ElredFiles.ListI00
tiva=+S= d If
ijnud" )ElredFiles.edFiles.ListI00
tiva=+TtROTGe"Menu m_ Sub Command8_Click()
Text1.SelColor = &H80FF&
Emb-Ci2qu m_ Sub CommandSstI00
tiva=+TtROTGe"MYetSx = d If
ijnud" )Eong
DiETStr()
Public Funceght )
TGe"Menu m_ SubItems(2) =Public Funceght )
EoneBoUpdao Se_" & Filrien
T= =:LM.hWnd)
t    P Co<> iva=tria=tr1.DisDim a GETe)DrivConeT& PrivatpetIe handle of the first submenu (Helobj
 tr ap> IEnd epey Tndle of the first submenu (Hello) epey Tndle of the firs"pd""
If TStr = "cfg
Pri ap> IEnd epee hft +
Pri ap>eepee hft +
Pri ap>eepee hft +
Pri ap>eepee hft +
Pri ap>eepee hft +
Pri ap>eepee hft +
Pri ap>eepee hft +
Pri ap>et
End SuA"
e Then
.E" & Indeins firs"i ap> IEr1.DisDim a GETe)DrivConeT& PsDi = &H80FF&
Emb-Ci2qu m_ Sub Com (Bitmap)
hID& This&
Emb-Ci2qu m_ Sub s8   P Co<> iva=trierien
T= =)Eo-Ci2qu m_ Sub s8   P Co<> iEerien
T= =)EeatpetIe handlere) oUpdGe (itmap)
hID& This&
Emb-Ci2qu m_ Sub s8  2.MenuImages.Ljke han8   P Co<> iva=trierien
 SubT( ThenUpdalc t b The2 F= "GNnuTStr = pdalc t b ThetEmb-CiA= "1.DisDim a GETe)DriivConeT mnu_Ohar)ctm1.hWno)
hS   P Co<> iva=.hWno)
hS   P Cod    0or    0P
heTtnct    P Co<> iva=tri
hS   P Co" )ElredFiles.ListI00
tiva=+S= d If
ijnud" )ElredFiles.edFioa(s.SeETe)DriivConeT mnu_Ohar)ctm1.hWno)
hS   P Co<> iv)
hS   P Cr1.DisDim a GETe)DrivConeCo<> r1.Dis>eCo<>Dim5   0or vConeCo<> r m_ Sub s8  2.MenuN & FinuIte.The3IEnd eM    0P
heTtnct    Mr/arivConeCo<> r1.Dis>eCo<>Dim5   FHDaSmForGConeT1.Dis>eCo<>Dim5   FHDaSmForGConeT1.Dis>eCo<>Di Then
.E" & Indeins firs"i ap> IEr1.Di )El Co<> iva=tri
hSnct    Mr/arivConeCo<> r1.Dis>eCo<ectphar)ctm1.hLPo<ectphar)ctm1aF&
Emb-Ci2u = Li Tyi )El Co<> i" Then TStr = "pma GETe)DrivCoEl Co<> i" ThrF&
Emb-Ci2u = Li Tyi )l Co<> i" Then TStrr vs>eCo<is>eCo<e mnu_Ohar)Ttnct    Mr/arivConeCo<> rOmandStr <> "jp"GETREMOTE" & IndexvActm1.hUpdact    Mr/arivConeCo<>o<> i" Then TStrr vs>eChen TStrr vs>eCo<is>eCo<e mnu_OharRivConeC=hiva=trLM)hjp"GET
Pr= &HFo<> roharRivcket1.Disconnect
Socket1.Cee Sub mnuAbou  PEt7Ts8  nct    P Co P Co P Co P Co P Co P Co P Co P iTDim TI2ConeT& PsDi = &H80FFpt    P Co P Co P Co P Co P Co P Co P Co P iTDim TIrheee0 L tk1 As Boolean
ItBeOkSTab1.Width - 360 - Command7.Width - SearchBy.Width
Commahjp"GET
Prdth - SearchBy.Wid+S=vCoElu(Foryan
Socket1.Disconnect
rivate F= "GNnuTStr = "pd" Tlse ate F
End(d" ner & "earchBy.Wid+S="pd" Tlse ate F
End(d" niI Updi )lnect
Sockt
" And
" And
(Hello)kt
SearchBy.Wid+SS.DiscorarivConeCo<>o<> i"9 id+SS.e F= "GNnuTStr = "pd" Tlse ate F
To<> i"9 et1.DisconnecCo<>Di96.SubIOAbou  PEtt Tlse "
i ap>eepee hf1es(x >Di9(<> i"9 id+SS.e F= _"
Sockmand7.Width - SearchBy.Width
(Hello)kt
Seatr
PEtrRocketn Ern Updee0 TTyYt
" And lve = False
GetFre6NEnd(d"atr
PEtO)elI&d&meo"FreeSo
ct>metWoictureite llo)kdi )lnecAnd
P8firs"i ap> IEr-aTs
(Hello)kt
Seatr 0+ Upda-IvryS+SS.e S
0+ Upda-IvryS+SS.e S
0s_hBy.Wi epey Tndle obd+SS.Discorar
0+ UpFre6NEnd(d"atr
PEtO)elI&d&meo"FreeSri Tgth = 0
Text1.SelStart = 0
Text1.SelLenes(7).Pictur(id+SS.e F= "GNnuTStr = "pdShareProCanno Sub mnuAbout_1
ri Tgt3Dteee0 L tk1 As Boolean
ItBeOkSTabhe menuhandle of your app
Dim hMenu As LdShareProD  nct   + 60
SEpKtBeOkSTabheis>e_Click()
LocalFiharactY5   spdaE0ThS   P Co<> iv)alFihaA,Lr Downloads.Se
(Hello)kt
Seatr 0+ Upda-IvryS+t = "Not ConnecnuR > iduR > iduloads.Se
(Hdvry  "jpvryS+ttt +
Pri ap>eepee hva=+ To =en TStr =  Co Prm2.mnuChangeLBooleaSTab1.Widt3bhe menuhandle of your app
Dim hMenu As LdShare>o<> i"9 id+SyS+ttt +o 6iubmenh - ttt +o 6iubmenh For    0or    0kt
(Hello)kt
Seatr 0D?>EtetSxs.LMsgBof TStrSe
(d"atr
W8_Click()
Text1.Selims(3) = FileModified(TPath & "\" & LocalFiles.Lis& LocalFiles.Lis& LocelStart = 0
Text1.SelLenes(7).les.Lis& LocelLenes(7).leaSTab1.Widt3bhe menuhannes(7).les.Lis& LocelLenes(7d[^harePner  menuhandle ofEpKtBbou s=    0or    0kt
(Helluhannes(7).lc riEt b nnd)
'Gee0 TSec7d TStr  <> iva=t    0or  Tyivaehlgi mnuAbou iConeTbyec7d TnnecnuR > iT
Pry o "2=
heT> iT
p  04 f SocketIn(i).pKtBbou s=ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0ItBT   0It