none
vb.net 控制滑鼠指令!! RRS feed

  • 問題

  • vb.net 控制滑鼠指令!!

    請求幾個簡單指令

    第一:
    控制滑鼠到 x,y坐標

    第二:
    控制滑鼠按下左鍵

    第三:
    按下f5鍵

    第4:
    如何做到,當檢查到某坐標中既的顏色=某指定顏色
    就改變 某變數??

    感恩!!
    2009年12月24日 上午 01:42

解答

  • Hi,

    這個範例可以從先前您提問的問題中獲得解答, 請參考:

    Option Explicit On
    Public Class Form1

        Public Const MOUSEEVENTF_LEFTDOWN = &H2
        Public Const MOUSEEVENTF_LEFTUP = &H4
        Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
        Public Const MOUSEEVENTF_MIDDLEUP = &H40
        Public Const MOUSEEVENTF_RIGHTDOWN = &H8
        Public Const MOUSEEVENTF_RIGHTUP = &H10
        Public Const MOUSEEVENTF_MOVE = &H1

        Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Call mouse_event(MOUSEEVENTF_MOVE, 20, 300, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        End Sub

        Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
            MessageBox.Show("我只是測試一下!!")
        End Sub
    End Class



    Best Regards,
    Lolota
    歡迎參加MSDN&TechNet技術社群交流活動 (時間:1/9(六) 11:30-17:30(台中金典),1/16(六) 11:30-17:30(台北微軟),1/23(六) 11:30-17:30(高雄漢來)),
    MSDN老爹TechNet小妹將盛裝出席, 要一睹風采, 就趕快報名!!
    • 已標示為解答 fong886886 2009年12月28日 下午 04:21
    2009年12月28日 上午 08:20

所有回覆

  • 請問有中文的網站嗎?
    小弟不太懂英文的,感染!

    2009年12月24日 上午 05:00
  • 那有試過本站的站內搜尋嗎?

    如果不想讀英文,你最好別學程式開發,大部分或最領先的資訊,絕對都是原文的,而這些原文,以英文最多。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年12月24日 上午 05:29

  • http://tlcheng.twbbs.org/TLCheng/Basic/vb/Class/vbcmouse.htm

    http://clifflu.blogspot.com/2008/08/manipulating-mouse-input-with-vbnet.html

    學而不思則罔, 思而不學則殆.
    如果你一直都看不懂、不想學習看懂、抗拒看懂MSDN Library的話,那你最好放棄想要寫好程式這件事
    如果你自私地不肯回饋與分享,那別人為何要花時間回答你的問題?
    2009年12月24日 上午 05:34
    版主
  • 請問有中文的網站嗎?
    小弟不太懂英文的,感染!

    Hi,

    不懂英文的感染
    可以查詢

    感染 的翻譯: 中文(繁體) » 英文

    感染 - to infect; to be infected with; to catch, to influence; to affect; to communicate


    不懂英文的網站
    也可以查詢
    GOOGLE翻譯、Yahoo字典、眼博士、小鳥辭典、星際譯王都是不錯的選擇

    謙卑學習,持之以恆,才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/
    2009年12月24日 上午 05:52
  • 希望有人能給我一個完整的

    控制滑鼠按下左鍵的指令..

    是VB.NET 2008!!

    請不要給我VB6....

    感謝

    • 已編輯 fong886886 2009年12月26日 上午 07:10 A
    2009年12月26日 上午 07:09
  • 我上面的Link不就是了嗎 ?
    這玩意就是非要呼叫 API不可.

    學而不思則罔, 思而不學則殆.
    如果你一直都看不懂、不想學習看懂、抗拒看懂MSDN Library的話,那你最好放棄想要寫好程式這件事
    如果你自私地不肯回饋與分享,那別人為何要花時間回答你的問題?
    2009年12月26日 上午 07:15
    版主
  • 不太了解修改前的回應說是香港的中學生,所以不懂英文...
    如果是這樣,現在也不必急著懂程式,學問是一層層的... 不懂英文不是錯,連翻字典都不想做的話,那麼現在學程式太早了。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2009年12月26日 上午 08:44
  • 請求一個可以控制到滑鼠滑到某坐標,之後按下左鍵

    脆地求範例....

    我真的不懂api...

    請求一個範例讓我從實體中學習...感恩萬分!/3\

    -----------
    不要再罵我了..我真的不太懂..我只希望有一個簡單的範例,我就會很開心...非常感謝!
    • 已編輯 fong886886 2009年12月28日 上午 07:27 a
    • 已合併 Lolota Lee 2009年12月28日 上午 09:35 前後呼應
    2009年12月28日 上午 07:26
  • Hi,

    這個範例可以從先前您提問的問題中獲得解答, 請參考:

    Option Explicit On
    Public Class Form1

        Public Const MOUSEEVENTF_LEFTDOWN = &H2
        Public Const MOUSEEVENTF_LEFTUP = &H4
        Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
        Public Const MOUSEEVENTF_MIDDLEUP = &H40
        Public Const MOUSEEVENTF_RIGHTDOWN = &H8
        Public Const MOUSEEVENTF_RIGHTUP = &H10
        Public Const MOUSEEVENTF_MOVE = &H1

        Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Call mouse_event(MOUSEEVENTF_MOVE, 20, 300, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        End Sub

        Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
            MessageBox.Show("我只是測試一下!!")
        End Sub
    End Class



    Best Regards,
    Lolota
    歡迎參加MSDN&TechNet技術社群交流活動 (時間:1/9(六) 11:30-17:30(台中金典),1/16(六) 11:30-17:30(台北微軟),1/23(六) 11:30-17:30(高雄漢來)),
    MSDN老爹TechNet小妹將盛裝出席, 要一睹風采, 就趕快報名!!
    • 已標示為解答 fong886886 2009年12月28日 下午 04:21
    2009年12月28日 上午 08:20
  • 如何根據其他視窗的顏色來控制程式?

    例如Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    就是按下左鍵就運行某程式

    但怎麼樣能如題地運行某程式呢?

    希望可以提供簡單地範例

    脆地感謝!/3\

    -----------------

    如果要做到這樣很復習的話

    那麼有什麼方法能根據現在的坐標,如題地做?

    那麼,還有方法可以控制FORM1自生移到某位置 來讓程式讀得其他程式某坐標的顏色??

    萬分感謝,高手們
    2009年12月28日 下午 04:27
  • http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/1706ed9a-05c6-48cf-b1b3-781ae22b9743
    學而不思則罔, 思而不學則殆.
    如果你一直都看不懂、不想學習看懂、抗拒看懂MSDN Library的話,那你最好放棄想要寫好程式這件事
    如果你自私地不肯回饋與分享,那別人為何要花時間回答你的問題?
    2009年12月28日 下午 05:06
    版主
  • 同一目標的主題,不要另開新討論緒,你已經被版主 Lolota 合併一次討論緒了,這次是我合併,次數多了會惹人厭。


    T.L. Cheng
    2009年12月28日 下午 05:07
    版主
  • 同一目標的主題,不要另開新討論緒,你已經被版主 Lolota 合併一次討論緒了,這次是我合併,次數多了會惹人厭。


    T.L. Cheng

    囧...

    合併了後就沒人過來了。_。

    煩到了你們..抱歉..
    2009年12月31日 下午 05:16
  • 我想沒人繼續回你,是因為很多人提供了網頁,也有人提供了程式碼,而你沒有把你明確的努力過程展現出來,或是針對回應看不懂的地方詢問,開口閉口只要程式碼範例,又多次張貼,引起眾人反感。

    論壇是交流經驗、分享技術的地方,很在乎互動,如果你來來去去就是那句給我程式碼範例,大概也沒人想要多說了。

    如果你拿著問題去問你的老師,你老師給你一堆資料參考,還給你一段範例,然後你沒針對這些資料提出疑問,直接再要程式碼,如果我是你老師,我會心裡決定:「這科你當定了」

    置頂的公告:張貼文章應注意事項及應提供資訊 看一遍,揣摩一下 入境隨俗 的意義。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2010年1月1日 上午 03:55
  • 其實心冷大說的很正確,  合併後我們還是會繼續看文, 只是我不知道該如何答下去, 因為你沒有對我們所提的文件經過閱讀, 試做再提出問題,
    以現實狀況來說, 即使像我們這些相熟的朋友, 我問個問題, 也只會得到提示, 通常是試圖去瞭解那個提示, 然後提出對該提示的想法與不明瞭的關鍵點.這樣的做法才叫討論.
    而且有個重點要告訴你的是, 你不知道有沒有先看過

    張貼文章應注意事項及應提供資訊


    這邊說的很明白
    記住,這邊是討論區,不是技術支援區。討論區是微軟提供一個空間給網友進行技術交流、經驗分享的空間,並非是客服人員服務的空間,包含 MVP 都是民間網友,網友之間是平等的,沒有誰一定要回覆你。

    你的文章若是太偏的主題,有可能得不到回應,畢竟不是每個人都接觸過你的問題,此外,若是回應無法解決你的問題時,也請彼此尊重,不該說的話不要說,這裡不是技術支援區,這裡是免費、平等、互惠的討論區。

    我們都是靠著熱情在此無償的貢獻自己的時間, 而且我們也不是微軟的員工, 我們也要養家活口, 都有自己的工作要做, 這樣你瞭解嗎 ?

    學而不思則罔, 思而不學則殆.
    如果你一直都看不懂、不想學習看懂、抗拒看懂MSDN Library的話,那你最好放棄想要寫好程式這件事
    如果你自私地不肯回饋與分享,那別人為何要花時間回答你的問題?
    2010年1月1日 上午 05:01
    版主
  • vb.net 控制滑鼠指令!!

    請求幾個簡單指令

    第一:
    控制滑鼠到 x,y坐標

    第二:
    控制滑鼠按下左鍵

    第三:
    按下f5鍵

    第4:
    如何做到,當檢查到某坐標中既的顏色=某指定顏色
    就改變 某變數??

    感恩!!

    第一:
    利用Form1_MouseMove的程式片段:
    e.X = ? , e.Y = ?
    第二:
    跟滑鼠左鍵有關的源碼片段:
    MouseButtons.Left
    第三:
    跟F5鍵有關的源碼片段:
    Keys.F5
    第四:
    利用Form1_MouseMove的程式片段:

    '由於我的學習不深,剩下就給會的人處理。
    2010年1月18日 下午 12:37
  • 提供這麼多資訊,這篇文章還真補...

    感謝,來消化...

    2011年1月29日 上午 12:49