นวัตกรรม สิ่งประดิษฐ์และเทคโนโลยี
ธันวาคม 11, 2018, 11:57:09 PM *
ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
 
   หน้าแรก   ช่วยเหลือ ค้นหา เข้าสู่ระบบ สมัครสมาชิก  
หน้า: [1]
  พิมพ์  
ผู้เขียน หัวข้อ: ตรวจเช็ค มีการเปิดใช้โปรแกรม .exe หรือไม่  (อ่าน 206 ครั้ง)
นวัตกรรม
Administrator
Hero Member
*****
กระทู้: 2622



« เมื่อ: มิถุนายน 20, 2018, 06:33:58 PM »

ตัวอย่างเช่น มีการใช้งาน notepad หรือไม่


VB 2010
โค๊ด:

Public Class Form1


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

        If isRunningExe("notepad.exe") Then
            Label1.Text = "exe is in running state"

        Else
            Label1.Text = "exe is not in running state "
        End If


    End Sub

    Private Function isRunningExe(exeName As String) As Boolean
        Dim strQuery As String
        strQuery = "SELECT Name FROM Win32_Process WHERE Name='" & exeName & "'"
        isRunningExe = GetObject("winmgmts:").ExecQuery(strQuery).Count
    End Function




End Class

บันทึกการเข้า
หน้า: [1]
  พิมพ์  
 
กระโดดไป:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines
SMFAds for Free Forums
Valid XHTML 1.0! Valid CSS!