[Tutorial] Lendo as Hotkeys Tibia.cfg

[Giovani 3]

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

duvida ? posta ai !

Editado Agosto 2, 2012 por Giovani (veja o histórico de edições)

[Kimoszin 1160]

Eu tenho uma duvida, tu vai postar os créditos ou vou ter que te banir?

[Giovani 3]

lol venho ajudar , i levo essa,

credito e meu !

se esta parecido me mostre ! tem essa que e parecido http://tpforums.org/forum/thread-10372.html , pq eu nao copiei nada de la nao lol

:/

[Kimoszin 1160]

Calma, só estava brincando.

Faltou o Imports System.IO.

[Giovani 3]

hueheuheuehuehuheuheuheuhuehuehuheuheuheuheuheuuheuheuhuehuheuheuheuheuheuheuheuhueh

me deicho louco, lol vou perde a acc ! heuheuhe

intao falto o Imports System.IO mesmo ,i tbn nao sei c++ :/ so vb.net

[Mek Fiuchem 212]

Retroll kkkkkkkkkkkkkkkkkk

Caraca eu vi um tutorial assim so não sei aonde, porem era diferente :/

Bom tutorial, mais ai em que isso pode ser usado ? da uns exemplos de funçoes que pode usar