lucasyori

THE POWER IN YOUR HANDS



VERSÃO 1.0 BETA




FUNÇÕES


• Tools
- LIGHT HACK
- EXP INFO.
- OUTFIT HACK
- ADDON HACK
- TIBIA MC
- RECONNECTER
- LEVEL SPY
- AUTO FISHING

• Healer
-SPELL HEALING
- ITEM HEALING
├ IDs LIST
- FRIEND HEALING
- CURE POISON / PARALYZE
- AUTO UTAMO
├ AUTO UTANI HUR
├ AUTO EXANA POX

• Cave Hunting
- Targeting
- Rune / Spell Attack
○ Walker
├ Add Position
├ Ramp (All Positions)
├ UP (Ladder / Rope)
├ Learn Waypoint
├ Accept NG Waypoints
○ Looting

• Trainer
- Magic Trainer
- Anti Idle
- Show Skills/h
- Training with Monks/Slimes
- Eat Food

• Configuration
- Tray Icon
- Save/Load Settings
- Info. To Reconnecter

• Scripter
- Script Editor (Same as TibiaBOT NG)**


** - NÃO TENHO CERTEZA DESTA FUNÇÃO, POIS NÃO SEI SE DA PRA FAZER NO VISUAL BASIC
• BOT INDETECTÁVEL



IMAGENS













CONSIDERAÇÕES FINAIS


Bom, queria deixar algumas coisas meio que claras antes de terminar o tópico. Gostaria que soubessem que o projeto não é OpenSource, portanto não vou disponibilizar códigos do mesmo, o projeto não tem prazo para término porque eu estou iniciando no VB e não sei muito, quero ver vocês deixando sugestões de funções, designer, enfim, use sua imaginação e dê críticas construtivas pois talves elas mudem o futuro do BlackBOT.

Atenciosamente,
Guilherme.

Version



1.0




Tibia Version



8.60




Developer



FaNtA




The BOT INTEND TO LEAVE WITH ALL THE FOLLOWING FUNCTIONS:



healing



Rune maker



Mana Training



Cave bot



Alarms



Smile treiner



Auto-Fishing



Reconnect



Eat food



anti kick



Among other functions





Screenshots:























Only speak english
if any one want to help with the project add my msn [email protected]

Irá precisar de:2 - Label
1 - ProgressBar
-
-
Tutorial Programa:#Label:
Label1 = Renomeie para "Atualizando :"
Label2 = Deixe como está
-
#ProgressBar:
Não é necessario modificar, deixe do tamanho que quiser.
-
-
Tutorial Update:#Crie as pastas no seu FTP (Hospedagem)
www\Update\
www\Update\Versao\
-
Coloque os arquivos lá.
Configure (NomePrograma1, NomePrograma2, NomePrograma3).exe , Links conforme seu ftp do seu jeito.
-
-
Source/Código:
Imports System.Net Imports System.Security.Cryptography Public Class Form1 Dim V_Programa As String = "" Dim V_Programa2 As String = "" Dim V_Programa3 As String = "" WithEvents wb As New WebClient Dim _arquivos As String Dim _arquivos1 As String Dim _arquivos2 As String Dim _arquivos3 As String Dim _arquivos4 As String Dim int As Integer = 0 WithEvents webclient1 As New WebClient WithEvents webclient2 As New WebClient WithEvents webclient3 As New WebClient WithEvents webclient4 As New WebClient WithEvents webclient5 As New WebClient WithEvents webclient6 As New WebClient WithEvents webclient7 As New WebClient Private Function getFileMd5(ByVal filePath As String) As String Dim File() As Byte = System.IO.File.ReadAllBytes(filePath) Dim Md5 As New MD5CryptoServiceProvider() Dim byteHash() As Byte = Md5.ComputeHash(File) Return Convert.ToBase64String(byteHash) End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On Error Resume Next Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma2.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa2 = (Clipboard.GetDataObject().GetData(DataFormats.Text).ToString()) Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma3.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa3 = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Dim versaodosite1 As String = webclient1.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma.php") If versaodosite1 = V_Programa Then Dim versaodosite2 As String = webclient2.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma2.php") If versaodosite2 = V_Programa2 Then Dim versaodosite3 As String = webclient3.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma3.php") If versaodosite3 = V_Programa3 Then Label2.Text = "Não há novas atualizações!" ProgressBar1.Value = "100" MsgBox("Os arquivos ja estão atualizados!", MsgBoxStyle.Information, "") Me.Close() Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If End Sub Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted int = +1 If _arquivos.Contains("[nomedoprograma]") Then _arquivos = _arquivos.Replace("[nomedoprograma]", "") Label2.Text = "nomedoprograma.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma.exe"), Application.StartupPath & "\nomedoprograma.exe") 'Caso queira adicionar mais 1 arquivo para download so subistituir ElseIf _arquivos2.Contains("[nomedoprograma2]") Then _arquivos2 = _arquivos2.Replace("[nomedoprograma2]", "") Label2.Text = "nomedoprograma2.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma2.exe"), Application.StartupPath & "\nomedoprograma2.exe") ElseIf _arquivos3.Contains("[nomedoprograma3]") Then _arquivos3 = _arquivos3.Replace("[nomedoprograma3]", "") Label2.Text = "nomedoprograma3.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma3.exe"), Application.StartupPath & "\nomedoprograma3.exe") ElseIf _arquivos4.Contains("[Cancel]") Then _arquivos4 = _arquivos4.Replace("[Cancel]", "") Label2.Text = "ATUALIZAÇÃO CONCLUIDA !" MsgBox("Atualização dos programas foram atualizadas com sucesso !", MsgBoxStyle.Information, "") Me.Close() Else MsgBox("Erro ao atualizar arquivos tente novamente mais tarde.", MsgBoxStyle.Critical, "") End If End Sub Private Sub UpdateWC() On Error Resume Next If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma.exe") Then _arquivos &= "[nomedoprograma]" Else _arquivos &= "[nomedoprograma]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma2.exe") Then _arquivos2 &= "[nomedoprograma2]" Else _arquivos2 &= "[nomedoprograma2]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos3 &= "[nomedoprograma3]" Else _arquivos3 &= "[nomedoprograma3]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos4 &= "[Cancel]" Else _arquivos4 &= "[Cancel]" End If Call wb_DownloadFileCompleted(Nothing, Nothing) End Sub Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged ProgressBar1.Maximum = e.TotalBytesToReceive ProgressBar1.Value = e.BytesReceived End Sub End Class -
- Resultado Final:


 
-
-
Atenciosamente, Stigal.

Primeiramente: Peço desculpas se errei o lugar porque pra min um Client de algum server e um ultilitario então peço desculpas se errei novamente o lugar.
 
Segundamente: Aqui estou postando um Client parecido com o da PXG Logo digo não fui eu que fiz e ele e beta então pode a ver rejeição em alguns servers eu testei ele no servidor de poketibia do gabrielTxu 3.0 a 3.2 e as vezes a vara de pescar não funciona então quem quiser pegar como base para seu Client pode usar a vontade. Por isso que estou postando e uma base não um pronto para usar entendido então não me venha reclamar dizendo que enganei vocês.
 
Aqui esta uma print:
 

 
Aqui esta o Download do Client:
 
CLICK AQUI
 
SCAN:
 
CLICK AQUI
 
Me agradecer não cai o dedo Vlws.
 
Um grande abraço e fiquem com Deus.