- Joined
- Dec 26, 2007
- Messages
- 423
- Reaction score
- 12
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:
Explanations:
Download:
please rate and download!
Source:
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:
Explanations:
- Sml = Smile
- Agr = Angry
- Sad = Sad
- wav = Wave
- wlk = walk
- sit = sit
- b = big
- s = small
Download:
To view the content, you need to sign in or register
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
Last edited:
But there are enough sites where you can generate that 
