Πώς να κάνει VB6 Άνοιγμα σε EXE

Υπάρχουν δύο τρόποι για να ξεκινήσει ένα ξεχωριστό εκτελέσιμο πρόγραμμα μέσα από ένα πρόγραμμα της Visual Basic . Ένας τρόπος είναι να χρησιμοποιήσετε το Visual Basic " Shell " εντολή . Η άλλη είναι να χρησιμοποιήσετε το " CreateProcess " εφαρμογή των Windows διασύνδεση προγραμματισμού ( API ) . Και οι δύο θα ξεκινήσει με επιτυχία το εξωτερικό εκτελέσιμο πρόγραμμα ? Ωστόσο , " CreateProcess " δίνει στον προγραμματιστή περισσότερο έλεγχο για το πώς το λειτουργικό σύστημα χειρίζεται το πρόγραμμα . Οδηγίες
Shell Command

1

Ξεκινήστε ένα νέο έργο της Visual Basic Standard EXE . On " Φόρμα1 " που δημιουργείται από προεπιλογή , να προσθέσετε ένα κουμπί εντολής και ονομάστε το " cmdNotepad . " 2

Κώδικα το κλικ περίπτωση κουμπί εντολής στην " cmdNotepad_Click ( )" γεγονός . Για να δηλώσετε μια μεταβλητή τύπου long να κρατήσει την τιμή επιστροφής από την εντολή Shell . Για να ξεκινήσει το πρόγραμμα των Windows Notepad , πληκτρολογήστε " lngReturn = Shell ( " C : \\ Windows \\ System32 \\ Notepad.exe " ) . "
Εικόνων 3

Καθορίστε πόσο θέλετε η εφαρμογή Σημειωματάριο για να ανοίξετε στην εντολή Shell . Οι επιλογές είναι: vbHide , vbMaximizedFocus , vbMinimizedFocus , vbMinimizedNoFocus , vbNormalFocus και vbNormalNoFocus . Ορίστε μία από αυτές τις επιλογές ως τη δεύτερη παράμετρο στην εντολή Shell ως " Shell ( " C : \\ Windows \\ System32 \\ Notepad.exe " , vbNormalFocus ) . "
Η 4

Αποκτήστε το ID της διεργασίας από το επιστρέψει την αξία της εντολής Shell . Όπως φαίνεται στο Βήμα 2 , " lngReturn " θα περιλαμβάνει το Windows ID ανατεθεί διαδικασία για την εφαρμογή Σημειωματάριο που μόλις ξεκίνησε από την εντολή Shell . Με το ID της διαδικασίας , μπορείτε να εκτελέσετε άλλες εργασίες στο πρόγραμμά σας, όπως να εξακριβωθεί αν η διαδικασία εξακολουθεί να λειτουργεί πριν από το κλείσιμο της εφαρμογής της Visual Basic .
Εικόνων CreateProcess
5

Αρχή ένα νέο έργο της Visual Basic Standard EXE . On " Φόρμα1 " που δημιουργείται από προεπιλογή , να προσθέσετε ένα κουμπί εντολής και ονομάστε το " cmdNotepad . " Προσθήκη τύποι ορίζονται από το χρήστη με το όνομα " PROCESS_INFORMATION " και " STARTUPINFO " στην ενότητα " δηλώσεις " του " Φόρμα1 . " Αυτές οι δομές που χρησιμοποιούνται για τα δεδομένα της ομάδας και οι απαιτούμενες παραμέτρους της λειτουργίας " CreateProcess " .
Η 6

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

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

Const NORMAL_PRIORITY_CLASS = & H20 &

κρίνει λειτουργίες για να δημιουργήσετε το παράδειγμα της διαδικασίας ( "δηλώστε το " CreateProcess " λειτουργούν ως " Private Declare Function CreateProcess Lib " kernel32 " Alias ​​" CreateProcessA " " ) , να ανοίξει τη διαδικασία ( « Private Declare Function OpenProcess Lib " kernel32.dll "" ) , να τερματίσει τη διαδικασία ( « Private Declare Function TerminateProcess Lib " kernel32 "") και να κλείσει τη λαβή ( "Private Declare Function CloseHandle Lib " kernel32 " " ) .
Η 7

κώδικα το κλικ περίπτωση κουμπιού εντολής σε " cmdNotepad_Click ( ) . " Ορίστε μια μεταβλητή τύπου PROCESS_INFORMATION , STARTUPINFO , ένα string να εκπροσωπεί άκυρη και δύο αποζητά τιμές επιστροφής . Περάστε το Notepad . exe στο " CreateProcess " λειτουργία : .

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

Τερματίστε τη διαδικασία με το " TerminateProcess ( pInfo.hProcess , 0 & ) . " Κλείστε τη λαβή στο νήμα με " CloseHandle ( pInfo.hThread ) " και στη διαδικασία με " CloseHandle ( pInfo.hProcess ) . "


Η