Script Error and Facebook Game error For WebBrowser

Hi ive been teaching meself and a little bit of help from you guys :>
But i seem to have a bit of problem keep Getting Script Error on facebook and some games load Straight Away (Picture below)

http://i35.tinypic.com/j7ffp0.jpg

say i go back to me profile on facebook then wanna go back to the game i was just playing it does this

http://i37.tinypic.com/2rwt9n7.png

Says Its Loading Config But it doesnt

Its like it Doesnt want to load it again And here is a pic of the scipt errors i keep getting below......Can Anyone Help Me With this Thanks

http://i33.tinypic.com/2hycm6f.jpg


Please Can SomeOne Help Me

Update your version of IE.

i Have the Updated Version Of IE i have IE8 but i dont think i used the IE WebBrowser Control to mine i Think i did it my self lol i think i did lol can anyone help me cause my IE8 is Fine :> So it Musnt be IE8 web broswer Control In My App Must be Me own Never Had IE6 IE7 Running Windows 7
can Anyone Help Me???

Post the code you are using.

vb Code:

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

vb Code:

Private Sub TabControl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl.SelectedIndexChanged
        On Error Resume Next
        TabPage1.Name = CType(TabControl.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString()
        Dim CurrentBrowser As WebBrowser
        CurrentBrowser = CType(sender, TabControl).SelectedTab.Controls(0)
        Me.DisplayPageTitle()
 
 
        Dim url As Uri = Me.ActiveBrowser.Url
 
        If url Is Nothing Then
            'There is no current address.
            URLComboBox.Text = String.Empty
 
            'The user cannot refresh a page that doesn't exist.
 
            RefreshButton.Enabled = False
        Else
            'Display the current page address in the address bar.
            URLComboBox.Text = url.ToString()
 
            'Allow the user to refresh the current page.
 
            RefreshButton.Enabled = True
        End If
 
 
    End Sub
 
    Private Sub URLComboBox_KeyDown_(ByVal sender As Object, ByVal e As KeyEventArgs) Handles URLComboBox.KeyDown
        On Error Resume Next
        If (e.KeyCode = Keys.Enter) Then
            Navigate(URLComboBox.Text)
 
            StatusProgressBar.Increment(1)
            If StartTimer.Enabled = True Then
                StatusProgressBar.Value = 0
            End If
            If FinishTimer.Enabled = True Then
                StatusProgressBar.Value = 100
            End If
 
        End If
    End Sub
    Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted
        On Error Resume Next
        URLComboBox.Text = CType(TabControl.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
        StatusProgressBar.Increment(1)
        URLStatusLabel.Text = Me.ActiveBrowser.StatusText
        URLStatusLabel.Text = ("Waiting for ") & Me.URLComboBox.Text
        URLStatusLabel.Text = Me.URLComboBox.Text & (Me.ActiveBrowser.StatusText)
        Dim documentTitle As String = Me.ActiveBrowser.DocumentTitle
        If StartTimer.Enabled = True Then
            StatusProgressBar.Value = 0
        End If
        If FinishTimer.Enabled = True Then
            StatusProgressBar.Value = 100
        End If
        If StartTimer.Enabled = True Then
            StatusProgressBar.Value = 0
        End If
 
 
        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
        ActiveBrowser.Url.ToString()
    End Sub
    Private Sub WebBrowser_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs)
        On Error Resume Next
        URLComboBox.Text = ActiveBrowser.Url.ToString()
        'ActiveBrowser.Navigate(URLComboBox1.Text)
        'ActiveBrowser.WebBrowserShortcutsEnabled = True
 
        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 WebBrowser_StatusTextChanged(ByVal sender As Object, _
                                                     ByVal e As EventArgs) Handles WebBrowser.StatusTextChanged
        On Error Resume Next
        'Display the current page's status text in the status bar.
        URLStatusLabel.Text = Me.ActiveBrowser.StatusText
        URLStatusLabel.Text = ("Waiting for ") & Me.URLComboBox.Text
        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
 
 
 
End Class

Have you checked to see whether it is not a problem with face book itself rather than your program? Check face book in a IE or Fire Fox to make sure its not just an error with face book.

I have done IE8 Perfect not a foot wrong

i did check that before posting

do you know how to get rid of that script error thing cause that could be the cause of it :>

Have run your program in Visual Basic? Does it come back with a highlighted error?

yeap and it does not come back with a highlighted error

That error message is saying that there is an error with the script on the page. This has nothing to do with your program but rather poor web coding.

Edit:

What is the url of that page that has the error?

facebook (Has VBScript i think )
but doesnt have a problem with IE8

Try commenting out each section one at a time then test the program to see if the problem occurs.

that could take hours i just tryed the first web browser i made which is well different that does the same

Looking at your code I think there might need to be a stop procedure triggered after the back procedure. It seems like the browser is getting confused as to what is happening.

what you mean stop procedure after the back procedure tell me what add and do and ill add rep and resolve :P hehe :> thnks for helping me anyways

Try putting:

Code:

---

On Error Resume Next
        ActiveBrowser.Stop()
        If StartTimer.Enabled = True Then
            StatusProgressBar.Value = 0
        End If

---

In with browser back code and see if that helps!

nope didnt work gonna go bed now peace ill bump again tomoz

bump

i got same error......