| |
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? | |
| 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 |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|