[Dúvida] Loader/Funções

[Felipe Sartori 5]

Pessoal, to com uma dúvida assim:

No meu Loader quando não tem nenhum char ON e o cara clica em Open BOT o bot da erro! Eu queria colocar para ao invez de dar erro, aparecer um erro falando: Por favor escolha seu character. como faço?

Esta questão, queria fazer nas funções!

[Flamer 115]

Qual o erro que dá?

Não conheço muito a Tibiaapi, mas provavelmente a função do clientchooser deve retornar algum valor caso não haja nenhum client aberto.

Se não descobrir por esse modo, pode tentar usar um "try".

[Felipe Sartori 5]

" If c.LoggedIn Then"

Clico em Open Portal BOT sem nada aberto, dai vai para a página de código e fica em amarelo e o BOT fexa!

[Renato 659]

cara faz tempo que eu mexo nisso ai, eu só iria saber lhe responder com os códigos, ai eu ia ler e com certeza poderia te ajudar.

mas nem to com vb instalado aqui.

[Felipe Sartori 5]

Obrigado Renato, se possível alguem me ajuda?

[Augusto 660]

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