Hulp bij het ActiveX-besturingselement van Key board ..

  • Thread starter smartsarath2003
  • Start date
S

smartsarath2003

Guest
Hai,
Kan iemand me helpen met ActiveX-besturingselementen basics.Ik probeer het creëren van een ActiveX-automatisering voor een programmering software.Is het mogelijk om toetsaanslagen te maken, zeggen ALT F, DownArrow en vervolgens op ENTER door het creëren van een C-functie of door toegang tot een bestaande functie.Is het mogelijk om dat te doen?Ik was in staat om mijn programmeersoftware open, door te bellen. EXE-bestand.Hier ben ik proberen om de totale programmering prodedure automatiseren door simpelweg uitvoeren van een code-module.kan iemand me helpen de uitvoering van een aantal valse sleutel boord beroertes

Bedankt

 
ja het is ..maar ik denk niet dat het ActiveX?
anyways het is iets dat ik gebruik in mijn spel die ik heb gemaakt Land van Crom
Ik belasting omhoog VB6 en krijg je de code.

Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey Zoals KeyCodeConstants) As Long
Private Function KeyDown (ByVal vKey Zoals KeyCodeConstants) _
As Boolean
KeyDown = GetAsyncKeyState (vKey) En & H8000
End Function

Private Sub Timer1_Timer ()
Als KeyDown (vbKeyN) Dan Form1.NewGame
Als KeyDown (vbKeyS) Dan Form1.Story
Als KeyDown (vbKeyI) Dan Form1.Instructions
Als KeyDown (vbKeyC) Dan Form1.Credits
Als KeyDown (vbKeyE) Dan Form1.Register
Als KeyDown (vbKeyL) Dan Form1.LoadGame
Als KeyDown (vbKeyH) Dan Form1.High
Als KeyDown (vbKeyR) Dan Form1.ResumePlay
Als KeyDown (vbKeyV) Dan Form1.Version
Als KeyDown (vbKeyQ) Dan Form1.QuitGame
End Sub
Sub QuitGame ()
Form1.Hide
Form1.Timer1.Interval = 0
Form3.Show
End Sub
Private Sub Command1_Click ()
Form1.QuitGame
End Sub
Sub ResumePlay ()
Als Form13.Text17 = 1 Dan Form1.Timer1.Interval = 0
Als Form13.Text17 = 1 Dan Form2.Timer2.Interval = 80
Rem Als Form30.Text35 = 1 Then If Form30.Text33 = 0 Then Form9.OLE5.DoVerb
Rem Form30.Text33 = 1
Als Form13.Text17 = 1 Dan Form1.Hide
Als Form13.Text17 = 1 Dan Form2.Show
Rem Als Form13.Text17 = 0 Then Form1.Hide
Rem Als Form13.Text17 = 0 Then Form5.Show
End Sub

anyways hoop dat u kunt begrijpen dat

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Lachten" border="0" />

moet je als band een timer om het toetsenbord te pakken wat je zegt ..maar het wordt op getimed als een percentage ...maar soms u op een toets langer dan 1ms

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Lachten" border="0" />

dus dat is waarom ik het heb 80, en 0 is deze uit te zetten.

Als u wilt worden leuke en doneer een aantal punten die ik zou zeer dankbaar zijn en hopen dat dit is wat je wilt.

en onthoud "Land van Crom"

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Lachten" border="0" />
 

Welcome to EDABoard.com

Sponsor

Back
Top