elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  base para una parte de el navegador web
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: base para una parte de el navegador web  (Leído 1,171 veces)
CAR3S?


Desconectado Desconectado

Mensajes: 343


Level xXx


Ver Perfil
base para una parte de el navegador web
« 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


En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: base para una parte de el navegador web
« Respuesta #1 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?


En línea

CAR3S?


Desconectado Desconectado

Mensajes: 343


Level xXx


Ver Perfil
Re: base para una parte de el navegador web
« Respuesta #2 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
En línea

Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: base para una parte de el navegador web
« Respuesta #3 en: 16 Marzo 2011, 23:13 pm »

Fijate que el hombre rana (Mr.Frog) tiene un par de codigos para hacer eso sin INET
En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: base para una parte de el navegador web
« Respuesta #4 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
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Consejos para diseñar una web 2ª parte
Diseño Gráfico
breack 1 1,386 Último mensaje 29 Octubre 2004, 13:13 pm
por PhenfiX
Base de Datos TXT: Parte I
Scripting
Axus 2 1,938 Último mensaje 2 Enero 2008, 03:24 am
por ???
Python en la parte cliente del navegador
Dudas Generales
GeorgArming 0 1,680 Último mensaje 8 Marzo 2012, 21:19 pm
por GeorgArming
Tengo problemas al entrar desde mi Navegador en una parte del Mercadona
Seguridad
El_Andaluz 2 1,124 Último mensaje 26 Octubre 2018, 15:36 pm
por El_Andaluz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines