Announcement

Collapse
No announcement yet.

Internetseiten im hintergrund Öffnen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Internetseiten im hintergrund Öffnen

    Hallo Leute,
    ich suche nach eine Möglichkeit internetseiten im Hintergrund zu öffnen. Möglichst ohne Browser.

    Der Hintergrund hierzu. Es geht um eine Seite die ich immer nur kurz aufrufen muss, und sie dann schließen kann. dieses möchte ich automatiesieren.
    Leider weiß ich nicht wie. Das heißt aufrufen kann ich sie, nur kann ich dann nciht in ruhe weiterarbeiten.
    Auch meine "Pause" ist ne notlösung. Es wird einfach der Beep befehl ausgeführt. wäre echt super wenn mir da einer helfen kann.
    Wie man wohl am quellcode sieht bin ich ein blutiger anfänger, wäre nett wenn das bei den antworten berücksichtigt wird.

    Code :

    Imports System.Console

    Public Class aufrufen

    Private Sub cmdundlos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdundlos.Click
    Dim i, anzahl As Double
    Dim weburl As String = "http://www.Seite1.de"
    Dim weburl2 As String = "http://www.Seite2.de"
    anzahl = txtanzahl.Text

    For i = 1 To anzahl
    Process.Start(weburl)

    Beep(30000, 2500)
    Process.Start(weburl2)
    Beep(30000, 2500)
    If i = anzahl Then Exit For

    Next i

    End Sub
    End Class

  • #2
    Hallo!

    Vielleicht kannst du anstatt des Beep(...) ein WaitForExit() verwenden.

    http://msdn2.microsoft.com/en-us/lib...itforexit.aspx

    HTH
    *-- robert.oh. --*

    Comment


    • #3
      nop das hilf mir leider nicht wirklich weiter.
      Hätte aber noch ne anderer frage. Warum funktioniert folgender code nicht richtig.
      Code:

      Imports System.Console

      Public Class Form1

      Private Sub cmdundlos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdundlos.Click

      Dim i, anzahl As Double
      Dim weburl2 As String = "http://www.seite1.de"
      Dim weburl As String = "http://www.seite2.de"
      Dim ExterneAnwendung As New System.Diagnostics.Process()
      ExterneAnwendung.StartInfo.FileName = "firefox.exe"

      anzahl = txtanzahl.Text

      For i = 1 To anzahl

      ExterneAnwendung.Start()
      Beep(30000, 2500)
      Process.Start(weburl)
      Beep(30000, 2500)
      ExterneAnwendung.CloseMainWindow()
      ExterneAnwendung.Kill()


      If i = anzahl Then Exit For

      Next i

      End Sub
      End Class

      Zeitweise läuft es, doch dann bekomme ich immer ein Prog absturz.

      Comment

      Working...
      X