Search the Community

E sai uma página do forno! Download VirusTotal PS: CHEKA SÓ ESSA PÁGINA Créditos: snookey.eu

Galera Boa Tarde, gostaria de saber como eu identifico a "INDEX" de um determinado mapa, index e warp é a mesma coisa? Arquivo Settings do mapa: ScriptType MapSetting CellScale 200 HeightScale 0.500000 ViewRadius 128 MapSize 3 6 BasePosition 1049600 1510400 TextureSet textureset\metin2_BayBlackSand.txt Environment bayblacksand.msenv Se poderem ajudar dou +1 Desde já Obrigado!

Atenção! PEÇO QUE IGNOREM O TOPICO ENQUANTO AINDA NÃO ESTÁ COMPLETO, TIVE QUE CRIAR SÓ O TITULO E ETC E IR EDITANDO AOS POUCOS PORQUE O MEU BROWSER AS VEZES DEIXA DE RESPONDER E DESLIGA-SE, ASSIM EU VOU GRAVANDO AOS POUCOS! Bem Vindos a mais uma aula/tutorial de VB! Desta vez temos conosco o nosso fiel companheiro Python que nos vai ajudar neste projeto! O que vamos precisar? Visual Basic 2008/10(Obvious) Cliente Metin2 local ou dedicado Projeto Completo(Menu Login) Download Projeto: Quando terminar o topico eu meto Então vamos la ao Menu Login! E o que temos aqui? Bem, eu chamei-lhe de Menu Login porque é uma aplicação que pode ser melhorada e usada como um menu com mais features, basta melhoralo. Ela é bem simples, é um "replica" do login do cliente de M2, o som e tudo, até adicionei um som no conheçido "Processo de login em progresso.." para dar um ar mais "pro" kkkkkk. O que contêm? Login Cliente M2 com o status "CLOSED" adicionado, tabela na account que define se o servidor está em manuntenção, com um codigo que só os administradores sabem é que podem entrar. Sub delmix(): loginInfo.py: Moeda Rotativa: MySql.Data: Aqui têm um videozinho de como esta app funciona: Well, agora vou dizer o que faz cada Sub, Function, Region e a Class "SC" que é usada para proteger a password da MySQL do server. Region "lgnbtn Design Funcs": Region "outbtn Design Funcs" é igual ao lgnbtn mas mudando só o butão onde acontençem os eventos Region "board_Cancel Design Funcs" é igual ao lgnbtn mas mudando só o butão onde acontençem os eventos Explicação detalhada: Sub delmix(): Public Shared Function Crypt Usagem: Crypt("Esta é a string que queremos tornar numa password em MySQL5") Esta Function encripta uma string que é transformada em bytes, 2 vezes em SHA1, retira todos os "-" da string por ""(nada, vazio), metendo o * no inicio, e no final transforma de novo os bytes em string dando assim a password encriptada. (Quem me ensinou esta encriptação foi um professional da codeproject xD) Public Shared Function Crypt(ByVal str As String) Public Shared Function Crypt(Função Publica Partilhada como Crypt)(ByVal[Valor] str as string(str como String)) ' Classe de Crypt Dim sha1crypto As New SHA1CryptoServiceProvider Novo serviço de encriptação em SHA1 Dim encoding As New System.Text.UTF8Encoding() Encriptação(Tem outro nome mais correto em PT mas eu digo encriptação a mesma xD) de Texto UTF8(Texto mais regular) Dim streturn As String = "" streturn como String(Para quem não sabe o que é String, string é uma linha de texto, String = Linha) ' Obtem os bytes e faz o processo, duas vezes Dim byteHash() As Byte = sha1crypto.ComputeHash(encoding.GetBytes(str)) byteHash como Byte = string que vai ser transformada em bytes e processada para SHA1 byteHash = sha1crypto.ComputeHash(byteHash) byteHash já encriptado 1x agora encriptado denovo, ficando assim 2x encriptado streturn += ("*" & BitConverter.ToString(byteHash).Replace("-", "")) streturn = Metemos o "*" da password em MySQL5 e convertemos o byteHash que é Bytes para string outra vez e tiramos todos os "-" da password que encriptamos Return streturn Devolvemos a password(Uma Function tem que sempre devolver um valor, i think) End Function Fim da Função Private Function conn Usagem: Invoca uma nova classe chamada sc renomeada como _enctype que depois usamos um Public Shared Function dela que devolve a info do servidor Private Function conn(ByVal db As String) Função Privada conn(ByVal db as string(db como linha) Dim classcn As String classcn como string _enctype = New sc _enctype como novo SC classcn = _enctype.encconn(db) classcn = é chamada uma função do SC(db = dar a Database que vamos usar) que devolve o ID, IP, Password e mais informação sobe a ligação a MySQL Return classcn Devolve a linha End Function Fecha/Termina a Função Private Sub board_msg Usagem: Isto é a caixa com o tal texto e butão que dá informação do tipo "Vais ser ligado ao Servidor","Falha de Conexão ao servidor" Tentei imitar mais ou menos o metodo da caixa do metin e isto foi o melhor que fiz, acho que ficou bastante bom e é simples PS: Normalmente, se estivermos uma caixa desta a nossa frente no metin se fizermos ALT + F4 não tem efeito, eu imitei isso tambem e algumas mais features que têm a janela do metin para ficar o mais parecido possivel. Private Sub board_msg(ByVal msg As String, ByVal btn As String, ByVal type As String) exitbutton.Enabled = False loginimg.Enabled = False idbox.Enabled = False pwbox.Enabled = False lgnbtn.Enabled = False outbtn.Enabled = False board.Visible = True board.BringToFront() boardlbl.Text = msg board_cancel.Text = btn board_cancel.Focus() Desativamos a aplicação só deixamos a board, aquela mensagem de "Vais ser ligado.." e o butão de Cancelar ativado e trazemos ela para a frente board.BringToFront() Asseguir, fazemos focus no butão, selecionamos ele; board_cancel.Focus() If type = "CONNECT" Then ElseIf type = "CONNECTED" Then My.Computer.Audio.Play(My.Resources.loginok, AudioPlayMode.Background) ElseIf type = "USEROK" Then My.Computer.Audio.Play(My.Resources.sucess, AudioPlayMode.Background) ElseIf type = "WRONG" Then My.Computer.Audio.Play(My.Resources.loginfail, AudioPlayMode.Background) ElseIf type = "NOT" Then ElseIf type = "SAVE" Then My.Settings.sid = idbox.Text My.Settings.spw = pwbox.Text My.Settings.Save() My.Computer.Audio.Play(My.Resources.open, AudioPlayMode.Background) ElseIf type = "CLOSED" Then xy.X = inputcd.Location.X xy.Y = 41 inputcd.Visible = True inputcd.Location = xy xy.X = boardlbl.Location.X xy.Y = 10 boardlbl.Location = xy xy.X = board_cancel.Location.X xy.Y = 65 board_cancel.Location = xy End If End Sub Isto é quando invocamos a tal board e para fazer cada coisa que queremos, exemplo: Como Invocamos isto? Private Sub board_msg(ByVal msg As String, ByVal btn As String, ByVal type As String); Chamamos assim: board_msg("Mensagem que mandamos para o a label para mostrar","Texto do Butão","Isto é o tipo da board que sera" O type(tipo) da board é o que definos para ele fazer, do genero: ElseIf type = "CLOSED" Then Se o type metermos "CLOSED" então ele faz uma ação, tal e qual como "SAVE" faz outra xD, somos nós que definimos as ações. Exemplo Simples de "Vais ser ligado ao servidor": board_msg("Vais ser ligado ao servidor.","Cancelar","CONNECT") lgnBoard Keydown Funcs