ClientScriptManager PARA AGREGAR CONTENIDO Y SCRIPTS A LA PÁGINA


'crear contenido web desde servidor
Dim texto as string = "
" & vbNewLine & _

               "Hola Mundo
" & vbNewLine & _     

               "
"Dim cs As ClientScriptManager = Page.ClientScript


If Not cs.IsStartupScriptRegistered(Me.[GetType](), "HolaMundo") Then
                cs.RegisterStartupScript(Me.[GetType](), "HolaMundo", texto)
End If


'crear y ejecutar script
Dim texto as string= "alert('Hello World');";
Dim cs As ClientScriptManager = Page.ClientScript


cs.RegisterStartupScript( Me.[GetType](),"HolaMundo2",texto,true);

LEER Y RECORRER LOS FICHEROS DE UN DIRECTORIO


Dim Files As String(), File As String


Files = IO.Directory.GetFiles(System.AppDomain.CurrentDomain.BaseDirectory & "/DATA", "*.xml")
     
For Each File In Files
     cmbConnect.Items.Add(IO.Path.GetFileNameWithoutExtension(File))
     My.Application.DoEvents()
Next

CONTROLAR EL CURSOR Y EVENTOS DEL RATÓN


'RATÓN ->
    DllImport ( "User32.dll" )> _
    Public Shared Function SetCursorPos ( ByVal X Como Entero , ByVal Y Como Entero ) Como Largo
    Fin Función
    DllImport ( "User32.dll" )> _
    Public Shared Function GetCursorPos ( ByRef lpPoint Como Point ) Como Largo
    Fin Función
    DllImport ( "User32.dll" )> _
    Public Shared Sub mouse_event( ByVal dwFlags As Integer , ByVal dx As Integer , ByVal dy As Integer , ByVal cButtons As Integer , ByVal dwExtraInfo As IntPtr )
    End Sub

    Dim URLini Como Cadena

    Public Const MOUSEEVENTF_LEFTDOWN = & H2 'botón izquierdo
    Public Const MOUSEEVENTF_LEFTUP = & H4 'botón izquierdo hasta
    Public Const MOUSEEVENTF_MIDDLEDOWN = & H20 'botón del medio hacia abajo
    Public Const MOUSEEVENTF_MIDDLEUP = & H40 'botón central hasta
    Public Const MOUSEEVENTF_RIGHTDOWN = & H8 'botón de la derecha abajo
    Public Const MOUSEEVENTF_RIGHTUP = & H10 'botón hasta

    '<- font="" rat="">

Private Sub ...
'Cursor 1 Posicionamos el
SetCursorPos (Me.Width - 210, 165)
'2 Pulsamos boton Derecho del Ratón
mouse_event (MOUSEEVENTF_LEFTDOWN, Me.Width - 215, 165, 0, 0)
mouse_event (MOUSEEVENTF_LEFTUP, Me.Width - 215, 165, 0, 0)
End Sub

DESACTIVAR TECLAS Y RATÓN AL USUARIO

 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long


 Private Sub  .....
        BlockInput(True) 'bloqueamos las interacciones del usuario 
         '<--- llamadas a las rutinas que deseamos ejecutar con las interacciones del usuario bloqueadas--->
        BlockInput(False)' desbloqueamos las interacciones del usuario
  End Sub 

WEBBROWSER (EJEMPLOS DE USO)

Dim txtUser_Element As HtmlElemen
Dim txtPass_Element As HtmlElement
Dim btEntrar_Element As HtmlElement

'Capturar elemento por el ID
txtUser_Element = WebBrowserEx1.Document.GetElementById("txtUsuario")
txtPass_Element = WebBrowserEx1.Document.GetElementById("txtPassword")
btEntrar_Element = WebBrowserEx1.Document.GetElementById("btnEntrar")
'Por posición del tipo elemento-> .Document.GetElementsByTagName("INPUT").Item(8)

'Informar txt a traves del atributo value
txtUser_Element.SetAttribute("value", tdbConfig.SegurosVF.userShop)
txtPass_Element.SetAttribute("value", tdbConfig.SegurosVF.passShop)

'llamada al evento click
btEntrar_Element.RaiseEvent("onclick")

'-------------------------------------

'Capturar contenido txt a través del atributo value

Dim txtCod_Element As HtmlElement
txtCodSAP_Element = WebBrowserEx1.Document.GetElementById("txtCod")
msgbox(txtCod_Element.GetAttribute("value"))

'--------------------------------------

'Pulsar botón mediante InvokeMember
Dim btBuscar_Element As HtmlElement

btBuscar_Element = WebBrowserEx1.Document.GetElementById("btnBuscar")
btBuscar_Element.InvokeMember("click")

'--------------------------------------

'Capturar contenido del desplegable combo del indice seleccionado
Dim cmbFact_Element As HtmlElement, i as integer
cmbFact_Element = WebBrowserEx1.Document.GetElementById("cmbFact")
i = cmbFact_Element.GetAttribute("selectedindex")
msgbox(cmbFact_Element.Children(i).InnerText)

'Seleccionar indice del desplegable combo
Dim cmbProducto_Element As HtmlElement
cmbProducto_Element = WebBrowserEx1.Document.GetElementById("cmbProducto")
cmbProducto_Element.SetAttribute("selectedindex", 3)
cmbProducto_Element.RaiseEvent("onchange")

'---------------------------------------
'ZOOM

Private Enum Exec
     OLECMDID_OPTICAL_ZOOM = 63
End Enum
Private Enum ExecOpt
     OLECMDEXECOPT_DODEFAULT = 0
     OLECMDEXECOPT_PROMPTUSER = 1
     OLECMDEXECOPT_DONTPROMPTUSER = 2
     OLECMDEXECOPT_SHOWHELP = 3
End Enum


Dim Res As Object = Nothing
Dim MyWeb As Object
MyWeb = Me.WebBrowserEx1.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, _
 ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, 50, IntPtr.Zero)

'Cambiar tamaño de la fuente
-----------------------------------
WebBrowserEx1.Document.Body.Style = "font-size:11px;"

OBTENER IP DE LA CONEXIÓN DEL CLIENTE


Dim ClientIP, Forwaded, RealIP


RealIP = ""


ClientIP = Request.ServerVariables("REMOTE_ADDR")
If ClientIP <> "" Then
            RealIP = ClientIP
Else
    'El usuario está accediendo a través de un Proxy.
    Forwaded = Request.ServerVariables("HTTP_X-Forwarded-For")
    If Forwaded <> "" Then RealIP = Forwaded
End If