Imports System.Deployment.Application
Public Class Form1
Private Sub AboutBoxHelpMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutBoxHelpMenu.Click
On Error Resume Next
AboutBox.ShowDialog()
End Sub
Function ActiveBrowser() As WebBrowser
On Error Resume Next
ActiveBrowser = Nothing
For Each Control In TabControl.SelectedTab.Controls
If TypeOf Control Is WebBrowser Then
Return CType(Control, WebBrowser)
End If
Next
End Function
Private Sub AddTabFileMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTabFileMenu.Click
On Error Resume Next
Dim X As New TabPage
X.Text = " "
TabControl.TabPages.Add(X)
Dim Y As New WebBrowser
Y.Dock = DockStyle.Fill
X.Controls.Add(Y)
AddHandler Y.Navigated, AddressOf WebBrowser_Navigated
AddHandler Y.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
X.Controls.Add(Y)
Y.Navigate("http://www.warezxtreme.org")
Dim documentTitle As String = Me.ActiveBrowser.DocumentTitle
If documentTitle = String.Empty Then
Me.Text = Application.ProductName
Else
'Display the current page title in the window's title bar.
Me.Text = String.Format("{0} - {1}", _
documentTitle, _
Application.ProductName)
End If
End Sub
Private Sub AddTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTab.Click
On Error Resume Next
Dim X As New TabPage
X.Text = " "
TabControl.TabPages.Add(X)
Dim Y As New WebBrowser
Y.Dock = DockStyle.Fill
X.Controls.Add(Y)
AddHandler Y.Navigated, AddressOf WebBrowser_Navigated
AddHandler Y.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
X.Controls.Add(Y)
Y.Navigate("http://www.warezxtreme.org")
End Sub
Private Sub Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Back.Click
On Error Resume Next
ActiveBrowser.GoBack()
StatusProgressBar.Increment(1)
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
If FinishTimer.Enabled = True Then
StatusProgressBar.Value = 100
End If
End Sub
Private Sub CancelStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelStop.Click
On Error Resume Next
ActiveBrowser.Stop()
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
End Sub
Private Sub CheckForUpdatesHelpMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckForUpdatesHelpMenu.Click
On Error Resume Next
Dim ad As ApplicationDeployment
Dim info As UpdateCheckInfo
ad = ApplicationDeployment.CurrentDeployment
info = ad.CheckForDetailedUpdate
If Not info.UpdateAvailable Then
MsgBox("No Updates Available At This Time")
Return
End If
Dim doUpdate As Boolean = True
If info.IsUpdateRequired Then
MsgBox("There Is A Required Update Available. Downloading Now")
Else
If MsgBox("Update Available. Do You Want To Download Now?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
doUpdate = False
End If
End If
If doUpdate Then
ad.Update()
MsgBox("Updates Have Been Installed . Restarting Application Now")
Application.Restart()
End If
End Sub
Private Sub CheckWindowsVersionHelpMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckWindowsVersionHelpMenu.Click
On Error Resume Next
Dim osVersion As String
osVersion = My.Computer.Info.OSVersion
Dim osPlatform As String
Dim osName As String
osName = My.Computer.Info.OSFullName
osPlatform = My.Computer.Info.OSPlatform
MsgBox("Operating System:" & vbCr & osName & vbCr & vbCr & "Build Version:" & vbCr & osVersion & vbCr & vbCr & "OS Platform:" & vbCr & osPlatform)
End Sub
Private Sub ClockTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClockTimer.Tick
On Error Resume Next
Dim UpdateClock As String
UpdateClock = My.Computer.Clock.LocalTime
ClockLabel.Text = System.DateTime.Now
End Sub
Private Sub CloseTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseTab.Click
On Error Resume Next
TabControl.TabPages.Remove(TabControl.SelectedTab)
End Sub
Private Sub CloseTabFileMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseTabFileMenu.Click
On Error Resume Next
TabControl.TabPages.Remove(TabControl.SelectedTab)
End Sub
Private Sub DisplayPageTitle()
On Error Resume Next
Dim documentTitle As String = Me.ActiveBrowser.DocumentTitle
If documentTitle = String.Empty Then
Me.Text = Application.ProductName
Else
'Display the current page title in the window's title bar.
Me.Text = String.Format("{0} - {1}", _
documentTitle, _
Application.ProductName)
End If
End Sub
Private Sub ExitFileMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitFileMenu.Click
On Error Resume Next
Application.Exit()
End Sub
Private Sub Forward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Forward.Click
On Error Resume Next
ActiveBrowser.GoForward()
StatusProgressBar.Increment(1)
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
If FinishTimer.Enabled = True Then
StatusProgressBar.Value = 100
End If
End Sub
Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
On Error Resume Next
For Each Target As Control In TabControl.Controls
If TypeOf (Target) Is WebBrowser Then
CType(Target, WebBrowser).Navigate(URLComboBox.Text)
CType(Target, WebBrowser).WebBrowserShortcutsEnabled = True
Exit For
End If
ActiveBrowser.Navigate(URLComboBox.Text)
Next
StatusProgressBar.Increment(1)
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
If FinishTimer.Enabled = True Then
StatusProgressBar.Value = 100
End If
End Sub
Private Sub Home_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Home.Click
On Error Resume Next
ActiveBrowser.GoHome()
ActiveBrowser.Navigate("http://www.warezxtreme.org")
StatusProgressBar.Increment(1)
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
If FinishTimer.Enabled = True Then
StatusProgressBar.Value = 100
End If
End Sub
Private Function IsPopupWindow() As Boolean
On Error Resume Next
If ActiveBrowser.Document.ActiveElement.TagName = "BODY" Or WebBrowser.Document.ActiveElement.TagName = "IFRAME" Then
IsPopupWindow = True
Else
IsPopupWindow = False
End If
End Function
Private Sub Navigate(ByVal address As String)
If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
If Not address.StartsWith("http://") And _
Not address.StartsWith("https://") Then
address = "http://" & address
End If
Try
ActiveBrowser.Navigate(New Uri(address))
Catch ex As System.UriFormatException
Return
End Try
StatusProgressBar.Increment(1)
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
If FinishTimer.Enabled = True Then
StatusProgressBar.Value = 100
End If
End Sub
Private Sub RandomPasswordGeneratorToolMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RandomPasswordGeneratorToolMenu.Click
WarezXtremE_Random_Password_Generator.ShowDialog()
End Sub
Private Sub Refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshButton.Click
On Error Resume Next
ActiveBrowser.Refresh()
StatusProgressBar.Increment(1)
If StartTimer.Enabled = True Then
StatusProgressBar.Value = 0
End If
End Sub
Private Sub RestartFileMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestartFileMenu.Click
On Error Resume Next
Application.Restart()
End Sub
Script Error and Facebook Game error For WebBrowser
Reply With Quote
