Der Durchblick kommt

habs jetzt soweit das beim Start das Bild automatisch lädt.

jetzt noch die Mail funktion und das ganze verstecken.

Hallo häng mal wieder fest,

wie erreiche ich es das ein Webcam Bild aus der PictureBox alle 10 sec. per mail versendet wird.

Mit dem was ich hier bisher gefunden habe komme ich nicht weiter.

Danke

Hallo Werner,

der nächste Schritt wäre in einem Timer alle X Minuten zu prüfen
ob eine Internetverbindung verfügbar ist.

Das geht so:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Shared Function IsConnectionAvailable() As Boolean           Dim objUrl As New System.Uri("http://www.help-info.de/")         Dim objWebReq As System.Net.WebRequest         objWebReq = System.Net.WebRequest.Create(objUrl)         Dim objResp As System.Net.WebResponse         Try             objResp = objWebReq.GetResponse             objResp.Close()             objWebReq = Nothing             Return True         Catch ex As Exception             objWebReq = Nothing             Return False         End Try       End Function

Wenn JA:

Kannst du mittels System.Net Namespace problemlos
SMTP Mails versenden, solange keine Firewall oder Virenscanner
dazwischen funkt, ohne diese anzupassen.
McAfee hat mir da mal einen Strich durch die Rechnung gemacht
und ich habe eine Weile gesucht bis ich das Problem gefunden hatte.

Beispiele zu SMTP Mail und VB.NET findet man viele im Netz.

Gruß
Jens

Zitat von JensG

Hallo Werner,

der nächste Schritt wäre in einem Timer alle X Minuten zu prüfen
ob eine Internetverbindung verfügbar ist.

Das geht so:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Shared Function IsConnectionAvailable() As Boolean           Dim objUrl As New System.Uri("http://www.help-info.de/")         Dim objWebReq As System.Net.WebRequest         objWebReq = System.Net.WebRequest.Create(objUrl)         Dim objResp As System.Net.WebResponse         Try             objResp = objWebReq.GetResponse             objResp.Close()             objWebReq = Nothing             Return True         Catch ex As Exception             objWebReq = Nothing             Return False         End Try       End Function

Wenn JA:

Kannst du mittels System.Net Namespace problemlos
SMTP Mails versenden, solange keine Firewall oder Virenscanner
dazwischen funkt, ohne diese anzupassen.
McAfee hat mir da mal einen Strich durch die Rechnung gemacht
und ich habe eine Weile gesucht bis ich das Problem gefunden hatte.

Beispiele zu SMTP Mail und VB.NET findet man viele im Netz.

Gruß
Jens

Firewall ist konfiguierbar, Virenscanner nutz ich aus Prinzip nicht hat man nur mehr Ärger als Nutzen mit.
Ziehe da einen Festplatten Wächter vor.

Püfung der Verbindung ist gut war mir jetzt nicht in den Sinn gekommen.

so wie ich das jetzt verstanden habe fragt der Code die eingetragene Domain ab, ist die Antwort positiv gehts weiter ansonsten wirds wieder getestet.

schau gleich mal nach dem smtp

es geht vorwärts

Dank der guten verständlichen Hilfe.

Mit der Mail hapert es noch etwas, beim Start wird schon mal eine Mail versendet .
Bei erfolgreichem Versand wir eine Hinweis auf die Besitzrechte gezeigt, ansonsten bleibt das Programm Anonym.

3 Punkte sind noch offen:

1. die Wiederholung der Mail alle x Minuten
2. das Anhängen der Bilddatei an die Mail

3. das automatische abspeichern des Bildes auf dem Rechner

hier mal der Mailcode:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim Msg As New MailMessage         Dim myCredentials As New System.Net.NetworkCredential         myCredentials.UserName = " xxxxxx"         myCredentials.Password = "xxxxxxxxxxx"           Msg.IsBodyHtml = False           Dim mySmtpsvr As New SmtpClient()         mySmtpsvr.Host = "smtp.homeguard-edv.de"         mySmtpsvr.Port = 25           mySmtpsvr.UseDefaultCredentials = False         mySmtpsvr.Credentials = myCredentials           Try             Msg.From = New MailAddress("info@homeguard-edv.de.de")             Msg.To.Add("info@homeguard-edv.de")             Msg.Subject = "System Nr:4011"             Msg.Body = "System Nr:4011"             mySmtpsvr.Send(Msg)             MsgBox("Dieser Laptop ist gestohlen! Ihr Foto und Ihre IP wurde soeben an Homeguard gesendet. Kontaktieren Sie uns umgehend unter 01520-3244016 System Nr:4011. Ansonsten erstatten wir 3 Stunden nach Eingang Ihrer Daten Anzeige", MsgBoxStyle.Information, Title:="Information")         Catch ex As Exception         End Try

Danke schon mal für die Unterstützung

Gruß Werner

Also hier bleib ich hängen,

im Forum und Google hab ich nix brauchbares finden können.

kennt einer ein gutes Buch zu VB2008 kein Einstiegsbuch da gibst meist auch keine Lösung dazu.

Danke Werner