各們，請教怎么使用vb.net編寫兩個進程間消息

兩個方法

創(chuàng)新互聯(lián)建站專注于仙游企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站,電子商務(wù)商城網(wǎng)站建設(shè)。仙游網(wǎng)站建設(shè)公司,為仙游等地區(qū)提供建站服務(wù)。全流程按需求定制制作，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)建站專業(yè)和態(tài)度為您提供的服務(wù)

1.

要接收的窗口先使用FindWindow這個api獲得句柄

調(diào)用SetForegroundWindow使其獲得焦點并選中

調(diào)用.net方法：SendKeys.Send方法發(fā)送

2.使用API的SendInput

vb.net編程，如何使用 appdomain 實現(xiàn)某進程DLL動態(tài)加載和卸載?

由于你要求的是能夠動態(tài)的加載與卸載,所以這里選用了appdomain的load方法來加載一個程序集(同樣的,卸載的時候調(diào)用appdomain的靜態(tài)方法Unload即可).

另外由于,在appdomain.load的時候remoting會試圖將程序集序列化到defaultdomain中去,這會產(chǎn)生問題,通常以一個"FileNotFoundException"結(jié)束,因此采用了一種折中的辦法.

思路如下:

1.建立一個新的程序集,里面包含一個輕量的類型,這個類型只包含一個用來加載程序集的公共方法;

2.在你的主程序里面,用appdomain.load來加載上一步的程序集,接著實例化上一步的輕量的類型;

3.而后就可以像操作通常的對象一樣,調(diào)用它上面的方法來加載你想要的程序集了;

源代碼已經(jīng)打包發(fā)給你了,

你看看吧~

如果有問題,再找我哈

Vb.net中已知某程序的進程id，如果激活該程序并最大化？

使用ShowWindow函數(shù)，便可輕松控制窗口的顯隱，最小化，最大化。

概述

函數(shù)功能：該函數(shù)設(shè)置指定窗口的顯示狀態(tài)。

函數(shù)原型：BOOL ShowWindow（HWND hWnd, int nCmdShow）；

*/第一個參數(shù)為句柄，第二個參數(shù)選下面的值

#define SW_HIDE 0

#define SW_SHOWNORMAL 1

#define SW_NORMAL 1

#define SW_SHOWMINIMIZED 2

#define SW_SHOWMAXIMIZED 3

#define SW_MAXIMIZE 3

#define SW_SHOWNOACTIVATE 4

#define SW_SHOW 5

#define SW_MINIMIZE 6

#define SW_SHOWMINNOACTIVE 7

#define SW_SHOWNA 8

#define SW_RESTORE 9

#define SW_SHOWDEFAULT 10

#define SW_FORCEMINIMIZE 11

#define SW_MAX 11

參數(shù)含義

hWnd:指窗口句柄。

nCmdShow：指定窗口如何顯示。如果發(fā)送應(yīng)用程序的程序提供了STARTUPINFO結(jié)構(gòu)，則應(yīng)用程序第一次調(diào)用ShowWindow時該參數(shù)被忽略。否則，在第一次調(diào)用ShowWindow函數(shù)時，該值應(yīng)為在函數(shù)WinMain中nCmdShow參數(shù)。在隨后的調(diào)用中，該參數(shù)可以為下列值之一：

SW_FORCEMINIMIZE：在WindowNT5.0中最小化窗口，即使擁有窗口的線程被掛起也會最小化。在從其他線程最小化窗口時才使用這個參數(shù)。

SW_HIDE：隱藏窗口并激活其他窗口。

SW_MAXIMIZE：最大化指定的窗口。

SW_MINIMIZE：最小化指定的窗口并且激活在Z序中的下一個頂層窗口。

SW_RESTORE：激活并顯示窗口。如果窗口最小化或最大化，則系統(tǒng)將窗口恢復(fù)到原來的尺寸和位置。在恢復(fù)最小化窗口時，應(yīng)用程序應(yīng)該指定這個標(biāo)志。

SW_SHOW：在窗口原來的位置以原來的尺寸激活和顯示窗口。

SW_SHOWDEFAULT：依據(jù)在STARTUPINFO結(jié)構(gòu)中指定的SW_FLAG標(biāo)志設(shè)定顯示狀態(tài)，STARTUPINFO 結(jié)構(gòu)是由啟動應(yīng)用程序的程序傳遞給CreateProcess函數(shù)的。

SW_SHOWMAXIMIZED：激活窗口并將其最大化。

SW_SHOWMINIMIZED：激活窗口并將其最小化。

SW_SHOWMINNOACTIVATE：窗口最小化，激活窗口仍然維持激活狀態(tài)。

SW_SHOWNA：以窗口原來的狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。

SW_SHOWNOACTIVATE：以窗口最近一次的大小和狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。

SW_SHOWNORMAL：激活并顯示一個窗口。如果窗口被最小化或最大化，系統(tǒng)將其恢復(fù)到原來的尺寸和大小。應(yīng)用程序在第一次顯示窗口的時候應(yīng)該指定此標(biāo)志。

不過順便說一句，SendKeys會偶爾造成指令丟失，不可避免。不管你激活窗口還是最大化窗口或者鎖定都沒辦法完全避免。

vb.net 怎么結(jié)束進程

好像不難吧？

我放進了Button1的Click事件里。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error GoTo Errmessages '在做系統(tǒng)操作時加排錯標(biāo)簽是個好習(xí)慣

Dim TargetName As String = "ibmdict" '存儲進程名為文本型，注：進程名不加擴展名

Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程

Dim TargetPath As String '存儲進程路徑為文本型

If TargetKill.Length 1 Then '判斷進程名的數(shù)量，如果同名進程數(shù)量在2個以上，用For循環(huán)關(guān)閉進程。

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

ElseIf TargetKill.Length = 0 Then '判斷進程名的數(shù)量，沒有發(fā)現(xiàn)進程直接彈窗。不需要的，可直接刪掉該If子句

MsgBox("沒有發(fā)現(xiàn)進程！")

Exit Sub

ElseIf TargetKill.Length = 1 Then '判斷進程名的數(shù)量，如果只有一個，就不用For循環(huán)

TargetKill(0).Kill()

End If

MsgBox("已終止" TargetKill.Length "個進程") '彈窗提示已終止多少個進程

Errmessages: ‘定義排錯標(biāo)簽

If Err.Description Nothing Then ’判斷有無錯誤，如果有，則 ↓

MsgBox(Err.Description) '當(dāng)出現(xiàn)錯誤時，彈窗提示

End If

End Sub

可根據(jù)需要自行修改，這個備注夠完善了吧？不會的再Hi我。

網(wǎng)站題目：vb.net編程進程 vbnet function
路徑分享：http://sd-ha.com/article28/dopsjcp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計公司、電子商務(wù)、網(wǎng)站營銷、品牌網(wǎng)站建設(shè)、微信公眾號、網(wǎng)站設(shè)計

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)