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. Aguem sabe com eu possa tar fazendo o WebBrowser Fazer ele Preencher no site usando o TegName? Ex usando Id: WebBrowser.Document.GetElementById("idcomando").SetAttribute("Clique") Des de ja Grato
  2. Estou fazendo um projeto em V.B e gostaria de retirar todo o som do projeto alguen sabe como by Gh0sT.V!P
  3. Estou precisando de uma ajuda com o VB... Estou criando um programa basico para um jogo e tipo eu queria coloca ele para ativar/desativar com uma tecla dentro do jogo,Consegui uns codigo que ate funciona mais eu tenho que minimiza o jogo é ir no programa para aperta as teclas eu queria que funcionase eu jogando com o programa minimizado eu apertava exemplo: F5 é ativase uso o Visual basic 2010 Ja tentei esses Codigo Protected Overloads Overrides Function ProcessCmdKey(ByRef m As Message, ByVal keyData As Keys) As Boolean Select Case keyData Case Keys.F2 Timer1.Start() Case Keys.F3 Timer1.Stop() End Select End Function Esse comando ate funciono mais não com ele minimizado Pegei esse codigo a cima nesse link:http://www.webcheats.com.br/threads/duvida-precionar-teclar-e-ativar-botao-vb.1716006/ Tentei esses codigo Tabém:http://www.webcheats.com.br/threads/tutorial-visual-basic-net-teclas-de-atalho.558484/ Esse ai nem funciono no VB 2010 express
  4. Precisa de: 1 WebBrowser 1 TextBox 8 Radio Button - Tambem pode fazer com ComboBox 5 Label 3 GroupBox 1 Timer 1 ContextMenuStrip - em Name coloque Download 1 ProgressBar em ContextMenuStrip add 2 opçao [ Baixar ] e [ Recarregar Pagina ] Clique na form e vai em ContextMenuStrip e vai ta " None " mude para " Download " Texto das Label: Label1 = URL do video Label2 = Status: Label3 = Formatos Label4 = Processo Label5 = 720 HD Monte seu Projeto : Exemplo: Depois de 2 Clique na Form e cole esse Codigo: Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = 1 WebBrowser1.Navigate("http://www.onlinevideoconverter.com/pt/video-converter") End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged WebBrowser1.Document.GetElementById("extavi").InvokeMember("click") End Sub Private Sub TextBox1_DoubleClick(sender As Object, e As EventArgs) Handles TextBox1.DoubleClick WebBrowser1.Document.GetElementById("texturl").SetAttribute("value", (TextBox1.Text)) WebBrowser1.Document.GetElementById("convert1").InvokeMember("click") End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged WebBrowser1.Document.GetElementById("extmkv").InvokeMember("click") End Sub Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged WebBrowser1.Document.GetElementById("extwinmp4").InvokeMember("click") End Sub Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged WebBrowser1.Document.GetElementById("extflv").InvokeMember("click") End Sub Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged WebBrowser1.Document.GetElementById("ext3gp").InvokeMember("click") End Sub Private Sub RadioButton9_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton9.CheckedChanged WebBrowser1.Document.GetElementById("extwmv").InvokeMember("click") End Sub Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged WebBrowser1.Document.GetElementById("extmpg").InvokeMember("click") End Sub Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged WebBrowser1.Document.GetElementById("extmov").InvokeMember("click") End Sub Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Timer1.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick On Error Resume Next Label2.Text = WebBrowser1.Document.GetElementById("divDownloadStatus").InnerText If Label2.Text.Contains("100% terminado") Then Timer1.Stop() Label2.Text = "Status:" Baixar.Enabled = True End If End Sub Private Sub WebBrowser1_ProgressChanged(sender As Object, e As WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged Try ProgressBar1.Value = CType(((e.CurrentProgress / e.MaximumProgress) * 100), Integer) GroupBox1.Enabled = True GroupBox2.Enabled = True Catch ex As Exception End Try End Sub Private Sub BaixarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Baixar.Click WebBrowser1.Document.GetElementById("downloada").InvokeMember("click") End Sub Private Sub RecarregarPaginaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecarregarPaginaToolStripMenuItem.Click WebBrowser1.Navigate("http://www.onlinevideoconverter.com/pt/video-converter") End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) WebBrowser1.Document.GetElementById("videoResolution").InvokeMember("click") End Sub Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click WebBrowser1.Document.GetElementById("advanced-options-link").InvokeMember("click") MsgBox("O Video será baixado em 720 HD", MsgBoxStyle.Information, "") End Sub End Class Source: Scan:
  5. Precisa de: Print do Projeto : [spoiler="[Print]"]http://imgur.com/JLW6StX ~ No Button 1 coloque esse Codigo : Button 2 esse codigo : Button 3 : Dê 2 clique em cima do TextBox2 e cole esse Codigo :
  6. Estou criando um utilitário no momento parecido com o do Dionisio, porem a diferença que o meu estarão presentes no mesmo buttons na quais faram download dos arquivos necessário para utilizar algum cheat e outros afins.. minha intenção e englobar todas as áreas do fórum.. CONFIRA O VISUAL Curtiram o visual? Tem alguma sugestão para melhorias no que possa ser acrescentado e o que possa ser retirado. Lembrando que tudo foi desenvolvido apenas por mim. Agradeço a ajuda desde já Atenciosamente Incompetech
  7. Verificar Internet : Fechar Aplicativo Com Mensagen: VERIFICANDO CAPS LOCK: FORM TRANSPARENTE AO MOVER : Baixar arquivos para o pc: Abrir Pagina Na WEB: Verificar se foi aberto como adm: MINIMIZAR FORM : MAXIMIZAR FORM: Colocar Delay : Mostrar Senha: BLOQUEAR TEXTBOX : ABRIR IMAGEM : 'Desliga o Computador ABRIR FORM DEPOIS DO PROCESSO:
  8. fala ae turma. Criar aquele GT de levis.. mais tarde eu posto, é nós Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load GetProcesses() End Sub Public Sub GetProcesses() ListBox1.Items.Clear() Dim p As Process For Each p In Process.GetProcesses ListBox1.Items.Add(p.ProcessName) Next End Sub Public Sub KillProcess() Try Dim p As Process For Each p In Process.GetProcesses If p.ProcessName = ListBox1.SelectedItem Then p.Kill() End If Next GetProcesses() MsgBox("Processo Finalizado!", MsgBoxStyle.Information) Catch ex As Exception MsgBox("Impossivel finalizar este processo, ele foi fechado ou excluido completamente do seu computador", MsgBoxStyle.Critical,"ERRO#") End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click KillProcess() GetProcesses() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click GetProcesses() End Sub End Class OverKiller & Dio
  9. VB.NET Login com qualquer forum/site sem captcha Olá galera, desculpe a demora para trazer videos. mas tive uns problemas no youtube com uma violação das diretrizes... ai fiquei suspenso por um tempo sem poder enviar videos longos, ai me complicou pra enviar videos de programação. esse vídeo e antigo e só liberaram agora. No vídeo ensino a fazer um login externo em um site que não tenha requisição captcha para logar. assista.. Créditos SmoLL
  10. alguem me ajuda estou com esse erro oque posso fazer para concertar ?
  11. Olá galera. Gostaria de saber como faz pra tipo, eu ponho lá um Textobox com Login e Senha, ai o cara poe o Login e Senha dele, e quando apertasse em "OK" por exemplo. Gostaria que o código testasse se o Login e a Senha realmente existisse. (Login e Senha do PointBlank). Não sei como faz pra testar isso até porque não sou muito avançado em VisualBasic, tentei pesquisar mas realmente não achei nada. Alguem pode me sugerir alguma dica, ou até mesmo explicar como faz? Desde já, muito agradecido! (Se você não entendeu oque eu quero, eu apenas quero que o Login e a Senha do cara fosse testado de alguma forma para saber se aquela conta realmente existe!)
  12. Pessoal, eu criei um código que é o seguinte. O cara poe o Login e a Senha dele, então o código vai no site do PB e verifica se o login está correto ou não. Porém estou com um problema, gostaria de saber como faço pra avisar o cara se o Login está certo ou errado. Tentei utilizar o método "Contains", mas quando o cara erra o login no site do PB, abre uma pop-up e o método "Contains" não pega nas pop-ups Alguem me ajuda ae!!
  13. alguem ai pode fazer um tutorial ensinando a criar um craker em vb.net ? tipo um craker para o driver easy ou um cracker para o visual basic 2010
  14. Olá, gostaria de fazer pra tipo, excluir tudo dentro de uma pasta, ou seja... Limpar a pasta! Ex: Limpar o diretório (C://ongame) > Algo assim Se alguém saber fazer, e tiver como fazer um código de exemplo, eu agradeço!
  15. Como criar seu próprio Address Editor [VB.NET] Você vai precisar de : Criar 1 módulo 4 Labels 3 Text Box - textbox 3 = Label - Processo textbox 2 = Label - Valor textbox 1 = Label - Address combobox = Label - Tipo 1 ComboBox 1 Check Box 2 Button 1 Timer Código Módulo ( Memory.vb ) : 'Módulo Memory - iPuuush Imports System.Runtime.InteropServices Imports Microsoft.VisualBasic Module Trainer Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double Private Declare Function ReadMemoryString Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As String, Optional ByVal Size As Integer = 60, Optional ByRef Bytes As Integer = 0) As String Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Single Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Double Private Declare Function WriteMemoryString Lib "kernel32" Alias "writeProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As String, Optional ByVal Size As Integer = 60, Optional ByRef Bytes As Integer = 0) As String Public Function ReadByte(ByVal EXENAME As String, ByVal Address As Integer) As Byte Dim Value As Byte If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then ReadMemoryByte(Handle, Address, Value) End If End If Return Value End Function Public Function ReadInteger(ByVal EXENAME As String, ByVal Address As Integer) As Integer Dim Value As Integer If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then ReadMemoryInteger(Handle, Address, Value) End If End If Return Value End Function Public Function ReadFloat(ByVal EXENAME As String, ByVal Address As Integer) As Single Dim Value As Single If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then ReadMemoryFloat(Handle, Address, Value) End If End If Return Value End Function Public Function ReadDouble(ByVal EXENAME As String, ByVal Address As Integer) As Double Dim Value As Double If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then ReadMemoryByte(Handle, Address, Value) End If End If Return Value End Function Public Function ReadPointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte Dim Value As Byte If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next ReadMemoryByte(Handle, Pointer, Value) End If End If Return Value End Function Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer On Error Resume Next Dim Value As Integer If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next ReadMemoryInteger(Handle, Pointer, Value) End If End If Return Value End Function Public Function ReadPointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single Dim Value As Single If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next ReadMemoryFloat(Handle, Pointer, Value) End If End If Return Value End Function Public Function ReadPointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double Dim Value As Double If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next ReadMemoryDouble(Handle, Pointer, Value) End If End If Return Value End Function Public Sub WriteByte(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Byte) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then WriteMemoryByte(Handle, Address, Value) End If End If End Sub Public Sub WriteInteger(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Integer) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then WriteMemoryInteger(Handle, Address, Value) End If End If End Sub Public Sub WriteFloat(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Single) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then WriteMemoryFloat(Handle, Address, Value) End If End If End Sub Public Sub WriteDouble(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Double) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then WriteMemoryDouble(Handle, Address, Value) End If End If End Sub Public Sub WritePointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer()) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next WriteMemoryByte(Handle, Pointer, Value) End If End If End Sub Public Sub WritePointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer()) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next WriteMemoryInteger(Handle, Pointer, Value) End If End If End Sub Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer()) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next WriteMemoryFloat(Handle, Pointer, Value) End If End If End Sub Public Sub WritePointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer()) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next WriteMemoryDouble(Handle, Pointer, Value) End If End If End Sub <DllImport("kernel32.dll", SetLastError:=True)> _ Public Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As Byte(), ByVal nSize As System.UInt32, <Out()> ByRef lpNumberOfBytesWritten As Int32) As Boolean End Function Public Function WriteString(ByVal proc As String, ByVal target As Integer, ByVal data As String) As Boolean Return WriteProcessMemory(Process.GetProcessesByName(proc)(0).Handle, New IntPtr(target), StrToByteArray(data), data.Length, 0) End Function Public Function StrToByteArray(ByVal str As String) Dim encoding As New System.Text.UTF8Encoding() Return encoding.GetBytes(str) End Function Public Sub WritePointerString(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As String, ByVal ParamArray Offset As Integer()) If Process.GetProcessesByName(EXENAME).Length <> 0 Then Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle If Handle <> 0 Then For Each I As Integer In Offset ReadMemoryInteger(Handle, Pointer, Pointer) Pointer += I Next WriteString(EXENAME, Pointer, Value) End If End If End Sub End Module Código do Button 1 : Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ComboBox1.Text = "4 Bytes" Then WriteInteger(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "2 Bytes" Then WriteInteger(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "Byte" Then WriteByte(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "Array of Bytes" Then WriteInteger(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "Text" Then WriteString(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If End Sub Código do Timer 1 : Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If ComboBox1.Text = "4 Bytes" Then WriteInteger(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "2 Bytes" Then WriteInteger(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "Byte" Then WriteByte(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "Array of Bytes" Then WriteInteger(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If If ComboBox1.Text = "Text" Then WriteString(TextBox3.Text, "&H" + TextBox1.Text, TextBox2.Text) End If End Sub Código Check Box : Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then Timer1.Start() Else Timer1.Stop() End If End Sub Código Button 2 : Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Close() End Sub EXEMPLO : Créditos : iPuuush - VB.NET - Dúvidas ? Deixe a sua talvez eu possa ajudar :) Se realmente te ajudou AGRADEÇA assim eu te ajudo e você me ajuda !
  16. Olá, queria muito aprender a utilizar o Visual Basic, desde o básico até o avançado! O Básico eu já sei Alguem tem um tutorial no youtube ou slá ensinando?
  17. Uninstall Função Esse projeto tem como função gerenciar programas instalados no Windows com as seguintes funções: Iniciar o desinstalador do programa Remover sua entrada no Regedit Pesquisar Programas Suporte Download e Scan Demonstração Creditos Eu mesmo:)
  18. Eae pessoas blz?, meu segundo post aki, hoje vim ensinar como fazer um app de ping/dos, muito simples, vamos ao project, qualquer erro desculpe 1 - Abra seu VB.NET, crie um projeto .exe(WindowsApplication) 2 - Coloque uma textbox, um button e uma trackbar 2.1 - Na propriedades da trackbar coloque em maximum = 5 3 - Ajuste da sua forma, e de double click no button 4 - Coloque o seguinte codigo : 6 - Pronto, app feito agora so aproveitar OBS : Ele abre muitos cmds cuidado !! Conhecimento não e crime
  19. WinUSB-H Função WinUSB-H tem como principal função monitorar ancoragens de pen drives e monitorar os eventos que o usuário faz no pen drive como: *Alterar arquivo *Deletar arquivo *Copiar arquivo para a maquina e vice-versa *Entre outros.. Video [video=youtube;-cF8oZLRd1M] Download & Scan Download Scan Creditos Eu mesmo:D
  20. Bom gente, peguei uma source de Trocador de Dados ongame, estava toda desatualizada entao atualizei, mas gostaria de saber como faço para aparecer a data em que os dados foi trocado... Se alguém souber por favor fala ai em baixo.
  21. https://youtu.be/sI7GX5HABXk Stub VirusCheckMate.com free virus scanner online Encryptado VirusCheckMate.com free virus scanner online
  22. Venda de Chave de Acesso Sistema O sistema é bem simples, ele requisita a PagSeguro uma verificação de transação por meio do protocolo http, o servidor devolve um arquivo xml e o sistema(vb.net) faz a leitura do arquivo e devolve o status de uma transação que pode ser: [table=width: 500, class: grid, align: center] [tr] [td]Inteiro[/td] [td]String[/td] [/tr] [tr] [td]1[/td] [td]Aguardando pagamento[/td] [/tr] [tr] [td]2[/td] [td]Em análise[/td] [/tr] [tr] [td]3[/td] [td]Paga[/td] [/tr] [tr] [td]4[/td] [td]Disponível[/td] [/tr] [tr] [td]5[/td] [td]Em disputa[/td] [/tr] [tr] [td]6[/td] [td]Devolvida[/td] [/tr] [tr] [td]7[/td] [td]Cancelada[/td] [/tr] [tr] [td]8[/td] [td]Chargeback debitado[/td] [/tr] [tr] [td]9[/td] [td]Em contestação[/td] [/tr] [/table] Com a leitura da tag<status>que varia de 1-9 de acordo com o status da transação, podemos ou não liberar o acesso pela chave e registrala no sql para dar validade a ela, ex: [table=width: 500, class: grid, align: center] [tr] [td]Valor[/td] [td]Chave[/td] [td]Validade[/td] [/tr] [tr] [td]R$15,00[/td] [td]Chave Comum[/td] [td]30 Dias[/td] [/tr] [tr] [td]R$25,00[/td] [td]Chave Avançada[/td] [td]60 Dias[/td] [/tr] [tr] [td]R$30,00[/td] [td]Chave Ouro(Promoção)[/td] [td]100 Dias[/td] [/tr] [/table] Explicação(Video) Source & Scan [source] [scan] Creditos Eu mesmo:smiley:
  23. eae pessoal , bom to querendo criar um hack para o jogo tankionline em vb 2008 com array of bytes , algum de vocês poderiam me ajudar tipo tenho 2 array of byte presciso achar essa : F3 0F 7E 45 D8 8B 59 28 66 0F 57 C9 F2 0F 2A CB 66 0F 2E C1 76 e fazer um "replace" com nessa : BB 00 00 00 00 F2 0F 2A C3 90 90 90 90 90 90 90 90 90 90 90 EB algum de vocês poderiam me ajudar ? se voces tiverem algum modulo ira ajudar muito ! se puderem me contactar pelo skype e ajudar me adicionem > el30n4d0
  24. Scan de Processos e Janelas Função Esse método já foi demonstrado uma vez, só que pode nome de janelas e de uma forma um pouco diferente. Esse inclui processos e uma lista de palavras chaves a serem usadas para a pesquisa. Ele é muito simples, basicamente obtêm todos os processos e títulos de janela, e faz _ uma busca se baseando nessas palavras chave. Source [Palavras-Chave] [source] Video [video=youtube;RsqcVs9J2sg] Creditos Eu mesmo:D