Toggle sidebar

Release Habbose v1.0

DCSoFt

DCSoFt

Utente Attivo
Autore del topic
29 Dicembre 2007
357
56
Miglior risposta
0
Habbose - FUNZIONA SOLO CON WINDOWS XP NON HO SAPUTO FARLO ANCHE CON VISTA
Programma creato con le source di SXC da DCSoFt ( io )
Tutto il programma è scritto in inglese mi piaceva di più xDD

Screen :
--------------------------------------------------
1)
2wghs8i.jpg

2)
alhrpf.jpg

--------------------------------------------------
Funzioni :
--------------------------------------------------
1)PacketLogger & PacketSender
2)Badge ( ClientSide )
3)Crediti ( ClientSide )
4):chooser,:furni
5)Infobus Open,Close ( ClientSide )
6)Reload Room
7)Teleport
8)Raw Data : Bot ( ClientSide )
9)Flooder ( Ottimo 90% work )
---------------------------------------------------
VirusTotal :
Perfavore, Entra oppure Registrati per vedere i Link!

---------------------------------------------------
Download :

Link Diretto :
Perfavore, Entra oppure Registrati per vedere i Link!
<--- tasto destro salva oggetto con nome
MediaFire :
Perfavore, Entra oppure Registrati per vedere i Link!

---------------------------------------------------
Source :
---------------------------------------------------
Private Sub ab_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
sckClient.SendData "@Bfuse_furni_chooser"
End Sub



Private Sub Command10_Click()
Form5.Show
End Sub

Private Sub Command11_Click()
txtPackets.Text = ""
End Sub


Private Sub Command12_Click()
furni.Show
End Sub

Private Sub Command2_Click()
sckClient.SendData "@F" & Text1.Text & ".0" & Chr(1)
End Sub

Private Sub Command3_Click()
sckClient.SendData "CeI" & Text32.Text + Text2.Text & Chr(1)
End Sub

Private Sub Command4_Click()
sckClient.SendData "@Bfuse_habbo_chooser" & Chr(1)
End Sub



Private Sub Command5_Click()
sckClient.SendData "AGbus close" & Chr(1)
End Sub

Private Sub Command6_Click()
Form1.Show
End Sub

Private Sub Command7_Click()
sckClient.SendData "AGbus open" & Chr(1)
End Sub

Private Sub Command8_Click()
On Error Resume Next
sckClient.SendData "@b" & Text4.Text & " " & Text5.Text & "," & Text6.Text & ",0.0,6,6/flatctrl useradmin/" & Chr(13) & Chr(1)
End Sub

Private Sub Command9_Click()
sckClient.SendData "DBO" & Chr(1)
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.habbo.it/habbo-imaging/avatarimage?user=DCSoFt&action=wav&size=b&frame=1&direction=3&head_direction=3&gesture=sml&img_format=gif"
End Sub

Private Sub sckClient_ConnectionRequest(ByVal requestID As Long)
sckServer.Connect
sckClient.Close
sckClient.Accept requestID
sckClient.SendData "BKHabbose - Created By DCSoFt" & Chr(1)
End Sub

Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim theData As String
sckClient.GetData theData
sckServer.SendData theData
txtPackets.Text = txtPackets.Text & vbNewLine & "[" & Time & " OUT]" & vbNewLine & theData
txtPackets.SelStart = Len(txtPackets.Text)
End Sub

Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim theData As String
sckServer.GetData theData
sckClient.SendData theData
txtPackets.Text = txtPackets.Text & vbNewLine & "[" & Time & " IN]" & vbNewLine & theData
txtPackets.SelStart = Len(txtPackets.Text)
End Sub

Private Sub cmdLogin_Click()
Call login(txtUsername.Text, txtPassword.Text, txtHotel.Text)
End Sub

Private Sub cmdSend_Click()
sckClient.SendData txtSend.Text
End Sub

Private Sub Text32_Change()

End Sub

Private Sub txtUsername_Change()
WebBrowser1.Navigate Text3.Text + txtUsername.Text + Text98.Text
End Sub
Clicca per espandere...

Spero vi piaccia ^^ Coded By DCSoFt
 
Ultima modifica:
  • Like
Reactions: 1 person
allora il tele worka in serverside solo quando entri in un teletrasporto allora ti trasprta in server sennò funge in client cioè se nn usi un teletrasporto l'habbo che si teletrasporta lo vedi solo tu, come in tutti gli script d'altronde
 
Se è come dici tu, ti alzo reputazione.^^
--------------- AGGIUNTA AL POST ---------------
Mi dice:

Component "MSINET.OCX" or one of Its dependencies not correctly registered: a file is missing or invalid
 
Ultima modifica:
Bardock ho aggiornato i link per i download ora dovrebbe funzionare ( il programma ) !!!!
 
Ultima modifica:
Ora riprovo...:P
--------------- AGGIUNTA AL POST ---------------
Stesso identico problema, ma presumo sia solo un mio problema...
 
Ultima modifica:
Anche io avevo una cosa simile

Però in uno c'era Windows millenium ( Pensa quanto era antico xD ) E nell'altro xp
 
Grande! Anche le source! :emoji_slight_smile:
--------------- AGGIUNTA AL POST ---------------
Ah .. vedo che tu ragioni! Non hai l'encryption e hai creato il packetlogger solo per il client.. grande :emoji_relieved:
 
Ultima modifica:
RetroserverFan ha detto:
Grande! Anche le source! :emoji_slight_smile:
--------------- AGGIUNTA AL POST ---------------
Ah .. vedo che tu ragioni! Non hai l'encryption e hai creato il packetlogger solo per il client.. grande :emoji_relieved:
Clicca per espandere...

si da una parte le ho messe per fiducia ma cmq a poki il programma funziona cavolo non sò il perchè eppure ho solo rieditato i pacchett lle source di SXC boh !
 
Bardock ha detto:
Se è come dici tu, ti alzo reputazione.^^
--------------- AGGIUNTA AL POST ---------------
Mi dice:

Component "MSINET.OCX" or one of Its dependencies not correctly registered: a file is missing or invalid
Clicca per espandere...
Devi Scaricare il compomnente Msinet.OCX e inserirlo in C:\WINDOWS\System32
 
Devi accedere o registrarti per rispondere qui.
 
 
Top
Indietro