"Habbo Browser"

[Laurensh1]

Sorry, I never give up my FireFox

Anybody who has screens?

[Jordy]

Sorry, I never give up my FireFox

Anybody who has screens?

Yes, I'm exactly the same.

[Shawnstra]

Screenies pls

[OWNAGE]

That's cool i'm downloading now.

Link to .ico:
http://www.habbo.com.au/favicon.ico

And maybe code tabs? So you can just open a tab for a new clone.

And is it for a specific hotel or can you change address?

Thanks! This is a WIP, so next versions will have tabs and you can choose the hotel - I'll be trying later!

Sorry, I never give up my FireFox

Anybody who has screens?

This is helpful if you have a slow computer, plus in FF you can't login on more than 1 Habbo - I still love FF

Screenies pls

Screenies:

Me about to login.

Me logged in.


I'll just update the program, with the new icon, then I will work on tabs etc. If it's hard to code it may take me a while!

[OWNAGE]

Can't edit, but there's an update (v1.2.0.), not much updated but hey!

Update v1.2.0: http://www.uploadz.co.uk/17habbobrowserv1.2.zip

I'll try tabs today, and the hotel changer (so you type in .co.uk or .com or whatever, then it loads that hotel!)

I'm making this into a project, adding more things as I go along (and I learn more coding!)

[Jordy]

Can't edit, but there's an update (v1.2.0.), not much updated but hey!

Update v1.2.0: http://www.uploadz.co.uk/17habbobrowserv1.2.zip

I'll try tabs today, and the hotel changer (so you type in .co.uk or .com or whatever, then it loads that hotel!)

I'm making this into a project, adding more things as I go along (and I learn more coding!)

I recommend submitting it to www.habboring.com to add to their downloads page, it'd probably make it a lot more well known.

[OWNAGE]

I recommend submitting it to www.habboring.com to add to their downloads page, it'd probably make it a lot more well known.

Thanks very much Jordy, +rep

[Lozzoling]

i can clone normally anyway?

[OMGitsaROSS]

tabs:

Just change the CITY State bits etc.

' Create a new address tab.
Private Sub cmdAddTab_Click()
Dim frame_index As Integer
Dim cbo_item As Integer

    ' Create the new tab.
    tabSections.Tabs.Add , , "Address " & _
        Format$(tabSections.Tabs.Count + 1)

    ' Create the new frame.
    frame_index = tabSections.Tabs.Count - 1
    Load fraTab(frame_index)
    ' Make the new frame set on top of the TabStrip.
    fraTab(frame_index).ZOrder
    ' Position the frame over the TabStrip.
    PositionFrame fraTab(frame_index)

    ' Make the new fields for the frame.
    Load lblName(frame_index)
    With lblName(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblName(0).Left, lblName(0).Top
        .Visible = True
    End With

    Load lblAddress(frame_index)
    With lblAddress(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblAddress(0).Left, lblAddress(0).Top
        .Visible = True
    End With

    Load lblCity(frame_index)
    With lblCity(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblCity(0).Left, lblCity(0).Top
        .Visible = True
    End With

    Load lblState(frame_index)
    With lblState(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblState(0).Left, lblState(0).Top
        .Visible = True
    End With

    Load lblZip(frame_index)
    With lblZip(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblZip(0).Left, lblZip(0).Top
        .Visible = True
    End With

    Load txtName(frame_index)
    With txtName(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtName(0).Left, txtName(0).Top
        .Visible = True
    End With

    Load txtAddress(frame_index)
    With txtAddress(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtAddress(0).Left, txtAddress(0).Top
        .Visible = True
    End With

    Load txtCity(frame_index)
    With txtCity(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtCity(0).Left, txtCity(0).Top
        .Visible = True
    End With

    Load cboState(frame_index)
    With cboState(frame_index)
        Set .Container = fraTab(frame_index)
        .Move cboState(0).Left, cboState(0).Top
        For cbo_item = 0 To cboState(0).ListCount - 1
            .AddItem cboState(0).List(cbo_item)
        Next cbo_item
        .Visible = True
    End With

    Load txtZip(frame_index)
    With txtZip(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtZip(0).Left, txtZip(0).Top
        .Visible = True
    End With
End Sub

[OWNAGE]

i can clone normally anyway?

I can't, it either logs me out or says I'm already logged in. What browser are you using?

tabs:

Just change the CITY State bits etc.

' Create a new address tab.
Private Sub cmdAddTab_Click()
Dim frame_index As Integer
Dim cbo_item As Integer

    ' Create the new tab.
    tabSections.Tabs.Add , , "Address " & _
        Format$(tabSections.Tabs.Count + 1)

    ' Create the new frame.
    frame_index = tabSections.Tabs.Count - 1
    Load fraTab(frame_index)
    ' Make the new frame set on top of the TabStrip.
    fraTab(frame_index).ZOrder
    ' Position the frame over the TabStrip.
    PositionFrame fraTab(frame_index)

    ' Make the new fields for the frame.
    Load lblName(frame_index)
    With lblName(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblName(0).Left, lblName(0).Top
        .Visible = True
    End With

    Load lblAddress(frame_index)
    With lblAddress(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblAddress(0).Left, lblAddress(0).Top
        .Visible = True
    End With

    Load lblCity(frame_index)
    With lblCity(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblCity(0).Left, lblCity(0).Top
        .Visible = True
    End With

    Load lblState(frame_index)
    With lblState(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblState(0).Left, lblState(0).Top
        .Visible = True
    End With

    Load lblZip(frame_index)
    With lblZip(frame_index)
        Set .Container = fraTab(frame_index)
        .Move lblZip(0).Left, lblZip(0).Top
        .Visible = True
    End With

    Load txtName(frame_index)
    With txtName(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtName(0).Left, txtName(0).Top
        .Visible = True
    End With

    Load txtAddress(frame_index)
    With txtAddress(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtAddress(0).Left, txtAddress(0).Top
        .Visible = True
    End With

    Load txtCity(frame_index)
    With txtCity(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtCity(0).Left, txtCity(0).Top
        .Visible = True
    End With

    Load cboState(frame_index)
    With cboState(frame_index)
        Set .Container = fraTab(frame_index)
        .Move cboState(0).Left, cboState(0).Top
        For cbo_item = 0 To cboState(0).ListCount - 1
            .AddItem cboState(0).List(cbo_item)
        Next cbo_item
        .Visible = True
    End With

    Load txtZip(frame_index)
    With txtZip(frame_index)
        Set .Container = fraTab(frame_index)
        .Move txtZip(0).Left, txtZip(0).Top
        .Visible = True
    End With
End Sub

Thanks a lot! What is all the txtzip etc?