Mensajes

Mira, leelo y entendelo, no te lo tendria que dejar pero bueno:

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Sub Form_Load()

Dim n As Integer
Dim a(9) As Integer
Dim m As Integer
Dim i As Integer


For i = 0 To 9

Do
Randomize

m = Int((Rnd * 10) + 1)

Loop While (Existe(m, a()))

a(i) = m

Next i

For i = 0 To 9

MsgBox a(i)

Next

End Sub



Function Existe(m As Integer, a() As Integer) As Boolean
Dim num

For Each num In a()
If (m = num) Then Existe = True
Next

End Function



No te confundas mucho, no hagas eso, y todavia esta mal.
A mi el codigo que te pase me funciona, dices que no para de presional el espacio pero lo presiona aunquesea? a mi me anda perfecto.

Al usar Form_KeyDown capturara las teclas que se presionen cuando estas situado en el form, si estas en otra cosa y apretas S obvio que no pasará nada.

Mmm esque no es asi, usa el Do-While para que guarde todos los numeros generados mientras no sea igual a uno que ya se guardo, es decir, podrias crear una funcion, Repetido() as Boolean para que sea la verificacion en el while

Estas haciendo tipo un bot? que al apretar la tecla A empieze a escribir espacios hasta que pulses la tecla S?
Creo que lo podias hacer simplemente sin apis aunque no es lo mejor..

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   If KeyCode = vbKeyA Then
    Timer1.Enabled = True
    End If
   
   If KeyCode = vbKeyS Then
    Timer1.Enabled = False
    End If
   
End Sub
   
Private Sub Timer1_Timer()
SendKeys " "
End Sub


A mi me funciona, dinos cual es el error

Mejor pseudocodigo que el de 79137913 no vas a encontrar, asique esperamos tu codigo

Pero si te dicen que tenes buscar cual es el problema? busca en google ejemplos de uso de hotkeys

Quisiera saber como crear un foro, que pasos seguir, consejos, si tengo que tener conocimiento de algo antes o no se, no tengo ni idea.
Quiero consejos sobre donde alojar el servidor, donde consigo los diseños, como es lo de Simple Machines Forums si lo tengo q bajar y como lo modifico.

Si me dan una mano les agradezco

mi mensje Nº 100 PARA DECIR: PONGAN EL SERVER ON POR DIOS!!!!!

epic fail dirían ustedes xD, esta en foro libre y penso que le iba a contar el mensaje.. sigue en 99 mensajes xD

Yo si fuera mujer sería lesbiana también, que divinoo jaja