belgarion Emporté par le Nexus | bon j ai trouver ca
http://www.experts-exchange.com/Pr [...] 22172.html
mais bon je pige pas tout
je colle mon code
Code :
- Private Declare Function SendMessageLong Lib "user32" _
- Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
- Long, ByVal wParam As Long, ByVal lParam As Any) As Long
- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Const WM_KEYDOWN = &H100
- Private Const WM_KEYUP = &H101
- Private Const VK_SPACE = &H20
- Private Const VK_7 = &H50
- Private Sub chant2_Click()
- Timer1.Enabled = False
- End Sub
- Private Sub Form_Load()
- Timer1.Interval = 1000 ' Set Timer interval.
- End Sub
- Private Sub chant1_Click()
- AppActivate ("Dark Age of Camelot, Copyright © 2001-03 Mythic Entertainment, Inc." )
- Timer1.Enabled = True
- End Sub
- Private Sub stopchant_Click()
- Timer1.Enabled = False
- End Sub
- Private Sub Timer1_timer()
- Daoc = FindWindow("Dark Age of Camelot, Copyright © 2001-03 Mythic Entertainment, Inc.", vbNullString)
- Call SendMessageLong(Daoc, WM_KEYDOWN, VK_7, 0& )
- Call SendMessageLong(Daoc, WM_UP, VK_7, 0& )
- End Sub
|
si tu pige ce qui va pas fait moi signe |