ProPixel

Participe do fórum, é rápido e fácil

ProPixel
ProPixel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

#Criando Seu Proprio Emulador do 0% ' - Topico Editado

+9
:Glenio
Atom
Profile
bil
# Lucas ~
# fiGHT.Graph ~
lukinhas.22
Windows7
Cłคud¡σ~
13 participantes
Ir para baixo
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Ahh.. Quer Criar seu Emulador ? Vamos LA !
_____________________________________________________
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Visual_Studio_2010_Logo_Horizontal_layout
______________________________________________________
Ja Pensou Como deve ser o Trabalho do Meth0d ?
Fazendo um servidor a partir do zero não é fácil, mas não impossível. Criar um novo servidor quer aprender programação avançada em quase qualquer linguagem de programação que pode ser de Java, Visual Basic e de línguas para C ou o que quer que a linguagem é orientada a objetos como no presente caso Sharp C# que são mais criado emuladores.
O que devemos saber sobre isso?
Entendendo que nós sabemos quando nós criamos um servidor. Precisamos saber para ser estável, o que quer tentar ignorar erros passados ou exceção executando o servidor. Você sabia que o servidor Uber ou outro emulador como o Habbo Hotel tem mais modelos que você criar exceções em tempo de execução? É onde uber emulador baseado gostam ou que querem um outro tempo de execução erros, mas a mente real ou não real mente nem sequer aparece na tela. O que significa este contrato? Isso fica para o hotel rentalize ou mais vulneráveis.

Proque se Usa a porta MUS do servidor?
Por conta real é outro servidor com porta de escuta diferentes, por exemplo 30000 Habbo Hotel anteriormente utilizada para a escuta e porta 30001 MUS, por assim dizer, mas não lembro exatamente, mas as portas eram assim que significa que são dois servidores no mesmo servidor as portas em escuta músicas diferentes. Estará presente para a mente real que serve? Como uma porta dedicada a ouvir os pacotes, eo outro é dedicado à escuta das diferentes embalagens, tais como o Painel de controle, ou quando nós mudamos de roupa imediatamente ou etc.De missão aqui vem a questão pesada não é se você vai lembrar, mas V36 anteriormente alertas pesados transmitidos através de um programa que ligava o porto MUS enviando pacotes com o alerta do texto e, em seguida, o hotel recebeu o alerta de se tornar irritante mente real que não fosse de outra maneira ser lamer de hackers.

Por que enviar pacotes e porque deve receber?

Isso é muito importante saber porque todos os jogos on-line incluindo servidor envia e recebe pacotes. Sabia que jogos online como o GTA e outros CSS receber e enviar pacotes? Isto é onde você quer jogar online que envia e recebe pacotes, por exemplo, o CSS envia e recebe pacotes numéricos, como tantas vezes são chamados (Chet - Hackers) que altere o valor da instância do pacote 0x000010 (10) são os marcadores você é assim se você enviou o pacote para 0x000020 (20) tem 20 balas. Porque é que funciona bem? Qualquer programa ou servidor está configurado como uma pessoa ou robot.Ejemplo dizer (PEPE) - e as respostas a próxima pessoa (PEPE seu nome completo e apelido é Fernandez) chamado OOP.

Bases e Portas como fazer sincronização?

Sockets chamado o que é ligado a uma entidade externa ao computador usando um IP fixo ou soquetes pública.Los sempre ligada a uma parte externa ou mesmo por sua própria IPv4, ou locais de acolhimento, mas requer sempre uma porta. Porque porto? O porto é o lugar onde você se conectar para enviar e receber informações enviadas e recebidas de outros clientes, neste caso, não só paquetes.Pero esta servem as bases usadas para muitas outras coisas como por exemplo o ping hospedagem fornecida pelo IP .

O Que Precisamos Agora ?

Visual Studio Usando Lingaugem Basic
Bem achei a Versao FULL no KekoMUNDO entao Olhem:
http://kekomundo.com/foro/index.php?topic=61981.0


Pratica e Aprendizagem
Abra o Visual Studio e criar novos projetos File> New Project e escolha Console nome do aplicativo que estamos (meu primeiro Server Habbo Hotel).
Uma vez criado, o projeto irá adicionar uma pasta para que o assunto com o mouse para o meu servidor de Habbo Hotel primeiro projeto e nós vamos com o botão direito e adicionar uma pasta, você será o nome Nucleo. . #Criando Seu Proprio Emulador do 0% ' - Topico Editado Miservidor
Vamos com o botão direito na pasta Core e irá adicionar uma classe eo nome que estamos Kernel.#Criando Seu Proprio Emulador do 0% ' - Topico Editado Awdawedawdawd1
Vamos criar um módulo chamado Funções e outra classe chamada Config tudo deve ser Dela se segue.
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Etch




#Criando Seu Proprio Emulador do 0% ' - Topico Editado DawdawdzNo arquivo de configuração escrever o seguinte:
Código:
Imports System.Security.Cry ptography
Imports MySql.Data.MySqlCli ent

Public Class Config
    Friend Config As String
    Public Host As String
    Public Puerto As Integer
    Public Usuario As String
    Public Contraseña As String
    Public Nombre As String
    Public PuertoEscucha As Integer
    Private Declare Unicode Function GetPrivateProfileSt ring Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Function Leer(ByVal Seccion As String, ByVal Numero As String, ByVal Localizacion As String) As String
        'Creditos de Source VB.NET by Regezone editado y mejorado by me (Monroe).
        Dim retLen As Integer
        Dim retStr As String
        retStr = Space$(1024)
        retLen = GetPrivateProfileSt ring(Seccion, Numero, vbNullString, retStr, retStr.Length, Localizacion)
        If retLen > 0 Then Return retStr.Substring(0, retLen)
        Return vbNullString
    End Function
    Public Sub Configuracion()
        Try
            Console.WriteLine("Iniciando Servidor para " & Environment.UserNam e & "...")
            Console.WriteLine("Comprobación de \bin\mysql.ini ...")
            Config = My.Application.Info .DirectoryPath & "\Config\Mysql.ini"
            If My.Computer.FileSys tem.FileExists(Config) = False Then
                Console.ForegroundC olor = ConsoleColor.Red
                Console.WriteLine("[Error] No se pudo encontrar la configuración")
                Console.ReadKey(True)
            Else
                Host = Leer("Mysql", "host", Config)
                Porta = Integer.Parse(Leer("Mysql", "port", Config))
                Usuario = Leer("Mysql", "username", Config)
                Senha = Leer("Mysql", "password", Config)
                Database = Leer("Mysql", "database", Config)
                Porta = Integer.Parse(Leer("Mysql", "puerto-escucha", Config))
            End If
        Catch ex As Exception
            Console.ForegroundC olor = ConsoleColor.Red
            Console.WriteLine(ex.Message)
            Console.ReadLine()
        End Try
    End Sub
End Class
#Criando Seu Proprio Emulador do 0% ' - Topico Editado KernelrDentro do arquivo do kernel escrever todo o código (copiar e colar)
Código:
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.Net
Imports System.IO
Public Class Kernel
    Dim DatosSql As New Config
    Private Listens As Boolean = False
    Public Event Recibido(ByVal Id As String, ByVal Data() As Byte)
    Public Event Transferido(ByVal Sender As String, ByVal Recipient As String, ByVal Data() As Byte)
    Public Event Errores(ByVal ex As Exception)
    Public Event NuevaConexion(ByVal Ticket As String)
    Public Event Desconectados(ByVal Id As String)
    Public Event ConnectionClosed()
    Private Clients As New List(Of TcpClientHandler)
    Private netStream As NetworkStream
    Private Context As SynchronizationCont ext
    Private T As Thread
    Private serverSocket As TcpListener
    Private clientSocket As TcpClient
    Private Structure DataPacket
        Dim Sender As String
        Dim Recipient As String
        Dim Data() As Byte
        Public Sub New(ByVal SenderId As String, ByVal RecipientId As String, ByVal DataBytes() As Byte)
            Sender = SenderId
            Recipient = RecipientId
            Data = DataBytes
        End Sub
    End Structure
    Private Enum EventPointer
        DataReceived = 0
        errEncounter = 1
        onConnection = 2
        lostConnection = 3
        ConnectionClosed = 4
        DataTransferred = 5
    End Enum
    Private Sub EventHandler(ByVal Args As EventArgs)
        Select Case Args.EventP
            Case EventPointer.DataRe ceived
                RaiseEvent Recibido(Args.Arg.Id, Args.Arg.Data)
            Case EventPointer.DataTr ansferred
                RaiseEvent Transferido(Args.Arg.Sender, Args.Arg.Recipient, Args.Arg.Data)
            Case EventPointer.errEnc ounter
                RaiseEvent Errores(Args.Arg)
            Case EventPointer.onConn ection
                RaiseEvent NuevaConexion(Args.Arg)
            Case EventPointer.lostCo nnection
                RaiseEvent Desconectados(Args.Arg)
            Case EventPointer.Connec tionClosed
                RaiseEvent ConnectionClosed()
        End Select
    End Sub
    Private Sub EventRaise(ByVal EventPoint As EventPointer, Optional ByVal Arg As Object = Nothing)
        If Not Context Is Nothing Then
            Context.Post(AddressOf EventHandler, New EventArgs(EventPoint, Arg))
        Else
            EventHandler(New EventArgs(EventPoint, Arg))
        End If
    End Sub
    Public Sub New(ByVal Port As Integer)
        serverSocket = New TcpListener(Net.IPAddress.Any, Port)
        Context = SynchronizationCont ext.Current()
    End Sub
    Public Property SendBufferSize() As Integer
        Get
            Return serverSocket.Server .SendBufferSize
        End Get
        Set(ByVal value As Integer)
            serverSocket.Server .SendBufferSize = value
        End Set
    End Property
    Public Property ReceiveBufferSize() As Integer
        Get
            Return serverSocket.Server .ReceiveBufferSize
        End Get
        Set(ByVal value As Integer)
            serverSocket.Server .ReceiveBufferSize = value
        End Set
    End Property
    Public Property NoDelay() As Boolean
        Get
            Return serverSocket.Server .NoDelay
        End Get
        Set(ByVal value As Boolean)
            serverSocket.Server .NoDelay = value
        End Set
    End Property
    Public Sub StartConnection()
        Try
            Listens = True
            T = New Thread(AddressOf Main)
            T.Start()
        Catch ex As Exception
            EventRaise(EventPointer.errEnc ounter, ex)
        End Try
    End Sub
    Private Sub DataReceivedHandler(ByVal Msg As ClientMsg)
        DecryptBytes(Msg)
    End Sub
    Private Sub DecryptBytes(ByVal Message As ClientMsg)
        Dim Disconnect As Boolean = True
        For b = 0 To Message.Data.Length - 1
            Dim Msg As ClientMsg = ClientMsg.FromBytes(Message.Data, b)
            If Not Msg.Data Is Nothing Then
                If Msg.ID = Nothing Then
                    EventRaise(EventPointer.DataRe ceived, New ClientMsg(Message.ID, Msg.Data))
                Else
                    TransferData(Msg, Message.ID)
                End If
                Disconnect = False
            End If
            If b >= Message.Data.Length - 1 Then Exit For
        Next
        If Disconnect Then DisconnectUser(Message.ID)
    End Sub
    Private Sub errEncounterHandler(ByVal ex As Exception)
        EventRaise(EventPointer.errEnc ounter, ex)
    End Sub
    Private Sub lostConnectionHandl er(ByVal Id As String)
        EventRaise(EventPointer.lostCo nnection, Id)
        Dim Handler As TcpClientHandler = GetClientHandlerByI d(Id)
        RemoveHandler Handler.DataReceive d, AddressOf DataReceivedHandler
        RemoveHandler Handler.errEncounte r, AddressOf errEncounterHandler
        Clients.Remove(Handler)
        RemoveHandler Handler.lostConnect ion, AddressOf lostConnectionHandl er
    End Sub
    Private Function GetClientHandlerByI d(ByVal Id As String) As TcpClientHandler
        For Each c As TcpClientHandler In Clients
            If c.Id = Id Then Return c
        Next
        Return Nothing
    End Function
    Public Sub SendData(ByVal Id As String, ByVal Data() As Byte)
        Try
            Data = ClientMsg.GetBytes(New ClientMsg(Nothing, Data))
            Dim ClientHandler As TcpClientHandler = GetClientHandlerByI d(Id)
            If Not ClientHandler Is Nothing Then ClientHandler.SendD ata(Data)
        Catch ex As Exception
            EventRaise(EventPointer.errEnc ounter, ex)
        End Try
    End Sub
    Private Sub TransferData(ByVal TargetClient As ClientMsg, ByVal Sender As String)
        Dim ClientHandler As TcpClientHandler = GetClientHandlerByI d(TargetClient.ID)
        If Not ClientHandler Is Nothing Then ClientHandler.SendD ata(ClientMsg.GetBytes(New ClientMsg(Sender, TargetClient.Data)))
        EventRaise(EventPointer.DataTr ansferred, New DataPacket(Sender, TargetClient.ID, TargetClient.Data))
    End Sub
    Public Sub Brodcast(ByVal Data() As Byte)
        Try
            Data = ClientMsg.GetBytes(New ClientMsg(Nothing, Data))
            For Each c As TcpClientHandler In Clients
                c.SendData(Data)
            Next
        Catch ex As Exception
            EventRaise(EventPointer.errEnc ounter, ex)
        End Try
    End Sub
    Public Sub DisconnectUser(ByVal Id As String)
        Try
            GetClientHandlerByI d(Id).Disconnect()
        Catch ex As Exception
            EventRaise(EventPointer.errEnc ounter, ex)
        End Try
    End Sub
    Private Sub Main()
        serverSocket.Start()
        Do
            Try
                clientSocket = serverSocket.Accept TcpClient()
                netStream = clientSocket.GetStr eam()
                Dim bytes(CInt(clientSocket.Receiv eBufferSize)) As Byte
                netStream.Read(bytes, 0, CInt(clientSocket.Receiv eBufferSize))
                Dim Id2String As String = Encoding.Default.Ge tString(bytes)
                If Not GetClientHandlerByI d(Id2String) Is Nothing Then
                    Dim OriginId As String = Id2String
                    Dim cnt As Integer = 1
                    Id2String = OriginId & cnt
                    While Not GetClientHandlerByI d(Id2String) Is Nothing
                        cnt  = 1
                        Id2String = OriginId & cnt
                    End While
                End If
                Dim TcpClientHandle As New TcpClientHandler(clientSocket, Id2String, Context)
                Clients.Add(TcpClientHandle)
                AddHandler TcpClientHandle.Dat aReceived, AddressOf DataReceivedHandler
                AddHandler TcpClientHandle.err Encounter, AddressOf errEncounterHandler
                AddHandler TcpClientHandle.los tConnection, AddressOf lostConnectionHandl er
                EventRaise(EventPointer.onConn ection, Id2String)
            Catch ex As Exception
                EventRaise(EventPointer.errEnc ounter, ex)
            End Try
        Loop Until Listens = False

        If Not Context Is Nothing Then
            Context.Post(AddressOf CloseConnection, Nothing)
        Else
            CloseConnection()
        End If
    End Sub
    Public Sub CloseConnection()
        On Error Resume Next
        Listens = False
        If Not clientSocket Is Nothing Then clientSocket.Close()
        For Each c As TcpClientHandler In Clients
            c.Disconnect()
        Next
        If Not netStream Is Nothing Then netStream.Close()
        serverSocket.Stop()
        RaiseEvent ConnectionClosed()
    End Sub
    Public ReadOnly Property Listening() As Boolean
        Get
            Return Listens
        End Get
    End Property
    Public ReadOnly Property Users() As List(Of String)
        Get
            Users = New List(Of String)
            For Each c As TcpClientHandler In Clients
                Users.Add(c.Id)
            Next
        End Get
    End Property
    Private Class TcpClientHandler
        Private clientSocket As TcpClient
        Private netStream As NetworkStream
        Public Id As String
        Private Context As SynchronizationCont ext
        Private T As Thread
        Private Connected As Boolean = False
        Public Event DataReceived(ByVal Msg As ClientMsg)
        Public Event errEncounter(ByVal ex As Exception)
        Public Event lostConnection(ByVal Id As String)
        Public ReadOnly Property isConnected()
            Get
                Return Connected
            End Get
        End Property
        Public Sub New(ByVal cSocket As TcpClient, ByVal ClientId As String, ByVal SyncContext As SynchronizationCont ext)
            clientSocket = cSocket
            Id = ClientId
            Context = SyncContext
            Connected = True
            T = New Thread(AddressOf Main)
            T.Start()
        End Sub
        Private Sub EventHandler(ByVal Args As EventArgs)
            Select Case Args.EventP
                Case EventPointer.DataRe ceived
                    RaiseEvent DataReceived(New ClientMsg(Id, Args.Arg))
                Case EventPointer.errEnc ounter
                    RaiseEvent errEncounter(Args.Arg)
                Case EventPointer.lostCo nnection
                    RaiseEvent lostConnection(Id)
            End Select
        End Sub
        Private Sub EventRaise(ByVal EventPoint As EventPointer, Optional ByVal Arg As Object = Nothing)
            If Not Context Is Nothing Then
                Context.Post(AddressOf EventHandler, New EventArgs(EventPoint, Arg))
            Else
                EventHandler(New EventArgs(EventPoint, Arg))
            End If
        End Sub
        Private Enum EventPointer
            DataReceived = 0
            errEncounter = 1
            lostConnection = 2
        End Enum
        Private Sub Main()
            netStream = clientSocket.GetStr eam()
            Do While clientSocket.Connec ted And Connected
                Try
                    Dim GetBytes(CInt(clientSocket.Receiv eBufferSize)) As Byte
                    netStream.Read(GetBytes, 0, CInt(clientSocket.Receiv eBufferSize))
                    EventRaise(EventPointer.DataRe ceived, GetBytes)
                Catch ex As Exception
                    Exit Do
                End Try
            Loop
            If Not Context Is Nothing Then
                Context.Post(AddressOf Disconnect, Nothing)
            Else
                Disconnect()
            End If
        End Sub
        Public Sub SendData(ByVal Data() As Byte)
            Try
                netStream.Write(Data, 0, Data.Length)
                netStream.Flush()
            Catch ex As Exception
                EventRaise(EventPointer.errEnc ounter, ex)
            End Try
        End Sub
        Public Sub Disconnect()
            On Error Resume Next
            Connected = False
            If Not netStream Is Nothing Then netStream.Close()
            If Not clientSocket Is Nothing Then clientSocket.Close()
            RaiseEvent lostConnection(Id)
        End Sub
    End Class
End Class
#Criando Seu Proprio Emulador do 0% ' - Topico Editado FuncionesFunções declaradas dentro do arquivo (ingressos) e os usuários modelos IDS escrever o seguinte código:
Código:
Imports System.Text
Module Funciones
    Private MainEncoding As Encoding = ASCIIEncoding.GetEn coding("windows-1255")
    Public Structure ClientMsg
        Dim ID As String
        Dim Data() As Byte
        Public Sub New(ByVal ClientID As String, ByVal DataByte() As Byte)
            ID = ClientID
            Data = DataByte
        End Sub
        Public Shared Function GetBytes(ByVal c As ClientMsg) As Byte()
            If c.ID = Nothing Then c.ID = ""
            Dim EncryptedString As String = "!" & c.ID & "!" & c.Data.Length & "!"
            Return JoinBytes(MainEncoding.GetByt es(EncryptedString), c.Data)
        End Function
        Public Shared Function FromBytes(ByVal bytes() As Byte, Optional ByRef Start As Integer = 0) As ClientMsg
            Try
                Dim Msg As ClientMsg
                Dim Length_Start As Integer = Start
                Do Until bytes(Length_Start) = 33
                    Length_Start  = 1
                    If Length_Start >= bytes.Length - 1 Then Return New ClientMsg(Nothing, Nothing)
                Loop
                Dim Length_End As Integer = Length_Start
                Do Until bytes(Length_End) = 33
                    Length_End  = 1
                    If Length_End >= bytes.Length - 1 Then Return New ClientMsg(Nothing, Nothing)
                Loop
                Msg.ID = IIf(Length_End - Length_Start > 1, MainEncoding.GetStr ing(ChopBytes(bytes, Length_Start  1, Length_End - Length_Start - 1)), Nothing) 'Obtiene el identificador en el "!" caracteres - si la longitud es de 1 significa que el ID no es nada.
                Length_Start = Length_End
                Length_End = Length_Start  1
                Do Until bytes(Length_End) = 33
                    Length_End  = 1
                    If Length_End >= bytes.Length - 1 Then Return New ClientMsg(Nothing, Nothing)
                Loop
                Dim DataLength As Integer
                DataLength = MainEncoding.GetStr ing(ChopBytes(bytes, Length_Start  1, Length_End - Length_Start - 1))
                Msg.Data = ChopBytes(bytes, Length_End  1, DataLength)
                Start = Length_End  DataLength
                Return Msg
            Catch ex As Exception
                Return New ClientMsg(Nothing, Nothing)
            End Try
        End Function
    End Structure
    Public Function CheckPacket(ByVal bytes() As Byte) As Boolean
        For Each b As Byte In bytes
            If b <> 0 Then
                Return True
            End If
        Next
        Return False
    End Function
    Public Structure EventArgs
        Dim EventP As Integer
        Dim Arg As Object
        Friend IP As Object
        Public Sub New(ByVal e As Integer, ByVal Argument As Object)
            EventP = e
            Arg = Argument
        End Sub
    End Structure
    Public Function JoinBytes(ByVal Original() As Byte, ByVal JoinPart() As Byte) As Byte()
        Dim JoinedBytes(Original.Length  JoinPart.Length - 1) As Byte
        Dim cnt As Integer = 0
        For Each b As Byte In Original
            JoinedBytes(cnt) = b
            cnt  = 1
        Next
        For Each b As Byte In JoinPart
            JoinedBytes(cnt) = b
            cnt  = 1
        Next
        Return JoinedBytes
    End Function
    Public Function ChopBytes(ByVal Original() As Byte, ByVal Start As Integer, Optional ByVal Length As Integer = Nothing) As Byte()
        If Length = Nothing Or Length < 1 Then
            Length = Original.Length - Start
        End If
        Dim ChoppedBytes(Length - 1) As Byte
        Dim cnt As Integer = 0
        For by = Start To Start  Length - 1
            ChoppedBytes(cnt) = Original(by)
            cnt  = 1
        Next
        Return ChoppedBytes
    End Function
End Module
Bem, uma vez realizada a ingressos para cada usuário e IDS, incluindo a lista de usuários conectados declarar as variáveis [MySQL]#Criando Seu Proprio Emulador do 0% ' - Topico Editado Fuseql
Antes de qualquer declaração irá criar um FuseSQL Dela módulo chamado dentro da pasta (Core) no módulo FuseSQL escrever o seguinte código:

Código:
Imports MySql.Data.MySqlCli ent
Module FuseSQL

    Public Sqlconection As String = (";Server=" & Configuracion.Host & ";Port=" & Configuracion.Puert o & ";Database=" & Configuracion.Nombr e & ";User=" & Configuracion.Usuar io & ";Password=" & Configuracion.Contr aseña)
    Public Function SqlTest() As Boolean
        Try
            SqlConexion()
            Return True
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Console.ReadKey(True)
            Return False
        End Try
    End Function
    Public Sub SqlConexion()
        Conexion = New MySqlConnection()
        Conexion.Connection String = Sqlconection
        Conexion.Open()
    End Sub
    Public Sub QueryEjecutar()
        Query.Connection = Conexion
        Consultar = Query.ExecuteReader
    End Sub
    Public Sub ClearClosed()
        Query.Parameters.Cl ear()
        Conexion.Close()
    End Sub
    Public Sub Consulta(ByVal SQL As String)
        SqlConexion()
        Query.CommandText = (SQL)
    End Sub
    Public Sub Ejecutar(ByVal SQL As String)
        SqlConexion()
        Query.CommandText = (SQL)
        QueryEjecutar()
        ClearClosed()
    End Sub
End Module
#Criando Seu Proprio Emulador do 0% ' - Topico Editado VarpublicsCriar outro módulo chamado public var é onde vai todas as variáveis os públicos:


Código:
Imports MySql.Data.MySqlCli ent

Module VarPublic
    Public Query As New MySqlCommand : Public Conexion As MySqlConnection : Public Consultar As MySqlDataReader : Public Configuracion As New Config
End Module
Você irá falhar e você não ter acrescentado a referência dll Mysql.Data.dll Deixe Referências Dela e nós procuramos adicionar referências para o nosso disco local C: / e procure a pasta chamada MySQL>> \ MySQL \ MySQL Connector Net 6.3. 6 \ Assemblies \ v2.0 e selecione a dll Mysql.Data.dll.
Se você não tiver instalado o MySQL Connector pode baixá-lo aqui.
http://download.softagency.net/MySQL/Downloads/Connector-Net/mysql-connector-net-6.3.6.zip

#Criando Seu Proprio Emulador do 0% ' - Topico Editado MysqliniModelos de configuração de arquivos de dados [mysql]
Bem, uma vez que você salvar o projeto, se você não pode ver um Arquivo> Salvar> Salvar todos.
Você vê Documentos>> Visual Studio 2010>> Proyects>> Meu Primeiro Servidor HabboHotel>> bin> Debug>
Dentro Dela localização criar uma pasta chamada Debug pasta Configurações é criado quando você cria um novo documento de texto para o documento de texto eo nome que estamos de extensão Mysql. Ini para que ele caia pasta Dela Config.
Uma vez criada Mysql.ini de arquivos e pastas dentro do arquivo de configuração Mysql.ini escrever o seguinte:
Código:
#Mysql configuración
[Mysql]
host=localhost
port=3306
database=infodb
username=root
password=Contraseña de tu base de datos.
puerto-escucha=2020

Depois de escrever os dados da loja.

Ansiosos para vê-la funcionar? Tudo tem seu tempo. Depois de ter criado tudo isto e código escrito para Módulo1 que se tornaria o principal é o servidor (onde começa o do servidor) Uma vez que estamos dentro do arquivo indicado.:#Criando Seu Proprio Emulador do 0% ' - Topico Editado Module1
Código:
Public WithEvents Servidor As Kernel
Temos os eventos declarados! Agora vamos Eventos module1 deixar uma foto para você ver se existem questões onde ele é:
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Eventosserver
Nós escolhemos o servidor onde o evento é marcado pelo mouse, em seguida, junto a esse evento vai ver as declarações feitas para novas conexões>> recebido>> offline>> erros>> ConectionClosed>> Transferido. Clique em New Connection.
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Declaraciones1
Veremos, e clique em New Connection é auto criado o seguinte código:
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Sinttulofdh
Dentro da Sub main escrever o seguinte código para declarar a porta de escuta e verificar se conecta com êxito para o banco de dados com os dados inseridos.
Código:
 Sub Main()
        Try
            Console.WriteLine("Declarando la conexión Sql...")
            Configuracion.Confi guracion()
            If FuseSQL.SqlTest = False Then Return
            Console.ForegroundC olor = ConsoleColor.Green
            Console.WriteLine("Conexión con la base de datos correcta" & vbNewLine)
            Servidor = New Kernel(Configuracion.Puert oEscucha)
            Servidor.StartConne ction()
            Console.ForegroundC olor = ConsoleColor.Cyan
            Console.WriteLine("Esperando nuevas peticiones de conexion.")
            Console.ForegroundC olor = ConsoleColor.White
            Console.Beep()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Console.ReadKey(True)
        End Try
    End Sub
Em New Connection escreva o seguinte código
Código:
 Private Sub Servidor_NuevaConex ion(ByVal Ticket As String) Handles Servidor.NuevaConex ion
        Console.WriteLine("Nueva Conexión de: "  Ticket)
        Try
            Consulta("SELECT username,auth_ticket FROM users WHERE auth_ticket = ?ticket")
            'Anti sql inyección.
            Query.Parameters.Ad d(New MySqlParameter("?ticket", Ticket)) : QueryEjecutar()
            If Consultar.HasRows = 0 Then
                Servidor.Disconnect User(Ticket)
            Else
                Dim username As String = Consultar.GetValue(0).ToString
                Servidor.Users.Add(Ticket)
                Console.WriteLine("Nueva conexión aceptada de: "  username)
            End If
        Catch ex As Exception
            Console.WriteLine("[Error]"  ex.Message)
        End Try
        ClearClosed()
    End Sub
End Module
[justify]Bem, então é tentar e adicionar um código para cada usuário com os seguintes códigos:
Mail pacote para o usuário:
Código:
Servidor.SendData(Id, Encoding.Default.GetBytes(“BemVindos!”, "http://www.habboz-forum.net"))
Enviar a todos:
Código:
Servidor.Brodcast(Encoding.Default.GetBytes("Hey ! Ola Habboz !"))
Bem, quando você deve pedir à polícia para criar algo parecido com isto:
Código:
If Ticket.ToString = "" Then
SendData(Id, Encoding.Default.GetBytes(""  "\r\n"  ""  "\r\n"  ""  "\r\n"  "  "  "\r\n"  ""  Convert.ToChar(0), false)
End If
AGORA O EMULADOR ESTA PRONTO ! COMPILE !
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Myserverq
E então seria criar os pacotes e outras variáveis para que os usuários coordenar os modelos.
Eu só queria ver você cria algo que não é impossível e que nem sempre tem que Basarte.
Voce Tambem Pode Baixar ele Ja Pronto !
http://www.megaupload.com/?d=0KVSNO4E

Aprendendo a Mecher no Visual Basic
Bem Para quem e Iniciante e quer Aprender Coisa mais Facil recomendo esta APOSTILA: http://www.apostilando.com/download.php?cod=3220&categoria=Visual%20Basic
Mas Para Quem quer se Aprofundar Mais Ainda Recomendo Isto:
http://www.apostilando.com/download.php?cod=3153&categoria=Visual%20Basic

O que Sao Strings e Variaveis ?
Bem Nao vou Explicar aqui. Mas digo o Seguinte. sao os Comandos Mais Importantes neles e que voce fara a acao Acontecer Recomendo Isto:

Variaveis
Visual Basic, assim como a maioria das linguagens de programação, usa variáveis para guardar valores. Uma variável tem um nome (a palavra que você usa para se referir ao valor que a variável contém. Uma variável também tem um tipo de dados (que determina o tipo de dado que a variável pode armazenar).Uma variável pode representar uma matriz se ela tiver que armazenar um conjunto indexado de dados relacionados.Visual Basic 2008 permite inferência a tipo local, que deixa você declarar variáveis sem especificar explicitamente seu tipo de dados. Em vez disso, o compilador infere o tipo da variável através do tipo da expressão de inicialização. Para mais informações consulte: .
Você usa declarações de atribuição para executar cálculos e atribuir o resultado a uma variável, como o exemplo seguinte mostra:
Código:
[color=#000000][font='Times New Roman'][font='Segoe UI'][color=green]' The following statement assigns the value 10 to the variable.[/color]
applesSold = 10
[color=green]' The following statement increments the variable.[/color]
applesSold = applesSold + 1
[color=green]' The variable now holds the value 11.[/color][/font][/font][/color]
Link Direto com Conteudo Melhor: http://msdn.microsoft.com/pt-br/library/cd6hcy37.aspx
Strings
O tipo de dados String representa uma série de caracteres (cada um representando, um após o outro, uma instância do tipo de dados Char). Este tópico apresenta os conceitos básicos de strings em Visual Basic.
Uma instância de uma string pode ser atribuída um valorliteral que representa uma série de caracteres. Por exemplo:
Código:
[color=#000000][font='Times New Roman'][font='Segoe UI'][color=blue]Dim[/color] MyString [color=blue]As[/color] [color=blue]String[/color]
MyString = [color=#A31515]"Este e um Exemplo de String D;"[/color][/font][/font][/color]
Uma variável String também pode aceitar qualquer expressão avaliada como uma string. Exemplos são mostrados abaixo:
Código:
[color=#000000][font='Times New Roman'][font='Segoe UI'][color=blue]Dim[/color] OneString [color=blue]As[/color] [color=blue]String[/color]
[color=blue]Dim[/color] TwoString [color=blue]As[/color] [color=blue]String[/color]
OneString = [color=#A31515]"one, two, three, four, five"[/color]
[color=green]' Evaluates to "two".[/color]
TwoString = OneString.Substring(5, 3)
OneString = [color=#A31515]"1"[/color]
[color=green]' Evaluates to "11".[/color]
TwoString = OneString & [color=#A31515]"1"[/color][/font][/font][/color]

Agora voce Precisa Saber os Comandos Basicos

[justify]
Código:
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* Caption: é o nome do formulário, que aparecerá na barra de título.[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* BorderStyle: é o tipo de borda (configurável, fixa, sem borda...).[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* Icon: é o ícone que aparecerá na barra de título, e o que será o ícone do .exe já compilado (pode ser escolhido).[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* MaxButton: adiciona/remove o botão de maximizar do form.[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* MinButton: adiciona/remove o botão de minimizar do form.[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* ShowInTaskbar: permite ou não, a visualização da aplicação na barra de ferramentas \/.[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* StartUpPosition: permite a escolha do local onde a aplicação será iniciada (centro da tela, posição aleatória...).[/font][/color][/font][/color]
[color=#000000][font='Times New Roman'][color=#666666][font=Tahoma]* WindowState: escolhe o estado da janela: maximizado, minimizado, normal.[/font][/color][/font][/color]
[center]
Estas são apenas algumas das propriedades do form. Lembrando que botões, textos e tudo o mais também possuem propriedades, alem de poder adicionar códigos de acordo com cada evento (Click, Load, DblClick, Load, e etc.).

Vamos fazer um teste?

- Crie um form normal e em Caption escreva: Teste de VB - Aula do Xtibia
- Em MaxButton marque false
- Adicione um botão com caption: Clique aqui.
- Agora clique no botão novamente, aparecerá uma caixa escrito: Project1 - Form1 (Code); este é o lugar onde você adicionará os códigos, neste caso, os códigos relacionados ao evento Click do botão Command1.
- Adicione o seguinte:
Código:
Form1.Caption = "Hail Xtibia"
Deve ter ficado algo assim:
Código:
Private Sub Command1_Click()
Form1.Caption = "Hail Xtibia"
End Sub
- Explicando o código acima: a primeira linha refere o evento click() ao botão command1. A segunda linha informa que o Caption do Form1 será alterado para Hail Xtibia ao clicar no botão. A terceira, e última linha encerra o código.
- Tudo feito... Agora vamos testar. (Aperte F5)
- Se você fez tudo corretamente, irá funcionar perfeitamente.

_______________________________________________________
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Phpmyadmin_logo
________________________________________________________
Secao 2 O phpmyadmin
O que e PhpMyAdmin
phpMyAdmin é um programa de computador desenvolvido em php para administração do mysql pela internet. A partir deste sistema é possível criar e remover bases de dados, criar, remover e alterar tabelas, inserir, remover e editar campos, executar códigos SQL e manipular campos chaves. O phpMyAdmin é muito utilizado por programadores web que muitas vezes necessitam manipular bases de dados. Normalmente, o phpMyAdmin é tratado como uma ferramenta obrigatória em quase todas as hospedagems da web, além de pacotes off-line, como o Wamp, Xampp, EasyPhp e PhpTriad e Vertrigo.

Pesso que Que Para Entender o Sistema Mysql e Php Baixe isso:
http://www.apostilando.com/download.php?cod=3223&categoria=Banco%20de%20Dados

Bem Ja que agora Sabe como e o PHPMYADMIN
Vamos Baixar uma Pre-Tabela Ja Feita D;
DOWNLOAD

Agora Iremos Te Mostrar Como Editar esta Tabela D;

Agora Iremos Editar o Catalogo e Deixar em Portugues
Na Database va em:
CatalogPages. Clique em Vizualizar
Selecione Um Iteme Clique no Lapizinho
Imagem
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Df5f
Agora Vamos Editar os Ranks
Faca a Mesma coisa Traduza que Nem no Do Catalogo. Mas se Voce Quiser Criar um Cargo.
Primeiro se seu Ranks so tiver 7 Cargos Bote esse SQL:
Código:
INSERT INTO `ranks` (`id`, `name`, `prefix`, `suffix`) VALUES
(8, 'ESCREVA O CARGO QUE VOCE QUER AQUI', '[b]', '[/b]'),
(9, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[b]', '[/b]'),
(10, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[b]', '[/b]'),
(11, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[b]', '[/b]'),
(12, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[b]', '[/b]')
Lembre se Onde Tiver [color=darkred][color=black]Segnifica que o Nome do Rank sera Escuro.
Apartir do Cargo 5 Em Qualquer Database. ele Ja Indentifica como Rank de Mod a ADMIN
Se seu Ranks Ja Tiver 9 Ranks Pre Instalados:
Código:
INSERT INTO `ranks` (`id`, `name`, `prefix`, `suffix`) VALUES
(10, 'ESCREVA O CARGO QUE VOCE QUER AQUI', '[color=darkred]', '[/color]'),
(11, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[color=darkred]', '[/color]'),
(12, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[color=darkred]', '[/color]'),
(13, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[color=darkred]', '[/color]'),
(14, 'ESCREVA O CARGO QUE VOCE QUE AQUI', '[color=darkred]', '[/color]')
Agora Proximo Passo Editando os Espacos Publicos e Seus Nomes
Va No Banco de dados em Navigator_publics
Faca a Mesma Coisa do Catalog_Pages mas Lembre se So MUDE O NOME DO QUARTO !
Agora Editando as Paginas do Site
Va em Site_navi no Banco de Dados
Clique No Lapizinho. Mude Somente o Nome
Agora se Voce Quer Criar uma Pagina de Navegacao Extra:
Código:
INSERT INTO `site_navi` (`id`, `parent_id`, `order_id`, `caption`, `class`, `url`, `visibility`) VALUES
(90, 1, 5, 'NOME', '', 'LINK', '2'),
(91, 0, 6, 'NOME', '', 'LINK', '1'),
(92, 1, 6, 'NOME', '', 'LINK', '2'),
(93, 0, 5, 'NOME', '', 'LINK', '1'),
(94, 5, 6, 'NOME', '', 'LINK', '1')[/color][/color][b]
Pronto Sua Database esta Totalmente Editada

Agora Iremos Pro Proximo Passo
Recomendo que Voce Baixe algumas Pastas Para o Seu Emulador!
DOWNLOAD

Proximo Passo Editando estas Pastas do Seu Geito
Agora Vamos Editar.
Va Na Pasta do Emulador Abra UberEnvironment.cs
La e a Inicializacao do Emulador. La Onde estao as Letras na cor
E o que Voce Pode Modificar.
Por Exemplo o Nome do Emulador. quem Criou. Os Erros. so Texto nao e Programacao nem Nada. La Voce Apenas Modfica os Textos:
Imagem de Exemplo:
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Df1k
Mas Lembre se Nunca Tire as Aspas.
Agora Depois de Editar. Clique no Icone de Salvar.
Agora So uma Dica. Se voce ja Conhece um Texto e Quer Achar-lo e Nao acha. Ou quer Modificar Lo:
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Df2r
Vamos Pro Proximo Passo.
Agora Iremos Editar a Base do Emulador.
Va Na Pasta /habbohotel/catalogs/
Abra Catalog.cs La Voce Modificara as Informacoes do Catalogo, Noticias de Avisos de Erros ou Informacoes que o Catalogo Da.
Imagem
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Df3h
Lembre se:
Session.SendNotif("TEXTO QUEE STA ESCRITO");
Estes sao Parametros de Enviar Informacao ao Client. ou como ao Jogador quase sempre em Todos Casos Voce Pode Modificar.
Agora Vamos Pro Proximo Passo.
Va Na Pasta /habbohotel/roombots/
Abra GuideBot.cs
Imagem
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Df6
La Estara as Falas dos Bots. Use o www.translate.google.com.br
Para Traduzir os Textos da Lingua que esta para sua Lingua.
Salve e Feche.
Agora na Mesma Pasta abra petBot.cs
La Estara as Falas dos Pets. Faca a Mesma Coisa.
Tera um exemplo assim:
Código:
 Pet.Statusses.Remove("sit");
            Pet.Statusses.Remove("lay");
            Pet.Statusses.Remove("snf");
            Pet.Statusses.Remove("eat");
            Pet.Statusses.Remove("ded");
            Pet.Statusses.Remove("jmp");
Estes sao os Comandos dos PetsModifique.
Salve e Feche.
Proximo Passo.
Va Na Pasta Properties do seu Emulador e Abra
AssemblyInfo. La Voce Mudara o Nome do Emulador, Creditos, Etc.
Imagem
#Criando Seu Proprio Emulador do 0% ' - Topico Editado Df4l
[b]Depois Disso Recomendo que Dem f5 D; ou Compilem

Pronto Proximo Passo

Para Colocar Codicos e Fixes no Seu Emulador Recomendo que VOCE, Baixe Itens do KekoMundo ou Ragezone ou Daqui ou Crie os Seus D;. Pois Isso e Mais Complicado




Creditos
KekoMundo - Tutorial Parte 1 que e a Parte Criacao
Claudi0 - Postar no Habboz e Traduzir Parte 1"
Claudi0 - Criar a Parte 2 do Tutorial. e Postar no Habboz

PS: Este emulador e Um EMULADOR r52 Este que Voce Criou na Parte 1. Recomendo ler a Parte 2 que Ja postei para Atualizar seu Emulador


Última edição por Claudi0 em Qua 09 Fev 2011, 13:29, editado 11 vez(es)
avatar
Windows7
Membro I
<b>Idade</b> Idade : 24
<b>Posts</b> Posts : 180
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 0
?? !!!
Simples
Gostei Muito
Nota 1000000000
VOU DAR + 1
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Valeu Cara. Tentei Fazer com Carinho Este Topico D; Este Topico Foi Caprichado Hein.
Leiam este Topico e Depois meu Segundo Topico de Criacao de Emulador D; Para Usar este Como Base D;
avatar
Windows7
Membro I
<b>Idade</b> Idade : 24
<b>Posts</b> Posts : 180
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 0
?? !!!
Mais tem como fazer com o Dev c++?
Por que O Visual e muuu pesado!
lukinhas.22
lukinhas.22
Membro IV
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 400
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 4
Script
Cara mutio bom alem de ser um otimo programador sabe ajudar as pessoas informando todo seu conhecimento por completo parabens mano vou ate dar +1 tambem
# fiGHT.Graph ~
# fiGHT.Graph ~
Membro XIV
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 6268
<b>Créditos</b> Créditos : 222
<b>Respeito</b> Respeito : 51
aliás, é criação de qual emu? versão 36?
lukinhas.22
lukinhas.22
Membro IV
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 400
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 4
Script
~Snoqk3 escreveu: aliás, é criação de qual emu? versão 36?

~Snoqk3 desculpa se intrometer mas acho que e uma versao amis antiga para depois voce atualizar e versao dele para r64 ou r63 esse tutorial e par aos iniciante em #C que nem eu :).
# Lucas ~
# Lucas ~
Membro X
<b>Idade</b> Idade : 28
<b>Posts</b> Posts : 1695
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 1
http://habborool.org
Vou tentar fazer, mais olhe bem:

Isso é na criação de um EMU e tals, cadê os mobis ?

Configuração, edição, compatibilidade, Pets, rollers, Rooms, Bots e etc ?

Só isso não faz um hotel. '-'
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Ok Explicando Tudo:

Este e como Criar a Base. so a Configuracao e a Conexao D;. o Bom e que ele nao Precisa de uma Database preFIXA. Entao como resolver. ele e Atual r61. Mas como Melhorar Ele ?

Bem Voce Tenque Primeiramente. Pegar os Codexs e Fixes. IXI ONDE PEGO ISSO ?
Bem no KekoMundo e Ragezone. voce pega Por Exemplo: codicos de Pets, de Trax. Pegue codicos de Outros Emuladores e as Fixes no seu Que estas Criando. o Que Mais ?
Bem configure do Jeito que Voce Quiser. o Bom e que com ele voce pode criar a Database DO JEITO QUE VOCE QUISER !. Entao Eu Peco
Para Ler Um Manual de Conceito basico de Visual Basic.
: D. e Tambem Pegar Codicos e Fixes.
bil
bil
Membro II
<b>Idade</b> Idade : 29
<b>Posts</b> Posts : 207
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 5
Cortex Command
esse tuto pelo que eu posso ver e pelo meu conhecimento com C# e tals posso ver que isso é so uma base para o Emulator


Última edição por bil em Sex 11 Fev 2011, 17:09, editado 1 vez(es)
Profile
Profile
Membro XI
<b>Idade</b> Idade : 32
<b>Posts</b> Posts : 2197
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 72
Diwo ;*
Tem que cria agora um tuto de criar CMS do 0%.
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Respondendo Pergunta do Windows7: Sim e Pesado. o Visual Basic se Quiser Baixar a Versao Web Installer pesquise na Google: Visual Studio C Basico Express Edition download

Leon: Brevemente Criarei um Tutorial sobre essa Secao D;
Atom
Atom
Membro X
<b>Idade</b> Idade : 28
<b>Posts</b> Posts : 1236
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 18
Tutorial muito interessante:D Tosco mas interessante:D
:Glenio
:Glenio
Membro VIII
<b>Idade</b> Idade : 25
<b>Posts</b> Posts : 824
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 1
Olhando para o céu
Vi la no keko, mas olhem encarena a realidade:

Isso você so ira criar o programa do emulador!!!

Você tera que fazer sozinho as pasta de Habbo Hotel, achiventes, user e tals...

methOd realmente e "foda", o cara concequio tudo isso sozinho!

Nao adianta nada criar um emulador do 0 sem saber como colocar os Achevist's e talz...


E no Rage ou keko, nao tem tuto que precisa!!
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Glenio seu *'*§$%$ Tu e Noob ? eu Botei la pra Baixar as Pastas habbo hotel e etc.. --' sem edicao so colcoar o Nome que quiser. por isso a parte 2 tem como editar o EMU. Por isso Leia Direito o Topico antes de postar --'
Nero
Nero
Administrador
<b>Idade</b> Idade : 28
<b>Posts</b> Posts : 703
<b>Créditos</b> Créditos : 80
<b>Respeito</b> Respeito : 1
legal, mas demorado 🇳🇴
lukinhas.22
lukinhas.22
Membro IV
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 400
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 4
Script
Pelo o que eu vi o claudi0 tambem deu umas editadas melhoradas no tutorial esta muito bom esse tutorial
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Legal Mais Demorado ? --' cara se voce tem sonho de fazer um Emu veja este Tuto :)
Nero
Nero
Administrador
<b>Idade</b> Idade : 28
<b>Posts</b> Posts : 703
<b>Créditos</b> Créditos : 80
<b>Respeito</b> Respeito : 1
mas men, eu gostei mas demoora é né
Zhang
Zhang
Administrador
<b>Idade</b> Idade : 25
<b>Posts</b> Posts : 3743
<b>Créditos</b> Créditos : 15
<b>Respeito</b> Respeito : 31
Nossa, que tópico foi esse que eu ví? Hmm, acho que um dos melhores sem dúvidas.
A.henr
A.henr
Membro X
<b>Idade</b> Idade : 25
<b>Posts</b> Posts : 1416
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 23
Gente é só no meu computador ou algumas imagens dizem 403 forbidden?
Pro-Herxz
Pro-Herxz
Membro X
<b>Idade</b> Idade : 29
<b>Posts</b> Posts : 1787
<b>Créditos</b> Créditos : 20
<b>Respeito</b> Respeito : 15
Go-Gamer Brasil!
Bem dificil, mais vale apena tentar.
lukinhas.22
lukinhas.22
Membro IV
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 400
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 4
Script
Sim e bem dificil mas para quem nunca desiste de algo exemplo eu kkkk vai conseguir fazer esse emulador.
Cłคud¡σ~
Cłคud¡σ~
Membro VIII
<b>Idade</b> Idade : 27
<b>Posts</b> Posts : 814
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 8
Ja Pensou em Morfar ?
Nuss ta dando Forbinden as Imagens :O o que aconteceu ?
Conteúdo patrocinado
Ir para o topo
Permissões neste sub-fórum
Não podes responder a tópicos