(adsbygoogle = window.adsbygoogle || []).push({});

Sweet hack

Not really a hack... i wanna check these "glitches" (which are actually easter eggs as they are there on perpose)

How did you code this?

please tell me you diddn't go through every code like:

    if textbox1.text = "0710102" then



textbox2.text = "DNS Error ("DSN server isn't available")



end if

---------- Post added at 11:54 PM ---------- Previous post was at 11:50 PM ----------

please, if you get a better database of error codes together then pm me. We could make a really useful v1.7 program with a update feature.

What means error code 80029563?

    Imports Microsoft.VisualBasic.CompilerServices

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Diagnostics

Imports System.Drawing

Imports System.Runtime.CompilerServices

Imports System.Windows.Forms



Namespace PS3_Error_Code_Tool

    <esignerGenerated> _

    Public Class Form1

        Inherits Form

        ' Methods

        <ebuggerNonUserCode> _

        Public Sub New()

            Form1.__ENCAddToList(Me)

            Me.InitializeComponent

        End Sub



        <ebuggerNonUserCode> _

        Private Shared Sub __ENCAddToList(ByVal value As Object)

            Dim list As List(Of WeakReference) = Form1.__ENCList

            SyncLock list

                If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then

                    Dim index As Integer = 0

                    Dim num3 As Integer = (Form1.__ENCList.Count - 1)

                    Dim i As Integer = 0

                    Do While (i <= num3)

                        Dim reference As WeakReference = Form1.__ENCList.Item(i)

                        If reference.IsAlive Then

                            If (i <> index) Then

                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)

                            End If

                            index += 1

                        End If

                        i += 1

                    Loop

                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))

                    Form1.__ENCList.Capacity = Form1.__ENCList.Count

                End If

                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))

            End SyncLock

        End Sub



        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

            If (Me.TextBox1.Text = "8001050B") Then

                Me.RichTextBox1.Text = "Will not play demo games installed on the hard drive when Blu-ray disc is inserted"

            End If

            If (Me.TextBox1.Text = "0710102") Then

                Me.RichTextBox1.Text = "DNS Error, DSN server isn't available"

            End If

            If (Me.TextBox1.Text = "80010510") Then

                Me.RichTextBox1.Text = "Will not play games installed on the hard drive"

            End If

            If (Me.TextBox1.Text = "8002B241") Then

                Me.RichTextBox1.Text = "DVI has no audio"

            End If

            If (Me.TextBox1.Text = "80029023") Then

                Me.RichTextBox1.Text = "Exchanging Key Information exchange has timed out"

            End If

            If (Me.TextBox1.Text = "80029024") Then

                Me.RichTextBox1.Text = "The attempt to obtain an IP address has timed out"

            End If

            If (Me.TextBox1.Text = "80029564") Then

                Me.RichTextBox1.Text = "Downloaded game will not install"

            End If

            If (Me.TextBox1.Text = "8002F997") Then

                Me.RichTextBox1.Text = "Can not update XMB Firmware"

            End If

            If (Me.TextBox1.Text = "8003051E") Then

                Me.RichTextBox1.Text = "Game will not save"

            End If

            If (Me.TextBox1.Text = "80031150") Then

                Me.RichTextBox1.Text = "System settings fail to save (Setting information is corrupted. Press the X button to repair and restore default)"

            End If

            If (Me.TextBox1.Text = "80130203") Then

                Me.RichTextBox1.Text = "PS3 connects to the Internet but not to the Network (Usually means that the required ports are not open)"

            End If

            If (Me.TextBox1.Text = "80710092") Then

                Me.RichTextBox1.Text = "An error has occurred. you've been signed out from the ps network (Your Internet connection may have dropped)"

            End If

            If (Me.TextBox1.Text = "80710102") Then

                Me.RichTextBox1.Text = "PS3 Cannot connect to the router with current IP information (Try rebooting your router)"

            End If

            If (Me.TextBox1.Text = "80710541") Then

                Me.RichTextBox1.Text = "The connection to the server timed out"

            End If

            If (Me.TextBox1.Text = "80710B23") Then

                Me.RichTextBox1.Text = "PS3 Network is down or the PS3 Network is too busy to respond"

            End If

            If (Me.TextBox1.Text = "80710D23") Then

                Me.RichTextBox1.Text = "Turn the PS3 off for approx. 30 minutes with the power toggle, not standby mode"

            End If

            If (Me.TextBox1.Text = "80029024") Then

                Me.RichTextBox1.Text = "Cannot Obtain an IP address"

            End If

            If (Me.TextBox1.Text = "8002F997") Then

                Me.RichTextBox1.Text = "Trying to update the Firmware, copying to a file and installing from a USB drive failed"

            End If

            If (Me.TextBox1.Text = "80710016") Then

                Me.RichTextBox1.Text = "Playstation Network is down"

            End If

            If (Me.TextBox1.Text = "8013013E") Then

                Me.RichTextBox1.Text = "WEP Key error, change WEP key to all numbers (on router homepage) and try again, or switch to WPA"

            End If

            If (Me.TextBox1.Text = "8071053D") Then

                Me.RichTextBox1.Text = "Hard boot the PS3, turn off the PS3 to stand-by, flip off the back switch and completely remove the power cord. Shut off your modem/router, for approx. 5 minutes, then turn the modem back up first and let it sync. Then turn the router back on (if you're using one) and let it sync. Reconnect your power cable and flip the back switch up again. Then make a new network connection"

            End If

            If (Me.TextBox1.Text = "8013030F") Then

                Me.RichTextBox1.Text = "Check Router Page, SSID Broadcasting possibly off"

            End If

            If (Me.TextBox1.Text = "8002F994") Then

                Me.RichTextBox1.Text = "Too many people downloading the update (download it later on)"

            End If

            If (Me.TextBox1.Text = "80028F10") Then

                Me.RichTextBox1.Text = "Go to Display Settings then HDMI (or whatever your connection is) and instead of Custom choose Automatic"

            End If

            If (Me.TextBox1.Text = "8002A705") Then

                Me.RichTextBox1.Text = "Unable to connect to server/host (check router port configuration)"

            End If

            If (Me.TextBox1.Text = "80030920") Then

                Me.RichTextBox1.Text = "An error occurred during the copy operation, the file may be corrupt or there isn't enough memory (Try copying data from original source)"

            End If

            If (Me.TextBox1.Text = "80029945") Then

                Me.RichTextBox1.Text = "Can" & ChrW(8217) & "t playback burn BDr movie"

            End If

            If (Me.TextBox1.Text = "8013030") Then

                Me.RichTextBox1.Text = "System Error due to failed update download."

            End If

            If (Me.TextBox1.Text = "80010001") Then

                Me.RichTextBox1.Text = "Major Error , Game ability stopped."

            End If

            If (Me.TextBox1.Text = "80010017") Then

                Me.RichTextBox1.Text = "Can't start Blu-Ray Game."

            End If

            If (Me.TextBox1.Text = "80010516") Then

                Me.RichTextBox1.Text = "An error occured during the start operation; Ps1 game swapped using the eject function and then play pressed quickly, ps1 game inserted again."

            End If

            If (Me.TextBox1.Text = "80031601") Then

                Me.RichTextBox1.Text = "Error Creating Account."

            End If

            If (Me.TextBox1.Text = "80410418") Then

                Me.RichTextBox1.Text = "DNS Error."

            End If

            If (Me.TextBox1.Text = "80710101") Then

                Me.RichTextBox1.Text = "Conneciton error."

            End If

            If (Me.TextBox1.Text = "80710102") Then

                Me.RichTextBox1.Text = "IP conflict , PS3 Cannot connect to the router with current IP information - Try rebooting your router."

            End If

            If (Me.TextBox1.Text = "8071040C") Then

                Me.RichTextBox1.Text = "The PSN is handling too many connections, reboot PS3 and try again."

            End If

            If (Me.TextBox1.Text = "80710723") Then

                Me.RichTextBox1.Text = "Possible Port Error - Try opening ports , TCP port: 80, 443, 5223 and UDP port: 3478, 3479, 3658. or add PS3 to DMZ."

            End If

            If (Me.TextBox1.Text = "81019002") Then

                Me.RichTextBox1.Text = "Error copying saves from location A to location B not open to connect to store but PS3 can connect to internet."

            End If

            If (Me.TextBox1.Text = "8001050D") Then

                Me.RichTextBox1.Text = "An error occured during the start operation; Ps3 game swapped using the eject function and then play pressed quickly - ps3 game inserted again."

            End If

            If (Me.TextBox1.Text = "80028EA5") Then

                Me.RichTextBox1.Text = "This error is unknown. User cannot connect to PS3 network. Sony told the user to send the machine in."

            End If

            If (Me.TextBox1.Text = "80028EA6") Then

                Me.RichTextBox1.Text = "Connection error , Possible Proxy error power cord. Then shut off your modem/router, for about 5 mintues, then turn the modem back up first and let it sync, then turn the router back on(if using one) and let it sycn. Reconnect your power cable and flip the back swtich up again. Then make a new network connnection."

            End If

            If (Me.TextBox1.Text = "80028F17") Then

                Me.RichTextBox1.Text = "Ps2 disc Boot Error , An error occured during the start operation; Ps2 game swapped using the eject function and then play pressed quickly - Backup ps2 game inserted again (ps3rips)."

            End If

            If (Me.TextBox1.Text = "80028F18") Then

                Me.RichTextBox1.Text = "Ps2 Disc Error, unsupported disc; eg. Utility discs, BB discs, IQ Remix game etc. ode)."

            End If

            If (Me.TextBox1.Text = "80028F19") Then

                Me.RichTextBox1.Text = "PS2 Disc Error , fsck; the internal PS2 disk got corrupted and I guess that you can use HDD utility disc to fix it."

            End If

            If (Me.TextBox1.Text = "80028F1A") Then

                Me.RichTextBox1.Text = "Ps2 Disc Error , invalbnnetcfg; network config error."

            End If

            If (Me.TextBox1.Text = "80029C68") Then

                Me.RichTextBox1.Text = "Corrupt data usually on external device."

            End If

            If (Me.TextBox1.Text = "8002A10D") Then

                Me.RichTextBox1.Text = "Unable to Add friend in XMB."

            End If

            If (Me.TextBox1.Text = "8002A4A6") Then

                Me.RichTextBox1.Text = "Cannot load game to play online."

            End If

            If (Me.TextBox1.Text = "8002A515") Then

                Me.RichTextBox1.Text = "Error Signing in."

            End If

            If (Me.TextBox1.Text = "8002A548") Then

                Me.RichTextBox1.Text = "Unable to remain logged in - either to game or server."

            End If

            If (Me.TextBox1.Text = "8002A71A") Then

                Me.RichTextBox1.Text = "Possible NAT Error , Can log onto Game Server but can't join game and can't host game."

            End If

            If (Me.TextBox1.Text = "8013013D") Then

                Me.RichTextBox1.Text = "A connection error has occurred - Maybe to do with the SSID of the Router or signal strength if the conneciton drops Putting the PS3 into DMZ may help - otherwise check WPA key Ps3 can't handle WPA2 only WPA or none."

            End If

            If (Me.TextBox1.Text = "8013030F") Then

                Me.RichTextBox1.Text = "Access Point not detected."

            End If

            If (Me.TextBox1.Text = "80410A0B") Then

                Me.RichTextBox1.Text = "Internal PSP error, hardware fault. Send back to be replaced/fixed."

            End If

            If (Me.TextBox1.Text = "807101FF") Then

                Me.RichTextBox1.Text = "An error occurred during communication with the server. This is a DNS error."

            End If

            If (Me.TextBox1.Text = "80710D23") Then

                Me.RichTextBox1.Text = "Turn the PS3 off for a bit (30 minutes give or take) with the power toggle (not standby XMB or touch button)."

            End If

            If (Me.TextBox1.Text = "80029513") Then

                Me.RichTextBox1.Text = "Copyright Violation when attempting to install game."

            End If

            If (Me.TextBox1.Text = "80010514") Then

                Me.RichTextBox1.Text = "Disc error detected. Retrying operation."

            End If

            If (Me.TextBox1.Text = "80010036") Then

                Me.RichTextBox1.Text = "An error occured during the delete operation error."

            End If

            If (Me.TextBox1.Text = "80010014") Then

                Me.RichTextBox1.Text = "Has to do with downloading from the PSN, When you have bought a game and this error occurs, please go to your recently downloaded/purchases to download it first try."

            End If

            If (Me.TextBox1.Text = "8002F147") Then

                Me.RichTextBox1.Text = "Cannot update the firmware, Possible solutions, turn off proxys, try not using a firewall, and/or turn off UnuP support."

            End If

            If (Me.TextBox1.Text = "80029C9C") Then

                Me.RichTextBox1.Text = "The data type is not supported."

            End If

            If (Me.TextBox1.Text = "") Then

                MessageBox.Show("Could find error code. Please search around the internet")

            End If

        End Sub



        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)

            Me.Close

        End Sub



        <ebuggerNonUserCode> _

        Protected Overrides Sub Dispose(ByVal disposing As Boolean)

            Try 

                If (disposing AndAlso (Not Me.components Is Nothing)) Then

                    Me.components.Dispose

                End If

            Finally

                MyBase.Dispose(disposing)

            End Try

        End Sub



        <ebuggerStepThrough> _

        Private Sub InitializeComponent()

            Me.TextBox1 = New TextBox

            Me.Label1 = New Label

            Me.Button1 = New Button

            Me.RichTextBox1 = New RichTextBox

            Me.Label2 = New Label

            Me.Button2 = New Button

            Me.SuspendLayout

            Dim point2 As New Point(&H17, &H2C)

            Me.TextBox1.Location = point2

            Me.TextBox1.Name = "TextBox1"

            Dim size2 As New Size(&HCC, 20)

            Me.TextBox1.Size = size2

            Me.TextBox1.TabIndex = 0

            Me.Label1.AutoSize = True

            Me.Label1.Font = New Font("Verdana", 9!, FontStyle.Regular, GraphicsUnit.Point, 0)

            point2 = New Point(20, &H15)

            Me.Label1.Location = point2

            Me.Label1.Name = "Label1"

            size2 = New Size(&HB7, 14)

            Me.Label1.Size = size2

            Me.Label1.TabIndex = 1

            Me.Label1.Text = "Enter Your Error Code Here."

            point2 = New Point(&HF3, &H26)

            Me.Button1.Location = point2

            Me.Button1.Name = "Button1"

            size2 = New Size(&H5F, 30)

            Me.Button1.Size = size2

            Me.Button1.TabIndex = 2

            Me.Button1.Text = "Find Error"

            Me.Button1.UseVisualStyleBackColor = True

            Me.RichTextBox1.Font = New Font("Microsoft Sans Serif", 9!, FontStyle.Regular, GraphicsUnit.Point, 0)

            point2 = New Point(&H17, &H5

            Me.RichTextBox1.Location = point2

            Me.RichTextBox1.Name = "RichTextBox1"

            size2 = New Size(&H13B, &H60)

            Me.RichTextBox1.Size = size2

            Me.RichTextBox1.TabIndex = 3

            Me.RichTextBox1.Text = ""

            Me.Label2.AutoSize = True

            Me.Label2.Font = New Font("Verdana", 9!, FontStyle.Regular, GraphicsUnit.Point, 0)

            point2 = New Point(20, &H47)

            Me.Label2.Location = point2

            Me.Label2.Name = "Label2"

            size2 = New Size(&H3B, 14)

            Me.Label2.Size = size2

            Me.Label2.TabIndex = 4

            Me.Label2.Text = "Reason:"

            point2 = New Point(&H17, &HC9)

            Me.Button2.Location = point2

            Me.Button2.Name = "Button2"

            size2 = New Size(&H13B, &H25)

            Me.Button2.Size = size2

            Me.Button2.TabIndex = 5

            Me.Button2.Text = "Close"

            Me.Button2.UseVisualStyleBackColor = True

            Dim ef2 As New SizeF(6!, 13!)

            Me.AutoScaleDimensions = ef2

            Me.AutoScaleMode = AutoScaleMode.Font

            size2 = New Size(&H16B, 250)

            Me.ClientSize = size2

            Me.Controls.Add(Me.Button2)

            Me.Controls.Add(Me.Label2)

            Me.Controls.Add(Me.RichTextBox1)

            Me.Controls.Add(Me.Button1)

            Me.Controls.Add(Me.Label1)

            Me.Controls.Add(Me.TextBox1)

            Me.Name = "Form1"

            Me.Text = "PS3 Error Code Tool v1.6"

            Me.ResumeLayout(False)

            Me.PerformLayout

        End Sub



        Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)

            If (Me.RichTextBox1.Text = "LOL") Then

                MessageBox.Show("Dont **** Around. Kay?")

            End If

        End Sub





        ' Properties

        Friend Overridable Property Button1 As Button

            <ebuggerNonUserCode> _

            Get

                Return Me._Button1

            End Get

            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

            Set(ByVal WithEventsValue As Button)

                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)

                If (Not Me._Button1 Is Nothing) Then

                    RemoveHandler Me._Button1.Click, handler

                End If

                Me._Button1 = WithEventsValue

                If (Not Me._Button1 Is Nothing) Then

                    AddHandler Me._Button1.Click, handler

                End If

            End Set

        End Property



        Friend Overridable Property Button2 As Button

            <ebuggerNonUserCode> _

            Get

                Return Me._Button2

            End Get

            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

            Set(ByVal WithEventsValue As Button)

                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)

                If (Not Me._Button2 Is Nothing) Then

                    RemoveHandler Me._Button2.Click, handler

                End If

                Me._Button2 = WithEventsValue

                If (Not Me._Button2 Is Nothing) Then

                    AddHandler Me._Button2.Click, handler

                End If

            End Set

        End Property



        Friend Overridable Property Label1 As Label

            <ebuggerNonUserCode> _

            Get

                Return Me._Label1

            End Get

            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

            Set(ByVal WithEventsValue As Label)

                Me._Label1 = WithEventsValue

            End Set

        End Property



        Friend Overridable Property Label2 As Label

            <ebuggerNonUserCode> _

            Get

                Return Me._Label2

            End Get

            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

            Set(ByVal WithEventsValue As Label)

                Me._Label2 = WithEventsValue

            End Set

        End Property



        Friend Overridable Property RichTextBox1 As RichTextBox

            <ebuggerNonUserCode> _

            Get

                Return Me._RichTextBox1

            End Get

            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

            Set(ByVal WithEventsValue As RichTextBox)

                Dim handler As EventHandler = New EventHandler(AddressOf Me.RichTextBox1_TextChanged)

                If (Not Me._RichTextBox1 Is Nothing) Then

                    RemoveHandler Me._RichTextBox1.TextChanged, handler

                End If

                Me._RichTextBox1 = WithEventsValue

                If (Not Me._RichTextBox1 Is Nothing) Then

                    AddHandler Me._RichTextBox1.TextChanged, handler

                End If

            End Set

        End Property



        Friend Overridable Property TextBox1 As TextBox

            <ebuggerNonUserCode> _

            Get

                Return Me._TextBox1

            End Get

            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _

            Set(ByVal WithEventsValue As TextBox)

                Me._TextBox1 = WithEventsValue

            End Set

        End Property





        ' Fields

        Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)

        <AccessedThroughProperty("Button1")> _

        Private _Button1 As Button

        <AccessedThroughProperty("Button2")> _

        Private _Button2 As Button

        <AccessedThroughProperty("Label1")> _

        Private _Label1 As Label

        <AccessedThroughProperty("Label2")> _

        Private _Label2 As Label

        <AccessedThroughProperty("RichTextBox1")> _

        Private _RichTextBox1 As RichTextBox

        <AccessedThroughProperty("TextBox1")> _

        Private _TextBox1 As TextBox

        Private components As IContainer

    End Class

End Namespace

thanks bro

Yeah, it could be done a lot better lol. Too many if statements...

Also, @ OP
Thanks for the original posting thread.. I updated my Program with the info earlier today when you posted the errors and their respected meanings, at around 5pm ish.


You must login or register to view this content.