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

POSICIONAR SCROLL AL FINAL DE UN TEXTBOX (multiline)

Textbox1.SelectionStart = Textbox1.TextLength
Textbox1.ScrollToCaret()