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

Calendars

  • Community Calendar

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. Olá galera tudo bom? , espero que sim! gente estou precisando fazer essa aplicação eu mexo mais com design e não sei muito de vbnet mas eu entendo pouco no caso estou com dificuldades de fazer uma aplicação e para não ter erros queria saber se é possível eu passar código fonte e alguém posso me ajuda fazendo o projeto e me mandando o arquivo pronto pra eu editar o design do form e etc... pois aqui tá dando muito erro não sei oque é, eu conseguir uma vez mas dessa vez está hard '-', agradeço uma resposta ajuda :) Em cima da public class form 1: Imports System.Runtime.InteropServices Imports System.Threading EM BAIXO DA FORM 1 <DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", ExactSpelling:=True, SetLastError:=True)> Public Shared Sub KEYB_Event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) End Sub Const VK_KEY_Q As Byte = &H51 Const VK_KEY_W As Byte = &H57 Const VK_KEY_R As Byte = &H52 Const KEYEVENTF_KEYUP As Byte = &H2 TIMER DO MACRO If checkbox1.Checked Then KEYB_Event(VK_KEY_Q, 0, 0, 0) KEYB_Event(VK_KEY_Q, 0, KEYEVENTF_KEYUP, 0) Thread.Sleep(TrackBar1.Value) End If If checkbox2.Checked Then KEYB_Event(VK_KEY_W, 0, 0, 0) KEYB_Event(VK_KEY_W, 0, KEYEVENTF_KEYUP, 0) Thread.Sleep(TrackBar1.Value) End If If checkbox3.Checked Then KEYB_Event(VK_KEY_R, 0, 0, 0) KEYB_Event(VK_KEY_R, 0, KEYEVENTF_KEYUP, 0) Thread.Sleep(TrackBar1.Value) End If If checkbox4.Checked Then KEYB_Event(VK_KEY_R, 0, 0, 0) KEYB_Event(VK_KEY_R, 0, KEYEVENTF_KEYUP, 0) Thread.Sleep(TrackBar1.Value) End If BOTOES Timer1.start ' pra ativar Timer1.Stop ' pra desativar Propriedades da TrackBar Maximum : 100 Minimum : 1 LargeChanger : 1 Value : 50 Timer da HotKey Dim Hotkey As Boolean Hotkey = GetAsyncKeyState(Keys.F5) If Hotkey = True Then Button1.PerformClick() End If Hotkey = GetAsyncKeyState(Keys.F6) If Hotkey = True Then Button2.PerformClick() End If OBS: o aplicativo é para ficar apertando as teclas Q,W,R ou pode ser Q, W somente essas teclas e pode ser sem os botões 1 e 2 pois já tem o ativar pelo F5 e Desativar por F6 ISSO É PRA UM JOGO QUE USA AS PORÇÕES EM > Q, W, R OU PODE SER SOMENTE Q,W
  2. Salve todos os developer de plantão!!!! boa noite galera, gente estou com um projeto quase pronto no qual encontrei um erro somente com botão dele no caso TEM COMO ALGUÉM ME ADD NO DISCORD pois e um erro simples, e outra preciso de amigos, meus amigos não entendem de nada só querem jogar por ai ><
  3. Olá Galera Developer Então estou precisando fazer um Auto Pot o famoso AP para Mu Online mas o problema é que eu até fiz um mas ele não ativa pelas teclas F5 ativa e F6 desativa não da certo e só funciona eu apertando o botão na aplicação e não pelas teclas de atalho como eu queria no caso F5 ATIVA E F6 DESATIVA e tem outro problema dentro do jogo não funciona aplicação que serve para ficar apertando as teclas Q,W,E dentro do game que são as porções, dentro do jogo não funciona fica como se nada tivesse apertando "normal" agora fora do game no desktop etc...funciona aparece as letras Q,W,E apertando rapidamente. Resumo alguém pode fazer um AP E me mandar o código fonte pra eu editar tô apanhando a meses com isso:/ eu entendo pouco mas sei a logica eu to errando a programação toda :( Agradeço ajuda.
  4. Não é mistério para ninguém que criar hacks/trainer's não é uma tarefa fácil, mas hoje eu irei lhe ensinar uma combinação básica de VB.NET/.NET + Cheat Engine que nós propõe um Formulário/Software bonito/bem feito juntamente com Pointer's e Offset's, por isso eu preparei um vídeo para vocês (Sim, um vídeo feito por mim). Mas por que eu quis fazer isso? Um tempo atrás (exatamente 2015) fiz um tutorial aqui de como fazer um Trainer/Cheat mas quase ninguém teve a paciência de ler, então eu não dei muita bola, mas pulando isso, está aqui o vídeo e os códigos que você irá precisar: Downloads: [Hidden Content] [Hidden Content]
  5. OLA PRECISO DA AJUDA DE ALGUEM PARA RESOLVER MINHA DUVIDA EU SEI O BASICO DO BASICO EM VISUAL BASIC, E TO TENTANDO CRIAR UM "LAUNCHER" PARA UM JOGO QUE É JAVA ( RUNESCAPE ) GOSTARIA DE SABER SE TEM ALGUMA FORMA DE FAZER O .JAR ABRIR DENTRO DE UMA APLICAÇÃO DO VISUAL BASIC, OU SE EXISTE ALGUMA OUTRA FORMA DE FAZER ISSO VOU DEIXAR UMA FOTO COMO EXEMPLO DE COMO EU "QUERO" *Não julguem meu desenho, é so pra ilustrar mais ou menos :D EU ESTOU USANDO VISUAL BASIC 10, POIS É OQUE EU MAIS GOSTO E SEI USAR :D JA FICA AQUI MEU AGRADECIMENTO PELAS RESPOSTAS :D
  6. Bom, eu e um amigo estamos criando um servidor de PB, mas para isso precisamos de um launcher executável que mantenha uma conexão com um servidor pra quando formos lançar atualização o usuário final ter que atualizar o jogo para poder jogar. Eu queria saber como criar um programa desse tipo. Igual um loader que você baixa e quando tem atualização o programa avisa que tem.
  7. Public Sub Itens01() Dim valor As Byte = 1 For OffsetItens As Integer = &H28 To &H28 + &H53 * 2 Step 2 WritePointerByte("bio3_pc", &H44F084, valor, OffsetItens) valor += 1 Next For Quantidade As Integer = &H4B9 To &H4B9 + 53 * 2 Step 2 WritePointerByte("bio3_pc", &H44F084, 99, Quantidade) Next End Sub Credits: 'Poring
  8. Olá! me chamo Miguel e estou precisando de uma ajuda com um programa que estou precisando modificar para recriar ele para solucionar problemas em um game. Resumo! este app "exe" foi criado em Microsoft Visual C# / Basic .NET e está protegido por um pack do mesmo. então não é possível eu modificar ele com PE Explorer nem por meio do Resource Hacker, eu até tentei fazer unpack mas não tive sucesso. Alguém por favor pode recriar este programa? ou fazer unpack no mesmo para que eu possa modificar ele no ResHacker ou PE Explorer ? deixar ele tipo open source?, ou pode pegar o código fonte dele tipo todos esquema dos botões e form com os códigos pois eu manjo um pouco ai eu mesmo recriava ele no Visual Studio 2012. Link do app que eu quero modificar "eu mesmo upei ele para download" https://www48.zippyshare.com/d/zVj7Wp3v/34628/GC%20Way%20-%20W10%20Fixer.rar Scan: https://www.virustotal.com/#/url/0cbe47fd62e77bdeede4be48b1a7bcf1eacb88d9507dc4b0e3d5c2dbb703d2cb/detection Agradeço pela ajuda, obrigado pela atenção gente.
  9. Seguinte, trabalho com alguns trainers e tive uma idéia de juntar todos em 1 só, porém assim que eu compilo tento fazer a injeção dele com o FORMS 2, ele não injeta, porém se eu coloco os mesmos endereços no FORMS 1 ele injeta normal no jogo... Gostaria de saber como faço para o Forms 2 também injetar, sendo que é copia do Forms 1 apenas com addr's diferente... Os 2 trabalham com o mesmo módulo, pode ser isso ?
  10. Estou com problemas ao escrever um cheat em float estou utilizando este metodo mas da um erro não sei porque 'Escrever o valor de um endereço de memória em Float Public Sub EFP1(Offset As String, Valor As String) If PID > 0 Then Memoria.writeMemory(Ponteiro + Offset, "float", Valor) ElseIf PID = 0 Then End If End Sub
  11. Poderiam me dizer qual codigo q coloco pra um button apagar um determinado arquivo tipo (Limpadores de logs)
  12. você deve ta se perguntando, pra que diabos serve "Random/String", ele gera Strings(nome,letras,números,etc) aleatórios no nome do processo, isso serve pra anti-cheats que verificam os processo e nome de aplicativo no windows. E bem fácil de usar, segue o passo a passo a seguir e tudo dará certo. Dentro do seu projeto adicione um timer no evento do timer adicione esse código [Hidden Content][/HIDE] agora em baixo do evento do Public Class adicione esse código Function RandomString(r As Random) Dim s As String = "aqui fica sua strings aleatória" Dim sb As New StringBuilder Dim cnt As Integer = r.Next(0, 35) For i As Integer = 1 To cnt Dim idx As Integer = r.Next(0, s.Length) sb.Append(s.Substring(idx, 1)) Next Return sb.ToString() End Function
  13. Olá, estava navegando pela MSDN e achei um tópico muito interessante. Você pode usar criptografia para proteger segredos do usuário (por exemplo, senhas) e fazer com que as credenciais ilegível por usuários não autorizados. eu poderia ta explicando tudo mais acho melhor disponibilizar o link direto para vocês [Hidden Content]
  14. Bom dia, boa tarde, boa noite e se estiver de madrugada, boa madruga. Então amigos da WebXITS, estou trazendo uma source legalzinha ai para vocês, podem até utilizarem para algo diferente, mas para alegrar aqueles que querem realmente ESTUDAR A SOURCE e não só tirar meus créditos da source está ai o download <3 DIGA NÃO A ALTERAÇÃO DE CRÉDITOS. É sério... se for usar deixa os meus créditos, pode até por o seu nome do lado do meu, eu deixo. Você pergunta: O que falta ? Eu respondo: Configurar para sua host com a pasta onde estão os arquivos. A source está funcionando 100% Vejam as imagens: Link para baixar a Source: [Hidden Content] Scan: Resultado do scan
  15. Estou tentando converter porcentagem em MB e não consigo! :/ Minha duvida é que a cada porcento de um numero qualquer, ele converta em Mb ou Kb. Alguem pode me ajudar pfv! :/
  16. Verificar Rede MsgBox(My.Computer.Network.IsAvailable) Verificar se o arquivo existe na pasta: 'Fazer essa import abaixo Imports System.IO -------------------------------------------- IO.File.Exists("c:\teste.txt") Desligar/Logoff/Reiniciar 'Desliga o Computador System.Diagnostics.Process.Start("shutdown", "-s -t 00") 'Reinicia o Computador System.Diagnostics.Process.Start("shutdown", "-r -t 00") 'Faz LogOff no Computador System.Diagnostics.Process.Start("shutdown", "-l -t 00") Baixar arquivos My.Computer.Network.DownloadFile("Aqui o link", "Aqui o nome como será baixado") Abrir página da Web/Local System.Diagnostics.Process.Start("Site") Process.Start("Link") Deletar arquivo IO.File.Delete("Local do arquivo") Verificar se o programa foi aberto como administrador If My.User.IsInRole(ApplicationServices.BuiltInRole.A dministrator) Then MsgBox("O Programa foi aberto como administrador!!!") Else MsgBox("O Programa deve ser aberto como Administrador!! o programa sera fechado!") Me.Close() End If Mostrar senha CheckBox If CheckBox2.Checked Then TextBox2.PasswordChar = "" Else TextBox2.PasswordChar = "*" End If My.Settings.check2 = CheckBox2.Checked End Sub Enviar para systemtray (balãozinho da barra de tarefas) NotifcyIco ContextMenuStrip Me.Show() Button Me.Hide() NotifyIcon1.BalloonTipTitle = "Hey" NotifyIcon1.BalloonTipText = "Eu estou aqui ainda em!" & vbNewLine & _ "Mas nesse cantinho " & vbNewLine & "Não vá se esquecer de mim!" NotifyIcon1.ShowBalloonTip(500) NotifyIcon1.Visible = True Contar Timer Dim contagem As Integer = 0 contagem = contagem + 1 Label1.Text = contagem Form transparente ao mover Private Const WM_NCLBUTTONDOWN As Long = &HA1 Private Const WM_NCLBUTTONUP As Long = &HA0 Private Const WM_MOVING As Long = &H216 Private Const WM_SIZE As Long = &H5 Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message) Static LButtonDown As Boolean If CLng(m.Msg) = WM_NCLBUTTONDOWN Then LButtonDown = True ElseIf CLng(m.Msg) = WM_NCLBUTTONUP Then LButtonDown = False End If If LButtonDown Then If CLng(m.Msg) = WM_MOVING Then If Me.Opacity <> 0.9 Then Me.Opacity = 0.5 ElseIf CLng(m.Msg) = WM_SIZE Then If Me.Opacity <> 0.6 Then Me.Opacity = 0.6 End If ElseIf Not LButtonDown Then If Me.Opacity <> 1.0 Then Me.Opacity = 1.0 End If MyBase.DefWndProc(m) Minimizar e Maximizar Form Me.WindowState = FormWindowState.Minimized Me.WindowState = FormWindowState.Maximized Colocar delay ou pausa para o próximo código a ser executado Threading.Thread.Sleep(5000) Gerador numérico Dim alfabeto As String = "" For I = 65 To 90 alfabeto += Chr(I) Next Dim numero As New Random 'Função "numero aleatório" Dim senha As String = "" senha = numero.Next(1, 9999).ToString("0000") 'Aqui gera os digitos aleatórios 'quanto mais NOVES mais algarismos numéricos 'Para adicionar algo a mais use as aspas depois das aspas do ZERO 'Ex:"("0000""HEY") TextBox1.Text = senha 'Aqui é a saída Gerador de CPF válido MaskedTextBox1.Mask = Nothing Dim rnd1 As New Random() Dim strCpf As [string] = "" Dim cpf As Integer() = New Integer(10) {} Dim cpfMul As Integer() = New Integer(10) {} Dim i As Integer, somatoria As Integer = 0, digito1 As Integer, digito2 As Integer 'Gera um CPF aleatorio sem umd digito verificador For i = 0 To 8 cpf(i) = rnd1.[Next](9) Next 'Começa a gerar o primeiro digito 'Faz a multiplicação do cpf For i = 0 To 8 cpfMul(i) = cpf(i) * (10 - i) Next 'Faz a somatoria dos numeros do cpf For i = 0 To 8 somatoria += cpfMul(i) Next digito1 = somatoria Mod 11 'pega o resto da divisão da somatoria 'se o resto da divisão da somatoria for <= 2 If digito1 < 2 Then 'então o digito tem que ser 0 digito1 = 0 Else 'senão subtrai o resto de 11 e temos o digito verificador 1 digito1 = 11 - digito1 End If cpf(9) = digito1 'armazenamos o digito verificador 1 no cpf 'Começo da geração do segundo digito verificador 'Como no primeiro digito faremos a multiplicação só que dessa vez por 11-i For i = 0 To 9 cpfMul(i) = cpf(i) * (11 - i) Next somatoria = 0 'zera a somatoria para não pegar o resultado anterior; 'Faz a somatoria dos numeros do cpf(incluindo o digito verificador 1) For i = 0 To 9 somatoria += cpfMul(i) Next 'pega o resto da divisão da somatoria por 11 digito2 = somatoria Mod 11 'se o resto da divisão da somatoria for <= 2 If digito2 < 2 Then 'então o digito tem que ser 0 digito1 = 0 Else 'senão subtrai o resto de 11 e temos o digito verificador 1 digito2 = 11 - digito2 End If cpf(10) = digito2 For i = 0 To 10 strCpf = strCpf & Convert.ToString(cpf(i)) Next MaskedTextBox1.Text = strCpf End Sub Pingar uma URL MsgBox(My.Computer.Network.Ping("www.google.com",1000) Exibir resolução do vídeo MsgBox("A resolução é: " & My.Computer.Screen.Bounds.Width.ToString & "x" & _ My.Computer.Screen.Bounds.Height.ToString & " Pixels") Obter o nome completo, a plataforma e a versão do sistema operacional MsgBox(My.Computer.Info.OSFullName) MsgBox(My.Computer.Info.OSPlatform.ToString) MsgBox(My.Computer.Info.OSVersion.ToString) Obter a quantidade de memória física disponível e a memória virtual MsgBox(" ´Memória Física disponível: " & My.Computer.Info.AvailablePhysicalMemory.ToString & " bytes") MsgBox(" ´Memória Virtual disponível: " & My.Computer.Info.AvailableVirtualMemory.ToString & " bytes") Gerador de número aleatório com opções Dim r As Random = New Random 'Obtem o numéro aleatório no intervalo de um valor inteiro MsgBox(r.Next()) 'Gera número aleatório de 0 até o máximo definido.No caso não deve ser maior que 20 MsgBox(r.Next(20)) 'Gera no aleatório entre o mínimo e o máximo definidos. MsgBox(r.Next(10, 15)) Obter o caminho da aplicação com o nome do arquivo Dim appPathFilename As String appPathFilename = System.Windows.Forms.Application.ExecutablePath MessageBox.Show(appPathFilename) Obter o caminho da aplicação sem o nome do arquivo Dim appPath As String appPath = System.Windows.Forms.Application.StartupPath MessageBox.Show(appPath) Listar todas as fontes disponíveis Dim f As System.Drawing.Text.InstalledFontCollection = New System.Drawing.Text.InstalledFontCollection Dim fFamily As FontFamily For Each fFamily In f.Families lst.Items.Add(fFamily.Name) Next Verificar se o diretório existe Imports System.IO Dim dir As IO.Directory MessageBox.Show(dir.Exists("c:\")) Data e hora atual MessageBox.Show(Date.Now) Tratamento de erro Básico com Try/Catch Código: Imports System.IO Dim f As IO.File Try f.Open("C:\ArquivoNaoExiste.txt", IO.FileMode.Open) 'lança uma exceção de arquivo não encontrado Catch exc As Exception MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 'descrição do erro End Try Incluir cores em um ListBox/ComboBox Imports System.Drawing Dim cor As corConhecida For cor = corConhecida.AliceBlue To corConhecida.YellowGreen cmbColor.Items.Add(cor) Next Para transferir para a WebBrowser WebBrowser1.Document.GetElementById("id").SetAttribute("value", TextBox1.Text) Para receber da WebBrowser WebBrowser1.Document.GetElementById("id").GetAttribute("value") Iniciar navegador em modo anonimo Shell("C:\Users\User1\AppData\Local\Google\Chrome\Application\chrome.exe -incognito www.google.com") Desconectar rede Shell("ipconfig /release") Re-conectar a rede Shell("ipconfig /renew") Checkbox para timer If CheckBox1.Checked = True Then Timer1.Start() Else Timer1.Stop() End If Quebra linha MsgBox MessageBox.Show("Linha 1" + vbCrLf + "Linha 2") Verificando CapsLock If My.Computer.Keyboard.CapsLock = True Then MsgBox("Caps Lock Está Ativada!") Else MsgBox("Caps Lock Está Desativada!") End If Desligar monitor SendMessage(Application.Handle, WM_SYSCOMMAND,SC_MONITORPOWER, 2); Créditos: Google
  17. É possivel ir criando um projeto e ao mesmo tempo ver ele em tempo real, ao invés de tem que ficar dando RUN nele?
  18. Source sistema de Login & Registro Download: https://www.sendspace.com/file/a5e3cx Scan: https://www.virustotal.com/pt/file/c829d505dea6563aef69123fbe390b549a4972b0c0521533cdc5b12ff92501a0/analysis/1512169045/
  19. Eae guys, tudo bem ? Hoje estou trazendo para vocês meu CHAT, que criei no VB.NET... estava sem o que fazer e acabei resolvendo compartilhar essa maravilha para vocês que gostam de programação, é bem simples, mas se você tiver conhecimento na areá, vc consegue melhorar ele. Linguagem: VB.NET Download - SendSpace Download Direto - SendSpace Scan
  20. Então pessoal, estava aqui sem nada para fazer então fiz esse mini info do sistema, é só adicionar mais comandos depois, é algo bem simples mas serve para algo kk e é bom para adicionar no seu utilitario ou qualquer que seja o tipo de programa que você está desenvolvendo, vou deixar a soure para vocês, prints abaixo: Download Scan
  21. É o seguinte, estou fazendo um loader para o meu cheat, e nele quero que tenha 2 DLLs, uma do jogo CSGO e outra do Team Fortress 2, eu quero que quando a pessoa clicar em cima do csgo na listbox meu loader injete a minha dll do csgo, e quando eu clicar em cima do TF2 ele injete a dll do TF2, como faço isso ???
  22. Preciso de um injetor em cmd , alguem pode me ajudar ?
  23. Como injetar um script em uma página da Web Browser (JavaScript) Recomendo utilizar uma Web Browser como: Chromium, WebKit, Gecko, etc Código VB.NET Public Sub InjectScript(Script As String) WebBrowser1.Document.InvokeScript("eval", New Object() {Script}) End Sub Basicamente, eu uso a função InvokeScript da propriedade Document do controle WebBrowser para chamar a função global eval() do JavaScript. A função eval() computa ou executa um argumento passado para ela. Se o argumento for uma expressão matemática eval(), irá retornar o resultado do cálculo. Se o argumento for um ou mais trechos de códigos, eval() irá executa-los e, caso o trecho retorne algum valor, o mesmo será retornado por eval(), e em última instância, por InvokeScript. Então, basta chamar a rotina InjectScript informando no parâmetro o script que você deseja executar na página. Você pode transformar o método InjectScript em uma função, caso queira que o script retorne algum valor. Créditos: herbertlausmann