its save:
This is the source.. well the form1 thingy
Code:
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 habbowebbuild
<DesignerGenerated> _
Public Class Form1
Inherits Form
' Methods
<DebuggerNonUserCode> _
Public Sub New()
Form1.__ENCAddToList(Me)
Me.InitializeComponent
End Sub
<DebuggerNonUserCode> _
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
<DebuggerNonUserCode> _
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
<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.components = New Container
Dim manager As New ComponentResourceManager(GetType(Form1))
Me.WebBrowser1 = New WebBrowser
Me.RichTextBox1 = New RichTextBox
Me.Timer1 = New Timer(Me.components)
Me.TextBox1 = New TextBox
Me.Label1 = New Label
Me.SuspendLayout
Dim point2 As New Point(&H1C5, &H19)
Me.WebBrowser1.Location = point2
Dim size2 As New Size(20, 20)
Me.WebBrowser1.MinimumSize = size2
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.ScrollBarsEnabled = False
size2 = New Size(20, 20)
Me.WebBrowser1.Size = size2
Me.WebBrowser1.TabIndex = 0
Me.WebBrowser1.TabStop = False
Me.WebBrowser1.Url = New Uri("http://www.habbo.com", UriKind.Absolute)
Me.WebBrowser1.Visible = False
point2 = New Point(&H1DF, &H19)
Me.RichTextBox1.Location = point2
Me.RichTextBox1.Name = "RichTextBox1"
size2 = New Size(20, 20)
Me.RichTextBox1.Size = size2
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.TabStop = False
Me.RichTextBox1.Text = ""
Me.Timer1.Interval = &H1388
Me.TextBox1.BackColor = SystemColors.ActiveCaptionText
Me.TextBox1.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
Me.TextBox1.ForeColor = Color.Cyan
point2 = New Point(12, &H19)
Me.TextBox1.Location = point2
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
size2 = New Size(&H135, 20)
Me.TextBox1.Size = size2
Me.TextBox1.TabIndex = 2
Me.TextBox1.TextAlign = HorizontalAlignment.Center
Me.Label1.AutoSize = True
Me.Label1.Font = New Font("Microsoft Sans Serif", 8.25!, (FontStyle.Italic Or FontStyle.Bold), GraphicsUnit.Point, 0)
point2 = New Point(12, 9)
Me.Label1.Location = point2
Me.Label1.Name = "Label1"
size2 = New Size(&H72, 13)
Me.Label1.Size = size2
Me.Label1.TabIndex = 1
Me.Label1.Text = "Current Web Build:"
Dim ef2 As New SizeF(6!, 13!)
Me.AutoScaleDimensions = ef2
Me.AutoScaleMode = AutoScaleMode.Font
size2 = New Size(&H149, &H39)
Me.ClientSize = size2
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.WebBrowser1)
Me.FormBorderStyle = FormBorderStyle.FixedSingle
Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "Habbo.com Web Build -:- Coded by AnusPower"
Me.ResumeLayout(False)
Me.PerformLayout
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim text As String = Me.RichTextBox1.Text
Dim startIndex As Integer = ([text].IndexOf("var habboStaticFilePath = ""http://images.habbo.com/habboweb/") + 60)
Dim index As Integer = [text].IndexOf("/web-gallery"";", startIndex)
Me.TextBox1.Text = [text].Substring(startIndex, (index - startIndex))
[text] = Nothing
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As WebBrowserProgressChangedEventArgs)
Me.RichTextBox1.Text = Me.WebBrowser1.DocumentText
End Sub
' Properties
Friend Overridable Property Label1 As Label
<DebuggerNonUserCode> _
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 RichTextBox1 As RichTextBox
<DebuggerNonUserCode> _
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
<DebuggerNonUserCode> _
Get
Return Me._TextBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox1 = WithEventsValue
End Set
End Property
Friend Overridable Property Timer1 As Timer
<DebuggerNonUserCode> _
Get
Return Me._Timer1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Timer)
Me._Timer1 = WithEventsValue
End Set
End Property
Friend Overridable Property WebBrowser1 As WebBrowser
<DebuggerNonUserCode> _
Get
Return Me._WebBrowser1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As WebBrowser)
Dim handler As WebBrowserProgressChangedEventHandler = New WebBrowserProgressChangedEventHandler(AddressOf Me.WebBrowser1_ProgressChanged)
If (Not Me._WebBrowser1 Is Nothing) Then
RemoveHandler Me._WebBrowser1.ProgressChanged, handler
End If
Me._WebBrowser1 = WithEventsValue
If (Not Me._WebBrowser1 Is Nothing) Then
AddHandler Me._WebBrowser1.ProgressChanged, handler
End If
End Set
End Property
' Fields
Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
<AccessedThroughProperty("Label1")> _
Private _Label1 As Label
<AccessedThroughProperty("RichTextBox1")> _
Private _RichTextBox1 As RichTextBox
<AccessedThroughProperty("TextBox1")> _
Private _TextBox1 As TextBox
<AccessedThroughProperty("Timer1")> _
Private _Timer1 As Timer
<AccessedThroughProperty("WebBrowser1")> _
Private _WebBrowser1 As WebBrowser
Private components As IContainer
End Class
End Namespace
Habbo Web Build Checker
Originally Posted by Tha
