Habbo Image machine ( NEW IMAGER ) + Source

Habbo Image Machine

The habbo image machine is an downloadable imager wich is very easy and fast to use.

Save Function:

I included a save function wich allows you to save your habbos so you do not need to enter the habbo name next time.

it automaticly checks for saved habbo and if it exist it will load it if it doesnt then it will load my account x]

you can reset the saved slot any time you want.

If you find anything norwegian in the program then im sorry because i first coded the program in norwegian language.

Global hotel function

I made it so you can enter any hotel you want.

Screenshot:
http://i175.photobucket.com/albums/w...emachiness.png

Explanations:

• Sml = Smile
• Agr = Angry
• Sad = Sad
• wav = Wave
• wlk = walk
• sit = sit
• b = big
• s = small

Download:

http://www.filesavr.com/habboimagemachine


please rate and download!

Source:

Code:

---

Public Class Form1
    ' Welcome to The Habbo image machine's source
    ' Please do not copy my source x]
    Dim Settings As New My.MySettings
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Checks if you got saved info, if not it will start normally!
        ' If you have saved it will load the info
        If Settings.habbo = "" Then
            MsgBox("Habbo Image Machine Found no saved Habbo, and is starting normally!", , "Habbo Image Machineen")
            PictureBox1.ImageLocation = "http://www.habbo.no/habbo-imaging/avatarimage?user=norway1234567&action=&direction=4&head_direction=3&gesture=sml&size=radio17"
            TextBox2.Text = PictureBox1.ImageLocation
            Label6.Text = "Norway1234567"
            Label8.Text = "habbo.no/home/norway1234567"
            Me.Text = "Habbo Image Machine - " & Label10.Text & " Norway1234567"
        Else
            MsgBox("The system found an saved habbo, it will automaticly load it!", , "Habbo Image Machine")
            TextBox1.Text = Settings.habbo
            TextBox3.Text = Settings.hotel
            Label6.Text = Settings.habbo
            Label8.Text = "habbo" & TextBox3.Text & "/home/" & Settings.habbo
            PictureBox1.ImageLocation = "http://www.habbo" & TextBox3.Text & "/habbo-imaging/avatarimage?user=" & Settings.habbo & "&action=&direction=4&head_direction=3&gesture=sml&size=radio17"
            TextBox2.Text = PictureBox1.ImageLocation
            Me.Text = "Habbo Image Machine - " & Label10.Text & " " & Settings.habbo
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Getting Image URL", , "Habbo Image Machine")
        TextBox2.Text = PictureBox1.ImageLocation
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Adder ny linje + forteller bruker linken til bildet.
        MsgBox("-- Habbo Image Machine --" & vbNewLine & "Image url is: " & vbNewLine & TextBox2.Text, , "Habbo Image Machine")
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' This is the imager
        ' It downloads images from webserver
        PictureBox1.ImageLocation = "http://www.habbo" & TextBox3.Text & "habbo-imaging/avatarimage?user=" & TextBox1.Text & "&action=" & ComboBox1.Text & "&direction=" & TrackBar1.Value & "&head_direction=" & TrackBar2.Value & "&gesture=" & ComboBox2.Text & "&size=radio17"
        TextBox2.Text = PictureBox1.ImageLocation
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' Another message :D
        MsgBox("-- Habbo Image Machine --" & vbNewLine & "Image Url is:" & vbNewLine & TextBox2.Text, , "Habbo Image Machine")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' Showing the colorchooser
        ColorDialog1.ShowDialog()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ' Sets backgrounds on the habbo
        PictureBox1.BackColor = ColorDialog1.Color
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ' Setting transparent background on the habbo.
        PictureBox1.BackColor = Color.Transparent
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Prints the information out to forms and text
        PictureBox1.ImageLocation = "http://www.habbo" & TextBox3.Text & "/habbo-imaging/avatarimage?user=" & TextBox1.Text & "&action=" & ComboBox1.Text & "&direction=" & TrackBar1.Value & "&head_direction=" & TrackBar2.Value & "&gesture=" & ComboBox2.Text & "&size=" & ComboBox3.Text
        TextBox2.Text = PictureBox1.ImageLocation
        Label6.Text = TextBox1.Text
        Label8.Text = "habbo" & TextBox3.Text & "/home/" & TextBox1.Text
        Me.Text = ("Habbo Image Machine - " & TextBox1.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ' Saves the habbo!
        If TextBox1.Text = "" Then
            MsgBox("You gotta enter a habbo.", , "Habbo Image Machine")
        Else
            MsgBox("Your habbo is saved!")
            Settings.habbo = TextBox1.Text
            Settings.hotel = TextBox3.Text
            Settings.Save()
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ' Deleting the habbo and cleaning every value in settings

        If Settings.habbo = "" Then
            MsgBox("TO delete a habbo you gotta have one saved!!!!", , "Habbo image machne")
        Else
            MsgBox("The Habbo is deleted!", , "Habbo Image machine")
        End If
        Settings.habbo = ""
        Settings.Save()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        ' Checks if you saved an habbo
        If Settings.habbo = "" Then
            MsgBox("You have no saved habbo's!")
        Else
            MsgBox("Opening saved Habbo", , "Habbo Image Machine")
            TextBox1.Text = Settings.habbo
            TextBox3.Text = Settings.hotel
            Label6.Text = Settings.habbo
            Label8.Text = "habbo" & Settings.hotel & "/home/" & Settings.habbo
            PictureBox1.ImageLocation = "http://www.habbo" & TextBox3.Text & "/habbo-imaging/avatarimage?user=" & Settings.habbo & "&action=&direction=4&head_direction=3&gesture=sml&size=radio17"
            TextBox2.Text = PictureBox1.ImageLocation
            Me.Text = "Habbo Image Machine - " & Label10.Text & " - " & Settings.habbo
        End If
    End Sub
End Class

---

Nicely done! 8.5/10 (nothing is perfect.)
offtopic: W00T First post

Hehe thank you ;-)

OMG this is so good!
i love it
10/10
!!
carry on with good coding:)

i like this i agree with ealo 10/10 well done

Thank you ;-) im glad you like it.

oh my god, why using a tool lol

Nice work emineem ;)
I'll test this out ^^

hehe report in soon then ricky ;-)

Takk skal du ha :)
( English: Thank you :) )

Hehe takk (english= thanks)

Awesome work on this emineem.
It works perfectly.

If possible,
try to make it update right away after someone changes something.

Idno how to make it instant change xD

Nice release , 10/10

Kjempebra, jeg likte det der! Selv bruker jeg en fanside, men samma det.. dritbra :D

please upload to a other host then rapidshare

I don't want to be mean :P But there are enough sites where you can generate that ;) Why use an exe if you can use less kb/mb's? Anyways, 7.5/10. 7.5 because you're not the first one who made this;)

Ncie job 10/10 But didnt monster already relase a image generator??????

Lol zomg big deal.... seen it 500 times... nothing special about it... oh wait? you can put a dildo in the habbo's ear?!?!?!?!!?! oh no?... fuck this then, its been released in fansites etc... why would anyone want an app of it thats stupid lol

Moogly, you do not have to be so mean, he is OBVIOUSLY a beginner....

I commend you for actually trying to code and learn and I think your program is good!

Fuck you moogly XD

Don't use RapidShare links unless it's a premium download hoster. Also, may some generous person upload this using RZ's own uploader?

Mirror changed to my premium acc on filesavr =D

<img>http://www.habbo.com.br/habbo-imaging/avatarimage?user=cicerolucas&action=0&direction=4&head_direction=3&img_format=gif&gesture=0</img

<img src="http://www.habbo.com.br/habbo-imaging/avatarimage?user=cicerolucas&action=0&direction=4&head_direction=3&img_format=gif&gesture=0">

w00t last post 0.o

the file isnt workin at.. http://www.filesavr.com/habboimagemachine

9/10 i think there needs more backrounds like Pitchure backrounds

Quote:

---

Originally Posted by Moogly

Lol zomg big deal.... seen it 500 times... nothing special about it... oh wait? you can put a dildo in the habbo's ear?!?!?!?!!?! oh no?... fuck this then, its been released in fansites etc... why would anyone want an app of it thats stupid lol

---

wow moogly total spammage who cares if its on fansites at least he did a good job

nice release 10/10

Ty :) <3
Very nice

nice, how did you coded it?

You can use option values, so you don't have to have those abbreviations for actions.

HEY!! I want to download this Imager :S but it doesnt exist somehow anymore, please help me with this :(