Inherits WebBrowser
Private adsPath As String
+ Private WithEvents refreshTimer As System.Timers.Timer
Public Sub New()
MyBase.New()
Me.TabStop = False
Me.WebBrowserShortcutsEnabled = False
Me.Dock = DockStyle.Fill
+ Me.Visible = False
Me.Navigate(adsPath)
+ Me.Visible = True
+ Me.refreshTimer = New System.Timers.Timer(45 * 1000)
+ Me.refreshTimer.AutoReset = True
+ Me.refreshTimer.SynchronizingObject = Me
+ Me.refreshTimer.Enabled = True
End Sub
+
Private Sub AdsBrowser_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
+ Me.refreshTimer.Dispose()
File.Delete(adsPath)
End Sub
+
+ Private Sub refreshTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles refreshTimer.Elapsed
+ Me.Visible = False
+ Me.Refresh()
+ Me.Visible = True
+ End Sub
+
End Class
End Namespace
\ No newline at end of file
<script type='text/javascript'>
GA_googleFetchAds();
</script>
-<meta http-equiv="refresh" content="45">
+<!-- <meta http-equiv="refresh" content="45"> -->
</head>
<body style="margin:0px;">
<!-- Tween_HomePage_728x90 -->
twCon.RequestAbort()
If sr IsNot Nothing Then sr.Close()
If st IsNot Nothing Then st.Close()
- If sleepSec > 0 AndAlso Me._streamActive Then Thread.Sleep(sleepSec * 1000)
+ If sleepSec > 0 Then
+ Dim ms As Integer = 0
+ Do While _streamActive AndAlso ms < sleepSec * 1000
+ Thread.Sleep(500)
+ ms += 500
+ Loop
+ End If
sleepSec = 0
End Try
Loop While Me._streamActive
OSDN Git Service
