|
| Autor |
Nachricht |
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Webrowser öffnen
Verfasst am: 11.11.2007, 15:40 |
|
|
Hallo,
ich habe gerade diesen Code im forum entdeckt um den Browser zu öffnen.
| Code: | Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ()
(ByVal hwnd AsLong , ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub cmd_go_Click()
ShellExecute Me.hwnd, vbNullString, "www.google.de", vbNullString, "C:\", SW_SHOWNORMAL
End Sub
|
jedoch kommt eine fehler meldung die sich auf folgedene zeile bezieht
| Code: | | (ByVal hwnd AsLong , ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long |
| Zitat: | | Erwartet Zeilennummer oder Sprungmarke oder Anweisung oder Anweisungsende |
Kann mir jemand helfen?
mfg |
|
| |
|
 |
fire-fly_
Tutorial Leser
Anmeldedatum: 30.07.2007
Beiträge: 36
|
Verfasst am: 11.11.2007, 15:44 |
|
|
mach es doch einfach so
| Code: | Private Sub Command1_Click()
Dim seite As String
seite = Shell("C:\Programme\Internet Explorer\IEXPLORE.exe http://google.de", vbNormalFocus)
End Sub |
|
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 11.11.2007, 15:48 |
|
|
Vielen Dank schonmal, so sieht es für mich auch viel einfacher und verständlicher aus 
Wie kann ich das ganze denn nun anstellen, dass zwar der IE die Seite aufruft ,jedoch nicht angezeigt wird. Irgendwas mit Hide evtl? |
|
| |
|
|
fire-fly_
Tutorial Leser
Anmeldedatum: 30.07.2007
Beiträge: 36
|
Verfasst am: 11.11.2007, 15:50 |
|
|
ja das wär denn
| Code: | Private Sub Command1_Click()
Dim seite As String
seite = Shell("C:\Programme\Internet Explorer\IEXPLORE.exe http://google.de", vbHide)
End Sub |
|
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 11.11.2007, 15:58 |
|
|
Ok,
nachderzeitigem Stande würde er die Seite Google öffnen. Bei mir soll nun aber der User bestimmen welche Seite er öffne möchte, leider kann ich das hier nicht http://google.de mit Tect1.Text ersetzten, da er sonst http://text1.text öffnen würde  |
|
| |
|
|
fire-fly_
Tutorial Leser
Anmeldedatum: 30.07.2007
Beiträge: 36
|
Verfasst am: 11.11.2007, 16:03 |
|
|
| Code: | Private Sub Command1_Click()
Dim seite As String
Dim lol As String
lol = Text1.Text
seite = Shell("C:\Programme\Internet Explorer\IEXPLORE.exe http://" & lol, vbNormalFocus)
End Sub
|
joa ^^ sry wegen post könnt ihr löschen aber egal
Zuletzt bearbeitet von fire-fly_ am 11.11.2007, 16:07, insgesamt 2-mal bearbeitet |
|
| |
|
|
_code__
Poster
Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
|
Verfasst am: 11.11.2007, 16:03 |
|
|
| Code: |
Private Sub Command1_Click()
Dim seite As String
seite = Shell("C:\Programme\Internet Explorer\IEXPLORE.exe http://" & Text1.text, vbHide)
End Sub
|
sollte gehen
Edit://
sry war zu langsam xD |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 11.11.2007, 16:17 |
|
|
| Code: |
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ()
(ByVal hwnd AsLong , ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub cmd_go_Click()
ShellExecute Me.hwnd, vbNullString, "www.google.de", vbNullString, "C:\", SW_SHOWNORMAL
End Sub
|
1. Ist der obere Teil des Codes ne Api.
| Code: |
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ()
(ByVal hwnd AsLong , ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
|
Und diese gehört ganz oben in deiner Form platzierst.
2. Ist die Api falsch geschrieben, bzw. hast du sie falsch kopiert.
So ist es richtig.
| Code: |
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
|
Plus diesem Teil noch.
| Code: |
Const SW_SHOWNORMAL = 1
|
Die Konstante könnte man auch weglassen, aber so kann man es besser lesen und sich besser merken.
Und dann eben noch der Aufruf.
| Code: |
ShellExecute Me.hwnd, vbNullString, "www.google.de", vbNullString, "C:\", SW_SHOWNORMAL
|
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 11.11.2007, 17:04 |
|
|
Danke Zig,
aber was mir nicht ganz klar wird, warum eine API braucht , wenn man dies auch via Shell realisieren kann( wie meine Vorposter es mir gesagt haben)
So ist es doch viel simpler? |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 12.11.2007, 09:20 |
|
|
Die Api ShellExecute bietet die Möglichkeit alle auf dem System registrierten Dateien zu starten.
Das heißt er startet auch automatisch den Standardbrowser wenn du eine Inet Adresse übergibst.
Du mußt also den Pfad zum Browser nicht herausfinden.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
|
|
Registrieren
Login
