| |
Visual-Basic EinsteigerVB6: shell funktioniert nur in Programmoberfläche | | | Autor: Wild Werner | Datum: 15.01.22 08:33 |
| Folgendes Problem: Ich arbeite viel mit Autohotkey und spiele das MMO Elyon. Dieses Game verbietet aber Autohotkey, so muss ich es jedesmal vor dem Start von Elyon beenden.
Nun habe ich mir ein Programm geschrieben, welches Autohotkey beendet und mit "shell" Elyon aufruft.
Das Problem ist: wenn ich es über die Oberfläche von VB6 starte, funktioniert es. Wenn ich es aber über den kompilierten exe-File starte, kommt bei "shell" der Laufzeitfehler 5: ungültiger Prozeduraufruf ...
Warum ist das bitte so?
Hier der Programmcode:
Option Explicit
' Prüft, ob eine EXE-Datei bereits ausgeführt wird und gibt im Erfolgsfall
' entweder das Fensterhandle oder die Process-ID zurück
Public Function IsEXERunning(ByVal sFilename As String, Optional ByVal iReturn _
As procReturnValue = ProcessID) As Long
Dim nResult As Long
' bei allen anderen Systemen...
Dim lSnapshot As Long
Dim uProcess As PROCESSENTRY32
' "Snapshot" des aktuellen Prozess ermitteln
lSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapshot <> 0 Then
uProcess.dwSize = Len(uProcess)
' Ersten Prozess ermitteln
nResult = ProcessFirst(lSnapshot, uProcess)
Do Until nResult = 0
' Prozessliste durchlaufen
If InStr(LCase$(uProcess.szexeFile), LCase$(sFilename)) > 0 Then
'Jepp - EXE gefunden
If iReturn = Handle Then
IsEXERunning = ProcID2hWnd(uProcess.th32ProcessID)
Else
IsEXERunning = uProcess.th32ProcessID
End If
Exit Do
End If
' nächster Prozess
nResult = ProcessNext(lSnapshot, uProcess)
Loop
' Handle schliessen
CloseHandle lSnapshot
End If
End Function
' Ermittelt das Fensterhandle anhand einer Prozess-ID
Private Function ProcID2hWnd(ByVal ProcID As Long) As Long
' alle Fenster durchlaufen und nach Process-ID suchen
Dim lngHWnd As Long
Dim lngProcTaskID As Long
lngHWnd = FindWindow(vbNullString, vbNullString)
Do While lngHWnd <> 0
' Existiert kein Eltern-Fenster, dann ProcssID
' ermitteln und mit TaskID vergleichen
If GetParent(lngHWnd) = 0 Then
GetWindowThreadProcessId lngHWnd, lngProcTaskID
' Handelt es sich um die gesuchte TaskID?
If lngProcTaskID = ProcID Then
' Fenster-Handle zurückgeben und Schleife
' verlassen!
ProcID2hWnd = lngHWnd
Exit Do
End If
End If
' Nächstes Fenster
lngHWnd = GetWindow(lngHWnd, GW_HWNDNEXT)
Loop
End Function
' Task beenden
Public Sub TerminateTask(lTaskID As Long)
Dim lhwnd As Long
Dim lResult As Long
lhwnd = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
lResult = TerminateProcess(lhwnd, 1&)
'lResult = CloseHandle(lhwnd)
End Sub
Private Sub Form_Activate()
Dim iID As Long
iID = IsEXERunning("AutoHotkey.exe")
If (iID > 0) Then
TerminateTask iID
imgOk.Visible = True
frmMain.Refresh
Sleep 250
Else
imgCancel.Visible = True
frmMain.Refresh
Sleep 250
End If
iID = Shell("G:\Elyon\Elyon_Launcher.exe", vbNormalNoFocus)
Sleep 1000
Unload Me
End Sub Kann mir da bitte jemand helfen? | |
Re: VB6: shell funktioniert nur in Programmoberfläche | | | Autor: Wild Werner | Datum: 15.01.22 09:03 |
| Vielen lieben Dank, dann werde ich mal ShellExecute verwenden | |
Re: VB6: shell funktioniert nur in Programmoberfläche | | | Autor: Wild Werner | Datum: 15.01.22 11:36 |
| Du hast recht, mit ShellExecute funktioniert es.
Vielen lieben Dank, es läuft | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|