HTML publicidad no se muestra
Publicado: 26 Sep 2015, 19:03
Buen día, la cuestión está que debería salir publicidad en el siguiente codigo.
Demora un poco hasta que cargue bien, para apenas mostrar un cuadro azul, pero si ubicamos el mouse en la parte superior en blanco muestra como si requiere que hagan clic, y al dar clic se carga el link que contiene la publicidad generada, cabe mencionar que la publicidad no se muestra.r
Espero lo puedan chekar, y puedan ayudar para que se muestre la publicidad.
Este es el codigo HTML
gracias de antemano 
Demora un poco hasta que cargue bien, para apenas mostrar un cuadro azul, pero si ubicamos el mouse en la parte superior en blanco muestra como si requiere que hagan clic, y al dar clic se carga el link que contiene la publicidad generada, cabe mencionar que la publicidad no se muestra.r
Espero lo puedan chekar, y puedan ayudar para que se muestre la publicidad.
Código: Seleccionar todo
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPIDiag.au3>
#include <WinAPISys.au3>
#include <IE.au3>
#include <WinAPIDlg.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)
Opt("GUICloseOnESC", 0)
Global $Form1 = GUICreate("Gui_HTML_Publicidad_yva", 436, 410, -1, -1, $WS_POPUPWINDOW)
Global $lblCerrar = GUICtrlCreateLabel('X', 310, 3, 20, 25, $SS_CENTER + $SS_CENTERIMAGE)
GUICtrlSetOnEvent(-1, 'cerrar')
Global Const $sHtml = '<div style="float:none;margin:10px 0 10px 0;text-align:center;">' & @CR & _
'<table>' & @CR & _
'<tr>' & @CR & _
'<td>' & @CR & _
'<script async src="http://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>' & @CR & _
'<!-- avy -->' & @CR & _
'<ins class="adsbygoogle"' & @CR & _
'style="display:inline-block;width:336px;height:280px"' & @CR & _
'data-ad-client="ca-pub-9425996110625918"' & @CR & _
'data-ad-slot="2467722580"></ins>' & @CR & _
'<script>' & @CR & _
'(adsbygoogle = window.adsbygoogle || []).push({});' & @CR & _
'</script></td>' & @CR & _
'</tr>' & @CR & _
'</table>' & @CR & _
'</div>'
Local Const $sPath = @ScriptDir & "/pagina.html"
FileWrite($sPath, $sHtml)
If _WinAPI_GetVersion() >= '6.0' And _WinAPI_IsInternetConnected() Or _WinAPI_GetVersion() < '6.0' And (_WinAPI_IsNetworkAlive() <> 0) Then ; si existe internet
Local $oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 0, 30, 436, 480)
_IENavigate($oIE, $sPath, 0)
GUISetState(@SW_SHOW)
;~ WinSetOnTop('Gui_HTML_Publicidad_yva', 'X', 1)
;~ AdlibRegister("cerrar", 10000)
Else
Exit
EndIf
While 1
Sleep(10)
WEnd
Func cerrar()
Exit
EndFunc ;==>cerrar
Código: Seleccionar todo
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<!-- avy -->
<ins class="adsbygoogle"
style="display:inline-block;width:336px;height:280px"
data-ad-client="ca-pub-9425996110625918"
data-ad-slot="2467722580"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>