vb得到一个进程的启动参数？

大佬教程收集整理的这篇文章主要介绍了vb得到一个进程的启动参数？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Option Explicit Private Sub Form_Load() getProcessCommandLine "iexplore.exe" End Sub '得到所有进程名为proName的详细列表，参数一定要写完整。 Private Function getProcessCommandLine(ByVal proName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng) As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng Dim objWMI<a href="http://code.js-code.com/tag/servi/" target="_blank" class="keywords">servi</a>ce As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct Dim colProcessList As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct Dim objProcess As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct Dim objProType As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct Dim strResult As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng Set objWMI<a href="http://code.js-code.com/tag/servi/" target="_blank" class="keywords">servi</a>ce = GetOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct("winmgmts:" & "<a href="http://code.js-code.com/tag/" target="_blank" class="keywords">{</a>impersonationlevel=impersonat<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E}</a>!//./root/cimv2") Set colProcessList = objWMI<a href="http://code.js-code.com/tag/servi/" target="_blank" class="keywords">servi</a>ce.Exe<a href="http://code.js-code.com/tag/CQuery/" target="_blank" class="keywords">CQuery</a>("<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ct * from Win32_Process Where Name='" & proName & "'") If colProcessList.Count <> 0 Then For Each objProcess In colProcessList For Each objProType In objProces<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Properties_ If objProType.Name = "CommandLine" Then strResult = strResult & objProType.Value & vbCrLf Exit For End If Next Next End If If strResult <> "" Then getProcessCommandLine = strResult MsgBox strResult End If End Function

'杀掉包含指定参数的进程，这样可以区别杀掉指定某些进程
Private Function killProcessByPra(ByVal strProName$,ByVal strKeyPra$) As Boolean
    Dim objWMIservice As Object
    Dim colProcessList As Object
    Dim objProcess As Object
    Dim objProType As Object
    Dim strResult As String
    Set objWMIservice = GetObject("winmgmts:" & "{impersonationlevel=impersonatE}!//./root/cimv2")
    Set colProcessList = objWMIservice.ExeCQuery("SELEct * from Win32_Process Where Name='" & strProName & "'")
     
    If colProcessList.Count <> 0 Then
        For Each objProcess In colProcessList
            For Each objProType In objProcess.Properties_
                If objProType.Name = "CommandLine" Then
                    If instr(objProType.Value,strKeyPra) > 0 Then '如果包含指定关键字参数的进程就杀掉
                        objProcess.Terminate
                        killProcessByPra = True
                    End If
                End If
            Next
        Next
    End If
End Function

'检查是否包含指定关键字参数的进程，有的话就返回true
Private Function isExistProcessByPra(ByVal strProName$,strKeyPra) > 0 Then '如果包含指定关键字参数的进程就返回true
                        isExistProcessByPra = True
                        Exit Function
                    End If
                End If
            Next
        Next
    End If
End Function

大佬总结

以上是大佬教程为你收集整理的vb得到一个进程的启动参数？全部内容，希望文章能够帮你解决vb得到一个进程的启动参数？所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。