VB Shell & Variabeln???

[Waldoo]

hi!!
ich versuche gerade meine ersten schritte in visual basic, und schon bin ich auf das erste problem gestoßen:

ich möchte nach einem button_click eine website öffnen, die ich z.b. in einer inputbox einlese. z.b. so:

Shell ("c:\programme\internet explorer\iexplore.exe www.google.de")

nun möchte ich jedoch die adresse nicht fix angeben, sondern die variable verwenden, mit der ich sie eingelesen habe.
geht das überhaupt??? ?(

ich bin wie gesagt ein vollkommener noob :baby: und würde mich über hilfreiche vorschläge freuen!!!
mfg waldoo

 

[Indi]

Dim a As String
a = "www.hackerboard.de"
Shell ("c:\programme\internet explorer\iexplore.exe " & a)

 

[Waldoo]

mmmhhm

jea!!
tja mit dem & hab ich auch schon herumgespielt, ist bei mir aber nix geworden DANKE!!!

 

[ByteWolf]

Hey Waldoo,

sorry auch wenns jetzt vielleicht schon etwas zu spät für dein prob is hier ist der SourceCode mit dem es Funktionieren sollte.

'############################################
'# Author: Manuel König #
'# Datum: 10.01.2004 #
'# Programmname: HP-Shell #
'############################################
'# Dieses Programm demonstriert wie man mit #
'# mit einem Api-aufruf eine Webseite im #
'# Standardwebbrowser öffnet. #
'############################################

'API-Function deklarieren
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

'Konstante deklarieren
Private Const SW_SHOWNORMAL = 1

'Variablen deklarieren
Public Page As String

Private Sub Command1_Click()
ShellExecute 0&, vbNullString, Page, vbNullString, vbNullString, SW_SHOWNORMAL 'Öffnet den Standardwebbrowser und öffnet die Seite
End Sub

Private Sub Form_Load()

If Command <> "" Then
Page = Trim(Command) 'Der Text aus der Kommandozeile werden übergeben z.B.: C:\hpshell.exe http://www.cool.de
'Der Befehl Trim() dient dazu das die Leerzeichen abgeschnitten werden.
Text1.Text = Page 'Der Text der in der Variable Page steht wird in die Textbox geschrieben.
Else
Page = Text1.Text 'Falls kein Text aus der Kommandozeile übergeben wurde wird die Standardseite in die
'Variable Page geschrieben
End If

End Sub

Mfg

ByteWolf