elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  problemas con send key
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problemas con send key  (Leído 1,619 veces)
POLLITOXD

Desconectado Desconectado

Mensajes: 9


Ver Perfil
problemas con send key
« en: 13 Agosto 2013, 17:03 pm »

quiero saber cual seria la funcion o code para que la simulacion de botones
se active en el block de notas

osea cuando le doy empezar al form en el block quiero que salga las
las letras que quiero yo 
pero en ves que salga letras me sale numeros ascii
bueno sino me explique bien dejo un video aveces
vale una imagen para poder comprender mejor



aca dejo el ejemplo del proyecto : cree 2 comandos, 2 text , 2 timer

Código
  1. Option Explicit
  2. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  3.  
  4. Private Sub Form_Load()
  5. With Timer1
  6. .Enabled = False
  7. .Interval = 2000
  8. End With
  9. With Timer2
  10. .Enabled = False
  11. .Interval = 2000
  12. End With
  13. End Sub
  14. Private Sub a()
  15.  
  16.    If Timer1.Enabled = False Then
  17.        Timer1.Interval = CInt(Val(Text1.Text))
  18.        Timer1.Enabled = True
  19.        Command1.Caption = "Parar"
  20.    Else
  21.       Timer1.Enabled = False
  22.       Command1.Caption = "Empezar"
  23.    End If
  24. End Sub
  25.  
  26. Private Sub s()
  27.    If Timer2.Enabled = False Then
  28.        Timer2.Interval = CInt(Val(Text2.Text))
  29.        Timer2.Enabled = True
  30.        Command2.Caption = "Parar"
  31.    Else
  32.       Timer2.Enabled = False
  33.       Command2.Caption = "Empezar"
  34.    End If
  35. End Sub
  36. Private Sub Command1_Click()
  37. Call a
  38. End Sub
  39. Private Sub Command2_Click()
  40. Call s
  41. End Sub
  42.  
  43. Private Sub Timer1_Timer()
  44. SendKeys (vbKeya)
  45. End Sub
  46. Private Sub Timer2_Timer()
  47. SendKeys (vbKeys)
  48. End SubE

Ojalas me `puedan ayudar por hay quise meter Chr$(KeyCode) pero
no se mucho de vb apenas toy empensando


En línea

DarkMatrix

Desconectado Desconectado

Mensajes: 150


Nuestro Limite es la Imaginacion


Ver Perfil WWW
Re: problemas con send key
« Respuesta #1 en: 14 Agosto 2013, 04:47 am »

call Sendkeys("a")


En línea

Todo aquello que no se puede hacer, es lo que no intentamos hacer.
Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0)

Desing by DarkMatrix
Miseryk

Desconectado Desconectado

Mensajes: 225


SI.NU.SA U.GU.DE (2NE1 - D-Unit)


Ver Perfil
Re: problemas con send key
« Respuesta #2 en: 23 Agosto 2013, 12:24 pm »

SendMessage, SendInput, etc.
En línea

Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It’s never too late to change our luck
So, don’t let them steal your light
Don’t let them break your stride
There is light on the other side
And you’ll see all the raindrops falling behind
Make it out tonight
it’s a revolution

CL!!!
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines