主窗體代碼調(diào)用Me.close不就可以了嗎？或者在任意代碼處調(diào)用Application.Exit()。如果不起作用的話是因?yàn)槟阍诖绑w關(guān)閉的事件中調(diào)用了e.Handle=True
10年積累的成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站制作后付款的網(wǎng)站建設(shè)流程，更有新疆免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
很簡(jiǎn)單，取到程序句柄，之后找到想控制的控件，通過(guò)程序給他改值或控制就可以了
兩個(gè)方法
1.
要接收的窗口先使用FindWindow這個(gè)api獲得句柄
調(diào)用SetForegroundWindow使其獲得焦點(diǎn)并選中
調(diào)用.net方法：SendKeys.Send方法發(fā)送
2.使用API的SendInput
在窗體上放置一個(gè) Timer 控件，Interval 屬性設(shè)置為 120000（120000毫秒=120秒=2分鐘），Enabled 屬性設(shè)置為 True，添加如下代碼：
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Dim?dDir1?As?New?System.IO.DirectoryInfo("C:\a")
dDir1.MoveTo("D:\b")??'移動(dòng)?C:\a?文件夾所有文件到?D:\b????
End?Sub
好像不難吧？
我放進(jìn)了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)操作時(shí)加排錯(cuò)標(biāo)簽是個(gè)好習(xí)慣
Dim TargetName As String = "ibmdict" '存儲(chǔ)進(jìn)程名為文本型，注：進(jìn)程名不加擴(kuò)展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進(jìn)程名獲取進(jìn)程
Dim TargetPath As String '存儲(chǔ)進(jìn)程路徑為文本型
If TargetKill.Length 1 Then '判斷進(jìn)程名的數(shù)量，如果同名進(jìn)程數(shù)量在2個(gè)以上，用For循環(huán)關(guān)閉進(jìn)程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判斷進(jìn)程名的數(shù)量，沒(méi)有發(fā)現(xiàn)進(jìn)程直接彈窗。不需要的，可直接刪掉該If子句
MsgBox("沒(méi)有發(fā)現(xiàn)進(jìn)程！")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判斷進(jìn)程名的數(shù)量，如果只有一個(gè)，就不用For循環(huán)
TargetKill(0).Kill()
End If
MsgBox("已終止" TargetKill.Length "個(gè)進(jìn)程") '彈窗提示已終止多少個(gè)進(jìn)程
Errmessages: ‘定義排錯(cuò)標(biāo)簽
If Err.Description Nothing Then ’判斷有無(wú)錯(cuò)誤，如果有，則 ↓
MsgBox(Err.Description) '當(dāng)出現(xiàn)錯(cuò)誤時(shí)，彈窗提示
End If
End Sub
可根據(jù)需要自行修改，這個(gè)備注夠完善了吧？不會(huì)的再Hi我。
