Fazendo um Search Admin page xD

[gusdnide]

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:

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

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)

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

Agora volte ao design e de 2 clicks no button1 e adicione este 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

Pronto agora é so da RUN agradece ai se gosto xD

[MERCE]

Muito bom cara...

Com certeza vai ajudar muita gente que ta iniciando em VB...
Ganhou meu "obrigadaço"!!

[gusdnide]

Muito bom cara...

Com certeza vai ajudar muita gente que ta iniciando em VB...
Ganhou meu "obrigadaço"!!

Valeu vou sempre tá ajudando ai!