Πώς να χρησιμοποιήσετε CreateProcess σε VB6

" CreateProcess " είναι μια λειτουργία διαθέσιμη σε μία από τις διασυνδέσεις των Microsoft Windows πυρήνα προγραμματισμού εφαρμογών ( APIs ) που διατίθενται με το λειτουργικό σύστημα των Windows . " CreateProcess " ανοίγει ένα πρόγραμμα ως μια διαδικασία των Windows και στο δικό της νήμα . API των Windows δώσει μεγαλύτερη ευελιξία στην VB προγραμματιστές . Για παράδειγμα , υπάρχουν πολλές λειτουργίες που είναι διαθέσιμες εντός των Windows API που επιτρέπει στους προγραμματιστές να εκτελούν συγκεκριμένες ενέργειες με μια κλήση συνάρτησης με το API , αντί να προσπαθούν να γράψουν το δικό τους κώδικα για να κάνει το ίδιο πράγμα . Οδηγίες
Η 1

Ξεκινήστε ένα νέο Standard EXE έργο της Visual Basic . Προσθήκη τύποι ορίζονται από το χρήστη με το όνομα " PROCESS_INFORMATION " και " STARTUPINFO " στον κωδικό για " Φόρμα1 " που δημιουργείται αυτόματα με το νέο έργο . Πρόκειται για δομές που χρησιμοποιούνται σε Visual Basic με τα δεδομένα της ομάδας και οι απαιτούμενοι τύποι παραμέτρων της λειτουργίας " CreateProcess " . 2

Δημιουργία δύο σταθερές που είναι επίσης οι παράμετροι της λειτουργίας " CreateProcess " .

Const συγχρονίσετε = 1048576

Const NORMAL_PRIORITY_CLASS = & H20 &

κηρύξει την " CreateProcess " λειτουργούν ως " Private Declare Function CreateProcess Lib " kernel32 " Alias ​​" CreateProcessA " . "
Η Φτηνές 3

αναγνωρίσει πρόσθετες λειτουργίες για να ανοίξει τη διαδικασία ( « Private Declare Function OpenProcess Lib " kernel32.dll "" ) , να τερματίσει τη διαδικασία ( « Private Declare Function TerminateProcess Lib " kernel32 "") και να κλείσει τη λαβή ( "Private Declare Function CloseHandle Lib " kernel32 "" ) .
Η 4

Προσθέστε ένα κουμπί εντολής " Form1 " και το όνομα " cmdOpenNotepad . " Στον κώδικα για " cmdOpenNotepad " , ορίσετε μια μεταβλητή του τύπου . PROCESS_INFORMATION , STARTUPINFO , ένα string να εκπροσωπεί άκυρη και δύο αποζητά τιμές επιστροφής

Περάστε το Notepad.exe με τη λειτουργία " CreateProcess ", ως εξής :

CreateProcess ( sNull , " Notepad.exe " , ByVal 0 & , ByVal 0 & 1 & , NORMAL_PRIORITY_CLASS , ByVal 0 & , sNull , SINFO , pInfo )
5

Τερματίζει τη διαδικασία με το" TerminateProcess ( pInfo.hProcess , 0 & ) . "

Κλείστε τη λαβή στο νήμα με " CloseHandle ( pInfo.hThread ) " και στη διαδικασία με " CloseHandle ( pInfo.hProcess ) . "
Η
εικόνων