Option Strict On
Option Explicit On
 
 
Namespace My
 
    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht 
    ' direkt. Zum Ändern
    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum 
    ' Projekt-Designer.
    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie 
    ' auf den Knoten "Eigenes Projekt" im
    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" 
    ' entsprechende Änderungen vor.
    '
    Partial Friend Class MyApplication
 
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub New()
            MyBase.New( _
              Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMo_
              de.Windows)
            Me.IsSingleInstance = true
            Me.EnableVisualStyles = true
            Me.SaveMySettingsOnExit = true
            Me.ShutDownStyle = _
              Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.Aft_
              erMainFormCloses
        End Sub
 
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Global.WindowsApplication1.Form1
        End Sub
 
        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As _
          Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles _
          Me.Startup
            'Tritt beim ersten Aufruf des Programmes ein
            If My.Application.CommandLineArgs.Count = 0 Then
                Form1.WebBrowser1.Navigate("http://www.google.at") ' Wenn keine 
                ' Argumente übergeben werden mit StandardUrl starten
            Else
                Form1.Text = My.Application.CommandLineArgs.Item(0)
                Form1.WebBrowser1.Navigate(My.Application.CommandLineArgs.Item( _
                  0)) ' Sonst den übergebenen Url aufrufen
            End If
        End Sub
 
        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, _
          ByVal e As _
          Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArg_
          s) Handles Me.StartupNextInstance
            'Tritt ein wenn weitere Instanzen Aufgerufen werden
            If e.CommandLine.Count = 0 Then ' Hier bekommen wir die neuen 
            ' Argumente
                Form1.WebBrowser1.Navigate(Microsoft.VisualBasic.InputBox("Url" & _
                  "eingeben", "Wohin wollen wir?", "http://www.google.at"))
            Else
                Try
                    Form1.Text = e.CommandLine.Item(0)
                    Form1.WebBrowser1.Navigate(e.CommandLine.Item(0))
                Catch ex As Exception
                    MsgBox(My.Application.CommandLineArgs.Item(0))
                End Try
 
            End If
        End Sub
    End Class
End Namespace

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus