兩個方法
創(chuàng)新互聯建站專注于仙游企業(yè)網站建設,響應式網站,電子商務商城網站建設。仙游網站建設公司,為仙游等地區(qū)提供建站服務。全流程按需求定制制作,專業(yè)設計,全程項目跟蹤,創(chuàng)新互聯建站專業(yè)和態(tài)度為您提供的服務
1.
要接收的窗口先使用FindWindow這個api獲得句柄
調用SetForegroundWindow使其獲得焦點并選中
調用.net方法:SendKeys.Send方法發(fā)送
2.使用API的SendInput
由于你要求的是能夠動態(tài)的加載與卸載,所以這里選用了appdomain的load方法來加載一個程序集(同樣的,卸載的時候調用appdomain的靜態(tài)方法Unload即可).
另外由于,在appdomain.load的時候remoting會試圖將程序集序列化到defaultdomain中去,這會產生問題,通常以一個"FileNotFoundException"結束,因此采用了一種折中的辦法.
思路如下:
1.建立一個新的程序集,里面包含一個輕量的類型,這個類型只包含一個用來加載程序集的公共方法;
2.在你的主程序里面,用appdomain.load來加載上一步的程序集,接著實例化上一步的輕量的類型;
3.而后就可以像操作通常的對象一樣,調用它上面的方法來加載你想要的程序集了;
源代碼已經打包發(fā)給你了,
你看看吧~
如果有問題,再找我哈
使用ShowWindow函數,便可輕松控制窗口的顯隱,最小化,最大化。
概述
函數功能:該函數設置指定窗口的顯示狀態(tài)。
函數原型:BOOL ShowWindow(HWND hWnd, int nCmdShow);
*/第一個參數為句柄,第二個參數選下面的值
#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
參數含義
hWnd:指窗口句柄。
nCmdShow:指定窗口如何顯示。如果發(fā)送應用程序的程序提供了STARTUPINFO結構,則應用程序第一次調用ShowWindow時該參數被忽略。否則,在第一次調用ShowWindow函數時,該值應為在函數WinMain中nCmdShow參數。在隨后的調用中,該參數可以為下列值之一:
SW_FORCEMINIMIZE:在WindowNT5.0中最小化窗口,即使擁有窗口的線程被掛起也會最小化。在從其他線程最小化窗口時才使用這個參數。
SW_HIDE:隱藏窗口并激活其他窗口。
SW_MAXIMIZE:最大化指定的窗口。
SW_MINIMIZE:最小化指定的窗口并且激活在Z序中的下一個頂層窗口。
SW_RESTORE:激活并顯示窗口。如果窗口最小化或最大化,則系統(tǒng)將窗口恢復到原來的尺寸和位置。在恢復最小化窗口時,應用程序應該指定這個標志。
SW_SHOW:在窗口原來的位置以原來的尺寸激活和顯示窗口。
SW_SHOWDEFAULT:依據在STARTUPINFO結構中指定的SW_FLAG標志設定顯示狀態(tài),STARTUPINFO 結構是由啟動應用程序的程序傳遞給CreateProcess函數的。
SW_SHOWMAXIMIZED:激活窗口并將其最大化。
SW_SHOWMINIMIZED:激活窗口并將其最小化。
SW_SHOWMINNOACTIVATE:窗口最小化,激活窗口仍然維持激活狀態(tài)。
SW_SHOWNA:以窗口原來的狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。
SW_SHOWNOACTIVATE:以窗口最近一次的大小和狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。
SW_SHOWNORMAL:激活并顯示一個窗口。如果窗口被最小化或最大化,系統(tǒng)將其恢復到原來的尺寸和大小。應用程序在第一次顯示窗口的時候應該指定此標志。
不過順便說一句,SendKeys會偶爾造成指令丟失,不可避免。不管你激活窗口還是最大化窗口或者鎖定都沒辦法完全避免。
好像不難吧?
我放進了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)操作時加排錯標簽是個好習慣
Dim TargetName As String = "ibmdict" '存儲進程名為文本型,注:進程名不加擴展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程
Dim TargetPath As String '存儲進程路徑為文本型
If TargetKill.Length 1 Then '判斷進程名的數量,如果同名進程數量在2個以上,用For循環(huán)關閉進程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判斷進程名的數量,沒有發(fā)現進程直接彈窗。不需要的,可直接刪掉該If子句
MsgBox("沒有發(fā)現進程!")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判斷進程名的數量,如果只有一個,就不用For循環(huán)
TargetKill(0).Kill()
End If
MsgBox("已終止" TargetKill.Length "個進程") '彈窗提示已終止多少個進程
Errmessages: ‘定義排錯標簽
If Err.Description Nothing Then ’判斷有無錯誤,如果有,則 ↓
MsgBox(Err.Description) '當出現錯誤時,彈窗提示
End If
End Sub
可根據需要自行修改,這個備注夠完善了吧?不會的再Hi我。
網站題目:vb.net編程進程 vbnet function
路徑分享:http://jinyejixie.com/article28/dopsjcp.html
成都網站建設公司_創(chuàng)新互聯,為您提供網站設計公司、電子商務、網站營銷、品牌網站建設、微信公眾號、網站設計
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯