我要寫程式 讓他在遊戲內會自動按f4
f4的cods是115 設定都ok了 但是進入遊戲後 他模擬出來的案件不是f4
而是S 怎會變成這樣 誰有答案
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Form2.Hide
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyInsert) Then
Timer2.Enabled = True
ElseIf GetAsyncKeyState(vbKeyDelete) Then
Timer2.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
SendKeys Chr(115)
End Sub
2006-09-27 09:25:20 · 2 個解答 · 發問者 主子 2 in 電腦與網際網路 ➔ 程式設計
再問一下 我今天假如 我讓 form2.show(彈出) me.hide
這樣的話 要怎麼讓我的form2的視窗 會顯示在最上曾了(蓋過所有程式 最上曾)
2006-09-28 11:13:51 · update #1
我弄惹 可以進入遊戲以後 他是有顯示在最上城 但是當我按了以後 螢幕會縮小耶
有辦法讓我按程式以後 遊戲ㄆ會縮小嗎?
2006-10-01 12:11:31 · update #2
我朋友寫出來了 可以在遊戲內設定程式
但是我寫的 在遊戲內暗道程式 遊戲就會縮小
我朋友不交我 應該有辦法解決吧???
2006-10-02 08:59:03 · update #3
'服用這一帖看看有沒有效Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As LongPrivate Sub Timer2_Timer() Dim C As Long C = MapVirtualKey(vbKeyF4, 0) keybd_event vbKeyF4, C, 0, 0 keybd_event vbKeyF4, C, 2, 0End Sub'Form2顯示在最上層,把以下程式碼貼在Form2Const HWND_TOPMOST = -1Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)Private Sub Form_Activate() SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZEEnd Sub你是否是指表單會縮小?我想應該是你的遊戲改變螢幕解析度的關係吧?比較方便的作法是以相同解析度來設計你的程式.
2006-09-27 14:00:23 補充:
戊兄,您真的粉快.沙發又被您坐去了XD
2006-09-27 09:56:42 · answer #1 · answered by W.J.S. 7 · 0⤊ 0⤋
因為keycode並不是一定等於ascii碼!chr(115)本來就是 "s"...要送出功能鍵...改成:sendkeys "{f4}"
2006-09-27 14:13:38 補充:
啊就直接線上答了...歹勢^^"
2006-09-27 09:52:58 · answer #2 · answered by ? 7 · 0⤊ 0⤋