Mensajes

Win32: keybd_event

Amigo, podrías aclararme un poco mas como usarlo?

Amigos, estoy en un proyecto personal, les cuento:
Tengo un botón que al presionarlo simula la presión sobre la tecla "Insert" en windows 7 y windows 8 funciona perfecto, pero el windows xp, no me funciona, simplemente la tecla no se presiona.

Este es el código:

Código [Seleccionar] Expandir

SendKeys.Send("{INSERT}")
No entiendo cual será el problema, ¿se puede lograr de otra manera?

Veo que nadie sabe, que va, usare vb.net
Saludos y gracias

Esto me tiene de cabeza, no entiendo cual es el problema, resulta que quiero abrir un archivo exe y usando un código que antes usaba, no me funciona.

Use este:

Código [Seleccionar] Expandir

Shell "C:\apa.exe", vbMaximizedFocus

también este:

Código [Seleccionar] Expandir

Shell (App.Path & "\apa.exe")

y siempre recibo el mismo error:


Intente bajar otra versión de vb6, probé en windows xp, windows 7 y sigue saliendo el mismo error.

Si alguien sabe de esto, le pido que me ayude por favor

Muchas gracias

Hola. creo que puedes hacer algo como


Print #fnum, text1.text



Saludos

funciono perfecto
gracias

Amigos, les cuento, tengo el siguiente código que me permite crear un archivo de texto en una ruta con los valores indicados:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Dim fnum As Integer

fnum = FreeFile 'se obtiene el numero de archivo
Open "ruta/valor.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "ataque 12"
Print #fnum, "atauqe 13"
Print #fnum, "poder 15"

Close fnum 'se cierra el archivo
End Sub

Pero me gustaría poder crear el archivo de texto, tomando como referencia los datos que se agreguen en un textbox multilinea a través de un commandbutton.

Me podrían ayudar a adaptar el código

Muchas Gracias 

O alguna otra forma de avisar de nuevas actualizaciones?

Enviado desde mi GT-I9300 mediante Tapatalk

Tengo un código, que muestra paginas web.

El primero "WebBrowser1" muestra el contenido de un archivo de texto alojado en un servidor

y el "webrowser2" muestra el contenido de un archivo de texto en un directorio de windows.



Lo que yo quiero es que se haga una comparación entre el WebBrowser1 y el WebBrowser2 y si los valores son distintos, muestre un mensaje diciendo que hay una nueva versión.

Esto es lo que tengo, pero no aparece el MSGBOX

Código [Seleccionar] Expandir

Private Sub Form_Load()
If Val(WebBrowser2) <> Val(WebBrowser1) Then
   MsgBox ("Hay una nueva actualizacion...")
   
End If
End Sub

Este es el código completo

Código [Seleccionar] Expandir

Private Sub Form_Resize()

   Dim linea As String
   Dim c As String
   
' Muestra en textbox contenido archivo version.txt

   Dim contenido As String 'Variable donde se guardará el texto
   WebBrowser2.Navigate (Environ$("ProgramFiles") & "\KONAMI\Pro Evolution Soccer 6\Launcher\version2.html")
         
   'Le indicamos al WebBrowser que cargue la url
       Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web
 
   
 ' Muestra en textbox contenido archivo version.txt desde servidor
   
  'Variable donde se guardará el texto
   WebBrowser1.Navigate "www.chile-pro.com/updatepatch/Launcher/version2.html" 'Le indicamos al WebBrowser que cargue la url
   Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web  
 
End Sub

Ayuda por favor

lo logre con este codigo:

Código [Seleccionar] Expandir


If Dir$(App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") <> "" Then
Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"
Else

End If

gracias por la ayuda

Borras y luego compruebas, creo que deberías primero comprobar si existe el archivo y luego proceder a borrarlo. Prueba con:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
    If My.Computer.FileSystem.FileExists("App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") Then
        Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"
    Else
        MsgBox ("Archivo no encontrado.")
    End If
End Sub


Esto me marco error amigo "If My.Computer.FileSystem.FileExists" parce q