vb.net关闭其他程序 vbs自动关闭程序

vb.net 怎么结束进程

好像不难吧？

创新互联长期为近千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为让胡路企业提供专业的成都网站建设、成都网站制作，让胡路网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

我放进了Button1的Click事件里。

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

On Error GoTo Errmessages '在做系统操作时加排错标签是个好习惯

Dim TargetName As String = "ibmdict" '存储进程名为文本型，注：进程名不加扩展名

Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '从进程名获取进程

Dim TargetPath As String '存储进程路径为文本型

If TargetKill.Length 1 Then '判断进程名的数量，如果同名进程数量在2个以上，用For循环关闭进程。

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

ElseIf TargetKill.Length = 0 Then '判断进程名的数量，没有发现进程直接弹窗。不需要的，可直接删掉该If子句

MsgBox("没有发现进程！")

Exit Sub

ElseIf TargetKill.Length = 1 Then '判断进程名的数量，如果只有一个，就不用For循环

TargetKill(0).Kill()

End If

MsgBox("已终止" TargetKill.Length "个进程") '弹窗提示已终止多少个进程

Errmessages: ‘定义排错标签

If Err.Description Nothing Then ’判断有无错误，如果有，则 ↓

MsgBox(Err.Description) '当出现错误时，弹窗提示

End If

End Sub

可根据需要自行修改，这个备注够完善了吧？不会的再Hi我。

怎样才能用VB.NET的代码来关闭一个在运行的程序

软糖来回答罗：通过System.Diagnostics命名空间下的Process类来关闭程序的进程

Dim 进程集合 = Process.GetProcessesByName("进程名称")

For Each 进程 In 进程集合

进程.Kill()

'进程.Close() '或者使用关闭

Next

也可以先获取所有进程，再来判断这些进程的名称ProcessName

Dim 获取本地所有进程 = Process.GetProcesses()

For Each 进程 In 获取本地所有进程

If 进程.ProcessName = "explorer.exe" Then 进程.Kill()

Next

vb.net中如果打开一个窗体的同时关闭另一个窗体呀

定义一个公共变量： CurForm AS STRING=""再定义一个公共函数： Public Sub FrmUnload(ByVal myFrm As Form)

'关闭已经打开的窗口

Try

If myFrm.Name "FrmMain" Then

myFrm.Close()

End If

Catch ex As Exception End Try

End Sub每次在打开新窗体前先调用关闭窗口公共函数：FrmUnload(CurForm)然后将当前打开窗体名称赋值给变量 CurForm如果还看不懂那我也没办法了！没有悬赏分数的问题一般不会回答的！破例

vb.net如何彻底退出进程？

主窗体代码调用Me.close不就可以了吗？或者在任意代码处调用Application.Exit()。如果不起作用的话是因为你在窗体关闭的事件中调用了e.Handle=True

vb.net如何打开一个新窗体后关闭上一个窗体

1、如果上一个窗体是程序的主窗体（默认是程序的第一个窗体），

则不能关闭这个窗体，只能隐藏（Me.Hide()）这个窗体，否则整

个程序就被关掉了。

2、如果上一个窗体不是程序的主窗体，可以用Me.Close()

关闭。

怎样用vb程序来关闭其它应用程序

你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。

'下面的代码放到模块中

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'FindWindowAPI函数

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'PostMessageAPI函数

Public Const WM_CLOSE = H10 '常用变量定义

'程序代码

Dim winHwnd As Long '定义一个长整形变量winHwnd

Dim RetVal As Long '定义一个长整形变量RetVal

winHwnd = FindWindow(vbNullString, "Calculator") 'API函数查找"Calculator"这个窗口

Debug.Print winHwnd '显示这个窗口句柄

If winHwnd 0 Then '如不为0,表示找到窗口

RetVal = PostMessage(winHwnd, WM_CLOSE, 0, 0) '向这个窗口发送关闭信息

If RetVal = 0 Then '如果返回信息为0.表示失败，未发送成功

MsgBox "Error posting message." '提示发送失败

End If

Else

MsgBox "The Calculator is not open." '提示没有找到打开的程序

End If