Guten Tag liebes Forum,
ich habe mich nach langer Zeit mal wieder an VB.Net gesetzt und habe einfach mal drauf los programmiert.Dazu habe ich auch hier im Forum zu Fragen oft gute Antworten und/oder Links gefunden die mir weiter geholfen haben.
Das Problem ist jetzt, dass ich das Programm gerne einer Community zur Verfügung stellen mag bzw schon habe. Zu dem Programm habe ich eine art kleinen Updater geschrieben der bei Programmstart die neue .exe von meinem Webspace runterlädt.Ich habe den Updater jetzt mal durch VirusTotal gejagt und er sagt mir das er 3/63 Funde hat.
virustotal.com/de/file/5e980f5…1d5f/analysis/1503176572/
Es ist natürlich nicht sehr Vertrauens erweckend, wenn man dort ein Virusfund hat.
Der Virusfund ist von einem mir nicht mal wirklich bekanntem Antiviren Programm aus China.
Ich denke mal es liegt einfach daran, dass eine .exe aus dem Internet geladen wird, oder?
Es wäre nett, wenn ihr ein Tipp habt wie ich das ändern könnte.
Spoiler anzeigen
Hier auch nochmal als Pastebin nur mit IP anstatt Domain
pastebin.com/nJV9rHAZ
Mit freundlichen Grüßen,Zaickz
ich habe mich nach langer Zeit mal wieder an VB.Net gesetzt und habe einfach mal drauf los programmiert.Dazu habe ich auch hier im Forum zu Fragen oft gute Antworten und/oder Links gefunden die mir weiter geholfen haben.
Das Problem ist jetzt, dass ich das Programm gerne einer Community zur Verfügung stellen mag bzw schon habe. Zu dem Programm habe ich eine art kleinen Updater geschrieben der bei Programmstart die neue .exe von meinem Webspace runterlädt.Ich habe den Updater jetzt mal durch VirusTotal gejagt und er sagt mir das er 3/63 Funde hat.
virustotal.com/de/file/5e980f5…1d5f/analysis/1503176572/
Es ist natürlich nicht sehr Vertrauens erweckend, wenn man dort ein Virusfund hat.
Der Virusfund ist von einem mir nicht mal wirklich bekanntem Antiviren Programm aus China.
Ich denke mal es liegt einfach daran, dass eine .exe aus dem Internet geladen wird, oder?
Es wäre nett, wenn ihr ein Tipp habt wie ich das ändern könnte.
VB.NET-Quellcode
- Imports System
- Imports System.Net
- Imports System.IO
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Try
- My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\ItemErstellen.exe")
- Catch exc As System.IO.FileNotFoundException
- MessageBox.Show(Me, "Fehler beim Löschen Datei. Die Datei wurde nicht gefunden! ItemErstellen wurde geupdated", "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
- Catch ex As Exception
- MessageBox.Show(Me, "Fehler beim Löschen! Bitte melde es dem Entwickler. Fehler: " + ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
- End Try
- Button1.Enabled = False
- dwlByLink("http://www.artex-life.de/html/ItemErstellen.exe", Application.StartupPath + "\ItemErstellen.exe")
- End Sub
- Public Sub dwlByLink(myLink As String, myFile As String)
- Try
- Dim myRequest As System.Net.WebRequest = System.Net.WebRequest.Create(myLink) 'Request erstellen
- Dim myResponse As System.Net.WebResponse = myRequest.GetResponse() 'Respons speichern
- Dim myStream As System.IO.Stream = myResponse.GetResponseStream() 'Datenstream aus dem Respons extrahieren
- Dim myReader As New System.IO.BinaryReader(myStream) 'Binärer "leser" zum Lesen des Streams
- 'Datei speichern
- Dim myFileStream As New System.IO.FileStream(myFile, System.IO.FileMode.Create) 'Datei auswählen
- Dim i As Long
- ProgressBar1.Maximum = myResponse.ContentLength
- For i = 1 To myResponse.ContentLength 'Byte für Byte in die Datei übertragen
- myFileStream.WriteByte(myReader.ReadByte())
- ProgressBar1.Value = i
- Next i
- If ProgressBar1.Value = myResponse.ContentLength Then
- Button1.Enabled = True
- End If
- myFileStream.Flush() 'noch mal spülen ...
- myFileStream.Close() ' und schließen
- Catch ex As Exception
- MessageBox.Show(Me, "Fehler beim Download! Bitte melde es dem Entwickler. Fehler: " + ex.ToString, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
- End Try
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Process.Start(Application.StartupPath + "\ItemErstellen.exe")
- Application.Exit()
- End Sub
- End Class
Hier auch nochmal als Pastebin nur mit IP anstatt Domain
pastebin.com/nJV9rHAZ
Mit freundlichen Grüßen,Zaickz