.png.020ba42dce1a4aa16afd44c8368fd85d.png)
Histórico de Edições
Please note that revisions older than 15 days are pruned and will no longer show here
Não há histórico de edição para mostrar, ou este comentário foi editado por um moderador.
-
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 !
-