Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Lösung
Autor: [young]mann
Datum: 10.05.02 10:26
Hi & Danke! Ich hab'n bisl rumprobiert und bin auf die Lösung gekommen! Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _ As String, ByVal lpFile As String, ByVal lpParameters _ As String, ByVal lpDirectory As String, ByVal nShowCmd _ As Long) As Long Private Sub Command1_Click() Dim befehl As String Dim pass As String If Text1.Text = "" Or Text2.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then MsgBox "Fehlende Werte!" Exit Sub End If If Text3.Text = "" Then pass = "" Else pass = " +password " & Text3.Text End If befehl = " +connect " & Text5.Text & ":" & _ Text6.Text & " +netplayername " & Text2.Text & pass Call ShellExecute(Me.hwnd, "Open", "Game.exe", befehl, Text1.Text, 1) End Sub MFG [young]mann

Datei +Erweiterung starten	48	[young]mann	10.05.02 10:16
Fortgeschritten?	29	[young]mann	10.05.02 10:21
Lösung	36	[young]mann	10.05.02 10:26

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen