Mensajes

[GetKeyState]

El error te lo da porque te falta declarar el POINTAPI.
El codigo completo seria asi:

Código [Seleccionar] Expandir

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long


Y despues para poner las coordenadas en un label, por ejemplo, en un timer con intervalo en 10 pones:

Código [Seleccionar] Expandir


Dim Pos As POINTAPI
GetCursorPos Pos

Label1 = Pos.X & " - " & Pos.Y


Bueno espero que no haya errores.


Ah y eso de las teclas lo podes lograr usando la API GetKeyState
Para obtener la pulsacion de la tecla F5 por ejemplo, seria asi:

Código [Seleccionar] Expandir


Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Private Const VK_F5 = &H74

Private Sub Timer1_Timer ()
If GetKeyState(VK_F5) < 0 Then
MsgBox "Se apreto la tecla F5"
eNd if
end sub


Hay muchas formas... espero que te sirva


Saludos.-

[MSFlexGris]

MSFlexGris podria ser... Hay muchos muy parecidos...

Saludos.-

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Pt As POINTAPI
GetCursorPos Pt

Luego, para usar las variables de las posiciones X e Y tenes que poner:

Código [Seleccionar] Expandir


MsgBox Pt.X & " - " Pt.Y


Saludos.-

[For Output]

pero este borra el texto que tiene el mismo para pegarle el nuevo

En el codigo estas borrando el archivo original (Kill "c:/nuevo.log"), eso lo tendrias que sacar. Y para que se agreguen los datos cambia donde dice For Output y pone For Append.-

Busca en el subforo de troyanos y virus.-

Che perdon que siga jodiendo pero, si pones vbNullString, que te crearia??

Perdo si digo una burrada pero no entiendo lo que prentendes hacer ... No funcionaria si pones "00" en vez de null ??

Saludos.-

Hola, el codigo funciona, pero lo que me dice es si la conexion ADSL esta establecida, no si estoy conectado a internet o no :S

Si la conexion ADSL esta establecida, estas conectado a internet ???

No se que es lo que necesitas, por favor explicate mejor.-

De nada

Código [Seleccionar] Expandir

'Example by Vijay Phulwadhawa (vijaycg44@hotmail.com)
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    MsgBox "Is connected to the internet: " + CStr(IsConnected)
End Sub
Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function