Mensajes

Buenas...

He estado intentando realizar tabs para seleccionar otros links mediante sendmessage.. pero no me ha funcionado.. hago el click y no realiza ninguna accion.. dejo el source a ver si alguien encuentra el error..

Form:

Código (vb) [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_TAB = &H9

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = GetBrowserHandle(Me.hwnd)
SendMessage hwnd, WM_KEYDOWN, VK_TAB, 0&
'SendMessage hWnd, WM_KEYUP, VK_TAB, 0&
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End Sub

Modulo:

Código (vb) [Seleccionar] Expandir

      Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" ( _
          ByVal hwnd As Long, _
          ByVal lpClassName As String, _
          ByVal nMaxCount As Long _
      ) As Long

      Private Declare Function EnumChildWindows Lib "user32.dll" ( _
          ByVal hWndParent As Long, _
          ByVal lpEnumFunc As Long, _
          ByVal lParam As Long _
      ) As Long

      Private hWndIE As Long


      Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
          Dim sClassName As String
          sClassName = String(255, vbNullChar)
          Call GetClassName(hwnd, sClassName, 255)
          sClassName = Left$(sClassName, InStr(sClassName, vbNullChar) - 1)
          If sClassName <> "Internet Explorer_Server" Then
              EnumChildProc = 1
          Else
              hWndIE = hwnd
          End If
      End Function
       
      Public Function GetBrowserHandle(ByVal hWndParent) As Long
          hWndIE = 0
          Call EnumChildWindows(hWndParent, AddressOf EnumChildProc, 1)
          GetBrowserHandle = hWndIE
      End Function




Encuentra el handle y todo del webbrowser pero no se porke no realiza los tabs en la pagina..

Saludos!

Yo lo conseguí hacer, google me pillo. Lo que hice fue impedir que el ratón saliera del formulario, luego hice que el formulario midiera un pixel, apuntando justo al anuncio de mi pagina web (cargada en un webbrowser) la sensación que le da al usuario( por si el programa lo quieres "espandir") es que se le bloquea el ratón, entonces lo mas logico es que toque todos los botones del ratón y haga click en tu anuncio. No es una forma muy... tecnica.. ni muy purista.. Es mas bien una chapuza.. pero me resulto, en mi adsense subia el dinero como la espuma.. y google amablemente me mando a la *****..

Hemos detectado que se han producido clics no válidos en los anuncios
Google de sus sitios. En adelante, es posible que ajustemos su pago en
los días en los que se produjeron clics no válidos a fin de abonar a
los anunciantes la cantidad derivada de la actividad no válida.

Le recordamos que Google prohíbe terminantemente el uso de cualquier
método para generar clics no válidos. Este tipo de clics incluye, sin
carácter exhaustivo: clics generados a través del uso de robots,
herramientas que realizan clics automáticamente, clics manuales
realizados por un editor en sus propias páginas web o el hecho de que
un editor anime a otras personas a hacer clic en sus anuncios.

Si ha hecho clic en los anuncios de sus páginas web a modo de prueba,
tenga en cuenta que ello está prohibido, como también lo está animar a
otras personas a hacerlo por cualquier motivo, ya que esto podría
aumentar artificialmente los costes de los anunciantes. Por otro lado,
no hay necesidad de probar los anuncios que se publican en su sitio,
puesto que nuestros especialistas revisan todos y cada uno de ellos
para asegurarse de que cumplen con los estándares publicitarios de
Google.

Si desea visitar la URL de destino de un anuncio para ver su contenido
o para añadirla a su lista de sitios filtrados, utilice la Herramienta
de demostración de AdSense de Google, disponible a través de este
vínculo:

https://www.google.com/adsense/previewtool?hl=es

La Herramienta de demostración de AdSense de Google es un elemento
adicional del menú de Internet Explorer 6.x para Windows que aparece al
hacer clic con el botón derecho del ratón. Esta herramienta permite
obtener una vista previa de los anuncios que pueden aparecer en
cualquier página web. Los clics y las impresiones realizadas desde esta
herramienta no se acumulan en la cuenta del anunciante. Puede acceder
al sitio de destino sin preocuparse de que se generen clics no válidos
en su cuenta y sin acarrear costes para el anunciante en concepto de
sus clics de prueba.

Si tiene más preguntas, no dude en responder a este mensaje. Estaremos
encantados de ayudarle en todo lo que podamos.

Atentamente,

El equipo AdSense de Google

Los de google ... saben mucho..

Un saludo!!

Serias tan amable de pasarme el source de tal soft?

Saludos!

La idea que tengo seria de utilizar un sendmessage que envie el click en tales posiciones del webbrowser que esta escondido....

Alguien me puede decir si es posible?

Saludos!

[1234762350779]

Lo que estoy tratando de hacer es hacer click en un anuncio de adsense.. estuve viendo todo ya he probado muchisimo con el webbrowser1.document....... y tmb probe con winsock... obtengo las respuestas y todo.. pero no pude descubrir de donde saka el link del iframe.. es dinamico..

ya que primero obtiene.. http://pagead2.googlesyndication.com/pagead/show_ads.js
despues... http://googleads.g.doubleclick.net/pagead/test_domain.js
y por ultimo obtiene el link del iframe... http://googleads.g.doubleclick.net/pagead/ads?client=...&dt=1234762350779&lmt=...&format=...&output=...&correlator=...&channel=...&url=http%3A%2F%2Flocalhost%2Fa.html&color_bg=...&color_text=...&color_link=...&color_url=...&color_border=...&ad_type=...&ea=...&frm=...&ga_vid=...&ga_sid=...&ga_hid=...&flash=...&u_h=...&u_w=...&u_ah=...&u_aw=...&u_cd=...&u_tz=...&u_his=...&u_java=...&u_nplug=...&u_nmime=...&dtd=43

En negrita los nros dinamicos de la url..

Saludos!

Buenas,

Estuve tratando largo rato de poder realizar un click en el webbrowser... pero de forma escondida y sin utilizar webbrowser1.document.elobjeto.click ya que por ese medio es inalcanzable ya lo he intentado..

Hay alguna forma de "mandar" un click a un lugar especifico del webbrowser  (estando escondido el form)?

Saludos!

PD: No me digan que utilize winsock o Inet ya lo he probado y no me sirve para lo que lo quiero..

Buenas... se me ha presentado un problemilla

Hay alguna manera de saltarse las restricciones con vb asi como lo hacen los troyanos como por ejemplo bifrost? que por mas que tengan los usuarios una cuenta limitada se copian sin problemas en disco:\windows\system32

Saludos!

Conclusion: aprender a manejarme mejor en C/C++

Saludos!

utiliza exactamente lo que te di..

saludos

Buenas...

Hay alguna manera de deshacerse de la dll que utiliza vb? y solo utilizar apis?

No necesito el formulario ni nada solo necesito que realice funciones que tranquiamente se pueden hacer con apis

Saludos!

Conectar a Router (local) desde VB
--------------------------------------------------------------
Connotados, les cuento lo que quiero hacer.

quiero conectarme a mi router a traves de visual basic
usando el control WebBrowser ingresando en los textbox
el user y password
y luego hacer clic en el boton submit
todo esto de forma automatica..

es posible hacer eso ??
o existe alguna otra forma ?¿

Código (vb) [Seleccionar] Expandir


WebBrowser1.Document.Forms(0).elements(0).Value = "aca el usuario del login"
WebBrowser1.Document.Forms(0).elements(1).Value = "aca el pass del login"
WebBrowser1.Document.Forms(0).submit



Saludos!