软糖来岩此回答罗:通过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的旧语法,不推荐使用。vb点虐 是面向对象的,推荐您使用
dim OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
OpF.close
或是
Using OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
End Using
但是你如果握态巧执意段键要用的话,也可以:
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
...
FileClose(1) '闭族这里可以同时关闭多个文件号,文件号之间用,隔开
appid = Shell("explorer.exe c:\windows"薯袜链, vbNormalNoFocus)
If appid 0 Then Shell "数孙好陆Taskkill /PID " appid, vbHide