-
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
-
Re: Habbo Image machine ( NEW IMAGER )
Nicely done! 8.5/10 (nothing is perfect.)
offtopic: W00T First post
-
Re: Habbo Image machine ( NEW IMAGER )
-
Re: Habbo Image machine ( NEW IMAGER )
OMG this is so good!
i love it
10/10
!!
carry on with good coding:)
-
Re: Habbo Image machine ( NEW IMAGER )
i like this i agree with ealo 10/10 well done
-
Re: Habbo Image machine ( NEW IMAGER )
Thank you ;-) im glad you like it.
-
Re: Habbo Image machine ( NEW IMAGER )
oh my god, why using a tool lol
-
Re: Habbo Image machine ( NEW IMAGER )
Nice work emineem ;)
I'll test this out ^^
-
Re: Habbo Image machine ( NEW IMAGER )
hehe report in soon then ricky ;-)
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Takk skal du ha :)
( English: Thank you :) )
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Hehe takk (english= thanks)
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Awesome work on this emineem.
It works perfectly.
If possible,
try to make it update right away after someone changes something.
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Idno how to make it instant change xD
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Kjempebra, jeg likte det der! Selv bruker jeg en fanside, men samma det.. dritbra :D
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
please upload to a other host then rapidshare
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
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;)
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Ncie job 10/10 But didnt monster already relase a image generator??????
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
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
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
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!
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Don't use RapidShare links unless it's a premium download hoster. Also, may some generous person upload this using RZ's own uploader?
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
Mirror changed to my premium acc on filesavr =D
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
<img>http://www.habbo.com.br/habbo-imaging/avatarimage?user=cicerolucas&action=0&direction=4&head_direction=3&img_format=gif&gesture=0</img
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
<img src="http://www.habbo.com.br/habbo-imaging/avatarimage?user=cicerolucas&action=0&direction=4&head_direction=3&img_format=gif&gesture=0">
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
9/10 i think there needs more backrounds like Pitchure backrounds
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
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
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
nice, how did you coded it?
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
You can use option values, so you don't have to have those abbreviations for actions.
-
Re: Habbo Image machine ( NEW IMAGER ) + Source
HEY!! I want to download this Imager :S but it doesnt exist somehow anymore, please help me with this :(