kostenloser Webspace werbefrei: lima-city

Klickprogramm

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   zordy

   

   zordy hat kostenlosen Webspace.

   20:19, 18.10.2007

   hallo,
   ich möchte gerne in "Visual basic" _in keiner anderen scriptsprache ein prog schreiben, dass den browser aufruft mit einer gewissen url die im prog definiert werden können soll.
   Wenn diese URL aufgerufen worden ist sollte das Programm auf einen button klicken. Ist das possible? müsste eigentlich gehen oder?

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. lccserver

   

   lccserver hat kostenlosen Webspace.

   10:07, 19.10.2007

   Klar, ich nutze dafür immer Timer:
   -Erstelle einen Timer
   >>Name: Timer1
   >>Interval: 120000 '>> 120.000ms >> 120s >> 2min
   >>Enabled: True
   
   
   Quellcode:
   
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   'Startet Internet-Explorer >> www.Google.de
   Process.Start("IExplore.exe http://www.google.de";
   'Startet Netscape >> www.Google.de
   Process.Start("Netscp.exe http://www.google.de";
   End Sub
   
   (Dieser Code enthält zusätzlich die im letzten Thread vorgeschlagenen Änderungen von cbhp mittels Timer)
   
   Das mit dem automatisch klicken ist nicht ganz einfach, ich denke du solltest dafür lieber selbst ein WebBrowser-Steuerelement einfügen...also leicht ist das alles zusammen nicht*gg*
4. Autor dieses Themas

   zordy

   

   zordy hat kostenlosen Webspace.

   10:40, 19.10.2007

   was meinst du mit steuerelement?
   kann ich das dann trotzdem mit vb automatisieren?

5. lccserver

   

   lccserver hat kostenlosen Webspace.

   11:52, 19.10.2007

   Na klar, ist alles möglich...
   Du erstellst erst einmal zwei Steuerelemente:
   
   '1.Steuerelement (WebBrowser)
   Name: WebBrowser1
   Dock: DockStyle.Fill '(oder nur Fill)
   
   '2.Steuerelement (Timer)
   Name: Timer1
   Enabled: True
   Interval: 100
   
   
   

   Public Class Form1
       Dim BrowserIsNotNavigating As Boolean 'Arbeitet der Webbrowser gerade??
   
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           BrowserNav() 'Website aufrufen
       End Sub
   
       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
           If WebBrowser1.IsBusy = True Then      'Wenn WebBrowser1 beschaeftigt ...
               BrowserIsNotNavigating = False     '...dann Arbeitet der Browser nicht = FALSE
           End If
   
           If BrowserIsNotNavigating = False Then 'Wenn WebBrowser1 arbeitet nicht = FALSE...
               If WebBrowser1.IsBusy = False Then 'dann: Wenn WebBrowser1 ist nicht beschaeftigt...
                   BrowserIsNotNavigating = True  '...dann Arbeitet der Browser nicht = TRUE
                   BrowserNav()                   'Website aufrufen
               End If
           End If
       End Sub
   
       Private Sub BrowserNav()
           WebBrowser1.Navigate("http://www.google.de") 'Website http://www.google.de aufrufen...
       End Sub
   End Class

   
   
   
   (Das ist die Realisierung mithilfe eines Timers...)
   
   
   Beitrag geändert: 19.10.2007 11:56:42 von lccserver

6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?