Registre-se E fique Por Dentro Das Novidades Do Site e Seja Mais Um Membro Seja Um Membro e Ajude Nois A Crese

    Como Fazer um Injetor Avançado

    Compartilhe
    avatar
    Breno_Arthur
    Admin
    Admin

    Mensagens : 87
    Pontos : 14258
    Data de inscrição : 05/12/2010
    Idade : 23
    Localização : Aracaju-se

    Como Fazer um Injetor Avançado

    Mensagem por Breno_Arthur em Dom Dez 26, 2010 7:51 am

    Beem , hoje estou akie para ensinar aos Membros Cheat Combat Arms como fazer um Injetor Avançado.


    Beem vamos Lá :

    1°Os que estao aprendendo tem que ter o progama chamado Microsoft Visual Basic 2008 , ora quem nao tem esse progama o baixei :Click aki .

    Apos baixar e intalar , abra ele e depois vai em FILEescritp "lá em cima" e depois vai em New Project e dê um nome a o seu projeto .

    Pra fazer o seu injetor temos os seguintes componentes :

    5 Buttons - 1 Label - 1 TextBox - 1ListBox - 1 Timer - 1 OpenFileDialog

    Depois troquem os nomes dos botões para :
    -
    B1-Limpar Selecionado -B2-Limpar Processo -B3-Limpar Lista -B4-Procurar - B5-Injetar .

    Agora no ListBox ponha o nome para DLLs

    No OpenFileDialog1 na propriedades vai tar MultiSelect :False mude o conteudo para MultiSelect :True .

    Na forma clik nela 2 vezes e depois apaga tudo e coloca esse codigo :



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
    OpenFileDialog1.ShowDialog()
    Dim FileName As String
    FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf(""))
    Dim DllFileName As String = FileName.Replace("", "")
    Me.Dlls.Items.Add(DllFileName)

    End Sub
    Private Function GetAsyncKeyState(ByVal vKey As Integer) As Short

    If GetAsyncKeyState(Keys.F12) Then
    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
    If TargetProcess.Length = 0 Then

    Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")
    Else
    Timer1.Stop()
    Me.Label1.Text = "Sucesso ao injetar!"
    Call Inject()
    ' If CheckBox1.Checked = True Then
    'Me.Close()
    'Else
    ' End If
    End If
    Else
    End If
    End If

    End Function

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
    If TargetProcess.Length = 0 Then

    Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")
    Else
    Timer1.Stop()
    Me.Label1.Text = "Sucesso ao injetar!"
    Call Inject()
    ' If CheckBox1.Checked = True Then
    'Me.Close()
    'Else
    End If
    Else
    End If

    End Sub
    End Class



    Agora só salvar e compilar o seu projeto criado e para injetar clik F12.


    Se Gostou agradeça , e eu fikria muito feliz se gostassem abrç =D .
    Twisted Evil Twisted Evil
    avatar
    dj_auto
    Combat Arms
    Combat Arms

    Mensagens : 7
    Pontos : 12369
    Data de inscrição : 26/12/2010
    Idade : 22
    Localização : Aracaju-se

    Tutorial Ficou Otimo Ganho Meus Tanks

    Mensagem por dj_auto em Dom Dez 26, 2010 3:08 pm

    Ai Vey Vlw Vc tirou minha duvida que tava dando um erro vlw
    vou posta aki meu injector muito obrigado por te postado esse
    tutorial ai vlw cara
    avatar
    sluk
    Admin
    Admin

    Mensagens : 32
    Pontos : 12574
    Data de inscrição : 06/12/2010
    Idade : 21
    Localização : se-aracaju

    muito BOM

    Mensagem por sluk em Dom Dez 26, 2010 4:19 pm

    muito BOM
    avatar
    THECIANO
    Membros De Honra
    Membros De Honra

    Mensagens : 4
    Pontos : 12345
    Data de inscrição : 27/12/2010
    Idade : 21
    Localização : se-aracaju

    Re: Como Fazer um Injetor Avançado

    Mensagem por THECIANO em Seg Dez 27, 2010 11:22 am

    VALEU MIN AJUDO MUITO EU TAVA
    COM UMA DUVIDAS MAIS TIREI ELAS NESSE POST SEU VALEU LEVO MEU THANKS
    avatar
    Detento_Evg
    Combat Arms
    Combat Arms

    Mensagens : 7
    Pontos : 12466
    Data de inscrição : 06/12/2010

    Re: Como Fazer um Injetor Avançado

    Mensagem por Detento_Evg em Ter Dez 28, 2010 2:11 pm

    eae breno muito bom vlw ai gostei msm bem oganizado o seus topico

    Conteúdo patrocinado

    Re: Como Fazer um Injetor Avançado

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Ter Set 26, 2017 10:17 am