Internetseite DWD in EXE starten

[PrideFighter]

Hallo,

ich habe jetzt ein Programm gebaut, möchte wenn ich den Button "DWD" anklicke das sich Mozilla öffnet und dann die Webpage von http://www.dwd.de aufruft!

 

[CrimeTime]

'© by http://www.bytesandmore.de

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 Const SW_SHOWNORMAL = 1
Private Sub cmdurl_Click()
Dim opnurl
    txtURL.Text = "http://www.dwd.de/"
    opnurl = OpenURL(txtURL.Text)

End Sub
Function OpenURL(tsURL As String)

    tsOpenURL = ShellExecute(0&, vbNullString, tsURL, vbNullString, vbNullString, SW_SHOWNORMAL)

End Function

Gruß CrimeTime

 

[PrideFighter]

wie kann ich das fertige Projekt als exe speichern?

Danke!

 

[CrimeTime]

wenn du die Erforderlichen Elemente auf der Form Platziert hast (cmdurl,txtURL)

dann einfach auf Datei -> Erstelle app.name.exe
auf english File -> Make app.name.exe


Rot: weil ich VB6 Professional habe , das is leider in english

Hier nochn Screen falls die Beschreibung nicht aussreicht.

Klick Mich!

 

[PrideFighter]

gut mit der exe danke erstemal, aber mit der website so schaut das bei mir aus;:

habe den Button erstellt dann hier der code:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
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 Const SW_SHOWNORMAL = 1
Private Sub cmdurl_Click()
Dim opnurl
txtURL.Text = "http://www.dwd.de/"
opnurl = OpenURL(txtURL.Text)

End Sub
Function OpenURL(ByVal tsURL As String)

tsOpenURL = ShellExecute(0&, vbNullString, tsURL, vbNullString, vbNullString, SW_SHOWNORMAL)

End Function
End Sub
End Class

 

[CrimeTime]

umph, das sieht irgendwie nach einem blutigen anfänger aus xD, werde gleich bevor ich schlafen gehe das Projekt selbst erstellen, und Hochladen, wie man eine Exe erstellt weist du ja nun.

Gruß CrimeTime

Edit: Datei befindet sich nun im Anhang.

Thread somit Erledigt.