討論區快速選單
知識庫快速選單
網路投保旅行平安險 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
VB如何設定去某個座標按下滑鼠左鍵和鍵盤上的按鍵
更改我的閱讀文章字型大小
作者 : mewhite1993(VB學習者)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/8/6 下午 12:36:26
各位老闆好 小弟想做個VB
需要的是 在X=300 Y=300按一下滑鼠左鍵 延遲2秒 在 X=400 Y=400 按一下滑鼠左鍵 重複動作直到按結束鍵
然後此指令可以用F3和F4去控制的
有試過去做但是無法用F3F4去控制..

請各位老闆幫忙修改 謝謝 ..

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 Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Command1_Click()
Label1.Caption = Label1.Caption + 1
Command1.Caption = "滑鼠點擊"
End Sub


Private Sub Command2_Click()
If Timer3.Interval = 0 Then
   Timer4.Interval = 0
     Timer3.Interval = 500
     Timer4.Interval = 1000
     Command2.Caption = "停止"
    Else
     Timer3.Interval = 0
     Timer4.Interval = 0
     Command2.Caption = "啟動"
End If

End Sub



Private Sub Form_Load()
Command2.Caption = "啟動"
Command1.Caption = "點擊"
Label1.Caption = "0"

Timer1.Enabled = False
Timer2.Enabled = True
Timer1.Interval = 100
Timer2.Interval = 100
Timer2.Enabled = True


End Sub


Private Sub Timer1_Timer()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

 

Private Sub Timer2_Timer()
If GetAsyncKeyState(vbKeyF1) Then
Timer1.Enabled = True
ElseIf GetAsyncKeyState(vbKeyF2) Then
Timer1.Enabled = False
End If
End Sub


Private Sub Timer3_Timer() '啟動10秒後執行第一次
     SendKeys "{UP}"
End Sub


Private Sub Timer4_Timer() '啟動10秒後執行第一次
     SendKeys "{F}"
End Sub
作者 : seted(RUNNER)
[ 貼文 8 | 人氣 816 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/9/13 下午 07:22:20
F3 的 ASCII 碼是 114
F4 的 ASCII 碼是 115
須使用 keybd_event() 自動偵測鍵盤已被按下某 ASCII 碼之後再控制滑鼠

新增註記至行動裝置:
https://play.google.com/store/apps/details?id=air.notes
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.140625