home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Download_f4162012122001.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-12-13  |  51.1 KB  |  1,392 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  5. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  6. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  7. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  8. Begin VB.Form KaZaA 
  9.    Caption         =   "My KaZaA"
  10.    ClientHeight    =   6372
  11.    ClientLeft      =   132
  12.    ClientTop       =   708
  13.    ClientWidth     =   9372
  14.    Icon            =   "Form1.frx":0000
  15.    LinkTopic       =   "Form1"
  16.    ScaleHeight     =   6372
  17.    ScaleWidth      =   9372
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin MSWinsockLib.Winsock SearchSpecify 
  20.       Left            =   48
  21.       Top             =   240
  22.       _ExtentX        =   593
  23.       _ExtentY        =   593
  24.       _Version        =   393216
  25.    End
  26.    Begin MSComDlg.CommonDialog CommonDialog1 
  27.       Left            =   528
  28.       Top             =   3216
  29.       _ExtentX        =   677
  30.       _ExtentY        =   677
  31.       _Version        =   393216
  32.    End
  33.    Begin InetCtlsObjects.Inet Inet1 
  34.       Left            =   48
  35.       Top             =   3216
  36.       _ExtentX        =   804
  37.       _ExtentY        =   804
  38.       _Version        =   393216
  39.    End
  40.    Begin VB.ListBox SearchList 
  41.       Height          =   3120
  42.       ItemData        =   "Form1.frx":058A
  43.       Left            =   0
  44.       List            =   "Form1.frx":058C
  45.       TabIndex        =   16
  46.       Top             =   3168
  47.       Visible         =   0   'False
  48.       Width           =   1980
  49.    End
  50.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  51.       Height          =   4668
  52.       Left            =   2016
  53.       TabIndex        =   13
  54.       Top             =   1632
  55.       Width           =   7356
  56.       ExtentX         =   12975
  57.       ExtentY         =   8234
  58.       ViewMode        =   0
  59.       Offline         =   0
  60.       Silent          =   0
  61.       RegisterAsBrowser=   1
  62.       RegisterAsDropTarget=   1
  63.       AutoArrange     =   0   'False
  64.       NoClientEdge    =   0   'False
  65.       AlignLeft       =   0   'False
  66.       NoWebView       =   0   'False
  67.       HideFileNames   =   0   'False
  68.       SingleClick     =   0   'False
  69.       SingleSelection =   0   'False
  70.       NoFolders       =   0   'False
  71.       Transparent     =   0   'False
  72.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  73.       Location        =   "http:///"
  74.    End
  75.    Begin VB.Frame Frame1 
  76.       Caption         =   "Scanning"
  77.       ForeColor       =   &H00008000&
  78.       Height          =   1548
  79.       Left            =   2016
  80.       TabIndex        =   2
  81.       Top             =   48
  82.       Width           =   7356
  83.       Begin MSWinsockLib.Winsock Winsock1 
  84.          Index           =   0
  85.          Left            =   1584
  86.          Top             =   1152
  87.          _ExtentX        =   593
  88.          _ExtentY        =   593
  89.          _Version        =   393216
  90.       End
  91.       Begin VB.Timer Timer1 
  92.          Enabled         =   0   'False
  93.          Interval        =   1
  94.          Left            =   1920
  95.          Top             =   1152
  96.       End
  97.       Begin VB.Frame Frame3 
  98.          Caption         =   "Scan Speed"
  99.          Height          =   492
  100.          Left            =   2112
  101.          TabIndex        =   29
  102.          Top             =   1008
  103.          Width           =   1452
  104.          Begin MSComctlLib.Slider Slider1 
  105.             Height          =   252
  106.             Left            =   96
  107.             TabIndex        =   30
  108.             Top             =   192
  109.             Width           =   1308
  110.             _ExtentX        =   2307
  111.             _ExtentY        =   445
  112.             _Version        =   393216
  113.             Min             =   -1000
  114.             Max             =   -1
  115.             SelStart        =   -1
  116.             TickStyle       =   3
  117.             Value           =   -1
  118.          End
  119.       End
  120.       Begin VB.Frame Frame2 
  121.          Caption         =   "Search"
  122.          ForeColor       =   &H00008000&
  123.          Height          =   1548
  124.          Left            =   3612
  125.          TabIndex        =   17
  126.          Top             =   0
  127.          Width           =   3756
  128.          Begin VB.Timer Timer2 
  129.             Enabled         =   0   'False
  130.             Interval        =   1
  131.             Left            =   1728
  132.             Top             =   528
  133.          End
  134.          Begin VB.CheckBox SmartSearch 
  135.             BackColor       =   &H00FFC0C0&
  136.             Caption         =   "SmartSearch"
  137.             BeginProperty Font 
  138.                Name            =   "Times New Roman"
  139.                Size            =   9
  140.                Charset         =   0
  141.                Weight          =   400
  142.                Underline       =   -1  'True
  143.                Italic          =   -1  'True
  144.                Strikethrough   =   0   'False
  145.             EndProperty
  146.             ForeColor       =   &H00FF0000&
  147.             Height          =   204
  148.             Left            =   96
  149.             MouseIcon       =   "Form1.frx":058E
  150.             MousePointer    =   99  'Custom
  151.             TabIndex        =   31
  152.             Top             =   1276
  153.             Width           =   1548
  154.          End
  155.          Begin VB.CheckBox SearchButton 
  156.             Alignment       =   1  'Right Justify
  157.             BackColor       =   &H0000FF00&
  158.             Caption         =   "Search"
  159.             BeginProperty Font 
  160.                Name            =   "MS Sans Serif"
  161.                Size            =   7.8
  162.                Charset         =   0
  163.                Weight          =   400
  164.                Underline       =   -1  'True
  165.                Italic          =   0   'False
  166.                Strikethrough   =   0   'False
  167.             EndProperty
  168.             ForeColor       =   &H00FF0000&
  169.             Height          =   204
  170.             Left            =   2880
  171.             MouseIcon       =   "Form1.frx":06E0
  172.             MousePointer    =   99  'Custom
  173.             TabIndex        =   19
  174.             Top             =   576
  175.             Width           =   756
  176.          End
  177.          Begin VB.OptionButton Option3 
  178.             BackColor       =   &H0000FF00&
  179.             Caption         =   "Search On Find"
  180.             BeginProperty Font 
  181.                Name            =   "MS Sans Serif"
  182.                Size            =   7.8
  183.                Charset         =   0
  184.                Weight          =   400
  185.                Underline       =   -1  'True
  186.                Italic          =   0   'False
  187.                Strikethrough   =   0   'False
  188.             EndProperty
  189.             ForeColor       =   &H00FF0000&
  190.             Height          =   156
  191.             Left            =   96
  192.             MouseIcon       =   "Form1.frx":0832
  193.             MousePointer    =   99  'Custom
  194.             TabIndex        =   22
  195.             Top             =   1054
  196.             Width           =   1548
  197.          End
  198.          Begin VB.OptionButton Option2 
  199.             BackColor       =   &H0000FF00&
  200.             Caption         =   "Current User"
  201.             BeginProperty Font 
  202.                Name            =   "MS Sans Serif"
  203.                Size            =   7.8
  204.                Charset         =   0
  205.                Weight          =   400
  206.                Underline       =   -1  'True
  207.                Italic          =   0   'False
  208.                Strikethrough   =   0   'False
  209.             EndProperty
  210.             ForeColor       =   &H00FF0000&
  211.             Height          =   156
  212.             Left            =   96
  213.             MouseIcon       =   "Form1.frx":0984
  214.             MousePointer    =   99  'Custom
  215.             TabIndex        =   21
  216.             Top             =   824
  217.             Width           =   1548
  218.          End
  219.          Begin VB.OptionButton Option1 
  220.             BackColor       =   &H0000FF00&
  221.             Caption         =   "All Users Found"
  222.             BeginProperty Font 
  223.                Name            =   "MS Sans Serif"
  224.                Size            =   7.8
  225.                Charset         =   0
  226.                Weight          =   400
  227.                Underline       =   -1  'True
  228.                Italic          =   0   'False
  229.                Strikethrough   =   0   'False
  230.             EndProperty
  231.             ForeColor       =   &H00FF0000&
  232.             Height          =   156
  233.             Left            =   96
  234.             MouseIcon       =   "Form1.frx":0AD6
  235.             MousePointer    =   99  'Custom
  236.             TabIndex        =   20
  237.             Top             =   604
  238.             Width           =   1548
  239.          End
  240.          Begin VB.TextBox Search 
  241.             Height          =   288
  242.             Left            =   96
  243.             TabIndex        =   18
  244.             Top             =   192
  245.             Width           =   3612
  246.          End
  247.          Begin VB.ListBox SmartSearchList 
  248.             Height          =   240
  249.             ItemData        =   "Form1.frx":0C28
  250.             Left            =   1584
  251.             List            =   "Form1.frx":0C2F
  252.             TabIndex        =   32
  253.             Top             =   240
  254.             Visible         =   0   'False
  255.             Width           =   1020
  256.          End
  257.          Begin VB.Shape Shape11 
  258.             BorderColor     =   &H00FF0000&
  259.             FillColor       =   &H00FFC0C0&
  260.             FillStyle       =   0  'Solid
  261.             Height          =   252
  262.             Left            =   48
  263.             Shape           =   4  'Rounded Rectangle
  264.             Top             =   1248
  265.             Width           =   1644
  266.          End
  267.          Begin VB.Shape Shape10 
  268.             BorderColor     =   &H0000C000&
  269.             FillColor       =   &H0000FF00&
  270.             FillStyle       =   0  'Solid
  271.             Height          =   216
  272.             Left            =   48
  273.             Top             =   1016
  274.             Width           =   1644
  275.          End
  276.          Begin VB.Shape Shape9 
  277.             BorderColor     =   &H0000C000&
  278.             FillColor       =   &H0000FF00&
  279.             FillStyle       =   0  'Solid
  280.             Height          =   214
  281.             Left            =   48
  282.             Shape           =   4  'Rounded Rectangle
  283.             Top             =   796
  284.             Width           =   1644
  285.          End
  286.          Begin VB.Shape Shape6 
  287.             BorderColor     =   &H0000C000&
  288.             FillColor       =   &H0000FF00&
  289.             FillStyle       =   0  'Solid
  290.             Height          =   214
  291.             Left            =   48
  292.             Shape           =   4  'Rounded Rectangle
  293.             Top             =   566
  294.             Width           =   1644
  295.          End
  296.          Begin VB.Image Image1 
  297.             Height          =   348
  298.             Index           =   3
  299.             Left            =   2592
  300.             Picture         =   "Form1.frx":0C44
  301.             Stretch         =   -1  'True
  302.             Top             =   480
  303.             Width           =   252
  304.          End
  305.          Begin VB.Shape Shape8 
  306.             FillColor       =   &H0000FF00&
  307.             FillStyle       =   0  'Solid
  308.             Height          =   300
  309.             Left            =   2688
  310.             Shape           =   4  'Rounded Rectangle
  311.             Top             =   528
  312.             Width           =   1020
  313.          End
  314.          Begin VB.Label ShowResults 
  315.             BackStyle       =   0  'Transparent
  316.             Caption         =   "Show Results"
  317.             BeginProperty Font 
  318.                Name            =   "Times New Roman"
  319.                Size            =   7.8
  320.                Charset         =   0
  321.                Weight          =   400
  322.                Underline       =   -1  'True
  323.                Italic          =   0   'False
  324.                Strikethrough   =   0   'False
  325.             EndProperty
  326.             ForeColor       =   &H00FF0000&
  327.             Height          =   348
  328.             Left            =   2928
  329.             MouseIcon       =   "Form1.frx":150E
  330.             MousePointer    =   99  'Custom
  331.             TabIndex        =   36
  332.             Top             =   912
  333.             Width           =   780
  334.          End
  335.          Begin VB.Image Image1 
  336.             Height          =   348
  337.             Index           =   2
  338.             Left            =   2592
  339.             Picture         =   "Form1.frx":1660
  340.             Stretch         =   -1  'True
  341.             Top             =   912
  342.             Width           =   252
  343.          End
  344.          Begin VB.Label Searching 
  345.             Alignment       =   1  'Right Justify
  346.             AutoSize        =   -1  'True
  347.             BackStyle       =   0  'Transparent
  348.             Caption         =   "Not Currently Searching"
  349.             Height          =   192
  350.             Left            =   2028
  351.             TabIndex        =   25
  352.             Top             =   1296
  353.             Width           =   1680
  354.          End
  355.          Begin VB.Shape Shape7 
  356.             FillColor       =   &H0000FF00&
  357.             FillStyle       =   0  'Solid
  358.             Height          =   348
  359.             Left            =   2688
  360.             Shape           =   4  'Rounded Rectangle
  361.             Top             =   912
  362.             Width           =   1020
  363.          End
  364.       End
  365.       Begin VB.TextBox EndGroup4 
  366.          Alignment       =   2  'Center
  367.          Appearance      =   0  'Flat
  368.          BackColor       =   &H00C0FFC0&
  369.          BeginProperty Font 
  370.             Name            =   "MS Sans Serif"
  371.             Size            =   7.8
  372.             Charset         =   0
  373.             Weight          =   700
  374.             Underline       =   0   'False
  375.             Italic          =   0   'False
  376.             Strikethrough   =   0   'False
  377.          EndProperty
  378.          Height          =   300
  379.          Left            =   1824
  380.          TabIndex        =   11
  381.          Text            =   "255"
  382.          Top             =   672
  383.          Width           =   396
  384.       End
  385.       Begin VB.TextBox EndGroup3 
  386.          Alignment       =   2  'Center
  387.          Appearance      =   0  'Flat
  388.          BackColor       =   &H00C0FFC0&
  389.          BeginProperty Font 
  390.             Name            =   "MS Sans Serif"
  391.             Size            =   7.8
  392.             Charset         =   0
  393.             Weight          =   700
  394.             Underline       =   0   'False
  395.             Italic          =   0   'False
  396.             Strikethrough   =   0   'False
  397.          EndProperty
  398.          Height          =   300
  399.          Left            =   1440
  400.          TabIndex        =   10
  401.          Text            =   "255"
  402.          Top             =   672
  403.          Width           =   396
  404.       End
  405.       Begin VB.TextBox EndGroup2 
  406.          Alignment       =   2  'Center
  407.          Appearance      =   0  'Flat
  408.          BackColor       =   &H00C0FFC0&
  409.          Enabled         =   0   'False
  410.          BeginProperty Font 
  411.             Name            =   "MS Sans Serif"
  412.             Size            =   7.8
  413.             Charset         =   0
  414.             Weight          =   700
  415.             Underline       =   0   'False
  416.             Italic          =   0   'False
  417.             Strikethrough   =   0   'False
  418.          EndProperty
  419.          Height          =   300
  420.          Left            =   1056
  421.          TabIndex        =   9
  422.          Text            =   "66"
  423.          Top             =   672
  424.          Width           =   396
  425.       End
  426.       Begin VB.TextBox EndGroup1 
  427.          Alignment       =   2  'Center
  428.          Appearance      =   0  'Flat
  429.          BackColor       =   &H00C0FFC0&
  430.          Enabled         =   0   'False
  431.          BeginProperty Font 
  432.             Name            =   "MS Sans Serif"
  433.             Size            =   7.8
  434.             Charset         =   0
  435.             Weight          =   700
  436.             Underline       =   0   'False
  437.             Italic          =   0   'False
  438.             Strikethrough   =   0   'False
  439.          EndProperty
  440.          Height          =   300
  441.          Left            =   672
  442.          TabIndex        =   8
  443.          Text            =   "24"
  444.          Top             =   672
  445.          Width           =   396
  446.       End
  447.       Begin VB.TextBox StartGroup4 
  448.          Alignment       =   2  'Center
  449.          Appearance      =   0  'Flat
  450.          BackColor       =   &H00C0FFC0&
  451.          BeginProperty Font 
  452.             Name            =   "MS Sans Serif"
  453.             Size            =   7.8
  454.             Charset         =   0
  455.             Weight          =   700
  456.             Underline       =   0   'False
  457.             Italic          =   0   'False
  458.             Strikethrough   =   0   'False
  459.          EndProperty
  460.          Height          =   300
  461.          Left            =   1824
  462.          TabIndex        =   7
  463.          Text            =   "0"
  464.          Top             =   288
  465.          Width           =   396
  466.       End
  467.       Begin VB.TextBox StartGroup3 
  468.          Alignment       =   2  'Center
  469.          Appearance      =   0  'Flat
  470.          BackColor       =   &H00C0FFC0&
  471.          BeginProperty Font 
  472.             Name            =   "MS Sans Serif"
  473.             Size            =   7.8
  474.             Charset         =   0
  475.             Weight          =   700
  476.             Underline       =   0   'False
  477.             Italic          =   0   'False
  478.             Strikethrough   =   0   'False
  479.          EndProperty
  480.          Height          =   300
  481.          Left            =   1440
  482.          TabIndex        =   6
  483.          Text            =   "0"
  484.          Top             =   288
  485.          Width           =   396
  486.       End
  487.       Begin VB.TextBox StartGroup2 
  488.          Alignment       =   2  'Center
  489.          Appearance      =   0  'Flat
  490.          BackColor       =   &H00C0FFC0&
  491.          BeginProperty Font 
  492.             Name            =   "MS Sans Serif"
  493.             Size            =   7.8
  494.             Charset         =   0
  495.             Weight          =   700
  496.             Underline       =   0   'False
  497.             Italic          =   0   'False
  498.             Strikethrough   =   0   'False
  499.          EndProperty
  500.          Height          =   300
  501.          Left            =   1056
  502.          TabIndex        =   5
  503.          Text            =   "66"
  504.          Top             =   288
  505.          Width           =   396
  506.       End
  507.       Begin VB.TextBox StartGroup1 
  508.          Alignment       =   2  'Center
  509.          Appearance      =   0  'Flat
  510.          BackColor       =   &H00C0FFC0&
  511.          BeginProperty Font 
  512.             Name            =   "MS Sans Serif"
  513.             Size            =   7.8
  514.             Charset         =   0
  515.             Weight          =   700
  516.             Underline       =   0   'False
  517.             Italic          =   0   'False
  518.             Strikethrough   =   0   'False
  519.          EndProperty
  520.          Height          =   300
  521.          Left            =   672
  522.          TabIndex        =   4
  523.          Text            =   "24"
  524.          Top             =   288
  525.          Width           =   396
  526.       End
  527.       Begin VB.Image Image1 
  528.          Height          =   396
  529.          Index           =   1
  530.          Left            =   2256
  531.          Picture         =   "Form1.frx":1F2A
  532.          Stretch         =   -1  'True
  533.          Top             =   624
  534.          Width           =   300
  535.       End
  536.       Begin VB.Label Command2 
  537.          BackStyle       =   0  'Transparent
  538.          Caption         =   "Clear List"
  539.          BeginProperty Font 
  540.             Name            =   "MS Sans Serif"
  541.             Size            =   7.8
  542.             Charset         =   0
  543.             Weight          =   400
  544.             Underline       =   -1  'True
  545.             Italic          =   0   'False
  546.             Strikethrough   =   0   'False
  547.          EndProperty
  548.          ForeColor       =   &H00FF0000&
  549.          Height          =   204
  550.          Left            =   2592
  551.          MouseIcon       =   "Form1.frx":27F4
  552.          MousePointer    =   99  'Custom
  553.          TabIndex        =   35
  554.          Top             =   720
  555.          Width           =   876
  556.       End
  557.       Begin VB.Shape Shape2 
  558.          FillColor       =   &H0000FF00&
  559.          FillStyle       =   0  'Solid
  560.          Height          =   300
  561.          Left            =   2400
  562.          Shape           =   4  'Rounded Rectangle
  563.          Top             =   672
  564.          Width           =   1116
  565.       End
  566.       Begin VB.Image Image1 
  567.          Height          =   396
  568.          Index           =   0
  569.          Left            =   2256
  570.          Picture         =   "Form1.frx":2946
  571.          Stretch         =   -1  'True
  572.          Top             =   240
  573.          Width           =   300
  574.       End
  575.       Begin VB.Label Command1 
  576.          BackStyle       =   0  'Transparent
  577.          Caption         =   "Scan"
  578.          BeginProperty Font 
  579.             Name            =   "MS Sans Serif"
  580.             Size            =   7.8
  581.             Charset         =   0
  582.             Weight          =   400
  583.             Underline       =   -1  'True
  584.             Italic          =   0   'False
  585.             Strikethrough   =   0   'False
  586.          EndProperty
  587.          ForeColor       =   &H00FF0000&
  588.          Height          =   204
  589.          Left            =   2592
  590.          MouseIcon       =   "Form1.frx":3210
  591.          MousePointer    =   99  'Custom
  592.          TabIndex        =   34
  593.          Top             =   336
  594.          Width           =   876
  595.       End
  596.       Begin VB.Shape Shape1 
  597.          FillColor       =   &H0000FF00&
  598.          FillStyle       =   0  'Solid
  599.          Height          =   300
  600.          Left            =   2352
  601.          Shape           =   4  'Rounded Rectangle
  602.          Top             =   288
  603.          Width           =   1164
  604.       End
  605.       Begin VB.Label Label5 
  606.          AutoSize        =   -1  'True
  607.          BackStyle       =   0  'Transparent
  608.          Caption         =   "0 KaZaA User(s) Found"
  609.          Height          =   192
  610.          Left            =   96
  611.          TabIndex        =   15
  612.          Top             =   1104
  613.          Width           =   1668
  614.       End
  615.       Begin VB.Label Label4 
  616.          AutoSize        =   -1  'True
  617.          BackStyle       =   0  'Transparent
  618.          Caption         =   "Not Currently Scanning"
  619.          Height          =   192
  620.          Left            =   96
  621.          TabIndex        =   14
  622.          Top             =   1296
  623.          Width           =   1620
  624.       End
  625.       Begin VB.Label Label3 
  626.          Alignment       =   1  'Right Justify
  627.          BackStyle       =   0  'Transparent
  628.          Caption         =   "End At:"
  629.          Height          =   204
  630.          Left            =   96
  631.          TabIndex        =   12
  632.          Top             =   720
  633.          Width           =   540
  634.       End
  635.       Begin VB.Label Label2 
  636.          AutoSize        =   -1  'True
  637.          BackStyle       =   0  'Transparent
  638.          Caption         =   "Start At:"
  639.          Height          =   192
  640.          Left            =   96
  641.          TabIndex        =   3
  642.          Top             =   336
  643.          Width           =   540
  644.       End
  645.       Begin VB.Shape Shape3 
  646.          FillColor       =   &H00C0FFC0&
  647.          FillStyle       =   0  'Solid
  648.          Height          =   444
  649.          Left            =   48
  650.          Top             =   1056
  651.          Width           =   2028
  652.       End
  653.       Begin VB.Shape Shape4 
  654.          FillColor       =   &H0080FF80&
  655.          FillStyle       =   0  'Solid
  656.          Height          =   300
  657.          Left            =   48
  658.          Shape           =   4  'Rounded Rectangle
  659.          Top             =   288
  660.          Width           =   2364
  661.       End
  662.       Begin VB.Shape Shape5 
  663.          FillColor       =   &H0080FF80&
  664.          FillStyle       =   0  'Solid
  665.          Height          =   300
  666.          Left            =   48
  667.          Shape           =   4  'Rounded Rectangle
  668.          Top             =   672
  669.          Width           =   2316
  670.       End
  671.    End
  672.    Begin VB.ListBox IPList 
  673.       Height          =   2736
  674.       ItemData        =   "Form1.frx":3362
  675.       Left            =   0
  676.       List            =   "Form1.frx":3364
  677.       TabIndex        =   0
  678.       Top             =   192
  679.       Width           =   1980
  680.    End
  681.    Begin VB.ListBox HiddenList 
  682.       Height          =   1008
  683.       ItemData        =   "Form1.frx":3366
  684.       Left            =   96
  685.       List            =   "Form1.frx":3368
  686.       TabIndex        =   24
  687.       Top             =   3168
  688.       Visible         =   0   'False
  689.       Width           =   1884
  690.    End
  691.    Begin VB.ListBox SearchHiddenList 
  692.       Height          =   1200
  693.       ItemData        =   "Form1.frx":336A
  694.       Left            =   144
  695.       List            =   "Form1.frx":336C
  696.       TabIndex        =   27
  697.       Top             =   4416
  698.       Visible         =   0   'False
  699.       Width           =   1596
  700.    End
  701.    Begin VB.ListBox AddressList 
  702.       Height          =   1008
  703.       ItemData        =   "Form1.frx":336E
  704.       Left            =   0
  705.       List            =   "Form1.frx":3370
  706.       TabIndex        =   26
  707.       Top             =   4224
  708.       Visible         =   0   'False
  709.       Width           =   1980
  710.    End
  711.    Begin RichTextLib.RichTextBox Hidden 
  712.       Height          =   876
  713.       Index           =   0
  714.       Left            =   0
  715.       TabIndex        =   28
  716.       Top             =   5424
  717.       Visible         =   0   'False
  718.       Width           =   1980
  719.       _ExtentX        =   3493
  720.       _ExtentY        =   1545
  721.       _Version        =   393217
  722.       Enabled         =   -1  'True
  723.       TextRTF         =   $"Form1.frx":3372
  724.    End
  725.    Begin RichTextLib.RichTextBox SaveBuffer 
  726.       Height          =   1212
  727.       Left            =   624
  728.       TabIndex        =   33
  729.       Top             =   4512
  730.       Visible         =   0   'False
  731.       Width           =   876
  732.       _ExtentX        =   1545
  733.       _ExtentY        =   2138
  734.       _Version        =   393217
  735.       Enabled         =   -1  'True
  736.       TextRTF         =   $"Form1.frx":3454
  737.    End
  738.    Begin VB.Label SearchLabel 
  739.       Caption         =   "Search Results:"
  740.       BeginProperty Font 
  741.          Name            =   "Lucida Sans"
  742.          Size            =   7.8
  743.          Charset         =   0
  744.          Weight          =   400
  745.          Underline       =   0   'False
  746.          Italic          =   -1  'True
  747.          Strikethrough   =   0   'False
  748.       EndProperty
  749.       ForeColor       =   &H00FF0000&
  750.       Height          =   204
  751.       Left            =   0
  752.       TabIndex        =   23
  753.       Top             =   2976
  754.       Visible         =   0   'False
  755.       Width           =   1692
  756.    End
  757.    Begin VB.Label Label1 
  758.       AutoSize        =   -1  'True
  759.       Caption         =   "KaZaA/Morpheus Users:"
  760.       BeginProperty Font 
  761.          Name            =   "Lucida Sans"
  762.          Size            =   7.8
  763.          Charset         =   0
  764.          Weight          =   400
  765.          Underline       =   0   'False
  766.          Italic          =   -1  'True
  767.          Strikethrough   =   0   'False
  768.       EndProperty
  769.       ForeColor       =   &H00FF0000&
  770.       Height          =   180
  771.       Left            =   0
  772.       TabIndex        =   1
  773.       Top             =   0
  774.       Width           =   1764
  775.    End
  776.    Begin VB.Menu mnuFile 
  777.       Caption         =   "File"
  778.       Begin VB.Menu mnuSave 
  779.          Caption         =   "Save User List"
  780.       End
  781.       Begin VB.Menu mnuOpen 
  782.          Caption         =   "Open User List"
  783.       End
  784.       Begin VB.Menu Sep1 
  785.          Caption         =   "-"
  786.       End
  787.       Begin VB.Menu mnuClear 
  788.          Caption         =   "Clear"
  789.          Begin VB.Menu mnuUserList 
  790.             Caption         =   "User List"
  791.          End
  792.          Begin VB.Menu mnuClearSearch 
  793.             Caption         =   "Search Field"
  794.          End
  795.       End
  796.       Begin VB.Menu Sep2 
  797.          Caption         =   "-"
  798.       End
  799.       Begin VB.Menu mnuQuit 
  800.          Caption         =   "Quit"
  801.          Shortcut        =   ^Q
  802.       End
  803.    End
  804.    Begin VB.Menu mnuAdvanced 
  805.       Caption         =   "Advanced"
  806.       Begin VB.Menu mnuSearch 
  807.          Caption         =   "Search"
  808.          Begin VB.Menu mnuNewSearch 
  809.             Caption         =   "New Search"
  810.          End
  811.          Begin VB.Menu Sep3 
  812.             Caption         =   "-"
  813.          End
  814.          Begin VB.Menu mnuAllUsers 
  815.             Caption         =   "All Users Found"
  816.          End
  817.          Begin VB.Menu mnuCurrent 
  818.             Caption         =   "Current User"
  819.          End
  820.          Begin VB.Menu mnuSearchonfind 
  821.             Caption         =   "Search on Find"
  822.          End
  823.          Begin VB.Menu Sep4 
  824.             Caption         =   "-"
  825.          End
  826.          Begin VB.Menu mnuSmartSearch 
  827.             Caption         =   "SmartSearch"
  828.          End
  829.       End
  830.       Begin VB.Menu mnuUserSearch 
  831.          Caption         =   "User Search"
  832.          Begin VB.Menu mnuSearchForUser 
  833.             Caption         =   "Search For A User"
  834.          End
  835.       End
  836.       Begin VB.Menu mnuIPSearch 
  837.          Caption         =   "IP Search"
  838.          Begin VB.Menu mnuFindIP 
  839.             Caption         =   "Search for Certain IP"
  840.          End
  841.       End
  842.       Begin VB.Menu Sep5 
  843.          Caption         =   "-"
  844.       End
  845.       Begin VB.Menu mnuSpecifyIP 
  846.          Caption         =   "Specify User IP"
  847.       End
  848.    End
  849.    Begin VB.Menu mnuHelp 
  850.       Caption         =   "Help"
  851.       Begin VB.Menu mnuAbout 
  852.          Caption         =   "About 'My KaZaA'"
  853.       End
  854.    End
  855. Attribute VB_Name = "KaZaA"
  856. Attribute VB_GlobalNameSpace = False
  857. Attribute VB_Creatable = False
  858. Attribute VB_PredeclaredId = True
  859. Attribute VB_Exposed = False
  860. Public TimesAround, SearchIndex, i
  861. Sub SearchForText(SearchText As String, OtherInfo)
  862. On Error Resume Next
  863. Form_Resize
  864. If Option1.Value = True Or Option3.Value = True Then
  865. SearchList.Clear
  866. SearchHiddenList.Clear
  867. SearchList.Clear
  868.   'Create buffer of all new shared folders
  869.   Counter = 0
  870.     For i = Hidden.ubound To IPList.ListCount - 1
  871.         Load Hidden(Hidden.ubound + 1) 'Load buffer for new shared folder
  872.         Hidden(i).Text = Inet1.OpenURL("http://" & AddressList.List(i) & ":1214")  'add contents to buffer
  873.         Searching = "Reading " & IPList.List(i)
  874.         Counter = 0
  875. Wait:
  876.         Counter = Counter + 1
  877.         If Counter > 5000 Then GoTo StopWaiting
  878.         If Inet1.StillExecuting = True Then GoTo Wait 'wait until Inet is finished getting shared folder
  879. StopWaiting:
  880.     Next i
  881.     SearchList.Clear
  882.   'search the buffers
  883.     For i = 0 To Hidden.ubound - 1
  884.         Searching = "Searching " & IPList.List(i)
  885.         If SmartSearch.Value = 1 Then
  886.             For j = 0 To SmartSearchList.ListCount - 1
  887.                 If InStr(1, LCase(Hidden(i).Text), LCase(SmartSearchList.List(j)), vbTextCompare) Then
  888.                     SearchList.AddItem IPList.List(i)
  889.                     SearchHiddenList.AddItem AddressList.List(i)
  890.                     Exit For
  891.                 End If
  892.             Next j
  893.         Else
  894.             If InStr(1, LCase(Hidden(i).Text), LCase(SearchText), vbTextCompare) Then
  895.                 SearchList.AddItem IPList.List(i)
  896.                 SearchHiddenList.AddItem AddressList.List(i)
  897.             End If
  898.         End If
  899.     Next i
  900.     If Option1.Value = True Then
  901.         MsgBox "Search Complete" & vbCrLf & SearchList.ListCount & " Result(s) found."
  902.         SearchButton.Value = 0
  903.         ShowResults_Click
  904.         ShowResults_Click
  905.     End If
  906. ElseIf Option2.Value = True Then
  907. 'if searching current user
  908. Dim Temp As String
  909.     Temp = Inet1.OpenURL(WebBrowser1.LocationURL)
  910. Wait2:
  911.     If Inet1.StillExecuting = True Then GoTo Wait2 'wait until shared folder is loaded
  912.     'search for text
  913.     If InStr(1, LCase(Temp), LCase(SearchText), vbTextCompare) Then
  914.         MsgBox "Search text found!"
  915.     Else
  916.         MsgBox "Search text not found."
  917.     End If
  918. End If
  919. End Sub
  920. Private Sub Command1_Click()
  921. Select Case Command1.Caption
  922. 'check if it is already scanning
  923. Case "Scan"
  924.     Timer1.Enabled = True
  925.     Command1.Caption = "Stop Scanning"
  926.     Exit Sub
  927. Case "Stop Scanning"
  928.     Timer1.Enabled = False
  929.     Command1.Caption = "Scan"
  930. End Select
  931. End Sub
  932. Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  933. Command1.FontBold = True
  934. End Sub
  935. Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  936. Command1.FontBold = False
  937. End Sub
  938. Private Sub Command2_Click()
  939. IPList.Clear
  940. AddressList.Clear
  941. SearchHiddenList.Clear
  942. For i = 1 To Hidden.ubound
  943.     Unload Hidden(i)
  944. Next i
  945. i = 0
  946. End Sub
  947. Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  948. Command2.FontBold = True
  949. End Sub
  950. Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  951. Command2.FontBold = False
  952. End Sub
  953. Private Sub Form_Load()
  954. TimesAround = 0
  955. WebBrowser1.Navigate2 "http://www.kazaa.com"
  956. End Sub
  957. Private Sub Form_Resize()
  958. 'resize everything to look nice on the screen
  959. On Error Resume Next
  960. If SearchList.Visible = True Then
  961. IPList.Height = Me.Height / 2
  962. SearchLabel.Top = IPList.Top + IPList.Height
  963. SearchList.Top = SearchLabel.Top + SearchLabel.Height + 50
  964. SearchList.Height = Me.Height - SearchList.Top - 680
  965. IPList.Height = Me.Height - IPList.Top - 650
  966. End If
  967. WebBrowser1.Height = Me.Height - WebBrowser1.Top - 720
  968. WebBrowser1.Width = Me.Width - WebBrowser1.Left - 120
  969. Frame1.Width = WebBrowser1.Width
  970. Frame2.Width = Frame1.Width - Frame2.Left
  971. Search.Width = Frame2.Width - (Search.Left * 2)
  972. SearchButton.Left = Search.Left + Search.Width - SearchButton.Width - 100
  973. Searching.Left = SearchButton.Left + SearchButton.Width - Searching.Width
  974. Image1(3).Left = SearchButton.Left - 300
  975. Shape8.Left = Image1(3).Left + 100
  976. Image1(2).Left = Image1(3).Left
  977. ShowResults.Left = Image1(2).Left + Image1(2).Width + 100
  978. Shape7.Left = Image1(2).Left + 100
  979. Frame3.Left = Frame2.Left - Frame3.Width
  980. End Sub
  981. Private Sub IPList_Click()
  982. 'display other person's shared folder
  983. WebBrowser1.Navigate "http://" & AddressList.List(IPList.ListIndex) & ":1214"
  984. End Sub
  985. Private Sub mnuAbout_Click()
  986. frmAbout.Show 1
  987. End Sub
  988. Private Sub mnuAllUsers_Click()
  989. Select Case Option1.Value
  990. Case True
  991. Option1.Value = False
  992. Case False
  993. Option1.Value = True
  994. End Select
  995. End Sub
  996. Private Sub mnuClearSearch_Click()
  997. SmartSearchList.Clear
  998. SearchList.Clear
  999. HiddenList.Clear
  1000. Search = ""
  1001. For i = 1 To Hidden.ubound
  1002.  Unload Hidden(i)
  1003. Next i
  1004. End Sub
  1005. Private Sub mnuCurrent_Click()
  1006. Select Case Option2.Value
  1007. Case True
  1008. Option2.Value = False
  1009. Case False
  1010. Option2.Value = True
  1011. End Select
  1012. End Sub
  1013. Private Sub mnuFindIP_Click()
  1014. 'Search all found ip addresses
  1015. Temp = InputBox("Search for IP:", "IP Search")
  1016. For i = 0 To AddressList.ListCount - 1
  1017.     If AddressList.List(i) = Temp Then
  1018.         IPList.ListIndex = i
  1019.         IPList_Click
  1020.         Exit Sub
  1021.     End If
  1022. Next i
  1023. MsgBox "IP Address not yet found." & vbCrLf & "Try using the 'Specify IP' command in the Advanced Menu.", vbInformation + vbOKOnly, "User not found"
  1024. End Sub
  1025. Private Sub mnuNewSearch_Click()
  1026. 'open new search dialog
  1027. Search = InputBox("Search For:", "New Search")
  1028. SearchButton.Value = 1
  1029. SearchForText Search, ""
  1030. End Sub
  1031. Private Sub mnuOpen_Click()
  1032. Dim strtextline As String
  1033. CommonDialog1.CancelError = False
  1034. CommonDialog1.DialogTitle = "Open KaZaA User list"
  1035. CommonDialog1.Filter = "KaZaA User Lists (*.kul) | *.kul; | All Files (*.*) | *.*;"
  1036. CommonDialog1.ShowOpen
  1037. If CommonDialog1.FileName = "" Then GoTo ErrorHappened
  1038. Open CommonDialog1.FileName For Input As #1
  1039. i = 0
  1040.         Do While Not EOF(1)
  1041.             Line Input #1, strtextline 'read file line by line
  1042.           'check header on line to sort data
  1043.             If Left(strtextline, 5) = "User:" Then IPList.AddItem (Right(strtextline, Len(strtextline) - 5))
  1044.             If Left(strtextline, 5) = "Addr:" Then AddressList.AddItem (Right(strtextline, Len(strtextline) - 5))
  1045.             If Left(strtextline, 5) = "Srt1:" Then StartGroup1.Text = (Right(strtextline, Len(strtextline) - 5))
  1046.             If Left(strtextline, 5) = "Srt2:" Then StartGroup2.Text = (Right(strtextline, Len(strtextline) - 5))
  1047.             If Left(strtextline, 5) = "Srt3:" Then StartGroup3.Text = (Right(strtextline, Len(strtextline) - 5))
  1048.             If Left(strtextline, 5) = "Srt4:" Then StartGroup4.Text = (Right(strtextline, Len(strtextline) - 5))
  1049.             If Left(strtextline, 5) = "End3:" Then EndGroup3.Text = (Right(strtextline, Len(strtextline) - 5))
  1050.             If Left(strtextline, 5) = "End4:" Then EndGroup4.Text = (Right(strtextline, Len(strtextline) - 5))
  1051.             If Left(strtextline, 5) = "Sped:" Then Slider1.Value = Val(Right(strtextline, Len(strtextline) - 6))
  1052.         Loop
  1053.     Close #1
  1054. ErrorHappened:
  1055. End Sub
  1056. Private Sub mnuQuit_Click()
  1057. End Sub
  1058. Private Sub mnuSave_Click()
  1059. On Error Resume Next
  1060. CommonDialog1.FileName = ""
  1061. CommonDialog1.CancelError = True
  1062. CommonDialog1.DialogTitle = "Save KaZaA User list"
  1063. CommonDialog1.Filter = "KaZaA User Lists (*.kul) | *.kul; | All Files (*.*) | *.*;"
  1064. CommonDialog1.ShowSave
  1065. If CommonDialog1.FileName = "" Then GoTo ErrorHappened
  1066. 'add all info to one list needed to save file
  1067. With SaveBuffer
  1068.     For i = 0 To IPList.ListCount - 1
  1069.         .Text = .Text & vbCrLf & "User:" & IPList.List(i)
  1070.         .Text = .Text & vbCrLf & "Addr:" & AddressList.List(i)
  1071.     Next i
  1072.     .Text = .Text & vbCrLf & "Srt1:" & StartGroup1
  1073.     .Text = .Text & vbCrLf & "Srt2:" & StartGroup2
  1074.     .Text = .Text & vbCrLf & "Srt3:" & StartGroup3
  1075.     .Text = .Text & vbCrLf & "Srt4:" & StartGroup4
  1076.     .Text = .Text & vbCrLf & "End3:" & EndGroup3
  1077.     .Text = .Text & vbCrLf & "End4:" & EndGroup4
  1078.     .Text = .Text & vbCrLf & "Sped:" & Slider1.Value & vbCrLf
  1079. End With
  1080. Kill CommonDialog1.FileName 'delete old file
  1081. Open CommonDialog1.FileName For Output As #1 'open file for writing
  1082.     Write #1, SaveBuffer.Text 'write to file
  1083. Close #1
  1084. ErrorHappened:
  1085. End Sub
  1086. Private Sub mnuSearchForUser_Click()
  1087. 'search for user in userlist
  1088. Temp = InputBox("Search for:", "User Search")
  1089. For i = 0 To IPList.ListCount - 1
  1090.     If IPList.List(i) = Temp Then
  1091.         IPList.ListIndex = i
  1092.         IPList_Click
  1093.         Exit Sub
  1094.     End If
  1095. Next i
  1096. MsgBox "User not yet found.", vbInformation + vbOKOnly, "User not found"
  1097. End Sub
  1098. Private Sub mnuSearchonfind_Click()
  1099. Select Case Option3.Value
  1100. Case True
  1101. Option3.Value = False
  1102. Case False
  1103. Option3.Value = True
  1104. End Select
  1105. End Sub
  1106. Private Sub mnuSmartSearch_Click()
  1107. Select Case mnuSmartSearch.Checked
  1108. Case True
  1109. SmartSearch.Value = 0
  1110. Case False
  1111. SmartSearch.Value = 1
  1112. End Select
  1113. End Sub
  1114. Private Sub mnuSpecifyIP_Click()
  1115. On Error GoTo X
  1116. 'connect to specific IP address
  1117. SearchSpecify.Close
  1118. SearchSpecify.Connect InputBox("Enter Remote Kazaa/Morpheus User's IP Address", "Specify IP Address"), 1214
  1119. Exit Sub
  1120. MsgBox "Error " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error"
  1121. End Sub
  1122. Private Sub mnuUserList_Click()
  1123. IPList.Clear
  1124. AddressList.Clear
  1125. End Sub
  1126. Private Sub Search_KeyPress(KeyAscii As Integer)
  1127. If KeyAscii = 13 Then
  1128.     SearchButton_Click
  1129.     SearchButton.Value = 1
  1130.     KeyAscii = 0
  1131. End If
  1132. End Sub
  1133. Private Sub SearchButton_Click()
  1134. Select Case SearchButton.Value
  1135. Case 1
  1136. i = 0
  1137.     If Option2.Value = True Then
  1138.         Search = Replace(Search, " ", "+", 1, Len(Search), vbTextCompare)
  1139.         Search = Replace(Search, "*", "", 1, Len(Search), vbTextCompare)
  1140.         SearchForText Search, ""
  1141.         Exit Sub
  1142.     End If
  1143.     ShowResults.Caption = "Hide Results"
  1144.   'clear and show searchbox
  1145.     SearchIndex = 0
  1146.     'SearchList.Clear
  1147.     'HiddenList.Clear
  1148.     SearchList.Visible = True
  1149.     SearchLabel.Visible = True
  1150.     Search.Enabled = False
  1151.   If SmartSearch.Value = 1 Then
  1152.   'replace spaces and *'s with different characters (add more if you want)
  1153.     SmartSearchList.Clear
  1154.     SmartSearchList.AddItem Replace(Search, " ", "+", 1, Len(Search), vbTextCompare)
  1155.     SmartSearchList.AddItem Replace(Search, " ", "_", 1, Len(Search), vbTextCompare)
  1156.     SmartSearchList.AddItem Replace(Search, " ", ".", 1, Len(Search), vbTextCompare)
  1157.     SmartSearchList.AddItem Replace(Search, " ", "", 1, Len(Search), vbTextCompare)
  1158.     SmartSearchList.AddItem Replace(Search, "*", "+", 1, Len(Search), vbTextCompare)
  1159.     SmartSearchList.AddItem Replace(Search, "*", "_", 1, Len(Search), vbTextCompare)
  1160.     SmartSearchList.AddItem Replace(Search, "*", ".", 1, Len(Search), vbTextCompare)
  1161.     SmartSearchList.AddItem Replace(Search, "*", "", 1, Len(Search), vbTextCompare)
  1162.   Else
  1163.   'replace spaces with + signs to match internet explorer's spaces
  1164.   'remove all *'s
  1165.     Search = Replace(Search, " ", "+", 1, Len(Search), vbTextCompare)
  1166.     Search = Replace(Search, "*", "", 1, Len(Search), vbTextCompare)
  1167.   End If
  1168.     HiddenList.Clear
  1169.     SearchForText Search, ""
  1170. Case 0
  1171.     Searching = "Searching Cancelled"
  1172.   'hide searchbox
  1173.     SearchList.Visible = False
  1174.     SearchLabel.Visible = False
  1175.     Search.Enabled = True
  1176. End Select
  1177. Form_Resize 'resize listboxes to look nice
  1178. End Sub
  1179. Private Sub SearchList_Click()
  1180. On Error Resume Next
  1181. WebBrowser1.Navigate "http://" & SearchHiddenList.List(SearchList.ListIndex) & ":1214" 'go to selected shared folder
  1182. End Sub
  1183. Private Sub SearchSpecify_Connect()
  1184. 'send string which will get user info
  1185. SearchSpecify.SendData "PASS Admin" & vbCrLf & "NICK M{iN}M" & vbCrLf & "USER KaZaAClone " & SearchSpecify.LocalIP & ":KaZaA"
  1186. End Sub
  1187. Private Sub SearchSpecify_DataArrival(ByVal bytesTotal As Long)
  1188. On Error GoTo X
  1189. Dim Data As String
  1190. SearchSpecify.GetData Data, vbString
  1191. 'clean up data containing username
  1192. Data = Replace(Data, "HTTP/1.0 501 Not Implemented", "", 1, Len(Data), vbTextCompare)
  1193. Data = Replace(Data, "X-Kazaa-Username: ", "", 1, Len(Data), vbTextCompare)
  1194. Data = Replace(Data, SearchSpecify.RemoteHostIP, "", 1, Len(Data), vbTextCompare)
  1195. Data = Replace(Data, "X-Kazaa-Network: KaZaA", "", 1, Len(Data), vbTextCompare)
  1196. Data = Replace(Data, " ", "", 1, Len(Data), vbTextCompare)
  1197. Data = Replace(Data, "X-Kazaa-IP:", "", 1, Len(Data), vbTextCompare)
  1198. Data = Replace(Data, ":1214", "", 1, Len(Data), vbTextCompare)
  1199. Data = Replace(Data, vbCrLf, "", 1, Len(Data), vbTextCompare)
  1200. Data = Replace(Data, "X-Kazaa-SupernodeIP:", "", 1, Len(Data), vbTextCompare)
  1201. Data = Replace(Data, "X-Kazaa-Network:", "", 1, Len(Data), vbTextCompare)
  1202. Data = Replace(Data, "MusicCity", "", 1, Len(Data), vbTextCompare)
  1203. Data = Replace(Data, ".", "", 1, Len(Data), vbTextCompare)
  1204. Data = Replace(Data, "0", "", 1, Len(Data), vbTextCompare)
  1205. Data = Replace(Data, "1", "", 1, Len(Data), vbTextCompare)
  1206. Data = Replace(Data, "2", "", 1, Len(Data), vbTextCompare)
  1207. Data = Replace(Data, "3", "", 1, Len(Data), vbTextCompare)
  1208. Data = Replace(Data, "4", "", 1, Len(Data), vbTextCompare)
  1209. Data = Replace(Data, "5", "", 1, Len(Data), vbTextCompare)
  1210. Data = Replace(Data, "6", "", 1, Len(Data), vbTextCompare)
  1211. Data = Replace(Data, "7", "", 1, Len(Data), vbTextCompare)
  1212. Data = Replace(Data, "8", "", 1, Len(Data), vbTextCompare)
  1213. Data = Replace(Data, "9", "", 1, Len(Data), vbTextCompare)
  1214. Data = Replace(Data, Chr(10), "", 1, Len(Data), vbTextCompare)
  1215. Data = Replace(Data, " ", "", 1, Len(Data), vbTextCompare)
  1216. 'add data to listboxes
  1217. IPList.AddItem Data
  1218. AddressList.AddItem SearchSpecify.RemoteHostIP 'add ip to a hidden list
  1219. If SearchButton.Value = 1 And Option3.Value = True Then
  1220.     Load Hidden(Hidden.ubound + 1) 'Load buffer for new shared folder
  1221.         Hidden(Hidden.ubound).Text = Inet1.OpenURL("http://" & SearchSpecify.RemoteHostIP & ":1214")  'add contents to buffer
  1222.         Searching = "Reading " & IPList.List(IPList.ListCount - 1)
  1223.         Counter = 0
  1224. Wait:
  1225.         Counter = Counter + 1
  1226.         If Counter > 5000 Then GoTo StopWaiting
  1227.         If Inet1.StillExecuting = True Then GoTo Wait 'wait until Inet is finished getting shared folder
  1228. StopWaiting:
  1229.   'search the buffers
  1230.     If SmartSearch.Value = 1 Then
  1231.         For j = 0 To SmartSearchList.ListCount - 1
  1232.             If InStr(1, LCase(Hidden(Hidden.ubound).Text), LCase(SmartSearchList.List(j)), vbTextCompare) Then
  1233.                 SearchList.AddItem IPList.List(IPList.ListCount - 1)
  1234.                 SearchHiddenList.AddItem AddressList.List(AddressList.ListCount - 1)
  1235.                 Exit For
  1236.             End If
  1237.         Next j
  1238.     Else
  1239.         If InStr(1, LCase(Hidden(Hidden.ubound).Text), LCase(Search), vbTextCompare) Then
  1240.             SearchList.AddItem IPList.List(IPList.ListCount - 1)
  1241.             SearchHiddenList.AddItem AddressList.List(AddressList.ListCount - 1)
  1242.         End If
  1243.     End If
  1244.         
  1245.     'HiddenList.AddItem Winsock1(Index).RemoteHostIP 'add ip to hidden list (acts as a buffer of ip addresses if you are finding hosts faster than you can scan them)
  1246. End If
  1247. SearchSpecify.Close 'close connection (avoid's multiple listings of single ip)
  1248. IPList.ListIndex = IPList.ListCount - 1
  1249. IPList_Click
  1250. End Sub
  1251. Private Sub ShowResults_Click()
  1252. Select Case ShowResults.Caption
  1253. Case "Show Results"
  1254.     SearchList.Visible = True
  1255.     SearchLabel.Visible = True
  1256.     Form_Resize
  1257.     ShowResults.Caption = "Hide Results"
  1258.     Exit Sub
  1259. Case "Hide Results"
  1260.     SearchList.Visible = False
  1261.     SearchLabel.Visible = False
  1262.     Form_Resize
  1263.     ShowResults.Caption = "Show Results"
  1264. End Select
  1265. End Sub
  1266. Private Sub ShowResults_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1267. ShowResults.FontBold = True
  1268. End Sub
  1269. Private Sub ShowResults_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1270. ShowResults.FontBold = False
  1271. End Sub
  1272. Private Sub StartGroup1_Change()
  1273. EndGroup1 = StartGroup1
  1274. End Sub
  1275. Private Sub StartGroup2_Change()
  1276. EndGroup2 = StartGroup2
  1277. End Sub
  1278. Private Sub Timer1_Timer()
  1279. On Error Resume Next
  1280. If Option1.Value = True Then
  1281.     mnuAllUsers.Checked = True
  1282.     mnuCurrent.Checked = False
  1283.     mnuSearchonfind.Checked = False
  1284. ElseIf Option2.Value = True Then
  1285.     mnuAllUsers.Checked = False
  1286.     mnuCurrent.Checked = True
  1287.     mnuSearchonfind.Checked = False
  1288. ElseIf Option3.Value = True Then
  1289.     mnuAllUsers.Checked = False
  1290.     mnuCurrent.Checked = False
  1291.     mnuSearchonfind.Checked = True
  1292. End If
  1293. If SmartSearch.Value = 1 Then mnuSmartSearch.Checked = True
  1294. Timer1.Interval = -Slider1.Value
  1295. Label5.Caption = IPList.ListCount & " KaZaA user(s) found." 'display number of kazaa users
  1296. TimesAround = TimesAround + 1
  1297. Load Winsock1(TimesAround) 'load new winsock
  1298. If TimesAround > 50 Then Unload Winsock1(TimesAround - 50) 'unload winsock control (time out)
  1299. If Val(StartGroup4) < Val(EndGroup4) Then
  1300.     StartGroup4.Text = StartGroup4.Text + 1 'increase current ip address by one
  1301. ElseIf Val(StartGroup4) = Val(EndGroup4) Then
  1302.     StartGroup3 = StartGroup3 + 1 'increase 3rd group in ip address by one
  1303.     StartGroup4 = 0 'reset last group in ip address
  1304. End If
  1305. If Val(StartGroup3) > Val(EndGroup3) Then 'check if scan is complete
  1306.     MsgBox "Scan Complete"
  1307.     Timer1.Enabled = False
  1308.     Command1.Caption = "Scan"
  1309. End If
  1310. Winsock1(TimesAround).Connect StartGroup1 & "." & StartGroup2 & "." & StartGroup3 & "." & StartGroup4, 1214 'connect to potential kazaa user
  1311. Label4.Caption = "Scanning " & StartGroup1 & "." & StartGroup2 & "." & StartGroup3 & "." & StartGroup4 'display current ip address
  1312. End Sub
  1313. Private Sub Timer2_Timer()
  1314. If Inet1.StillExecuting = False Then
  1315.     If Option1.Value = True And SearchButton.Value = 1 Then
  1316.         i = Hidden.ubound + 1
  1317.         SearchForText Search, ""
  1318.     End If
  1319.     If Option3.Value = True And SearchButton.Value = 1 Then
  1320.         i = Hidden.ubound + 1
  1321.         SearchForText Search, ""
  1322.     End If
  1323.     If IPList.ListCount > Hidden.ubound And Option3.Value = True Then SearchForText Search, ""
  1324. End If
  1325. Timer2.Enabled = False
  1326. End Sub
  1327. Private Sub Winsock1_Connect(Index As Integer)
  1328. Winsock1(Index).SendData "PASS Admin" & vbCrLf & "NICK M{iN}M" & vbCrLf & "USER KaZaAClone " & Winsock1(Index).LocalIP & ":KaZaA"
  1329. End Sub
  1330. Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  1331. On Error GoTo X
  1332. Dim Data As String
  1333. Winsock1(Index).GetData Data, vbString
  1334. 'clean up data containing username
  1335. Data = Replace(Data, "HTTP/1.0 501 Not Implemented", "", 1, Len(Data), vbTextCompare)
  1336. Data = Replace(Data, "X-Kazaa-Username: ", "", 1, Len(Data), vbTextCompare)
  1337. Data = Replace(Data, Winsock1(Index).RemoteHostIP, "", 1, Len(Data), vbTextCompare)
  1338. Data = Replace(Data, "X-Kazaa-Network: KaZaA", "", 1, Len(Data), vbTextCompare)
  1339. Data = Replace(Data, " ", "", 1, Len(Data), vbTextCompare)
  1340. Data = Replace(Data, "X-Kazaa-IP:", "", 1, Len(Data), vbTextCompare)
  1341. Data = Replace(Data, ":1214", "", 1, Len(Data), vbTextCompare)
  1342. Data = Replace(Data, vbCrLf, "", 1, Len(Data), vbTextCompare)
  1343. Data = Replace(Data, "X-Kazaa-SupernodeIP:", "", 1, Len(Data), vbTextCompare)
  1344. Data = Replace(Data, "X-Kazaa-Network:", "", 1, Len(Data), vbTextCompare)
  1345. Data = Replace(Data, "MusicCity", "", 1, Len(Data), vbTextCompare)
  1346. Data = Replace(Data, ".", "", 1, Len(Data), vbTextCompare)
  1347. Data = Replace(Data, "0", "", 1, Len(Data), vbTextCompare)
  1348. Data = Replace(Data, "1", "", 1, Len(Data), vbTextCompare)
  1349. Data = Replace(Data, "2", "", 1, Len(Data), vbTextCompare)
  1350. Data = Replace(Data, "3", "", 1, Len(Data), vbTextCompare)
  1351. Data = Replace(Data, "4", "", 1, Len(Data), vbTextCompare)
  1352. Data = Replace(Data, "5", "", 1, Len(Data), vbTextCompare)
  1353. Data = Replace(Data, "6", "", 1, Len(Data), vbTextCompare)
  1354. Data = Replace(Data, "7", "", 1, Len(Data), vbTextCompare)
  1355. Data = Replace(Data, "8", "", 1, Len(Data), vbTextCompare)
  1356. Data = Replace(Data, "9", "", 1, Len(Data), vbTextCompare)
  1357. Data = Replace(Data, Chr(10), "", 1, Len(Data), vbTextCompare)
  1358. Data = Replace(Data, " ", "", 1, Len(Data), vbTextCompare)
  1359. 'add data to listboxes
  1360. IPList.AddItem Data
  1361. AddressList.AddItem Winsock1(Index).RemoteHostIP 'add ip to a hidden list
  1362. If SearchButton.Value = 1 And Option3.Value = True Then
  1363.     Load Hidden(Hidden.ubound + 1) 'Load buffer for new shared folder
  1364.         Hidden(Hidden.ubound).Text = Inet1.OpenURL("http://" & Winsock1(Index).RemoteHostIP & ":1214")  'add contents to buffer
  1365.         Searching = "Reading " & IPList.List(IPList.ListCount - 1)
  1366.         Counter = 0
  1367. Wait:
  1368.         Counter = Counter + 1
  1369.         If Counter > 5000 Then GoTo StopWaiting
  1370.         If Inet1.StillExecuting = True Then GoTo Wait 'wait until Inet is finished getting shared folder
  1371. StopWaiting:
  1372.   'search the buffers
  1373.     If SmartSearch.Value = 1 Then
  1374.         For j = 0 To SmartSearchList.ListCount - 1
  1375.             If InStr(1, LCase(Hidden(Hidden.ubound).Text), LCase(SmartSearchList.List(j)), vbTextCompare) Then
  1376.                 SearchList.AddItem IPList.List(IPList.ListCount - 1)
  1377.                 SearchHiddenList.AddItem AddressList.List(AddressList.ListCount - 1)
  1378.                 Exit For
  1379.             End If
  1380.         Next j
  1381.     Else
  1382.         If InStr(1, LCase(Hidden(Hidden.ubound).Text), LCase(Search), vbTextCompare) Then
  1383.             SearchList.AddItem IPList.List(IPList.ListCount - 1)
  1384.             SearchHiddenList.AddItem AddressList.List(AddressList.ListCount - 1)
  1385.         End If
  1386.     End If
  1387.         
  1388.     'HiddenList.AddItem Winsock1(Index).RemoteHostIP 'add ip to hidden list (acts as a buffer of ip addresses if you are finding hosts faster than you can scan them)
  1389. End If
  1390. Winsock1(Index).Close 'close connection (avoid's multiple listings of single ip)
  1391. End Sub
  1392.