Could you send a screen shot? If its at the bottom, then that would be the... .. the.. text thingy.. .. subtitles! thats it. But the top?
Ok.. re uploaded. Fixed
Dam read text



Moderators: Scripting / Modding Moderators, Moderators for English X Forum
Code: Select all
follow me 5
Code: Select all
follow me 5
form on my wing 5
Code: Select all
Public Class Form1
Declare Function keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) As Long
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal input As Byte) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
'Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Const vk_release = &H2 ' Release key
Const vk_extend = 224 ' Release key
Const k_num = 69
Private Sub tap(ByVal code As Integer)
keybd_event(0, code, 0, 0)
keybd_event(0, code, vk_release, 0)
End Sub
Private Sub hold(ByVal code As Integer)
keybd_event(0, code, vk_extend, 0)
End Sub
Private Sub release(ByVal code As Integer)
keybd_event(0, code, vk_release, 0)
End Sub
End Class