Admin Panel Tarayıcı #VB

Dim SayfaListesi(150) As String 

Private Sub Command1_Click() 
List1.Clear 

For t = 1 To 150 
Me.Caption = t * "/150" * "  Admin Panel Bulucu" 
'Başlığı Buradan Ayarla 
hedefurl = "http://" * Text1.Text * SayfaListesi(t) 
Inet1.Execute CStr(hedefurl) 
While Inet1.StillExecuting = True 
DoEvents 
Wend 
GelenVeri = Inet1.OpenURL(CStr(hedefurl), 0) 
SonNerede = InStr(1, LCase(GelenVeri), "</title>") 
DRTVarmi = InStr(1, LCase(GelenVeri), "ID") 
If DRTVarmi < SonNerede And SonNerede Then 
List1.AddItem hedefurl 

End If 
Next 
End Sub 



Private Sub Form_Load() 
SayfaListesi(1) = "/admin1.php" 
SayfaListesi(2) = "/admin1.php" 
SayfaListesi(3) = "/admin2.php" 
SayfaListesi(4) = "/admin2.html" 
SayfaListesi(5) = "/yonetim.php" 
SayfaListesi(6) = "/yonetim.html" 
SayfaListesi(7) = "/yonetici.php" 
SayfaListesi(8) = "/yonetici.html" 
SayfaListesi(9) = "/adm/" 
SayfaListesi(10) = "/admin/" 
SayfaListesi(11) = "/admin/account.php" 
SayfaListesi(12) = "/admin/account.html" 
SayfaListesi(13) = "/admin/index.php" 
SayfaListesi(14) = "/admin/index.html" 
SayfaListesi(15) = "/admin/login.php" 
SayfaListesi(16) = "/admin/login.html" 
SayfaListesi(17) = "/admin/home.php" 
SayfaListesi(18) = "/admin/controlpanel.html" 
SayfaListesi(19) = "/admin/controlpanel.php" 
SayfaListesi(20) = "/admin.php" 
SayfaListesi(21) = "/admin.html" 
SayfaListesi(22) = "/admin/cp.php" 
SayfaListesi(23) = "/admin/cp.html" 
SayfaListesi(24) = "/cp.php" 
SayfaListesi(25) = "/cp.html" 
SayfaListesi(26) = "/cp.html" 
SayfaListesi(27) = "/administrator/" 
SayfaListesi(28) = "/administrator/index.html" 
SayfaListesi(29) = "/administrator/index.php" 
SayfaListesi(30) = "/administrator/login.html" 
SayfaListesi(31) = "/administrator/login.php" 
SayfaListesi(32) = "/administrator/account.html" 
SayfaListesi(33) = "/administrator/account.php" 
SayfaListesi(34) = "/administrator.php" 
SayfaListesi(35) = "/administrator.html" 
SayfaListesi(36) = "/login.php" 
SayfaListesi(37) = "/login.html" 
SayfaListesi(38) = "/modelsearch/login.php" 
SayfaListesi(39) = "/moderator.php" 
SayfaListesi(40) = "/moderator.html" 
SayfaListesi(41) = "/administrator" 
SayfaListesi(42) = "/moderator/" 
SayfaListesi(43) = "/account.php" 
SayfaListesi(44) = "/account.html" 
SayfaListesi(45) = "/controlpanel/" 
SayfaListesi(46) = "/controlpanel.php" 
SayfaListesi(47) = "/controlpanel.html" 
SayfaListesi(48) = "/admincontrol.php" 
'admincontrol.php "" 
SayfaListesi(49) = "/admincontrol.html" 
SayfaListesi(50) = "/adminpanel.php" 
SayfaListesi(51) = "/adminpanel.html" 
SayfaListesi(52) = "/admin1.asp" 
SayfaListesi(53) = "/admin2.asp" 
SayfaListesi(54) = "/yonetim.asp" 
SayfaListesi(55) = "/yonetici.asp" 
SayfaListesi(56) = "/admin/account.asp" 
SayfaListesi(57) = "/admin/login.asp" 
SayfaListesi(58) = "/admin/controlpanel.asp" 
SayfaListesi(59) = "/admin.asp" 
SayfaListesi(60) = "/admin/cp.asp" 
SayfaListesi(61) = "/administrator/index.asp" 
'SayfaListesi(61) = "" 
SayfaListesi(62) = "/administrator/login.asp" 
SayfaListesi(63) = "/administrator/account.asp" 
SayfaListesi(64) = "/administrator.asp" 
SayfaListesi(65) = "/login.asp" 
SayfaListesi(66) = "/modelsearch/login.asp" 
SayfaListesi(67) = "/moderator.asp" 
SayfaListesi(68) = "/moderator/login.asp" 
SayfaListesi(69) = "/moderator/admin.asp" 
SayfaListesi(70) = "/account.asp" 
SayfaListesi(71) = "/controlpanel.asp" 
SayfaListesi(72) = "/admincontrol.asp" 
SayfaListesi(73) = "/adminpanel.asp" 
SayfaListesi(74) = "/fileadmin/" 
SayfaListesi(75) = "/fileadmin.php" 
SayfaListesi(76) = "/fileadmin.asp" 
SayfaListesi(77) = "/fileadmin.html" 
SayfaListesi(78) = "/administration/" 
SayfaListesi(79) = "/administration.php" 
SayfaListesi(80) = "/administration.html" 
SayfaListesi(81) = "/sysadmin.php" 
SayfaListesi(82) = "/sysadmin.html" 
SayfaListesi(83) = "/phpmyadmin/" 
SayfaListesi(84) = "/myadmin/" 
SayfaListesi(85) = "/sysadmin.asp" 
SayfaListesi(86) = "/sysadmin/" 
SayfaListesi(87) = "/ur-admin.asp" 
SayfaListesi(88) = "/ur-admin.php" 
SayfaListesi(89) = "/ur-admin.html" 
SayfaListesi(90) = "/ur-admin/" 
SayfaListesi(91) = "/Server.php" 
SayfaListesi(92) = "/Server.html" 
SayfaListesi(93) = "/Server.asp" 
SayfaListesi(94) = "/Server/" 
SayfaListesi(95) = "/wp-admin/" 
SayfaListesi(96) = "/administr8.php" 
SayfaListesi(97) = "/administr8.html" 
SayfaListesi(98) = "/administr8/" 
SayfaListesi(99) = "/administr8.asp" 
SayfaListesi(100) = "/webadmin/" 
SayfaListesi(101) = "/webadmin.php" 
SayfaListesi(102) = "/webadmin.asp" 
SayfaListesi(103) = "/webadmin.html" 
SayfaListesi(104) = "/administratie/" 
SayfaListesi(105) = "/admins/" 
SayfaListesi(106) = "/admins.php" 
SayfaListesi(107) = "/admins.asp" 
SayfaListesi(108) = "/admins.html" 
SayfaListesi(109) = "/administrivia/" 
SayfaListesi(110) = "/Database_Administration/" 
SayfaListesi(112) = "/WebAdmin/" 
SayfaListesi(113) = "/useradmin/" 
SayfaListesi(114) = "/sysadmins/" 
SayfaListesi(115) = "/admin1/" 
SayfaListesi(117) = "/system-administration/" 
SayfaListesi(118) = "/administrators/" 
End Sub 

Private Sub List1_DblClick() 
If List1.ListCount = 0 Then Exit Sub 
Clipboard.Clear 
Clipboard.SetText List1.List(List1.ListIndex) 
MsgBox "Belleğe kopyalandı", vbInformation 
End Sub