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. Vamos lá Vamos precisar de 1 Button e 2 Text Box. Imports System.Net 'Se for usar deixe os Créditos por favor[/size][/left] [size=5] [left]Public Class Form1 'LAK_UFC Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text) Dim ip As IPAddress() = Hostname.AddressList If TextBox2.Text = ip(0).ToString Then TextBox2.Enabled = True End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("IP Capturado Salve LAK_UFC!") End Sub End Class CRÉDITOS: LAK_UFC
  2. Utilizando Controles Controles são os objetos gráficos utilizados em formulários. Ao utilizar formulários, seja do tipo windows ou web, podemos arrastar os controles da barra de ferramentas (toolbox). Segue abaixo uma lista dos principais controles utilizados em aplicações WinForms. Créditos: LAK_UFC & Kryppter Fonte: GBCheats.com.br
  3. A classe IO é importante para acesso a discos, diretórios, arquivos e principalmente leitura e gravação de textos. O exemplo abaixo demonstra como utilizar a classe de leitura e gravação de arquivos texto: ‘Cria um novo arquivo texto informando o local. O true indica que é para acrescentar Dim GravaLog As New System.IO.StreamWriter(@"C:\Log.txt",true) ‘Grava no arquivo uma linha com a data e hora atual GravaLog.WriteLine(DateTime.Now.ToString()) GravaLog.Close() ‘Abre o arquivo texto, a arroba serve para indicar string com caracteres especiais Dim LerLog As New System.IO.StreamReader(@"C:\Log.txt") ‘Cria uma string e coloca todo o conteúdo do arquivo, utilizando ReadLine podemos ler uma única linha Dim Conteudo As String = LerLog.ReadToEnd() Msgbox(Conteudo) LerLog.Close() Créditos: LAK_UFC & Kryppter Fonte: GBCheats.com.br
  4. Como Criar HOTKEY Public Class Form1 Protected Overrides Function ProcessCmdKey(ByRef m As Message, ByVal keyData As Keys) As Boolean Select Case keyData Case Keys.Escape 'Aqui você seleciona o botão a ser clicado - Escape = ESC Me.Close() 'Aqui é o comando a ser feito quando pressionado tal botão Return True 'Todo comando que vôcê adicionar deve ter um Return True em baixo. Case Keys.Control Or Keys.L 'Em casos de dois botões, você adiciona assim: Case Keys.Botão1 or Kesys.Botão2 e assim vai. MsgBox("Você apertou CTRL+L", vbInformation, "Hotkey") Return True 'Deixei aqui um exemplo de três botões. Case Keys.Control Or Keys.Shift Or Keys.L MsgBox("Você pressionou SHIFT + CONTROL + L", vbInformation, "Hotkey") Return True Case Else Return False End Select End Function End Class Créditos: łucคร หคjค; LAK_UFC; Kryppter. Fonte: GBCheats.com.br
  5. NOTAÇÃO HÚNGARA Notação húngara, criada por Charles Simony, visa a facilitar o reconhecimento do tipo de variável num programa. O nome foi dado a partir de uma brincadeira comum entre os primeiros a conhecer a notação que a achavam estranha, fazendo o seguinte comentário: "É tão estranho que até parece húngaro". Quando se confronta com a necessidade de dar um novo nome a uma variável num programa, o programador deve tomar alguns cuidados ao tomar essa decisão: Nome mnemônico - é aquele que facilita a lembrança do significado pelo programador; Nome sugestivo - é aquele em que outros podem ler o código; Formato - é sempre visto como uma idéia estética, tendo sempre uma informação eficiente do programa teste; Velocidade de decisão - não se pode perder muito tempo para ponderar um simples nome, pois não haverá tempo para editar e digitar nomes de variáveis longos. A adoção deste critério de nomeação é bastante prática e intuitiva, sendo a idéia básica nomear todos os tipos de quantidades, visando-se a simplificar o entendimento do programa. Algumas vantagens deste método: Os nomes em mnemônicos são utilizados num senso muito específico. Se alguém se lembrar da quantidade ou como os nomes foram construídos através de outros tipos, o nome poderá ser lido facilmente. Os nomes sugestivos são muito bons. É capaz de se mapear qualquer nome dentro do seu tipo, tendo as informações necessárias para construir sua interface e utilizar de maneira correta sua quantidade. Os nomes devem ser consistentes, porque eles são construídos pelas mesmas regras. A decisão por um nome deve ser mecânica e rápida. As expressões nos programas devem ser sugestivas, facilitando a leitura e acompanhamento do programa. Com o objetivo de fazer listas intuitivas de se ler, os programas baseados na plataforma Windows utilizam a Notação húngara para gerar estas listas. As regras para se utilizar a Notação húngara são: Os tipos definidos e/ou criados devem aparecer em letras maiúsculas; Constantes e "Macros" que vêm definidas em arquivos inclusos aparecem também em letras maiúsculas; Funções e nomes estruturados começam com letras maiúsculas. Nenhuma marca abaixo são utilizadas para nomes, exceto para os casos que se encontrem nas duas regras anteriores; Nomes de objetos começam com uma ou mais letras maiúsculas, indicando o tipo do objeto. Créditos: LAK_UFC & Kryppter Fonte: GBCheats.com.br
  6. CONVERSOR DE TEXTO 2 TextBox 2 Button Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Value As String = Nothing Dim Re As New System.Text.StringBuilder For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text) Re.Append(Convert.ToString(Character, 2).PadLeft(8, "0")) Re.Append(" ") Next Value = Re.ToString.Substring(0, Re.ToString.Length - 0) TextBox2.Text = Value End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text Dim Values As String = Nothing Dim Character As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^01]", "") Dim ByteArrays((Character.Length / 8) - 1) As Byte For Index As Integer = 0 To Bytearrays.Length - 1 Bytearrays(Index) = Convert.ToByte(Character.Substring(Index * 8, 8), 2) Next Values = System.Text.ASCIIEncoding.ASCII.GetString(Bytearrays)'By LAK_UFC & Kryppter TextBox1.Text = Values End Sub End Class Créditos LAK_UFC & Kryppter ;P Salve GB
  7. Vo Mostrar alguns Codigos bem eficiente para seus projetos ! 1.✓ Esse codigo tem a mesma função do Timer : 2.✓ Esse codigo serve para baixar um texto para um TextBox : 3.✓ Esse codigo serve para Reiniciar sua Aplicação : 4.✓ Esse codigo serve para um AutoUpdate : 5.✓ Esse codigo serve para mover uma PictureBox : 6.✓ Esse codigo serve para excluir uma chave do regedit : 7.✓ Esse codigo serve para copiar texto de uma label : 8.✓ Esse codigo muda o valor de uma chave do regedit : 9.✓ Esse codigo serve para criar subkey no regedit : Codigo Disponibilizado por : Dagger_Hacking ✓ Gostou ? Deixe seu Curtir ae :D
  8. 1-Button Clique duas vezes no Button e cole o código a baixo mudando somente o site para o seu site ou link System.Diagnostics.Process.Start("urldosite")
  9. Olá pessoal da WC Vamos hoje estuda um pouco de sistema. Vamos ver qual sistema que e o usuário mais usa em seus projetos. If Environment.Is64BitOperatingSystem Then MessageBox.Show("Este sistema é de 64 bits") Else MessageBox.Show("Este sistema é de 32 bits") End If Espero que isto ajude um de vocês!
  10. Oi, preciso de ajuda para um projeto no excel utilizando códigos do vb. Quero personalizar uma planilha é coisa simples, tipo procurar local da celula verificar o que esta escrito e escrever na celula ao lado só isso.. Sei inserir dados no excel com Range("nomeDaCélula").Value = valor Mas preciso ajustar o código para verificar o que tem escrito exemplo: Se tiver escrito na celula A1 "oi" quero que edite para "01" no lugar de "oi" e se estiver "ola" quero que troque para "02" no que esta escrlito é só um exemplo irei usar para outros fins...
  11. Primeiramente baixe esse instalador [ ele instala as dll necessaria ] - > http://www.mediafire.com/download/y36ypta04qd2wr9/WinSock.exe *depois de ter instalado os programa necessario vamos para o tutorial Agora crie um projeto com : deixe seu projeto assim : [spoiler=Projeto] agora crie outra form com nome de Chat ou outro nome mesmo . Coloque [spoiler="Print da form 2 [ chat ]"] Agora vai os codigos ☺ *Na form 1 de 2 clique em cima e apague tudo e cola esse codigo *Na form 2 [ Chat ] Coloque esse codigo * Download da Source : * Scan da Source .rar : * Caso der algum erro comente aqui em baixo :) <3 = > [N]ARUTO
  12. Vamos aprender agora como criar um Chat. Você irá precisar de uma DLL que é um componente do sistema que vamos usar. DLL: Clicando aqui Scan: Clique aqui Depois de baixar, vá na sua Toolbox Botão direto do mouse > Choose Items > COM Components > Browser... > Adicione a DLL > Adicione o componente ao seu formulario Na sua Form1 adicione: 2TextBox 2Button 1WinSock Nas propriedades da TextBox1 mude: Multiline=True ReadOnly=True Backcolor=White(Se quiser :)) Nas propriedades da TextBox2 mude: Name= txtMensagem Nas propriedades do Button1 mude: Text=Enviar Name= btnEnviar Nas propriedades do Button2 mude: Text=Conectar Name= btnConectar Nas propriedades do AxWinsock1 mude: Name=Sock Pronto! Vamos aos códigos agora. Clique duas vezes sobre o Form e adicione o seguinte código: Form2.Show() Clique duas vezes sobre o button 'Conectar' e adicione o seguinte código: Sock.RemotePort=2909 Sock.RemoteHost=Sock.LocalIP'127.0.0.1 Sock.Connect() Pronto agora vamos aos códigos do Sock: PrivateSubSock_DataArrival(sender AsObject, e AsAxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent)HandlesSock.DataArrival Dim A AsObject=Nothing DimNovaStringAsString="" DimCaractereAsByte Sock.GetData(A) ForEachCaractereIn A NovaString=String.Concat(NovaString,Chr(Caractere)) Next TextBox1.Text=String.Concat(TextBox1.Text, vbNewLine,NovaString) EndSub Pronto agora clique 2 vezes sobre o button 'Enviar' e adicione o seguinte código: Sock.SendData(">"& txtMensagem.Text) TextBox1.Text=String.Concat(TextBox1.Text,vbNewLine & txtMensagem.Text) txtMensagem.Text="" Pronto Chat está pronto agora vamos ao servidor OK adicione uma nova Form 'Form2' E na sua Form2 adicione: 1ListBox 2TextBox 1Button 1WinSock Na sua Form faz as mesmas configurações da Form nas propriedades dos componentes. Adicione na Form2 1Button 2TextBox 1ListBox Nas propriedades da TextBox2 mude: Name= txtMensagem Nas propriedades do Button1 mude: Text=Enviar Name= btnEnviar Nas propriedades do AxWinsock1 mude: Name=Sock Pronto! Agora vamos aos códigos! Clique duas vezes sobre o Form2 e adicione o seguinte código: Sock.LocalPort=2909 Sock.Listen ListBox1.Items.Add("Servidor Online") Pronto. agora abaixo do End Sub do Form2 e adicione: PrivateSubSock_ConnectionRequest(sender AsObject, e AsAxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent)HandlesSock.ConnectionRequest Sock.Close() ListBox1.Items.Add("Obtendo Conexão") Sock.Accept(e.requestID) ListBox1.Items.Add("Conectado") Sock.SendData("Você se conectou no chat") EndSub No button Enviar clique duas vezes e adicione o seguinte código: Sock.SendData(">"& txtMensagem.Text) TextBox1.Text=String.Concat(TextBox1.Text,vbNewLine & txtMensame.Text) txtMensagem.Text="" ListBox1.Items.Add("Mensagem enviada") Dim A AsObject=Nothing DimNovaStringAsString="" DimCaractereAsByte ListBox1.Items.Add("Mensagem recebida") Sock.GetData(A) ForEachCaractereIn A NovaString=String.Concat(NovaString,Chr(Caractere)) Next TextBox1.Text=String.Concat(TextBox1.Text,vbNewLine,NovaString) É isto, para enviar mensagem clique no Button 'Conectar' digite a mensagem em (txtMensagem) e clique em (btnEnviar) Créditos: Pablo Yuri (tutorial e testar o metodo).
  13. Primeiramente crie um projeto com : [spoiler=Print do Projeto] * Depois de tudo pronto vamos para o codigo ! * agora dê 2 clique na form e apague tudo e cole esse codigo . * Pronto seu otimizador de internet está pronto para ser usado :) * Agora com esses codigo vcs ja deve ter uma noção de como criar novas funçoes para seu programa :) |=> [N]ARUTO <3
  14. Gente queria criar um Programa Que editasse .txt ou qualquer outra extensão editável pelo bloco de notas no vb então eu queria criar um Prison Architect Save Game Editor. Coloco 1 textbox e nesta textbox ele vai localizar o local do save game ou o txt e vai editar esse save ex: tenho 20 de dinheiro vo no meu programa coloco 56 pronto foi editado para 56 quando entro no jogo esta 56 se puderem me ajudar plz
  15. Olá pessoal da WC! Hoje vamos mostra para vocês um código que muitos de vocês estão atras! Então vamos la! O que vocês vão precisar para fazer o sistema! 1 WebBrowser 1 Timer1 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Timer1.Stop() If dc_ads > 2 Then Form2.Show() 'Aqui vai abri o form2 quando a pessoa de 2 clicks no anuncio! Me.Hide() 'Aqui vai esconder o form1 quando abri o form2 RemoveHandler WebBrowser1.Document.MouseUp, AddressOf dc_ads1 End If dc_ads = 1 End Sub Private Sub Publicidades_Load(sender As Object, e As EventArgs) Handles Me.Load WebBrowser1.Navigate("URL da pagina") End Sub Dim dc_ads As Integer Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted If dc_ads = 0 Then AddHandler WebBrowser1.Document.MouseUp, AddressOf dc_ads1 dc_ads = 1 Exit Sub End If End Sub Private Sub dc_ads1(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) dc_ads = dc_ads + 1 If Timer1.Enabled = False Then Timer1.Enabled = True End If End Sub Lembrando a variação do Time e de 250 a 300 para um melhor desempenho do sistema! Créditos: RenildoMarcio, Noob, AugmenteSkillsBR, sRDiego
  16. Boas pessoal tenho uma tabela em vb a qual vai ser sempre a mesma para o que quero fazer , deixa me explicar melhor consoante a informação que me dão num ficheiro de quantos report vou ter (ini,txt,xml) tenho de criar uma nova tabela (copiar a primeira e por uns pixels mais a baixo ) para cada report podem me ajudar com o codigo, sou novato em vb certas funcionalidades e codigo passa me completamente a lado , obrigado pela disponibilidade de quem ajudar
  17. Primeiramente crie um projeto com : [spoiler=Print do Projeto] Depois de ter feito o projeto igual a imagem acima vamos para o codigo : * Dê 2 clique na form e apague tudo e cole esse codigo : * Depois de fazer tudo isso está pronto seu Desativador de serviços do windows * Lembrando que esses codigo só está desativando serviços desnecessario. = > [N]ARUTO :h:
  18. Opa, fmz? Eu queria saber se o visual basic 2013 é bom, se tem MUIITA diferença das outras versões.
  19. Primeiramente Crie um projeto com : [spoiler=Print do Projeto] * Depois de ter montado seu projeto "igual" o da imagem acima vamos para o codigo. dê 2 clique na form e apague tudo e cole esse codigo. * Pronto seu Otimizador de Windows está Criado !! * Com esses codigo vcs ja tem uma noção de como criar novas funçoes para deixar seu windows mais rapido ainda :) !! * SEMPRE EXECUTE COMO ADMINISTRADOR POIS ELE PRECISA DE PERMISSÃO PARA USAR O REGEDIT
  20. Icon Changer v1.0 [/img] Galera, venho disponibilizar para vocês, o trocador de ícone que eu mesmo fiz, caso achem algum bug, serão recompensados por mim. OBS: Essa é uma versão de testes, então podem ocorrer bugs. Está bem simplesinho, pois como eu disse, com o tempo, eu vou atualizando. SCAN: DOWNLOAD:
  21. Acelera Windows : Diminuir Ping Jogos Online : Tirar delay das animaçoes : Acelerar velocidade do Wifi : Otimizar Navegador/Internet : Limpar pasta Temp: Acelerar Windows [ CMD ] Melhorar Teclado para Jogos : Iniciar programas rapidamente : BY: [N]ARUTO_ Codigos retirado de meu Otimizador - http://www.webcheats.com.br/threads/otimizador-windows-internet.2525457/
  22. -[ Bloqueador de Pasta ]- 1 TextBox 3 Button Button 1 : Procurar Button 2 : Desbloquear Button 3 : Bloquear Tutorial Simples :¥
  23. Flood Hacker - Tutorial Tutorial Adicione 2 Button 1 Text Box 1Timer No Button 1 coloca o nome Ativar.Depois de colocar o nome no button.De 2 Click's no button.e coloque esse Código Código: Timer1.Start() Agora no button 2 coloque o nome Desligar Depois de colocar o nome no button.De 2 Click's no button.e coloque esse código Código: Timer1.Stop() Agora no Timer De 2 Click's no Timer.e coloque esse código Código: SendKeys.Send(Textbox1.text) SendKeys.Send("{Enter}") Pronto o Seu Flood Hacker já esta Pronto. Aqui um Print de como vai ficar Exatamente o seu Flood Hacker
  24. Olá, estarei ministrando aulas de visual basic em meu canal no youtube. Resolvi fazer um tópico para divulgá-los: Visual Basic - Aula 1 Estarei atualizando o tópico sempre que postar uma nova vídeo-aula. Clique para ir até o meu canal no youtube. :party:
  25. Oque adicionar: 1 Button 1 RichTextBox Renomear o Button para - Detectar Programas Abertos. E Agora de 2 Cliques na Form Apague tudo que tiver lá, e adicione o Seguinte Código abaixo: Imports System.Text Imports System.Management Public Class Form1 Public Shared Function getApplications() As String Dim a As New StringBuilder() Dim b As New Process() For Each b In Process.GetProcesses(".") Try If b.MainWindowTitle.Length > 0 Then a.Append("Nome da janela: " + b.MainWindowTitle.ToString() + Environment.NewLine) a.Append("Nome do processo: " + b.ProcessName.ToString() + Environment.NewLine) a.Append(Environment.NewLine) End If Catch End Try Next Return a.ToString() End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RichTextBox1.Text = getApplications() End Sub End Class Visual a critério do Criador!