addtask.frm

用VISUAL BASIC编制的,一个好用的扫描器

            Left            =   240
            List            =   "addtask.frx":044C
            Style           =   2  'Dropdown List
            TabIndex        =   9
            Top             =   1560
            Width           =   2895
         End
         Begin VB.CommandButton Command1 
            BackColor       =   &H00BFBFBF&
            Caption         =   "Next"
            Height          =   375
            Left            =   2880
            Style           =   1  'Graphical
            TabIndex        =   8
            Top             =   3120
            Width           =   855
         End
         Begin VB.CommandButton Command2 
            BackColor       =   &H00BFBFBF&
            Caption         =   "Back"
            Height          =   375
            Left            =   1920
            Style           =   1  'Graphical
            TabIndex        =   7
            Top             =   3120
            Width           =   855
         End
         Begin VB.CommandButton Command3 
            BackColor       =   &H00BFBFBF&
            Caption         =   "Cancel"
            Height          =   375
            Left            =   120
            Style           =   1  'Graphical
            TabIndex        =   6
            Top             =   3120
            Width           =   855
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Please Select the type of target....."
            Height          =   195
            Left            =   120
            TabIndex        =   12
            Top             =   240
            Width           =   2445
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "yahoo.com  -->  Domain"
            Height          =   195
            Left            =   120
            TabIndex        =   11
            Top             =   720
            Width           =   1680
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "127.0.0.1    -->  IP ADDRESS"
            Height          =   195
            Left            =   120
            TabIndex        =   10
            Top             =   1080
            Width           =   2100
         End
      End
      Begin VB.Frame Frame3 
         BackColor       =   &H00BFBFBF&
         Caption         =   "Step 2"
         Height          =   3615
         Left            =   -3360
         TabIndex        =   1
         Top             =   0
         Visible         =   0   'False
         Width           =   3855
         Begin VB.TextBox Text1 
            Height          =   375
            Left            =   240
            ScrollBars      =   1  'Horizontal
            TabIndex        =   15
            Top             =   1080
            Width           =   3375
         End
         Begin VB.CommandButton Command4 
            BackColor       =   &H00BFBFBF&
            Caption         =   "Cancel"
            Height          =   375
            Left            =   120
            Style           =   1  'Graphical
            TabIndex        =   4
            Top             =   3120
            Width           =   855
         End
         Begin VB.CommandButton Command5 
            BackColor       =   &H00BFBFBF&
            Caption         =   "Back"
            Height          =   375
            Left            =   1920
            Style           =   1  'Graphical
            TabIndex        =   3
            Top             =   3120
            Width           =   855
         End
         Begin VB.CommandButton Command6 
            BackColor       =   &H00BFBFBF&
            Caption         =   "Next"
            Height          =   375
            Left            =   2880
            Style           =   1  'Graphical
            TabIndex        =   2
            Top             =   3120
            Width           =   855
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Domain Name"
            Height          =   195
            Left            =   1320
            TabIndex        =   14
            Top             =   840
            Width           =   1005
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Enter The Domain Name you wish to taget"
            Height          =   195
            Left            =   240
            TabIndex        =   13
            Top             =   240
            Width           =   3000
         End
      End
      Begin VB.Image Image1 
         Height          =   3750
         Left            =   120
         Picture         =   "addtask.frx":0464
         Top             =   120
         Width           =   1950
      End
   End
End
Attribute VB_Name = "addtask"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public runtime As String
Public targettype As String
Public target As String
Public proxyscan As Boolean
Public portscan As Boolean
Public logindata As Boolean
Public clear As Boolean
Public portsc2 As Integer
Public proxysc2 As Integer
Public loginda2 As Integer
Public startport
Public stopport


'framlocs are
'Top 240
'Left 2160
'
'
'
' user passes first form   ->  target type
Private Sub Command1_Click()
If target_type.ListIndex = -1 Then
MsgBox "You must select a target type to proceed", vbOKOnly, "Reminder"
ElseIf target_type.ListIndex = 0 Then
'goto domain selector
targettype = "domain"
Frame2.Visible = False
Frame3.Left = 2160
Frame3.Top = 240
Frame3.Visible = True
ElseIf target_type.ListIndex = 1 Then
''goto ip selector
targettype = "ip"
Frame2.Visible = False
Frame4.Left = 2160
Frame4.Top = 240
Frame4.Visible = True
End If
End Sub

Private Sub Command10_Click()
'get options
If Check1.Value = 1 Then portscan = True
If Check2.Value = 1 Then proxyscan = True
If Check3.Value = 1 Then logindata = True
If portscan = False And proxyscan = False Then MsgBox "You must scan for something, you cant just log data", vbOKOnly, "Uh...huh..."
Frame5.Visible = False
If portscan = True Then
Frame7.Left = 2160
Frame7.Top = 240
Frame7.Visible = True
ElseIf portscan = False Then
Frame6.Left = 2160
Frame6.Top = 240
Frame6.Visible = True
End If
End Sub

Private Sub Command11_Click()
If targettype = "domain" Then
Frame5.Visible = False
Frame3.Visible = True
Else
Frame5.Visible = False
Frame4.Visible = True
End If
End Sub

Private Sub Command12_Click()
Unload addtask
End Sub

Private Sub Command13_Click()
Unload addtask
End Sub

Private Sub Command14_Click()
Frame5.Top = 240
Frame5.Left = 2160
Frame5.Visible = True
Frame6.Visible = False
End Sub

Private Sub Command15_Click()
runtime = Text3.Text
finsihed target, mainform.itemno, targettype, portscan, proxyscan, logindata, runtime
addtask.Visible = False
End Sub

Private Sub Command16_Click()
runtime = "N/A"
finsihed target, mainform.itemno, targettype, portscan, proxyscan, logindata, runtime
addtask.Visible = False
End Sub

Private Sub Command17_Click()
Unload addtask
End Sub

Private Sub Command18_Click()
Frame7.Visible = False
Frame5.Left = 2160
Frame5.Top = 240
Frame5.Visible = True
End Sub

Private Sub Command19_Click()
If Text5.Text < Text4.Text Then MsgBox "Stop port must be larger than Start Port!", vbOKOnly, "ASS ALERT!"
If Text5.Text = Text4.Text Then MsgBox "Start & Stop ports cannot be the same!", vbOKOnly, "Reminder"
startport = Text4.Text
stopport = Text5.Text
Frame7.Visible = False
Frame6.Left = 2160
Frame6.Top = 240
Frame6.Visible = True
End Sub

Private Sub Command3_Click()
Unload addtask
End Sub

Private Sub Command4_Click()
Unload addtask
End Sub

Private Sub Command5_Click()
Frame3.Visible = False
Frame2.Visible = True
End Sub

Private Sub Command6_Click()
Dim comparison2
comparison2 = Text1 Like "*.*"
If Text1.Text = "" Then
MsgBox "Enter Something!", vbOKOnly, "IDIOT!"
ElseIf comparison2 = True Then
target = Text1.Text
Call ops
Else
MsgBox "Not a domain name!", vbOKOnly, "IDIOT!:"
End If

End Sub

Private Sub Command7_Click()
Unload addtask
End Sub

Private Sub Command8_Click()
Frame4.Visible = False
Frame2.Visible = True
End Sub

Private Sub Command9_Click()
Dim comparison1 As Boolean
comparison1 = Text2.Text Like "*.*.*"
If comparison1 = False Then
MsgBox "thats not an ip address", vbOKOnly, "Reminder"
Else:
target = Text2.Text
Call ops
End If
End Sub

Private Sub Form_Load()
clear = False
target = vbNullString
targettype = vbNullString
runtime = vbNullString
portscan = False
proxyscan = False
logindata = False
Text1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text2.Text = ""
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
mainform.itemno = mainform.itemno + 1
Command2.Visible = False
Frame2.Top = 240
Frame2.Left = 2160
Frame2.Visible = True
End Sub

Sub ops()
If targettype = "domain" Then
Frame3.Visible = False
Frame5.Top = 240
Frame5.Left = 2160
Frame5.Visible = True
Text3.Text = Time
ElseIf targettype = "ip" Then
Frame4.Visible = False
Frame5.Top = 240
Frame5.Left = 2160
Frame5.Visible = True
Text3.Text = Time
End If
End Sub
Sub finsihed(targetaddy As String, itemnos As Integer, targetty As String, portsc, proxysc, loginda, times As String)
If portsc = True Then portsc2 = 1
If proxysc = True Then proxysc2 = 1
If loginda = True Then loginda2 = 1
itemnos2 = mainform.tasktimes.ListCount
mainform.tasks.AddItem targetaddy, itemnos2
mainform.ops.AddItem portsc2 & proxysc2 & loginda2, itemnos2
mainform.tasktimes.AddItem times, itemnos2
Unload addtask
End Sub