frmproxyaddr.frm

全面网络扫描器VB源代码 很实用

VERSION 5.00
Begin VB.Form frmproxyaddr 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Proxy Setting"
   ClientHeight    =   4830
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4995
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4830
   ScaleWidth      =   4995
   Begin VB.CommandButton cmdlist 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Add To List"
      Height          =   375
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   4080
      Width           =   1335
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   3120
      TabIndex        =   6
      Top             =   3600
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   3120
      TabIndex        =   5
      Top             =   2760
      Width           =   1695
   End
   Begin VB.CommandButton cmdload 
      BackColor       =   &H80000009&
      Caption         =   "&Load"
      Height          =   375
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1800
      Width           =   1695
   End
   Begin VB.CommandButton cmdsave 
      BackColor       =   &H80000009&
      Caption         =   "&Save"
      Height          =   375
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1200
      Width           =   1695
   End
   Begin VB.ListBox List1 
      Height          =   4020
      ItemData        =   "frmproxyaddr.frx":0000
      Left            =   240
      List            =   "frmproxyaddr.frx":0088
      TabIndex        =   1
      Top             =   480
      Width           =   2655
   End
   Begin VB.CommandButton cmdadd 
      BackColor       =   &H80000009&
      Caption         =   "&Default Address"
      Height          =   375
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   480
      Width           =   1695
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Port"
      Height          =   255
      Left            =   3120
      TabIndex        =   8
      Top             =   3240
      Width           =   375
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "IP Address"
      Height          =   255
      Left            =   3120
      TabIndex        =   7
      Top             =   2400
      Width           =   975
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Proxies IP Address List"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   1935
   End
End
Attribute VB_Name = "frmproxyaddr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdadd_Click()
          
       If List1.ListIndex > -1 Then
         
           addp = List1.List(List1.ListIndex)
         
           cur = InStr(1, addp, ":")
                
                If cur = 0 Then Exit Sub
                
                 proxyname = Mid(addp, 1, cur - 1)
                 proxynumber = Mid(addp, cur + 1)
             'add address to text box
              frmscanproxy.txtipaddr = proxyname
              frmscanproxy.txtportnum = proxynumber
             ' MsgBox "Set IP Address & Port Number", , "Tip"
                          
       
       End If
        
   
End Sub

Private Sub cmdlist_Click()
   If Text1.Text <> "" And Text2.Text <> "" Then
       
        List1.AddItem CStr(Text1.Text) + ":" + CStr(CInt(Text2.Text))
        
   End If
End Sub

Private Sub cmdload_Click()
 List1.Clear
  Dim value As String
    c = FreeFile
    Open App.path + "\" + "proxies.lst" For Input As #c
     
     While EOF(c) = False
        
       Input #c, value
         If Len(value) > 1 Then List1.AddItem value
         
     Wend
    Close #c
End Sub

Private Sub cmdsave_Click()
   c = FreeFile
    Open App.path + "\" + "proxies.lst" For Output As #c
     For ind = 0 To List1.ListCount - 1
       Print #c, List1.List(ind) + vbCrLf
     Next ind
    
    
    Close #c
    
End Sub