Yes another one of my creations. I have so far made:
- Voucher Maker
- Ban User
- Rare page maker
And now, Loader Maker!
Code:
Private Sub Command1_Click()
Dim lay As String, kk As Integer
YourIp = InputBox("What is your IP?", "Loader Maker")
YourPort = InputBox("What is your Port?", "Loader Maker")
YourHotelName = InputBox("What is your hotel name?", "Loader Maker")
Version = InputBox("What Version? (EG: 15,14,13,12?)", "Loader Maker")
loadr = InputBox("What would you like to call your loader?(EG: my_client (.html is added by itself))", "Loader Maker")
URL = InputBox("What is the url to your loader? (EG: http://yoursite.com/main/client.html)", "Loader Maker")
load1 = "<div>"
load2 = "</head>"
load3 = "<html xmlns='http://www.w3.org/1999/xhtml'><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8' /><title>"
load4 = YourHotelName
load5 = "</title></head><body bgcolor='black' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'><div align='center'><object classid='clsid:166B1BCA-3F9C-11CF-8075-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=10,8,5,1,0' id='habbo' width='720' height='540'>"
load6 = "<param name='src' value='http://images.habbohotel.nl/dcr/release"
load7 = Version
load8 = ".2_b"
load9 = Version
load10 = "b/habbo.dcr'><param name='swRemote' value='swSaveEnabled='true' swVolume='true' swRestart='false' swPausePlay='false' swFastForward='false' swTitle='Habbo Hotel' swContextMenu='true' '><param name='swStretchStyle' value='none'><param name='swText' value=''><param name='bgColor' value='#000000'>"
load11 = "<param name='sw6' value='external.texts.txt=http://freewebs.com/ehabbh/external_texts.txt'><param name='sw2' value='connection.info.host="
load12 = YourIp
load13 = ";connection.info.port="
load14 = YourPort
load15 = "'<param name='sw4' val"
load16 = "ue='connection.mus.host=game.habbohotel.co.uk;c onnection.mus.port=30001'>"
load17 = "<param name='sw3' value='client.reload.url="
load18 = URL
load19 = "'><param name='sw1' value='site.url=http://www.habbo.ch;url.prefix=http://www.habbo.ch'><param name='sw5' value='external.variables.txt=http://freewebs.com/ehabbh/external_variables.txt'><embed src='http://images.habbohotel.nl/dcr/release"
load20 = Version
load21 = ".2_b"
load22 = Version
load23 = "b/habbo.dcr' bgColor='#000000' width='720' height='540' swRemote='swSaveEnabled='true' swVolume='true' swRestart='false' swPausePlay='false' swFastForward='false' swTitle='Habbo Hotel' swContextMenu='true'' swStretchStyle='none' swText='' type='application/x-director' pluginspage='http://www.macromedia.com/shockwave/download/'sw6='external.texts.txt=http://freewebs.com/ehabbh/external_texts.txt'sw2='connection.info.host="
load24 = YourIp
load25 = ";connection.info.port="
load26 = YourPort
load27 = "'sw4='connection.mus.host=game.habbohotel.co.uk;co n nection.mus.port=30001'sw3='client.reload.url="
load28 = URL
load29 = "'sw1='site.url=http://www.habbo.ch;url.prefix=http://www.habbo.co.uk'sw5='external.variables.txt=http://freewebs.com/ehabbh/external_variables.txt'></embed></object>"
load30 = "</div>"
kk = FreeFile
newL = load1 & load2 & load3 & load4 & load5 & load6 & load7 & load8 & load9 & load10 & load11 & load12 & load13 & load14 & load15 & load16 & load17 & load18 & load19 & load20 & load19 & load20 & load21 & load22 & load23 & load24 & load25 & load26 & load27 & load28 & load29 & load30
Open (DBP & loadr & ".html") For Output As #kk
Print #kk, newL
Close #kk
MsgBox "Your loader is done!"
End Sub
If you use I would love some credit. :)
There is no need to edit anything unless you must! (It is a little bit buggy here and there) If something is wrong please post it with updated code!
Enjoy! :)
![[Loader] Loader Maker [Rel]](http://ragezone.com/hyper728.png)
Originally Posted by Xplizit_Z
