Bom galera aqui é o gusdnide AVA e vou mostrar ai como que faz um sistema de achar
a pagina de admin ou de login do site xD
Bom crie um novo projeto e adicione um textbox para digitar o endereço do site um button para começar e 2 listbox 1 = Paginas exemplo:
E a 2 para mostrar as paginas que estao OK!
Organize de seu jeito ficando assim
textbox1 = Colocar o Endereço
button1 = Botao para iniciar a procura
listbox1 = Lista de paginas (Pode ser colocada na propriedade Items (Collection)
listbox2 = Para mostrar as paginas encontrada
Agora da 2 clicks no form (fora de qualquer objeto)
Adicione esta funçao (Em cima do evento Form1_load)
Agora volte ao design e de 2 clicks no button1 e adicione este código:
Pronto agora é so da RUN agradece ai se gosto xD
a pagina de admin ou de login do site xD
Bom crie um novo projeto e adicione um textbox para digitar o endereço do site um button para começar e 2 listbox 1 = Paginas exemplo:
Código:
admin/ administrator/ moderator/ webadmin/ adminarea/ bb-admin/ adminLogin/ admin_area/ panel-administracion/ instadmin/ memberadmin/ administratorlogin/ adm/ account.asp admin/account.asp admin/index.asp admin/login.asp admin/admin.asp admin_area/admin.asp admin_area/login.asp admin/account.html admin/index.html admin/login.html admin/admin.html admin_area/admin.html admin_area/login.html admin_area/index.html admin_area/index.asp bb-admin/index.asp bb-admin/login.asp bb-admin/admin.asp bb-admin/index.html bb-admin/login.html bb-admin/admin.html admin/home.html admin/controlpanel.html
Organize de seu jeito ficando assim
textbox1 = Colocar o Endereço
button1 = Botao para iniciar a procura
listbox1 = Lista de paginas (Pode ser colocada na propriedade Items (Collection)
listbox2 = Para mostrar as paginas encontrada
Agora da 2 clicks no form (fora de qualquer objeto)
Adicione esta funçao (Em cima do evento Form1_load)
Código:
Public Function Checkar(ByVal URL As String) As Boolean Try Dim request As WebRequest = WebRequest.Create(URL) Dim response As WebResponse = request.GetResponse() Catch ex As Exception Return False End Try Return True End Function
Código:
For Each it In ListBox1.Items Dim test As String test = TextBox1.Text & "/" & it If Checkar(test) = True Then ListBox2.Items.Add(test) ' End If Next
Comment