Website/URL aufrufen

    • VB6

      Website/URL aufrufen

      Wie kann ich eine Internetseite im Standardbrowser aufrufen?

      1) Mit der Shell-API:

      Visual Basic-Quellcode

      1. Private Declare Function ShellExecute Lib "shell32.dll" _
      2. Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
      3. lpOperation As String, ByVal lpFile As String, ByVal _
      4. lpParameters As String, ByVal lpDirectory As String, _
      5. ByVal nShowCmd As Long) As Long
      7. Private Sub Command1_Click()
      8. Dim Result&
      9. Result = ShellExecute(Me.hwnd, "Open", _
      10. "http://www.activevb.de", "", App.Path, 1)
      11. End Sub

      2) Mit der rundll32.exe:

      Visual Basic-Quellcode

      1. Dim SearchVal
      2. Dim browserstring As String
      3. Dim launchbrowser As String
      4. browserstring = "rundll32.exe url.dll,FileProtocolHandler"
      5. launchbrowser = browserstring + "http://www.yoursite.de"
      6. SearchVal = Shell(launchbrowser, 0)



      Keywords: Visual Basic 6, VB 6, URL aufrufen, Link öffnen, Standardbrowser, API, ShellExecute, FileProtocolHandler, rundll32
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Mad Andy“ ()

    Facebook
    Telefonspende