1 Ανοίξτε το Microsoft Visual Basic από το κουμπί των Windows " Start" . 2
Επιλέξτε " Standard.exe " κάτω από την καρτέλα "Νέα" και κάντε κλικ στο κουμπί "Άνοιγμα" .
εικόνων 3
Σύρετε ένα κουμπί από την εργαλειοθήκη στη φόρμα . . Κάντε διπλό κλικ στο κουμπί της φόρμας για να ανοίξετε το παράθυρο κώδικα
Η 4
Εισάγετε τον παρακάτω κωδικό κάτω από τη γραμμή " Private Sub Command1_Click ( ) " :
Δημ. objWMIService , colProcessesDim Διαδικασία Όπως StringProcess = " VB6.exe " Set objWMIService = GetObject ( " winmgmts : " ) Set colProcesses = objWMIService.ExecQuery ( " Επιλέξτε * από Win32_Process όπου name = ' " & Process & "'" ) Αν colProcesses.Count ThenMsgBox ( " Process είναι Running " ) ElseMsgBox ( " διαδικασία δεν είναι Running " ) End If
5
Πατήστε το πλήκτρο" F5 " για να εκτελέσει τον κώδικα σε κατάσταση εντοπισμού σφαλμάτων .
Η 6
Κάντε κλικ στο κουμπί με την ένδειξη " Command1 " για να εκτελέσει τον κώδικα για τον καθορισμό εάν μια διαδικασία εκτελείται . Ένα πλαίσιο μηνύματος θα εμφανιστεί με το κείμενο " Process είναι Running " εάν η διαδικασία " VB6.exe " τρέχει .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα