start af internettet?

hvad mener du med kontakt ????

Opkobling med internettet

hvis du vil lave en browser kan du finde en tut. på :
http://www.vbsquare.com/internet/browser/index2.html

ellers skal du have fat i rasdial.

http://members.nbci.com/xorcoders/W32/Lang/Vbasic/ocx/RasDialStd.zip

denne her viser hvordan det virker med en dialup forbindelse.

Hvad menes der med linien:

webbrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, “”, “”    ‘Ok to Print?

for det bliver skrevet med rødt

hvad er rasdial
jeg vil gerne give flere point!

Den hurtige måde som vil starte IE, med din Default homepage:

Private Sub Command1_Click()
  Dim app As String
    app = Shell(\"C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE\", 1)
End Sub

Den frække som vil starte en specifik side:

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 Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim iret As Long
  iret = ShellExecute(Me.hwnd, vbNullString, \"http://www.tv2.dk\", vbNullString, \"c:\\\", SW_SHOWNORMAL)
End Sub

Hej clausjacobsen
Den første løsning er god men den anden er super
Der er bare lige det ved det at min vb 4.00 ikke helt forstår nvnullstring

:-)    Dixieman

Så prøv evt. med denne stump kode ;-)

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 Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()



Dim iret As Long
  iret = ShellExecute(Me.hwnd, \"\", \"http://www.tv2.dk\", \"\", \"c:\\\", SW_SHOWNORMAL)
End Sub

Hej igen clausjacobsen!  :-)

Her giver den en fejlmeddelelse

error in loadning dll

hvad nu??

Dixieman

Hej Dixieman,

Hvilken Windows version kører/tester du med?

Den kode som jeg har skrevet virker på Windows 2000, men hvis du bruger Windows95/-98 skal man nok lave et andet API kald.

Hvis du bruger Windows 95 eller en anden 16 bit windows version, så prøv med denne:

Option Explicit
Private Declare Function ShellExecute Lib \"shell.dll\" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()

Dim iret As Long
  iret = ShellExecute(Me.hwnd, \"\", \"http://www.tv2.dk\", \"\", \"c:\\\", SW_SHOWNORMAL)
End Sub

Mvh
ClausJacobsen ;-)

Hej ClausJacobsen var du ikke en mand så havde jeg simpelt hen kysset dig!!!

Tak skal du ha

´Men hvordan giver jeg dig point????
Dette er mit første indlæg!!!!!

Denne er mere enkel og virker lige så godt.

Private Sub Command1_Click()
\'URL
    Shell \"start http://www.jp.dk\" , vbHide
End Sub

Ja men først når der er lavet lidt om på den:

Private Sub Command1_Click()
\'URL
Dim iret As String
iret = Shell(\"start http://www.jp.dk\", 1)
End Sub

Det bedste svar er endnu kommet fra clausjacobsen

:0)  Dixieman

>>dixieman
Den virker også sådan som jeg har skrevet den. Jeg bruger den selv. Den eneste forskel er at jeg klikker på en label i stedet for en knap. Men det gør ingen forskel.
mvh
Johs. J.

Private Sub Command2_Click()
\'Mailto:
    Shell \"start mailto:johs_j@e-box.dk, vbHide\"
End Sub
Hvis du vil starte mailprogram.

Der mangler en \" efter .dk

Yoooo Dixieman,

LOL til din kommentar.

Jeg ved det faktisk ikke, jeg er ikke en konge til Eksperten.dk ;-)

Køb noget slik for pengene, hehe.....

Mvh
:-)ClausJacobsen