Mensajes

Necesitaria si alguien tiene el code para hacer ping a un host .... gracias

Para cargar la imagen en Picture vas a usar el siguiente CODE :

Código [Seleccionar] Expandir

Picture.picture = LoadPicture(C:\captura.jpg)


Le tenes que sacar los parentesis 

Para cambiar de posicion el mouse van a usar la siguiente api:

Código [Seleccionar] Expandir

Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Para hacer click con el mouse van a usar la siguiente api:

Código [Seleccionar] Expandir

Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy _
    As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Constantes del mouse_event

Código [Seleccionar] Expandir

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Para hacer click pone este code (boton izquierdo del mouse):

Código [Seleccionar] Expandir

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Despues para mover el mouse :

Código [Seleccionar] Expandir

SetCursorPos("x", "y")

                                Saludos FMG ......

Para cambiar de posicion el mouse van a usar la siguiente api:

Código [Seleccionar] Expandir

Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Para hacer click con el mouse van a usar la siguiente api:

Código [Seleccionar] Expandir

Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy _
    As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Constantes del mouse_event

Código [Seleccionar] Expandir

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Para hacer click pone este code (boton izquierdo del mouse):

Código [Seleccionar] Expandir

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Despues para mover el mouse :

Código [Seleccionar] Expandir

SetCursorPos"x", "y"

                                Saludos FMG ..........

Para cambiar de posicion el mouse vas a usar la siguiente api:

Código [Seleccionar] Expandir

Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Para hacer click con el mouse vas a usar la siguiente api:

Código [Seleccionar] Expandir

Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy _
    As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Constantes del mouse_event

Código [Seleccionar] Expandir

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Para hacer click pone este code

Código [Seleccionar] Expandir

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Despues para mover el mouse :

Código [Seleccionar] Expandir

SetCursorPos("x", "y")

           Saludos FMG ..........

Set imagen = LoadPicture(pathdelacaptura)
Picture1.PaintPicture imagen, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

Eso hize pero yo no quiero esto porque  :
1) se ve feo
2) manda la imagen entera en vano

Holas necesito un ayudita anduve googleando y nada .... Necesito que el CJpeg me cree un imagen delun ancho y un alto que yo le asigne .... porque la calidad se le puede asignar pero el ancho y alto de la imagen no ....

Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
       Captura.Quality = calidad --> Calidad pero no ancho y alto
       Captura.SampleScreen
       Captura.SaveFile ("c:\" & "\capture" & ".jpg")

Les agradeceria ........................

es lo mismo para el image ?

Holas estoy haciendo un escritorio remoto en vb y bueno tengo una duda como puedo hacer para que se apreten las teclas en la pc remota cuando yo escriba en la picturebox cliente ... Si me ayudan les estaria agradecido