kostenloser Webspace werbefrei: lima-city

Webseiten Aktualisieren

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   m***********r

   19:41, 29.10.2004

   Hi Gibt es eine M?glichkeit In VB ein Prog zu basteln das Nach einer gew?nschten zeit Eine beliebige seite automatisch aktualisiert? :)
   
   wenn ja kann mir jemand ein paar tips geben?
   

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

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

3. c****e

   20:33, 29.10.2004

   aktualisieren wie "seite neu laden" oder "neuen inhalt auf die page tun" ?
   
   bei 2. h?tt ich sogar noch quelltexte
   
   *edit*
   sorry ich find nich mehr =(
   
   Beitrag ge?ndert am 29.10 20:38 von cookie
   
   *edit*
   
   @poster unter mir:
   WAS STIMMT????
   
   Beitrag ge?ndert am 29.10 20:45 von cookie
4. Autor dieses Themas

   m***********r

   20:48, 29.10.2004

   was ganze Soll Nur ?ber ein Prog Laufen das ca jede halbe stunde ein Link ausf?hrt ^^
   
   Beitrag ge?ndert am 29.October.2004 | 20:49:41 von master-reaver

5. karlja

   karlja hat kostenlosen Webspace.

   23:26, 3.11.2004

   Hi,
   ich habe das ganze mal programmiert, wobei ich jedoch einen separaten Browser (kein Problem unter VB, da es die IE mitliefert) gebastelt habe...
   Ich habe dir hier mal den gesamten Quellcode kopiert. Ich denke aber nicht das der die gro? helfen wird.
   Du kannst mir ja mal per PN deine Email Addy schicken... dann k?nnte ich dir die VB-Dateien zukommen lassen.
   Ich hoffe es hilft dir weiter.
   MFG
   Karlja
   
   
   Quell-Code des Forms:
   Public WieOft As Double
   Public WieLange As Double
   Public WhatPage As String
   
   Private Sub cmdStart_Click()
   Dim x As Double
   x = 0
   On Error Resume Next
   Do
   WhatPage = InputBox("Which page do you want to have loaded?", "Which Page?", "http://www.")
   Loop Until WhatPage <> ""
   txtAdress.Text = WhatPage
   Do
   WieOft = Val(Trim(InputBox("How often do you want to load the page?", "How often?", "50")))
   Loop Until WieOft > 0
   Do
   WieLange = Val(Trim(InputBox("How long do you want to wait between each loading of the page in seconds?", "How long?", "1")))
   Loop Until WieLange > 0
   Do
   webBrowser.Navigate WhatPage
   Wait (WieLange)
   Loop Until x = WieOft
   End Sub
   
   Private Sub Form_Load()
   ResizeBrowser
   End Sub
   
   Public Sub ResizeBrowser()
   With webBrowser
   .Left = 50
   .Top = 400
   .Width = frmVisualBasic.ScaleWidth - 100
   .Height = frmVisualBasic.ScaleHeight - 400
   End With
   With cmdStart
   .Left = 50
   .Top = 50
   .Width = frmVisualBasic.ScaleWidth - 100
   .Height = 300
   End With
   End Sub
   
   Private Sub Form_Resize()
   ResizeBrowser
   End Sub
   
   Public Sub Wait(lDuration As Long)
   Dim vTemptime As Variant
   vTemptime = Timer
   Do
   DoEvents
   Loop Until Timer = (vTemptime + WieLange)
   End Sub

6. k*****i

   8:23, 4.11.2004

   warum so ein langer text eine zeile reicht doch vollkommen aus!

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

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

Dir gefällt dieses Thema?