Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CAR3S? en 16 Marzo 2011, 21:54 pm



Título: base para una parte de el navegador web
Publicado por: CAR3S? en 16 Marzo 2011, 21:54 pm
bueno, enrealidad, no es un navegador, pero lo que hace es ir a una pagina, y ahi tendo que comprobar que el codigo de la pagina sea X

x = (c:\windows\source.php)

osea, q la pagina coincida con source.php , nose si se puede, pero necesito una base o algo porq nose ni donde estoy parado


Título: Re: base para una parte de el navegador web
Publicado por: raul338 en 16 Marzo 2011, 22:34 pm
No entendi lo que quieres, quieres que solamente entre en source.php? O quieres algo de adentro de la web?


Título: Re: base para una parte de el navegador web
Publicado por: CAR3S? en 16 Marzo 2011, 22:55 pm
ohh ya consegui robar el codigo, se hace asi :

Código
  1.  
  2. Private Sub Command1_Click()
  3.  
  4.    Dim datos As String
  5.    Dim UnArray() As Byte
  6.    Dim t As Long
  7.    On Error GoTo Error_Sub
  8.  
  9.    Dim Url As String
  10.  
  11.    ' pide la dirección
  12.    Url = "ACA LA WEB"
  13.  
  14.    If Url = vbNullString Then Exit Sub
  15.  
  16.  
  17.  
  18.    ' recupera los datos
  19.    UnArray() = Inet1.OpenURL(Url, 1)
  20.  
  21.    datos = ""
  22.    ' recorre le array
  23.    For t = 0 To UBound(UnArray) - 1
  24.        datos = datos + Chr(UnArray(t)) ' almcena el contenido
  25.    Next
  26.  
  27.    RichTextBox1.Text = datos ' lo carga en el RichTextBox
  28.  
  29.  
  30.  
  31.    Exit Sub
  32.  
  33. ' Error
  34. Error_Sub:
  35.  
  36.    MsgBox "No se pudo acceder a la dirección url", vbCritical
  37.  
  38. en sub
  39.  

hay q usar el control inet y el richtextbox algo asi xDDDDDDDD


Título: Re: base para una parte de el navegador web
Publicado por: Elemental Code en 16 Marzo 2011, 23:13 pm
Fijate que el hombre rana (Mr.Frog) tiene un par de codigos para hacer eso sin INET


Título: Re: base para una parte de el navegador web
Publicado por: Psyke1 en 17 Marzo 2011, 00:51 am
Código
  1. Option Explicit
  2. '======================================================================
  3. ' º Function   : GetHtmlCode
  4. ' º Author     : Mr.Frog ©
  5. ' º Country    : Spain
  6. ' º Mail       : vbpsyke1@mixmail.com
  7. ' º Twitter    : http://twitter.com/#!/PsYkE1
  8. ' º Recommended Websites :
  9. '       http://foro.h-sec.org
  10. '       http://InfrAngeluX.Sytes.Net
  11. '======================================================================
  12. Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  13. Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
  14. Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
  15. Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
  16. Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
  17.  
  18. Private Const IF_NO_CACHE_WRITE& = &H4000000
  19.  
  20. Public Function GetHtmlCode(ByRef strURL$) As String
  21. Dim lngInternet&, lngFile&, lngRead&
  22. Dim strBuffer As String * &H3E8
  23.  
  24.    If InternetGetConnectedState(&H0, &H0) Then
  25.        lngInternet = InternetOpen(&H0, &H1, vbNullString, vbNullString, &H0)
  26.        If lngInternet Then
  27.            lngFile = InternetOpenUrl(lngInternet, strURL, vbNullString, &H0, IF_NO_CACHE_WRITE, &H0)
  28.            If lngFile Then
  29.                Do
  30.                    InternetReadFile lngFile, strBuffer, &H3E8, lngRead
  31.                    DoEvents
  32.                    GetHtmlCode = GetHtmlCode & Left$(strBuffer, lngRead)
  33.                Loop While lngRead
  34.            End If
  35.            InternetCloseHandle lngInternet
  36.        End If
  37.    End If
  38. End Function

Código:
Private Sub Form_Load()
    Debug.Print GetHtmlCode("http://google.com")
End Sub

DoEvents! :P