.png.020ba42dce1a4aa16afd44c8368fd85d.png)
-
Quem Está Navegando 0 membros estão online
Nenhum usuário registrado visualizando esta página.
-
Conteúdo Similar
-
Por Giovani
Olá pessoal Vou mostrar como ler as hotkeys do tibia através da configuração dele "Tibia.cfg"
Bem segue o Codigo em Vb.net
Dim Tibiahotkey = System.Environment.GetFolderPath((System.Environment.SpecialFolder.ApplicationData)) & "\Tibia\Tibia.cfg" Dim readerlinha As New System.IO.StringReader(Tibiahotkey) Using reader As StreamReader = New StreamReader(Tibiahotkey) Dim line As String line = reader.ReadLine Do While (Not line Is Nothing) line = reader.ReadLine If Mid(line, 1, 6) = "Hotkey" Then line = line.Replace("Hotkey = (", "") line = line.Replace(")", "") Dim text() As String = line.Split(",") Dim keyw = text(0) Dim magia = text(1).Replace("\n", "") Dim Useitem = text(4) Dim itemid = text(2) 'magia = magia.Remove(0, 1) Dim count = magia.Length 'magia = magia.Remove(count - 1, count) ' magia = magia.Substring(count - 1, count) MsgBox("Key: " & key(keyw) & vbNewLine & "Magia: " & magia & vbNewLine & "Item ID: " & itemid & vbNewLine & "Use item: " & useon(Useitem)) End If Loop End Using Public Function useon(ByVal Tipo As Integer) Dim Usee As String = "" Select Case Tipo Case 0 Usee = "No Use" Case 1 Usee = "UseOnTarget" Exit Select Case 2 Usee = "UseOnYourself" Exit Select Case 3 Usee = "WithCrosshairs" Exit Select End Select Return Usee End Function Public Function key(ByVal Tipo As Integer) Tipo = Tipo + 1 Dim Usee As String = "" Select Case Tipo Case 1 Usee = "F1" Exit Select Case 2 Usee = "F2" Exit Select Case 3 Usee = "F3" Exit Select Case 4 Usee = "F4" Exit Select Case 5 Usee = "F5" Exit Select Case 6 Usee = "F6" Exit Select Case 7 Usee = "F7" Exit Select Case 8 Usee = "F8" Exit Select Case 9 Usee = "F9" Exit Select Case 10 Usee = "F10" Exit Select Case 11 Usee = "F11" Exit Select Case 12 Usee = "F12" Exit Select End Select Return Usee End Function End Class
duvida ? posta ai !
-
Por Guiiway
Bom Pessoal Hoje vim aqui lhes trazer um sistema de vip status pro Gesior
Oque Seria isso ?
Pra Quem Nao sabe é essa partizinha
Ae Voces Me Perguntam;
Guii oque vai acontecer com ela ?
R: Simples. Quando alguem compra dias Vips no Seu ot
Desse Status:
Vai pra Esse:
Claro que nao vai fica so com 1 Dia Vip isso vai Depender de quantos dias Vip's Voce Vai Vender...
Bom. Mao na Massa !
Se Voce Usar Vip no System de Viptime Clique Em Mostra Logo Abaixo \/
Bom , Agora Vamos em htdocs/accountmanagement.php abra ele
Aperte CTLR+F
Agora Vamos Em htdocs/characters.php abre ele
Aperte CTRL+F
Se Voce Fazer Tudo Certinho Irá Funcionar Perfeitamente...
Se o Seu Sistema Vip For Por viptime Adicione Isso na sua Data Base ( phpymyadmin )
Se Voce Usar Vip no System de Vip_time Clique Em Mostra Logo Abaixo \/
Bom , Agora Vamos em htdocs/accountmanagement.php abra ele
Aperte CTLR+F
Agora Vamos Em htdocs/characters.php abre ele
Aperte CTRL+F
Se Voce Fazer Tudo Certinho Irá Funcionar Perfeitamente...
Se o Seu Sistema Vip For Por viptime Adicione Isso na sua Data Base ( phpymyadmin )
Se Voce Usar Vip no System de VipDays Clique Em Mostra Logo Abaixo \/
Bom , Agora Vamos em htdocs/accountmanagement.php abra ele
Aperte CTLR+F
Agora Vamos Em htdocs/characters.php abre ele
Aperte CTRL+F
Se Voce Fazer Tudo Certinho Irá Funcionar Perfeitamente...
Se o Seu Sistema Vip For Por viptime Adicione Isso na sua Data Base ( phpymyadmin )
Creditos:
Natan Beckman
Acordion
Gostou ? REP+ ENTAO *______*
-
Posts Recomendados