Bem-vindo ao Fórum!

Registre-se agora mesmo e fique por dentro da maior comunidade de Cheats do Brasil!

Search the Community

Showing results for tags 'visual basic'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Anunciantes
    • Advertise here
    • silvaBR Cheats
    • WoXArea
  • Anúncios/Eventos
    • Regras
    • Anúncios
    • Eventos do fórum
  • Feedback & Suporte
    • Tutoriais WC
    • Suporte
    • Denúncias e Reclamações
    • Sugestões
    • Depósito
  • WebCheats Premium
    • Trackers & Warez
    • Download
    • Cracking
    • Serviços Pagos - Pedidos
    • MarketPlace
    • Conteúdo Adulto
    • Taverna WebCheats Premium
  • Shooter Zone
    • Point Blank
    • Combat Arms
    • Cross Fire
    • Counter Strike
    • Battle Royale
    • Outros Shooters em Geral
    • Shooter Zone - Lixão
  • RPG/MOBA Zone
  • Outros Games Zone
  • Design Zone
  • Info Zone
  • Video Games Zone
  • Entretenimento & Diversão

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me


Discord

Found 184 results

  1. Bom pessoal esse código e método são muito simples, mas você precisará ter algum conhecimento com WEB (HTML) * Eu usei uma form2 para colocar somente a WebBrowser, mas isso é uma opção sua, caso não use, apenas remova form2 nos códigos abaixo. ToolBox necessária- Duas Textboxs e dois botões WebBrowser Pegando a id - Primeiro acessar o site devido em seguida acessar seu código com a função inspecionar elemento. Agora basta procurar a id. Os códigos usados são: Para transferir para a WebBrowser Form2.WebBrowser1.Document.GetElementById("id").SetAttribute("value", TextBox1.Text) Para receber da WebBrowser TextBox2.Text = Form2.WebBrowser1.Document.GetElementById("id").GetAttribute("value") Em caso de dúvidas, responder o tópico! Atenciosamente ObscureS
  2. Dica básica porém as vezes eficiente em alguns aspectos! Primeiro passo é localizar o Launcher principal do Chrome, em seguida crie um projeto com um botão, alguma ferramenta com a função "click" ou de acordo com o que você gostaria de usar. Shell("C:\Users\User1\AppData\Local\Google\Chrome\Application\chrome.exe -incognito www.google.com") * O local do laucher do chrome pode variar, presumo que para o seu sucesso ao tentar aplicar este método é localizando-o Atenciosamente ObscureS
  3. Bem meus amigos, voltei! Hoje vou trazer para vocês um método de fortalecer a WebBrowser do seu Visual Basic (VB.NET) deixando-a mais poderosa sem qualquer erro de variação de scripts que o antigo costuma aparecer, vamos lá. Primeiro você terá que baixar o Webkit.NET Em seguida após o término do download, descompacte-o em um lugar pelo qual você não esqueça onde está Após isso Abra seu VB.NET e crie um novo projeto Vá até a aba BUILD e dê build solution no mesmo Agora vá até a pasta onde o projeto está salvo Vá para pasta do Web Kit.NET entre na sub pasta "bin" e copie todos os arquivos para o local do projeto Agora volte para o Projeto no VB, vá até a aba TOOLS (Ferramentas), Selecione Choose ToolBox Items Agora na aba .NET Framework espere carregar todos, em seguida aperte em BROWSER Pressionando BROWSER vá até a pasta do PROJETO e selecione WebKitBrowser.dll Espere carregar e pronto, o navegador estará adicionado a TOOLBOX Download e mais sobre - WebKitBrowser.NET Link sem máscara para segurança do membro ou superior: https://sourceforge.net/projects/webkitdotnet/ Em breve mais tutoriais! Atenciosamente ObscureS
  4. Código simples para vocÊ utilizar em seu loader como forma de login do fórum! Public Function Login2(ByVal Email As String, ByVal Password As String) As Boolean Dim variavel1 As Boolean Dim variavel2 As Boolean Dim variavel3 As Boolean Dim container1 As CookieContainer Dim container2 As CookieContainer Dim codificaçao As UTF8Encoding Dim numArray As Byte() Dim reader As StreamReader Dim request1 As HttpWebRequest Dim response1 As HttpWebResponse Dim str1 As String Dim str2 As String Dim ArrayStr As String() 'bieljtzv version' Dim stream1 As Stream variavel1 = False container1 = Nothing ArrayStr = New String(5 - 1) {} ArrayStr(0) = "login=" ArrayStr(1) = Email ArrayStr(2) = "&register=0&remember=1&password=" ArrayStr(3) = Password ArrayStr(4) = "&_xfToken=&redirect=http://www.webcheats.com.br/" str1 = String.Concat(ArrayStr) container2 = New CookieContainer() codificaçao = New UTF8Encoding() numArray = codificaçao.GetBytes(str1) request1 = DirectCast(WebRequest.Create("http://www.webcheats.com.br/login/login"), HttpWebRequest) request1.Method = "POST" request1.KeepAlive = True request1.CookieContainer = container2 request1.ContentType = "application/x-www-form-urlencoded" request1.Referer = "http://www.webcheats.com.br" request1.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)" request1.ContentLength = numArray.Length 'bieljtvz version' stream1 = request1.GetRequestStream() stream1.Write(numArray, 0, numArray.Length) response1 = Nothing response1 = DirectCast(request1.GetResponse(), HttpWebResponse) container2.Add(response1.Cookies) container1 = container2 reader = New StreamReader(response1.GetResponseStream()) str2 = reader.ReadToEnd() variavel3 = str2.Contains("Incorrect password.") Or str2.Contains("The requested user") If variavel3 = True Then variavel1 = False Else variavel1 = True End If variavel2 = variavel1 Return variavel2 End Function Modo de usar If Login2(TextBox1.Text, TextBox2.Text) = True Then MsgBox("Mensagem de bem vindas") Else MsgBox("Senha ou Email incorreto") End If Credito: bieljtvz Microsoft .NET
  5. Pessoal tenho dois forms, um sendo o principal(Que vai chamar o outro form pelo clique no botão?). Quero iniciar o outro form no rodapé, centralizado. Alguém sabe? Obs, estou usando VB NET.
  6. Introdução Fala pessoal bom hoje estou trazendo um tutorial para vocês que é de adicionar um STATUS para seu LOADER. Quando estiver ONLINE na HOST ele estará ONLINE no LOADER. Quando estiver OFFLINE na HOST ele estará OFFLINE no LOADER. Quando estiver ONLINE terá cor verde e quando estiver OFFLINE cor vermelha. <3 Tutorial (Escrito) Adicione 2 Labels Label1 = STATUS: Label 2 = Verificando.... Mude o (name) do Label 2 para status. Vamos começar fazendo uma Importação: Imports System.Net Agora no Load do Form vamos declarar alguns comandos: Dim webclient1 As System.Net.WebClient = New System.Net.WebClient() Bom aqui você tem a opção de mudar a VARIAVEL para qualquer outro nome. Dim VARIAVEL As String = DownloadString("http://suahost.com/seuarquivo.txt") Bom o que fizemos nesse último comando. Declaramos a VARIAVEL do tipo STRING e que o Download seria tipo STRING (TEXTO .txt) Agora vamos dizer que o label2 é igual a VARIAVEL que é igual o .txt da sua HOST. status.Text = VARIAVEL Por que não é label2 em vez de status ? Por que no começo do tutorial pedi para mudar o name para status. Agora vamos dar as cores ao TEXTO. If status.Text = "ONLINE" Then status.ForeColor = Color.Lime Else status.ForeColor = Color.Red End If O que vai acontecer ali no último comando. Se o texto do status for igual a "ONLINE" então a cor do texto é Lime (verde bem claro) , senão for "ONLINE" vai ser Vermelho. Tutorial (Em Vídeo) https://www.youtube.com/watch?v=NpjU0zCW50A Créditos s1nkles
  7. Introdução Fala estou trazendo uma SOURCE aqui para vocês, um auto update. O mesmo do meu Project S ! Ele faz o Download da HOST em .zip, extrai o arquivo, move o original para pasta versãoantiga e move o novo para "frente" dai coloquei para renomear o arquivo da versão antiga. Porém coloquei para deletar Tudo mas é só remover algumas linhas e dar um F5 ! E CLARO TROQUE A HOST !!! Video Motrando um pouco da SOURCE !!! https://www.youtube.com/watch?v=PKRv90VxGVY Download/Scan Download Clique Aqui Scan Clique Aqui
  8. Olá pessoal da WC. Hoje vamos apreende um troque fácil e rápido de autenticação pelo php mais o VB. Vamos la? Codigo VB Public Sub check() Try Dim HWID As String = GetYourHWID() Dim Request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://seusite.com/script.php?string=" + HWID) Dim Response As System.Net.HttpWebResponse = Request.GetResponse() Dim SR2 As System.IO.StreamReader = New System.IO.StreamReader(Response.GetResponseStream) Dim odgovor As String = SR2.ReadToEnd If odgovor.Contains("1") Then 'coisas para fazer quando o usuário é verificada Else 'coisas para fazer quando o usuário não é verificado End If Catch ex As Exception 'lidar com seus erros aqui End Try End Sub Codigo PHP <?php define('FILE_NAME', 'HWID.txt'); if(isset($_GET['string'])) { $found = false; $string = $_GET['string']; foreach(file(FILE_NAME) as $word) { if(trim($word) === $string) { $found = true; break; } } echo (int) $found; } upload de script php no seu serviço de hospedagem, criar um novo arquivo .txt chamado HWID.txt ou ao seu gosto (apenas não se esqueça editar o código php se você fizer isso). Chmod 700 para o arquivo .txt que contém HWID e você está pronto para ir. Creditos: RenildoMarcio, SRDiego, Noob
  9. Olá pessoal, tudo bem?! Bom, hoje iremos aprender como fazer um simples sistema de login com banco de dados, usando o visual basic. Vamos a aula! Códigos: Form 1 ~~ > Public Class Form1 'Canal Abms 'visite http://developmentzone.info Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim login = Me.UsuáriosTableAdapter1.PassUserString(TextBox1.Text, TextBox2.Text) If login Is Nothing Then MsgBox("Erro ao tentar entrar!", MsgBoxStyle.Critical, "Falha no Login!") Else MsgBox("Login com Sucesso!", MsgBoxStyle.Information, "Login com Sucesso") Form2.Show() Me.Hide() End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class Form 2 ~~ > Public Class Form2 'Canal Abms 'visite http://developmentzone.info Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed MsgBox("Até a próxima!", MsgBoxStyle.Information, "TCHAU!") Form1.Close() 'MsgBox("Até a próxima!", MsgBoxStyle.Information, "TCHAU!") End Sub Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class Caso queira o projeto pronto, clique no link abaixo: Download Scan Meu novo canal: Canal Abms Créditos Abms(OverKiller)
  10. Fala galera da Web cheats:h: Mas uma source oio0kol Com informação do computador com auto updater e outros e um projeto simples Abrindo Interface https://www.youtube.com/watch?v=ul05LGLQd9Q Scan: https://www.virustotal.com/pt/file/2e75644c9959ae697239195a999e51a21deca4108074427488d3b8a2ad97571f/analysis/1476816647/ Download source: REMOVIDO Creditos : :talking:DevelopSxST4LK3R:mm: :h:Equipe dev zone:h: :h:developmentzone:h: :nerd:
  11. Olá pessoal, tudo bem?! Bom, hoje iremos aprender como fazer que seu projeto "lembre" do Login e da Senha do usuário. Bons estudos e aproveitem o tutorial. Códigos - Form1 Public Class Form1 'Canal Abms Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If My.Settings.check = True Then TextBox1.Text = My.Settings.usuario TextBox2.Text = My.Settings.senha Else End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = My.Settings.usuario And TextBox2.Text = My.Settings.senha Then MsgBox("Login com sucesso!", MsgBoxStyle.Information, "#SUCESSO!") Form2.Show() Me.Hide() Process.Start("https://www.youtube.com/channel/UCjAOcXFgfD60TAZ2z5EFIHQ") Else MsgBox("Login falhou!", MsgBoxStyle.Critical, "#ERRO!") End If End Sub Private Sub AdicionarUsuárioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdicionarUsuárioToolStripMenuItem.Click If CheckBox1.Checked = True Then My.Settings.check = True Else My.Settings.check = False End If My.Settings.usuario = TextBox1.Text My.Settings.senha = TextBox2.Text My.Settings.Save() TextBox1.Text = "" TextBox2.Text = "" TextBox1.Focus() MsgBox("Usuário Adicionado!", MsgBoxStyle.Information, "Sistema") End Sub Private Sub DetalhesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DetalhesToolStripMenuItem.Click If MsgBox("Usuario: " + My.Settings.usuario + " Senha: " + My.Settings.senha, MsgBoxStyle.Information, "Info Conta") Then End If End Sub End Class Códigos - Form2 Public Class Form2 'Obs que esqueci: quando a form2 for finalizada, irá finalizar a árvore de todo projeto! Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Form1.Close() End Sub End Class Downlod do Projeto Scan do Projeto [/url] Meu novo canal: Canal Abms Créditos Abms(OverKiller)
  12. Olá pessoal, tudo bem?! Bom, hoje iremos aprender como inserir/adicionar um Captcha no seu projeto. Bons estudos e aproveitem o tutorial. CLASS: Imports System.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Drawing.Drawing2D Class AbmCaptcha Inherits PictureBox Public randomstr As String #Region "Propriedades" Private _textcolor As Color = Color.Black Public Property TextColor() As Color Get Return _textcolor End Get Set(ByVal value As Color) _textcolor = value Invalidate() End Set End Property Private _font As New Font("Segoe UI", 20) Public Overrides Property Font() As Font Get Return _font End Get Set(ByVal value As Font) _font = value Invalidate() End Set End Property Private _texttouse As String = "[email protected]!-" Public Property RandomCharacters() As String Get Return _texttouse End Get Set(ByVal value As String) _texttouse = value Invalidate() End Set End Property Private _captchalength As Integer = 8 Public Property CaptchaTextLength() As Integer Get Return _captchalength End Get Set(ByVal value As Integer) _captchalength = value Invalidate() End Set End Property Private _numberoflines As Integer = 50 Public Property NumberOfLines() As Integer Get Return _numberoflines End Get Set(ByVal value As Integer) _numberoflines = value Invalidate() End Set End Property #End Region #Region "Eventos" Public Sub New() SetStyle(ControlStyles.AllPaintingInWmPaint, True) SetStyle(ControlStyles.ResizeRedraw, True) SetStyle(ControlStyles.UserPaint, True) SetStyle(ControlStyles.OptimizedDoubleBuffer, True) SetStyle(ControlStyles.SupportsTransparentBackColor, True) End Sub Protected Overrides Sub CreateHandle() MyBase.CreateHandle() Me.Size = New Size(241, 69) Me.BorderStyle = BorderStyle.FixedSingle End Sub Public CaptchaText As String = String.Empty Private rnd As New Random() Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim B As New Bitmap(Width, Height) Dim G As Graphics = Graphics.FromImage(B) Dim BoxSize As New Rectangle(0, 0, Me.Width, Me.Height) Dim txtcolor As Brush = New SolidBrush(Color.FromArgb(rnd.[Next](160, 255), _textcolor)) G.SmoothingMode = SmoothingMode.HighQuality G.Clear(BackColor) For I As Integer = 0 To _numberoflines - 1 G.DrawLine(New Pen(Color.FromArgb(rnd.[Next](128, 255), CreateRandomColor())), rnd.[Next](0, BoxSize.Width), rnd.[Next](0, BoxSize.Height), rnd.[Next](BoxSize.Width), rnd.[Next](BoxSize.Height)) Next Dim SFormat As New StringFormat() SFormat.Alignment = StringAlignment.Center SFormat.LineAlignment = StringAlignment.Center G.RotateTransform(rnd.[Next](-7, 7), MatrixOrder.Append) randomstr = CreateRandomString() G.DrawString(randomstr, Font, txtcolor, BoxSize, SFormat) CaptchaText = randomstr e.Graphics.DrawImage(B, 0, 0) G.Dispose() B.Dispose() End Sub #End Region #Region "Criador de Randoms" Private Function CreateRandomColor() As Color Return Color.FromArgb(100, rnd.[Next](255), rnd.[Next](255), rnd.[Next](255)) End Function Private Function CreateRandomString() As String Dim buffer As Char() = New Char(_captchalength - 1) {} For i As Integer = 0 To _captchalength - 1 If _texttouse = String.Empty Then Dim newtext As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmopqrstuvwxyz1234567890" buffer(i) = newtext(rnd.[Next](newtext.Length)) Else buffer(i) = _texttouse(rnd.[Next](_texttouse.Length)) End If Next Return New String(buffer) End Function #End Region End Class FORM: Public Class Form1 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click AbmCaptcha1.Refresh() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = AbmCaptcha1.CaptchaText Then MsgBox("Bem-vindo!", MsgBoxStyle.Information, "#SUCESSO") Form2.Show() Me.Hide() Else MsgBox("Tem algo errado!", MsgBoxStyle.Critical, "#ERRO") AbmCaptcha1.Refresh() End If End Sub End Class[/left] Meu novo canal: Canal Abms Créditos Abms (OverKiller)
  13. Olá pessoal, tudo bem?! Bom, estou eu aqui novamente a postar tutoriais/ajudas para vocês. Queria pedir a atenção de todos para o início do vídeo, pois eu falo algo muito importante sobre o porque que eu dei uma "parada" nos fóruns e no meu antigo canal. Desde já, agradeço a todos, e bons estudos. Código: Imports System.Management Public Class Form1 'ABM 2016 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim HWID As String = String.Empty Dim mcl As New ManagementClass("win32_processor") Dim MOBC As ManagementObjectCollection = mcl.GetInstances() For Each mob As ManagementObject In MOBC If HWID = "" Then HWID = mob.Properties("processorID").Value.ToString() Exit For End If Next MsgBox("Seu HWID é : " & HWID) End Sub End Class Meu novo canal: Canal Abms Créditos: OverKiller (ABMS)
  14. Olá pessoas do meu brasil , tudo tranquilo?... Hoje Irei Ensinar Como Criar Hacker... Explicações: Address = Endereço Value = Valor Programas necessários: Visual Basic 2008\2012 Cheat Engine (Já No Pack De Arquivos) Gerador de Address (Já No Pack De Arquivos) Passo: 1 1 - Baixe os Programas (Contém: Cheat Engine é Gerador de Address): Link: http://bit.ly/2cBpVLS Scan 1: http://bit.ly/2dpJplp - 0\55 Scan 2: http://bit.ly/2cv3cTp - 0\19 - (Senha Para Extrair: chmrplays) - Passo: 2 (Já pode ver que não há vírus em nenhum , Arquivo Dentro da Pasta!) 2 - Abra Todos Os Programas (Cheat Engine , Gerador de Address é Visual Basic) é também , Abra o seu Jogo! ... Passo: 3 , 4 é 5 3 - Já Com Cheat Engine Aberto vá até o Computador piscando é selecione o seu game (Meu Caso: Counter Strike 2D) 4 - Decida o seu cheat (Speed Hack , Aimbot , Auto-Fire , No Spreed , No Recoil , Vida Infinita , Spawnar Arma , Pente Infinito , Munição Infinita , Colete Infinito , Anti-HeadShot , Anti-Kick é etc...) Vários hackers para se criar , certo? ... (No meu Caso Seria: Munição Infinita , Todas As Armas! ...) 5 - Já selecionado o seu jogo é escolhido seu hacker , Vamos Para 5 Etapa! ... (Já que meu hacker é munição infinita iremos fazer de munição infinita... Obvio) Começe uma Partida Sendo SinglePlayer , Coop Ou Multiplayer! ... Passo: 6 , 7 , 8 é 9 6 - Veja qual é seu speed , munição ou o hacker que você deseja fazer! ... (No Meu caso é 20 de munição! Irei Até a Barra: Value (É colocarei meu valor de munição: = 20) 7 - Faça o First Scan! Veja os resultados... Atire ou mude o speed! ... (Minha Munição ficou 19 , certo? ...) (Vamos até a barra: Value é Colocamos o Valor de munição = 19) ... 8 - Faça o Next Scan Veja Os Resultados (Pode Aparecer Vários resultados geralmente o primeiro é o verdadeiro) já feito o Next Scan dê 2 cliques no seu address... 9 - Já com seu Address em mãos Modifique seu Value Para 999 ou 99 dependendo do jogo! ... já modificado o Value você já está a saber se o address é verdadeiro ou não! ... Teste se funcionou! ... Passo: 10 é 11 10 - já Com o Address Funcionando , Clique Com Botão direito no address vá em: Pointer Scan For This Address Já Clicado de o ok é Salve numa pasta que você não ira mexer! ... Espere a barra carregar , depois ira começar encontrar pointers sé demorar muito aperte em stop 11 - Selecione 5 address (Geralmente o Primeiro é o Verdadeiro! ...) Agora , Feche o Jogo é abra novamente... é também novamente vá ate o computador piscando é selecione novamente o seu game , Quando selecionar Aparecera uma caixa de dialogo escrito: ("Keep The current Address list/code list?") Você Aperta ("Yes")! ... Inicie Novamente a partida para carregar os pointers! Okay já feito isso os pointers carregaram é você sabera qual é verdadeiro ou não os address que tiverem ("??") no final é porque são Inválidos... Agora você sabe qual é verdadeiro ou não! ... ache o verdadeiro é de 2 Cliques em Address no Pointer já clicado ira aparecer os pointers é tudo mais... Em Baixo dos pointers há o codigo no meu casso é: ( "CounterStrike2D.exe"+0029EFAC ) Copie seu codigo é dê ok... de 1 Clique Com botão direito em Browse "This Memory Region" Depois vá ate qualquer pointer é clique com botão direito é vá em "Go To Address" é coloque seu address o meu é ("CounterStrike2D.exe"+0029EFAC) achou seu address vá com botão direito em cima do seu address é vá em "Add to code list" ... Copie o codigo do texto "From" no caso o meu é ( 0069EFAC ) Certo pode fechar a aba "Browse This Memory Region" é vá ate seu address com 2 cliques , clique em Address Onde estava isto: ("CounterStrike2D.exe"+0029EFAC) Você coloca o seu: (0069EFAC) ... Certo copie os OffSets: no meu caso é: ("1a0" é "18")... Parte: 12 (última): 12 - Abra o Gerador de address é coloque seu address no pointer é seus offsets no offset é defina o tanto de offsets!... é no process name coloque o nome do processo sem ".exe" É Clique em gerar codigo! Abra o Visual Basic... Crie um projeto é coloque 1 modulo 1 timer é uma checkbox Quanto Mais Hacks , Mais Timers é checkboxs ... no modulo coloque este codigo: Link Codigo: http://pastebin.com/FiGkLpXE na checkbox1 coloque isto: if Checkbox1.checked = true then timer1.start else timer1.stop End if Dê um cliques no timer1 é em: (Interval) Coloque (1) ... dentro do timer coloque isto: if checkbox1.checked = true then (Codigo gerado) else (Codigo Gerado Revertido) End If EXEMPLO: If checkbox1.checked = true then WritePointerByte("CounterStrike2D",&H0069EFAC, 99, &H1a0, &H18) else WritePointerByte("CounterStrike2D",&H0069EFAC, 20, &H1a0, &H18) End If No Else você muda para 0 ou 20 ou o valor que você quiser! ... Pronto só testar! ... Creditos: Tutorial é Post: MrplaysPlays Gerador De Address: Spunk Cheat Engine: Cheat Engine Dúvidas chame chat ou mande email ou até mesmo me add no skype! ... Skype: brunoalexandre11 email: [email protected]
  15. [https://www.youtube.com/watch?v=ph7yU2fLpC0 By : Henriique Hacking [Dark ~ ] SRC : Na Descrição do Video ! Youtube Download Avançado
  16. Ddos PowerBits: Compatibilidade: Windows 10 - 32 e 64 Bits (Funcional) Windows 8.1/8 - 32 e 64 Bits (Não Testei) Windows 7 - 32 e 64 Bits (Não Testei) Windows XP- 32 e 64 Bits (Não Testei) Comenta se pegar Print's http://prnt.sc/cf0c8a http://prnt.sc/cf0ct6 http://prnt.sc/cf0cw7 -Tutorial Simples- 1º Baixe o Ddos 2º Execute com Administrador 3º Abra o CMD para pegar o Ip do Site Digite (ping+ nome do site sem o HTML e /). 4º Cole o ip do site no Ddos Download: https://www.sendspace.com/file/q6ms05 Scan: https://virustotal.com/pt/file/f440...7acf422701ed59c4a9d73f15/analysis/1473203168/ OBS: Não Funciona em Sites Grandes , não funciona em todos os sites tambem Creditos: @PowerBits
  17. Bom Membros Da WebCheat Hoje Estou trazendo uma Source De Auto Update Para Loader ou Outros Progama Que Você Irá Criar ! 1- Crie Seu Projeto ! 2- Após Ter Criado De Dois Clique No Form 3- Cole O Code Que Você Irá Pega Logo Abaixo ! 4- Depois De Colar Você Irar modificar Os Host Para o Seu ! 5- Você Vai Criar um Bloco De Notas e Escreve a versão Do Seu Progama Nele 6- E Vai Salvar com o nome versao.txt ; Versão Voce DigitaAssim :http://prntscr.com/ceuc3v 7- Apos Colocar O Codigo no Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Vocês Irão Public Class Form1 e Dar um Enter Para ele ir para baixo e colar Esse codigo que Está No Print (Print = http://prntscr.com/ceue66 ) 8- De F7 ou F11 E Seja Feliz Se Gostou Deixa Aquela Curtida haha Source Code 01 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load If System.IO.Directory.Exists("C:\Windows\Pasta") Then System.IO.Directory.Delete("C:\Windows\Pasta") End If If MessageBox.Show("Primeira Vez No Nosso Loader ? , Veja O Tutorial ", "Duvida|Tutorial", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = MsgBoxResult.Yes Then Process.Start("www.youtube.com") ' Link Do Video Tutorial Do Seu Loader End If Dim web As New WebClient 'Para o Download Da Nova Atualização Dim UltimaVersao As String = web.DownloadString("wwww.seuhost.com/versão") 'Para verificar a versão atual e decidir se há ou não updates. Dim VersaoDessePrograma As String = My.Application.Info.Version.ToString 'Encontra a versão do programa. If VersaoDessePrograma < UltimaVersao Then If MessageBox.Show("Detectamos Uma Nova Versão Do Loader!" & vbNewLine & "Você Deseja Atualizar?", "Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then 'Messagebox perguntando se a atualização deve ou não ser feita. My.Computer.Network.DownloadFile("www.seuhost.com/Loader.exe", Application.StartupPath & "\Atualizado\Loader.exe") 'Se for escolhido Yes, será baixada a nova versão do programa e criada uma nova pasta para colocar o arquivo baixado. MsgBox("O Seu Loader foi atualizado com sucesso, Apague a versão anterior! , E Inicie A Nova Versão " & vbNewLine & "O Loader vai ser Fechado.") 'Dizendo que o aplicativo vai fechar End 'Sai do aplicativo Else 'Se escolherem não End If Else MsgBox("O Seu Loader Está Loader já está atualizado", vbInformation, "Atualizado") 'Informa que o programa ja estava atualizado. Timer1.Start() If IO.File.Exists("C:\Windows\Pasta\Laoder.exe") Then IO.File.Delete("C:\Windows\Pasta\Loader.exe") End If End If Demostração https://www.youtube.com/watch?v=63oCyFqUygs Desculpe Pela Má Qualidade Do Video.
  18. • Windows Startup [ SRC ] • Função : Mostrar os programas que iniciam com o windows ! • Lembrando que não possui nenhuma função , apenas mostra os programa que iniciam com o windows • Errei em algum codigo e os icones fico tudo errado kkkkkkk { ARRUMADO } • Veja os Prints abaixo : ::. Download : https://www.sendspace.com/file/sb9p6a { Download com o bug dos icones corrigido! } ::. Scan : https://goo.gl/WZSzKX
  19. Eae galera, espero que gostem mais uma das minhas criações! Para você que é amante do famoso GTA San Andreas , desenvolvi essa ferramenta muito útil que faz as instalações dos principais componentes e ajuste para o jogo, espero que gostem... Informações: Em Português | Gratuito | 250MB | Para Windows XP/Vista/7 | Downloads Gratix Download: GTA SA Fixer v1.2.2015 Scan: GTA SA Fixer v1.2.2015 *apenas do .exe pois o arquivo e muito grande Agradeça não vai cai o dedo! Créditos DownloadsGratix
  20. Eae galera, espero que gostem mais uma das minhas criações! Extraia todos os tipos de ícones de qualquer Executável Descrição: X-Icon Extract permite ao usuário extrair todos os ícones de um Executável, incluindo ícones XP de arquivos DLL, DRV, EXE, SCR, VBX, IL, NI, ICL e OCX para os formatos de imagem BMP, GIF, JPG, TIF e PNG. Designer único e agora em Português-BR e Inglês-EN. Informações: Em Português/Inglês | Gratuito | 16,6 MB | Para Windows XP/Vista/7 | Downloads Gratix Download: X-Icon Extract 1.0 Scan: X-Icon Extract 1.0 *Obs.: Está com problema na hora de abrir vai aparecer um código em HTML é só fechar, que o programa vai inciar normal... Agradeça não vai cai o dedo! Créditos DownloadsGratix
  21. Converter e salvar vídeos para MP3 diretamente do Youtube. O que é MP3Tube Downloader? O YouTube é, com certeza, um dos sites com maior acervo do mundo. Com tanto potencial, você já parou para pensar que o YouTube pode ser uma ótima fonte para downloads de músicas? Quem não possui uma conexão potente para baixar arquivos, pode apelar para o YouTube e montar um enorme acervo de músicas. Como Usar? Assim como na maioria dos aplicativos do gênero, você precisa seguir poucos passos para baixar suas músicas. O primeiro passo é entrar no YouTube, encontrar o vídeo, clipe, comercial ou o que desejar e copiar o link da página. Em seguida, abra a janela do MP3Tube Downloader e cole a URL no quadro “URL do YouTube”. O Segundo passo é clicar em Converter, aguarde alguns segundos é os servidores são encontrados automaticamente, basta clicar em Download para fazer a operação.. Atualizado: Bugs corrigidos; Servidores atualizados; Contador de vídeos convertidos; Novo sistema de Download; Escutar a música; Detalhes com Nome e Duração. Informações: Versão: 0.3.0.2 Tamanho: 715.0KB Scan : VirusTotal *Com Instalador Obrigatório instalar o .NET Framework 4.5
  22. Eae galera, espero que gostem uma das minhas criações! Hoje vim mostrar o FireFile feito em Visual Basic 2010. Cliente/Servidor de FTP totalmente gratuito e fácil de usar. Descrição: FireFile é um programa pequeno e simples para serviços FTP. Interface e uso: O FireFile funciona apenas com uma janela. Primeiro entre em um servidor a ser utilizado, segundo selecione uma das opcões do programa(Upload, Download e Deletar). E isso ae qualquer coisa e-mail: [email protected] Preview: Download: FireFile Client.zip Scan: SCAN - FireFile Client.zip Visitem para mais informação: DownloadsGratix - FireFile Client.zip --- Comente ai sobre o programa e se tiver alguma duvida que eu possa ajuda é só pergunta não custa nada.... Até mais, e façam o Download a Vontade. =D Esperam que tenha gostado do programa ele ainda n foi testado em outro PC, mas no meu funcionou 100%.... Agradeça não vai cai o dedo! Créditos DownloadsGratix
  23. ::. COMO OTIMIZAR A RAM DA SUA APLICAÇÃO VB.NET ::. ::. PRIMEIRAMENTE CRIE UM PROJETO E ADICIONE UM TIMER COM O NOME DE " CLEAR " ::. ::. DEIXE O TIMER ATIVADO E O INTERVAL EM 1 ::. ::. APÓS TER FEITO ISSO DÊ 2 CLIQUE NO TIMER E APAGUE O CODIGO SELECIONADO : [spoiler=PRINT] ::. AGORA COLE ESSE CODIGO : ::. [spoiler=CODIGO]http://pastebin.com/nXztViV1 ::. DEPOIS APERTE F6 E DÊ 2 CLIQUE NO ERRO QUE APARECER E EXCLUA ESSES CODIGO ABAIXO : ::. [spoiler=PRINT] ::. PRONTO AGORA A RAM DO SEU PROGRAMA IRÁ FICAR OTIMIZADA ::. ::. IMG COM O TIMER DESATIVADO ::. [spoiler=DESATIVADO] ::. IMG COM O TIMER ATIVADO ::. [spoiler=ATIVADO]
  24. Bom o titulo ja diz tudo, quero tipo um uploader pro meu programa pra enviar video mais não consigo, se não tiver como da pra colocar a dll de outro webbrowser nele?