如何在VB.net中用程序控制鼠標移動和點擊

調用api

成都創新互聯公司成立于2013年，是專業互聯網技術服務公司，擁有項目成都網站制作、做網站網站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元清豐做網站,已為上家服務,為清豐各地企業和個人服務,聯系電話:028-86922220

在Visual Baisc.net中的聲明：

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)

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 '模擬鼠標指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標左鍵按下

VB.NET怎么調用其它模塊的過程？

調用過程，調用過程有諸多技巧，它們與過程的類型、位置以及在應用程序中的使用方式有關。下面說明如何調用 Sub 過程和 Function 過程。

調用 Sub 過程

與 Sub 過程不同，在表達式中，Sub 過程不能用其名字調用。調用 Sub 過程的是一個獨立的語句。Sub 過程還有一點與函數不一樣，它不會用名字返回一個值。但是，與 Function過程一樣，Sub 過程也可以修改傳遞給它們的任何變量的值。

調用 Sub 過程有兩種方法：

'以下兩個語句都調用了名為 MyProc 的 Sub 過程。

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，當使用 Call 語法時，參數必須在括號內。若省略 Call 關鍵字，則也必須省略參數兩邊的括號

調用函數過程

通常，調用自行編寫的函數過程的方法和調用 Visual Basic 內部函數過程（例如 Abs）的方法一樣；即在表達式中寫上它的名字。

'下面的語句都調用函數 ToDec。

Print 10 * ToDec

X = ToDec

If ToDec = 10 Then Debug.Print "Out of Range"

X = AnotherFunction ( 10 * ToDec)

就像調用 Sub 過程那樣，也能調用函數。下面的語句都調用同一個函數：

Call Year (Now)

Year Now

當用這種方法調用函數時，Visual Basic 放棄返回值。

調用其它模塊中的過程

在工程中的任何地方都能調用其它模塊中的公用過程?？赡苄枰付ㄟ@樣的模塊，它包含正在調用的過程。調用其它模塊中的過程的各種技巧，取決于該過程是在窗體模塊中、類模塊中還是標準模塊中。

窗體中的過程

所有窗體模塊的外部調用必須指向包含此過程的窗體模塊。如果在窗體模塊 Form1 包含 SomeSub 過程，則可使用下面的語句調用 Form1 中的過程：

Call Form1.SomeSub(arguments)

類模塊中的過程

與窗體中調用過程類似，在類模塊中調用過程要調用與過程一致并且指向類實例的變量。例如，DemoClass 是類 Class1 的實例：

Dim DemoClass as New Class1

DemoClass.SomeSub

但是不同于窗體的是，在引用一個類的實例時，不能用類名作限定符。必須首先聲明類的實例為對象變量（在這個例子中是 DemoClass ）并用變量名引用它。

標準模塊中的過程

如果過程名是唯一的，則不必在調用時加模塊名。無論是在模塊內，還是在模塊外調用，結果總會引用這個唯一過程。如果過程僅出現在一個地方，這個過程就是唯一的。

如果兩個以上的模塊都包含同名的過程，那就有必要用模塊名來限定了。在同一模塊內調用一個公共過程就會運行該模塊內的過程。例如，對于 Module1 和 Module2 中名為 CommonName 的過程，從 Module2 中調用 CommonName 則運行 Module2 中的 CommonName 過程，而不是 Module1 中的 CommonName 過程。

從其它模塊調用公共過程名時必須指定那個模塊。例如，若在 Module1 中調用 Module2 中的 CommonName 過程，要用下面的語句：

Module2.CommonName (arguments)

Public ? 用于聲明對所有模塊中的所有其它過程都可以使用的過程。

Private ?用于聲明只能在包含該聲明的模塊中使用的過程。

VB.net過程的調用

Sub過程實現：

Sub FactsSub(ByVal intN As Integer, ByRef result As Long)

Dim i As Integer

Dim lngResult As Long

lngResult = 1

For i = 1 To intN

lngResult *= i

Next

result = lngResult

End Sub

Private Sub btnSub_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click

Dim i As Integer

Dim sum As Long = 0

Dim result As Long

For i = 1 To 10

FactsSub(i, result)

sum += result

Next

MsgBox("過程實現 1! + 2! + 3! + … + 10! = " sum)

End Sub

Function函數實現:

Function FactsFunction(ByVal intN As Integer) As Long

Dim i As Integer

Dim lngResult As Long

lngResult = 1

For i = 1 To intN

lngResult *= i

Next

Return lngResult

End Function

Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click

Dim i As Integer

Dim sum As Long = 0

For i = 1 To 10

sum += FactsFunction(i)

Next

MsgBox("函數實現 1! + 2! + 3! + … + 10! = " sum)

End Sub

新聞標題：vb.net調用點擊過程 vbnet如何調用api函數
鏈接分享：http://www.2m8n56k.cn/article10/ddosogo.html

成都網站建設公司_創新互聯，為您提供網站營銷、ChatGPT、建站公司、靜態網站、網站改版、網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：[email protected]。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯