Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
swordfish123456_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 15.08.2007
Beiträge: 66

[Frage]Mit VB Internetseite öffnen
Verfasst am: 19.10.2007, 14:23

Hi , ich habe shcon bei vielen programmen gesehen , dass wenn man die starten , mein firefox sich öffnet und dann auf ne seite geht ,
diesen code habe ich gefunden

[vb:1:c7711bbd35]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

Public Sub InternetSite(Page as String,fTemp as Form)
ShellExecute fTemp.hwnd, "open", Page, "", "", 1
End Sub

Private Sub Command1_Click()
InternetSite "www.vb-planet.de"
End Sub
[/vb:1:c7711bbd35]
wie es aussieht ist der code von vb-planet.de , doch dort finde cih nur pornoseiten ^.^

wenn ich das mache kommt:" Argument ist nciht Optimal "

mfg
 
The-God-of-all_
Poster
Poster

Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path


Verfasst am: 19.10.2007, 14:28

Das liegt dadran das die Funktion zwei Argumente erwartet und nicht eins. Als zweites Argument musst du die Form übergeben.

[vb:1:58efca07dc]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

Public Sub InternetSite(Page As String,fTemp As Form)
ShellExecute fTemp.hwnd, "open", Page, "", "", 1
End Sub

Private Sub Command1_Click()
InternetSite "www.vb-planet.de", Me
End Sub[/vb:1:58efca07dc]
 
crusader727_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 12.05.2007
Beiträge: 44


Verfasst am: 19.10.2007, 14:44

Private Sub Command1_Click()
Set wshshell = CreateObject("WScript.Shell")
wshshell.run ("http://google.de")
End Sub

das gefällt mir persönlich besser... Smile
 
swordfish123456_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 15.08.2007
Beiträge: 66


Verfasst am: 19.10.2007, 21:10

jo danke klappt =D
Razz Razz Razz Razz Razz
 
King of Chaos_
Coder
Coder

Anmeldedatum: 26.09.2007
Beiträge: 235


Verfasst am: 19.10.2007, 22:19

wshshell.run ("http://google.de")
öffnet aber nicht den standart Explorer sondern den IE oder?
 
BONETHUGS333_
Tutorial Leser
Tutorial Leser



Anmeldedatum: 26.10.2007
Beiträge: 26


Verfasst am: 01.11.2007, 05:23


Doch es öffnet meines Wissens den Standard Explorer
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: öffnen, internetseite, seite, shellexecute, firefox, form

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2609 06.03.2008, 21:19
Keine neuen Beiträge Dll injection/uninjection 1409 27.09.2007, 08:12
Keine neuen Beiträge ieframe.dll 871 24.06.2007, 09:14
Keine neuen Beiträge Dll Injection in vb6 1249 22.06.2007, 16:55
Keine neuen Beiträge DLL Injection 1085 18.07.2008, 15:58
 


[ Time: 0.2782s ][ Queries: 97 (0.1811s) ][ GZIP on - Debug on ]