Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 02:30:40
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Webbrowser! 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Webbrowser!  (Leído 430 veces)
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« en: Noviembre 05, 2006, 05:55:48 »
NO consigo pillar l codigo fuente de una web desde el WB de VB6!

Alguien sabe komo hacerlo??

att. H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #1 en: Noviembre 05, 2006, 06:04:56 »
Pues ese es uno de los grandes secretos de la humanidad xD

Tambien me gustaria saber como sakar lo k muestra la pagina del web browser (como se fuera un copy&paste del texto)
Me ayudaria mucho en un proyecto k he largado pork no sabia como hacer eso  Undecided

Salu2
En línea
sNipeR-
Visitante
« Respuesta #2 en: Noviembre 05, 2006, 10:30:09 »
Mira H4NG3R te dejo la solucion  Wink

Código:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DescargarCodigo(Direccion As String, Directorio As String) As Boolean
    Dim Valor As Long
    Valor = URLDownloadToFile(0, Direccion, Directorio, 0, 0)
    If Valor = 0 Then DescargarCodigo = True
End Function

Private Sub Form_Load()
   DescargarCodigo Web.LocationURL, "C:\el-hacker.htm"
End Sub

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #3 en: Noviembre 06, 2006, 01:23:46 »
otia thx, lo del capy&paste del texto dle WB es tan sencillo como darle foco (se da por defecto) i hacerle:

Código:

[b]Public function pillar_texto[/b]

'si hace falta tabs los pones!

SendKeys "(^(e))"
SendKeys "(^(c))"
timer1.enabled = true

[b]end function[/b]

[b]Private Sub timer1_Timer()[/b]

text1.setfocus
SendKeys "(^(v))"

[b]End Sub[/b]



NO se es esto lo que querrias!! Sino toy muxo en el webbrowser enviame un pirvado Wink

att. H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #4 en: Noviembre 06, 2006, 01:32:08 »
Tienes razon no se me havia ocurrido hacer eso, estava buscando una solucion en el sitio errado xD
Gracias H4NG3R  Wink
Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #5 en: Noviembre 06, 2006, 02:20:38 »
Me siento grande x averte sido de ayuda jajajajjajajajaja (a k toy loko)

jujuju

De nada  Wink

H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #6 en: Noviembre 06, 2006, 02:27:11 »
Cita de: H4NG3R en Noviembre 06, 2006, 02:20:38
Me siento grande x averte sido de ayuda jajajajjajajajaja (a k toy loko)

jujuju

De nada  Wink

H4NG3R

Jeje no soy ningun profisional, as veces tambien necesito ayuda  Cheesy
Buen ya sabia eso del sendkeys pero realmente no se me havia ocurrido. Y tambien no tengo trabajado con los web browsers ya k el IE7 me ha jodido todo xD, asi k no he pensado mucho en el asunto.
En el proximo formateo ya usare firefox y listo, vuelvo a usar web browsers xD

Gracias mas una vez  Wink

Salu2
En línea
sNipeR-
Visitante
« Respuesta #7 en: Noviembre 14, 2006, 10:49:35 »
Ok ya he formateado y me he puesto con esto.
Al probar el metodo del sendkeys me he acuerdado: Pero al final como haria el codigo del copy??? ya k no hay tabs  con eso o se hay no las he encuentrado.
Asi k mas una vez me he puesto a buscar y mira lo k he encontrado:

copy-paste-cut wb

Private Sub mnuFileCopy_Click()
    WebBrowser1.ExecWB OLECMDID_COPY, _
        OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub mnuFileCut_Click()
    WebBrowser1.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub mnuFilePaste_Click()
    WebBrowser1.ExecWB OLECMDID_PASTE, _
        OLECMDEXECOPT_DODEFAULT
End Sub


' Grab text from the WebBrowser control.
Private Sub Command1_Click()
    txtResult(1).Text = WebBrowser1.Document.Body.InnerText
    txtResult(2).Text = WebBrowser1.Document.Body.OuterText
    txtResult(3).Text = WebBrowser1.Document.Body.InnerHtml
    txtResult(4).Text = WebBrowser1.Document.Body.OuterHtml
    txtResult(5).Text = _
        WebBrowser1.Document.ActiveElement.InnerText
    txtResult(6).Text = _
        WebBrowser1.Document.ActiveElement.OuterText
    txtResult(7).Text = _
        WebBrowser1.Document.ActiveElement.InnerHtml
    txtResult(Cool.Text = _
        WebBrowser1.Document.ActiveElement.OuterHtml
End Sub


xDDDDDDDDDDDDDDDD
Tan facil, eso mismo lo k buscava.
Ahora puedo continuar un proyecto muy antiguo k no sabia como hacer hace mucho tiempo.

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #8 en: Noviembre 14, 2006, 11:54:13 »
olala! NO tenog mas palabras, aki me kito el sombrerito.

Lo k me jode es no averlo buscado antes yo. . . No abre puesto oras d progranacion x los putos TABS.

Pero para pulsar botones tendremos k seguir kn los tabs o ay otro sistema??


H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #9 en: Noviembre 14, 2006, 11:56:24 »
Eso ya depende de lo k kieres hacer  Smiley
Como puedes ver todo se puede hacer con codigo.

Salu2

PD: No se se has visto pero cosas como esto te kitan el source code de la pagina xDDD:

txtResult(4).Text = WebBrowser1.Document.Body.OuterHtml
« Última modificación: Noviembre 14, 2006, 11:58:11 por $N!PER » En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #10 en: Noviembre 15, 2006, 10:26:25 »
i . . . Hoy llebo horas estudiando fisika i toy mu tonto.
Que tiene k ver el source code de uan web kn pulsar un boton?? Puedes pillar el link: <A HREF:....> xo eso no tiene k funcionar pues ay variable si tal no??

H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #11 en: Noviembre 15, 2006, 10:37:16 »
Cita de: H4NG3R en Noviembre 15, 2006, 10:26:25
i . . . Hoy llebo horas estudiando fisika i toy mu tonto.
Que tiene k ver el source code de uan web kn pulsar un boton?? Puedes pillar el link: <A HREF:....> xo eso no tiene k funcionar pues ay variable si tal no??

H4NG3R

No he entiendido nada Huh
Podrias explicar un poco mejor?

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #12 en: Noviembre 15, 2006, 11:52:37 »
que digo k yo por ejemplo toy creando un autobot para Ogame i era para saber si tambien existia el codigo para llenar campos Universo i tal i para darle al boton "acceptar"!

H4NG3R
En línea
sNipeR-
Visitante
« Respuesta #13 en: Noviembre 15, 2006, 12:35:03 »
Cita de: H4NG3R en Noviembre 15, 2006, 11:52:37
que digo k yo por ejemplo toy creando un autobot para Ogame i era para saber si tambien existia el codigo para llenar campos Universo i tal i para darle al boton "acceptar"!

H4NG3R

jajaja yo tambien estoy haciendo un autobot para un juego como el ogame y ya esta kasi terminado juju

Hm no creo k eso se pueda xD pero aun asi se lo kieres mucho dale al buscar. Donde llega mi conocimiento nose ...

Salu2
En línea
H4NG3R
Habitual
*****
Desconectado Desconectado

Mensajes: 290

Mientras todos callavan, alguien grito LIBERTAD!

hanger_69@hotmail.com
Ver Perfil
« Respuesta #14 en: Noviembre 15, 2006, 02:02:13 »
es lo k dige anteriormente este ayuda muxo, no no nos soluciona todos los TABS, jujujuju!

Engaa nos vemos!
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Webbrowser! « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC