Bem-vindo ao Fórum!

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

thelucasms2

Membro
  • Content Count

    21
  • Joined

  • Last visited

  • WCoins

    0 [ Donate ]

Community Reputation

14

1 Follower

About thelucasms2

  • Rank
    #include
  • Birthday 05/08/1978
  1. Ta bom ForeverMarshall, volta pra produção de cheats pra CF com o gordon, abraço! O tópico é relativo, posto justamente os códigos em base de seleção dos melhores, é a mesma coisa que eu postar um cheat com a mesma função de um outro, os códigos são iguais mesmo, porém não é pq você tem um post com o código igual que você é dono do código, aliás muitos preferem dar de cara com posts igual esse e não procurar os de 10 anos atrás.
  2. Conseguiria criar um launcher gamer desktop para jogos online como: ddtank, legend online, dead maze entre outros jogos que necessitam de login e selecionar o servidor, seria um ótimo conteúdo, valeu!
  3. Hahahah ele me escutou, boa brother, muito obrigado!
  4. Geralmente alguns textos e links ficam escondidos depois do href:= pra pegar so essa url que fica depois, o que faz?
  5. Boa, mas tenho uma dúvida, se eu quiser pegar só depois do "href" por exemplo, utilizo apenas o que? Já pensou em pegar aqueles sites que fornecem Conta Bancária/CPF etc e puxar para um programa assim, tipo pra fazer contas NETFLIX entre outras coisas .. Muito bom, obrigado pelo conteúdo!
  6. Perdeu o perfil mas não perdeu a cara de pau kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk http://www.webcheats.com.br/members/gord0n.4478684/
    1. Show previous comments  3 more
    2. thelucasms2

      thelucasms2

      beleza gordon desculpa
    3. RevLX

      RevLX

      Boa Tarde sr , Desculpado
    4. RevLX

      RevLX

      Gordon meu piru
  7. Pois é né coleguinha, essa é a ideia, selecionar de todos os posts e colocar em um, existem mais códigos aí, basta você enxergar hihi Acho incrível como você tem a capacidade de procurar as coisas só pra tentar me derrubar, mas relaxa, tudo que vai, volta!
  8. 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
  9. 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
  10. Pois é meu jovem, porém isso é um fórum onde disponibilizamos os projetos e também o conhecimento, não para te surpreender, mas para te ajudar, se você não ficou surpreendido eu pouco me importo, apenas trouxe um conteúdo meu para pessoas que se interessam nele, aliás MENUS D3D como esse que você compartilhou em vídeo a maioria das vezes são feitos em C++, dificilmente você verá em VB. Não busque ser surpreendido, por que você não tenta surpreender?
  11. Qual sua página? Posso configurar algo pra você em que ira redirecionar e ja solicitar curtida nela?!
    1. SrPoladofull

      SrPoladofull

      ss vlw, vou te mandar privado
  12. Qual sua pagina? Eu posso te ajudar!