[Dúvida] Loader/Funções

[Augusto 661]

Felipe, não é tão complicado, vou postando o código e explicando.

Primeiro eu verifico se o Tibia esta aberto.

Dim processo As Process() = Process.GetProcessesByName("tibia")

               If processo.Length > 0 Then


               Else

          End If

Ou seja, a variavel "processo" irá receber quantos clientes do Tibia esta aberto, caso seja mais de 1, ele da continuidade na execução, ai caso não tenha nenhum cliente aberto, no else poe a mensagem de erro. O meu bot utiliza o ClientChooser da Api, então ensinarei como eu o fiz. No ClientChooser, caso nenhum char esteja/seja selecionado na lista, o mesmo retorna o valor null, ficando facil a escolha.

c = ClientChooser.ShowBox()

If c IsNot Nothing Then

	If c.LoggedIn Then

		p = c.GetPlayer()

	Else

		MessageBox.Show("Nenhum char logado!", "Nenhum char logado!", MessageBoxButtons.OK, MessageBoxIcon.[Error])

		Application.[Exit]()

	End If

Else

	MessageBox.Show("Nenhum char logado!", "Nenhum char logado!", MessageBoxButtons.OK, MessageBoxIcon.[Error])

	Application.[Exit]()

End If

Ou seja, caso o valor retornado pelo "c" seja null, o mesmo informará que não tem nenhum char logado, e encerra a aplicação. Agora o código todo.

Dim processo As Process() = Process.GetProcessesByName("tibia")

If processo.Length > 0 Then

	c = ClientChooser.ShowBox()

	If c IsNot Nothing Then

		If c.LoggedIn Then

			p = c.GetPlayer()

		Else

			MessageBox.Show("Nenhum char logado!", "Nenhum char logado!", MessageBoxButtons.OK, MessageBoxIcon.[Error])

			Application.[Exit]()

		End If

	Else

		MessageBox.Show("Nenhum char logado!", "Nenhum char logado!", MessageBoxButtons.OK, MessageBoxIcon.[Error])

		Application.[Exit]()

	End If

Else

	MessageBox.Show("Tibia não esta aberto!", "Tibia não encontrado!", MessageBoxButtons.OK, MessageBoxIcon.[Error])

	Application.[Exit]()

End If

Caso não tenha intendido algo, só perguntar (o meu bot é feito em C#, logo eu converti o código, podendo ter erros em sintaxe).

[Felipe Sartori 5]

Isso eu consegui! Eu arrumei, só falta duas coisinhas...

Como faço para não ter como digitar no TextBox, bloquear para ninguem escrever e no ComboBox também (esqueci!)

E também, agora só falta tipo, o cara clica em Enable em uma função mas não preencheu nada e da erro!

Como ponho para aparecer a mensagem?

[JulinhoPiuPiu 100]

TextBox1.Enabled = False

TextBox1.Enabled = True

ComboBox1.Enabled = False

ComboBox1.Enabled = True

[join 112]

Olha.. não tenho nada ha ver com isso... mas se vc quer programar bot manow primeiro va aprender mais da linguagem que vc esta usando.... acho q vc fez um monte d perguntas muito de iniciante para poder ter conhecimentos suficiente para desenvolver bots.... lembrando que o nçao bom conhecimento da linguagem pode atehs er que vc consiga desenvolver um bot... mas um bot que pode chegar a dar ateh lag no tibia....

abraços