Vorwort:
Dieses Tutorial erklärt wie man ein externes programm unbemerkt startet. Die kann man zb verwenden, wenn man einen ftp server laufen hat aber das Fenster nicht sehen möchte.
Zum Tutorial:
Im einfachsten fall sieht das so aus:
Private Sub Form_Load()
Call Shell(programm.exe, vbHide)
End
End Sub
Erklärung: Das programm "programm.exe" wird mit dem Modus vbHide (unsichtbar) ausgeführt
Da dies aber für ein Tutorial nicht reicht zeige ich hier möglichkeiten das Programm zu erweitern:
1. Mit der Kommandozeile (1. version)
Private Sub Form_Load()
Call Shell(Command$, vbHide)
End
End Sub
Erläuterung: Das programm wird über die Startopiton meinvbprogramm.exe programm.exe ausgeführt. Ist das "programm.exe" nicht angegen kommt es zu einem Fehler. Um dies zu vermeiden:
1. Mit der Kommandozeile (2. version)
So hier wird erst gecheckt ob Command$ vorhanden ist:
Private Sub Form_Load()
If Command$ = "" Then GoTo noapp Else
Call Shell(Command$, vbHide)
End
noapp:
MsgBox "Keine Programm angegeben!" & vbCrLf & "Benutzung: hide.exe programm"
End
End Sub
Erklärung: Hier wurde Command$ erst getstet und wen nicht vorhanden wird eine warnug ausgegeben
2. Aus einer textbox
Private Sub Command1_Click()
If Text1.Text = "" Then GoTo noapp Else
Call Shell(Text1.Text, vbHide)
End
noapp:
MsgBox "Bitte Programm angeben"
End Sub
Hier wird auf knopfdruck das programm gestartet
Das wars auch schon. Bei fragen PN an mich