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    |