📄 frmpostscnwp.frm
字号:
BackColor = &H80000009&
Caption = "Add New.."
Height = 255
Left = 3480
Style = 1 'Graphical
TabIndex = 0
Top = 960
Width = 1095
End
Begin VB.ListBox List1
Height = 5820
Left = 360
MultiSelect = 2 'Extended
TabIndex = 15
Top = 1680
Width = 1695
End
Begin VB.CommandButton cmdSend
BackColor = &H80000001&
Caption = "START SCAN"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3480
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 10
Top = 240
Width = 1455
End
Begin VB.Label Label8
BackColor = &H80000003&
Caption = "Port Number"
Height = 255
Left = 9960
TabIndex = 38
Top = 840
Width = 1095
End
Begin VB.Label Label7
BackColor = &H80000003&
Caption = "Proxy IP Address"
Height = 255
Left = 7800
TabIndex = 37
Top = 840
Width = 1335
End
Begin VB.Label Label6
BackColor = &H80000003&
Caption = "End"
Height = 255
Left = 5160
TabIndex = 32
Top = 4320
Width = 495
End
Begin VB.Label Label5
BackColor = &H80000003&
Caption = "Start"
Height = 255
Left = 5160
TabIndex = 31
Top = 3720
Width = 495
End
Begin VB.Label lblmain
BackColor = &H80000009&
Caption = "Goto Main --->"
Height = 255
Left = 10560
TabIndex = 21
Top = 240
Width = 1215
End
Begin VB.Label Label4
BackColor = &H80000013&
Caption = "DELAY SENT"
Height = 255
Left = 6360
TabIndex = 17
Top = 240
Width = 1215
End
Begin VB.Label Label3
BackColor = &H80000003&
Caption = "Targets List"
Height = 255
Left = 360
TabIndex = 16
Top = 1320
Width = 975
End
Begin VB.Label Label2
BackColor = &H80000009&
Caption = "End IP"
Height = 255
Left = 120
TabIndex = 14
Top = 720
Width = 975
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "Start IP"
Height = 255
Left = 120
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.Menu flemenu
Caption = "&File"
Index = 1
Begin VB.Menu savemnu
Caption = "&Save Scan"
End
End
End
Attribute VB_Name = "frmscanproxy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' by nima bagheri form THECRACKERS_GROUP@yahoo.ca
'TEL 098-0151-2210510
'frmscanproxy
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim c As Long
Dim I As Long
Dim alarm As Byte
Dim machin(200) As String
Private Sub Addnew_Click()
For x = 0 To 3
If txtip(x).Text <> "" And txtendip(x).Text <> "" Then
flag = True
Else
MsgBox "PLEASE ENTER FULL IP ", , "ERR !"
Exit Sub
End If
Next x
If flag = True Then
a0 = txtip(0).Text
a1 = txtip(1).Text
a2 = txtip(2).Text
a3 = txtip(3).Text
b0 = txtendip(0).Text
b1 = txtendip(1).Text
b2 = txtendip(2).Text
b3 = txtendip(3).Text
List1.AddItem Trim(txtip(0).Text + "." + txtip(1).Text + "." + txtip(2).Text + "." + txtip(3).Text)
cmdSend.Enabled = True
bip = (CStr(b0) + "." + CStr(b1) + "." + CStr(b2) + "." + CStr(b3))
ball = AddressStringToLong(bip) 'for check end ip
aip = (CStr(a0) + "." + CStr(a1) + "." + CStr(a2) + "." + CStr(a3))
aAll = AddressStringToLong(aip) 'for check end ip
If Abs(ball) = Abs(aAll) Then
Exit Sub
End If
Do
If a3 Mod 250 = 0 Then DoEvents
x:
a3 = a3 + 1
aip = (CStr(a0) + "." + CStr(a1) + "." + CStr(a2) + "." + CStr(a3))
aAll = AddressStringToLong(aip) 'for check end ip
If Abs(ball) = Abs(aAll) Then
List1.AddItem aip
Exit Do
Else
List1.AddItem aip
End If
If a3 > 254 And a2 < b2 Then
a2 = a2 + 1
a3 = 0
GoTo x:
End If
If a2 > 254 And a1 < b1 Then
a1 = a1 + 1
a2 = 0
GoTo x:
End If
Loop
cmdSend.Enabled = True
End If
End Sub
Sub aa0(value As Integer)
value = value + 1
End Sub
Private Sub cmdaddport_Click()
frmaddport.Show
End Sub
Private Sub cmdaddproxy_Click()
frmproxyaddr.Show
End Sub
Private Sub cmdclear_Click()
List1.Clear
End Sub
Private Sub cmdCollapse_Click()
For e = 1 To TreeView1.Nodes.Count
TreeView1.Nodes.item(e).Expanded = False
Next e
End Sub
Private Sub cmddelete_Click()
If List1.ListIndex <> -1 Then List1.RemoveItem (List1.ListIndex)
End Sub
Private Sub cmdexpand_Click()
For e = 1 To TreeView1.Nodes.Count
TreeView1.Nodes.item(e).Expanded = True
' TreeView1.Nodes.Item(e).EnsureVisible
Next e
End Sub
Private Sub cmdloadports_Click()
Call loadp
End Sub
Private Sub cmdsaveports_Click()
a1 = MsgBox("Are You Want Save This Changes ? ", vbYesNo, "WARNNING !")
If a1 = 6 Then Call savep
End Sub
Private Sub Command1_Click()
Timer1.Enabled = False
alarm = 1
cmdSend.Enabled = True
End Sub
Private Sub Form_Activate()
If Me.WindowState <> 2 Then Me.WindowState = 2
End Sub
Private Sub Form_Load()
Me.Hide
DoEvents
Call loadp 'load ports
For x = 1 To 200
Load wsckClient(x)
Next x
End Sub
Private Sub lblmain_Click()
Form3.Show
Me.Hide
End Sub
Private Sub Option1_Click(Index As Integer)
If Index = 3 And Option1(3).value = True Then
txtportstart.Enabled = Not (txtportstart.Enabled)
txtportend.Enabled = Not (txtportend.Enabled)
Else
txtportstart.Enabled = False
txtportend.Enabled = False
End If
End Sub
Private Sub savemnu_Click()
cd1.ShowSave
If cd1.FileName = "" Then
MsgBox "PLEASE Enter A File Name ", , "WARNNING"
Exit Sub
Else
c = FreeFile
Open cd1.FileName + ".html" For Output As c
Print #1, createhtml
Close c
End If
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
If txtdelay.Text < 100 Then txtdelay = 100
Timer1.Enabled = False
For J = 0 To List1.ListCount - 1
I = 0 'golobal varinat
' code for scan type
If Option1(0).value = True Then 'every code
TreeView1.Nodes.Add , , List1.List(J), List1.List(J)
For l = 1 To lstports.ListItems.Count
pseek = InStr(1, lstports.ListItems(l).Text, ",")
pnumber = Mid(lstports.ListItems(l).Text, 1, pseek - 1)
If pnumber = Val(pnumber) Then
' for http request
machin(I) = CStr(List1.List(J)) + ":" + CStr(pnumber)
wsckClient(I).Close
wsckClient(I).Connect Trim(txtipaddr.Text), CStr(CInt(Trim(txtportnum.Text)))
'CStr(pnumber)
I = I + 1
If I >= 200 Then I = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -