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 : Private Sub Command1_Click() Dim datos As String Dim UnArray() As Byte Dim t As Long On Error GoTo Error_Sub Dim Url As String ' pide la dirección Url = "ACA LA WEB" If Url = vbNullString Then Exit Sub ' recupera los datos UnArray() = Inet1.OpenURL(Url, 1) datos = "" ' recorre le array For t = 0 To UBound(UnArray) - 1 datos = datos + Chr(UnArray(t)) ' almcena el contenido Next RichTextBox1.Text = datos ' lo carga en el RichTextBox Exit Sub ' Error Error_Sub: MsgBox "No se pudo acceder a la dirección url", vbCritical en sub
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
Option Explicit '====================================================================== ' º Function : GetHtmlCode ' º Author : Mr.Frog © ' º Country : Spain ' º Mail : vbpsyke1@mixmail.com ' º Twitter : http://twitter.com/#!/PsYkE1 ' º Recommended Websites : ' http://foro.h-sec.org ' http://InfrAngeluX.Sytes.Net '====================================================================== 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 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 Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Const IF_NO_CACHE_WRITE& = &H4000000 Public Function GetHtmlCode(ByRef strURL$) As String Dim lngInternet&, lngFile&, lngRead& Dim strBuffer As String * &H3E8 If InternetGetConnectedState(&H0, &H0) Then lngInternet = InternetOpen(&H0, &H1, vbNullString, vbNullString, &H0) If lngInternet Then lngFile = InternetOpenUrl(lngInternet, strURL, vbNullString, &H0, IF_NO_CACHE_WRITE, &H0) If lngFile Then Do InternetReadFile lngFile, strBuffer, &H3E8, lngRead DoEvents GetHtmlCode = GetHtmlCode & Left$(strBuffer, lngRead) Loop While lngRead End If InternetCloseHandle lngInternet End If End If End Function
Private Sub Form_Load() Debug.Print GetHtmlCode("http://google.com") End Sub DoEvents! :P
|