[VB]Crée un antivirus


 
Poster un nouveau sujet   Répondre au sujet    Gold-Hacking Index du Forum -> Programmation -> VB.NET
Sujet précédent :: Sujet suivant  
Auteur Message
xxvirusxx
Fondateur

Hors ligne

Inscrit le: 19 Déc 2010
Messages: 655
Niveau de Hacking: Perfect Niveau
Point(s): 100 000

MessagePosté le: Dim 2 Jan - 19:27 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

Créer le design comme sur la photo

Code:

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.Filter = "Fichier bacth(*.bat)|*.bat"
        openFileDialog1.Title = "Selectionner un Fichier batch pour l'analyser"
        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = "" & openFileDialog1.FileName & ""
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FSys = CreateObject("Scripting.FileSystemObject")
        Dim MonFic = FSys.OpenTextFile("" & TextBox1.Text & "", 1)
        Dim Contenu = MonFic.ReadAll
        TextBox2.Text = "" & Contenu & ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim found As String
        found = InStr(TextBox2.Text, "nokeyboard.reg")

        If found <> 0 Then
            Label1.Text = "DETECTED"
        End If

        found = InStr(TextBox2.Text, "windows")
        If found <> 0 Then
            Label5.Text = "DETECTED"
        End If
        found = InStr(TextBox2.Text, "disable")
        If found <> 0 Then
            Label7.Text = "DETECTED"
        End If

        found = InStr(TextBox2.Text, "shutdown")
        If found <> 0 Then
            Label9.Text = "DETECTED"






        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox2.Text = ""
        Label1.Text = ""
        Label5.Text = ""
        Label7.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

_________________
Besoins d'aide ?
M'envoyer un MP ou allez dans 'Hacking Place".


Revenir en haut
Publicité






MessagePosté le: Dim 2 Jan - 19:27 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
valix
Invité

Hors ligne




MessagePosté le: Lun 3 Jan - 13:40 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

lol !!!

mais mec GG quoi !!!!!!


Revenir en haut
xxerxosxx
Invité

Hors ligne




MessagePosté le: Mar 4 Jan - 01:36 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

Le code on le met ou ? desoler je debute  :désolé:

Revenir en haut
valix
Invité

Hors ligne




MessagePosté le: Mar 4 Jan - 13:46 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

alors tu mais tout comme il faut les outil sur ta form et tu double clique sur ta form (dans le vide ou ya rien) et tu efface le bout de code et tu met le code qu'il y as en haut

Revenir en haut
Hack|you
Invité

Hors ligne




MessagePosté le: Dim 9 Jan - 01:49 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

alors tu mais tout comm 




le modérateur ne parle pas français mdrrrr       :+1: :+1: :+1: :+1: :+1: :+1: :+1: :+1: :+1:


Revenir en haut
xxvirusxx
Fondateur

Hors ligne

Inscrit le: 19 Déc 2010
Messages: 655
Niveau de Hacking: Perfect Niveau
Point(s): 100 000

MessagePosté le: Dim 9 Jan - 12:02 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

J'avoue que la...
_________________
Besoins d'aide ?
M'envoyer un MP ou allez dans 'Hacking Place".


Revenir en haut
valix
Invité

Hors ligne




MessagePosté le: Mer 4 Mai - 13:23 (2011)    Sujet du message: [VB]Crée un antivirus Répondre en citant

Normal jsui arabe :( lool

Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 06:46 (2017)    Sujet du message: [VB]Crée un antivirus

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Gold-Hacking Index du Forum ->
   VB.NET
Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  
Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation