[Tutorial] Lendo as Hotkeys Tibia.cfg

Postado Agosto 2, 2012 12 anos

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

Imports System.IO


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