Mensajes

hola es facil suponiedo que sea el unico form de la pagina seria = 0 entonces

WebBrowser1.Document.Forms(0).Submit.Click


Saludos

hola seguramente tienen un id o hay muchas otras formas mas. con el id seria algo asi

dim obj as objet

set obj = webbrowser.document.getelementbyid(AcaElNumeroDeID)

obj.value=1

todo esto es javascript podes encntrar mucha ayuda en un foro de javascript. o sino pasa la url de la pagina y si tengo tiempo te doy una mano.

puedes usar un picture y hacer un picture.print y en donde esta lo que quieres resaltar le cambias la fuente al picture

hola puedes hacer un gancho con hook

en un modulo:

Código [Seleccionar] Expandir


Const WM_ACTIVATEAPP = &H1C

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Dim PrevProc As Long
Public Sub HookForm(F As Form)
    PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(F As Form)
    SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
End Sub
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)


    If uMsg = WM_ACTIVATEAPP Then
        If wParam Then
            Debug.Print "Activate"
        Else
            Debug.Print "Deactivate"
        End If
    End If
End Function



y en el formulario:

Código [Seleccionar] Expandir


Private Sub Form_Load()
    HookForm Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    UnHookForm Me
End Sub


hola el Handle o hwnd  es el ejemplo del command2 osea donde dice Command2.Hwnd pones el handle que tienes tu, el de la aplicacion externa

Hola

Código [Seleccionar] Expandir


Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal Hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Sub Click(Hwnd As Long)
lRetValue = PostMessage(Hwnd, WM_LBUTTONDOWN, ByVal CLng(0), ByVal CLng(0))
lRetValue = PostMessage(Hwnd, WM_LBUTTONUP, ByVal CLng(0), ByVal CLng(0))
End Sub

Private Sub Command1_Click()
Click Command2.Hwnd
End Sub

Private Sub Command2_Click()
Beep
End Sub



Saludos

Supongo que te refiers a la imagen que se pone en el menu inicio de windows

Código [Seleccionar] Expandir


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()

Me.Picture = LoadPicture(GetUserImage)

End Sub


Private Function GetUserImage() As String
On Error Resume Next
Dim StrUserName As String, El_Objeto As Object
   
StrUserName = String(100, Chr$(0))
GetUserName StrUserName, 100
StrUserName = Left$(StrUserName, InStr(StrUserName, Chr$(0)) - 1)

Set El_Objeto = CreateObject("WScript.Shell")

GetUserImage = El_Objeto.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Hints\" & StrUserName & "\PictureSource")
End Function


Saludos

hola para tales cosas te recomiendo un foro de jabascript, ya que lo que quieres hacer vas a enontrar mas ayuda en esos foros cuando te refieras a la protiedad Document del webbrowser, ya pasa a ser javascript

te paso un ejemplo pero simple es solo insetar un frame al final

Código [Seleccionar] Expandir


Dim Flag As Boolean
Private Sub Form_Load()
WebBrowser1.Navigate "http://login.live.com/login.srf?id=2"
End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Flag = False Then
    WebBrowser1.Document.body.insertAdjacentHTML "beforeend", "<IFRAME style='WIDTH: 100%; HEIGHT: 30%' border=1 name=fff align=left src='http://www.google.com' width=340 scrolling=yes height=217></IFRAME>"
    Flag = True
End If
End Sub

hola Debes poner la el nombre de la clase de donde probiene la funcion.

osea si vos en el form1 tenes la funcion Suma() para referirte a esta Debes llamarla con su clase osea form1


mira

linea a ejecutar en el txtformula
form1.text1 =  form1.suma(222,333)

Saludos

Gracias E0N!! joya no avia visto el ejemplo del apiguide. funciona tal como queria, el DrakoX tambien esta bueno, pero es un poquito mas largo.

Muchas gracias