newbcode's .NET Snippets

[newbcode]

Hey,
dachte das meine Snippet-Sammlung für den einen oder anderen hilfreich sein könnte!

Fragen werden gerne beantwortet und Verbesserungsvorschläge werden gerne angenommen

Weitere Snippets werden folgen!

#1 E-Mails mittels SMTP-Client versenden

 Spoiler

Imports System.Net
Imports System.Net.Mail
Imports System.Text.Encoding

    Dim mailClient As SmtpClient
    Dim mailData As MailMessage

    Dim smtpServer As String = String.Empty
    Dim smtpPort As Integer = 25

    Dim mailSender As String = String.Empty
    Dim mailSenderPwd As String = String.Empty

    Dim mailReceiver As String = String.Empty
    Dim mailSubject As String = String.Empty
    Dim mailMessage As String = String.Empty

    Private Sub sendMail()
        mailClient = New SmtpClient(smtpServer, smtpPort)
        mailData = New MailMessage(mailSender, mailReceiver)

        AddHandler mailClient.SendCompleted, AddressOf sendMail_Completed
		
        mailClient.Credentials = New NetworkCredential(mailSender, mailSenderPwd)
        mailClient.EnableSsl = useSSL

        With mailData
            .Subject = mailSubject
            .SubjectEncoding = UTF8
            .Body = mailMessage
            .IsBodyHtml = useHtml
            .BodyEncoding = UTF8
        End With

        mailClient.SendAsync(mailData, Nothing)
    End Sub

    Private Sub sendMail_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        RemoveHandler mailClient.SendCompleted, AddressOf sendMail_Completed
        MessageBox.Show("Done", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

#2 Dateien mittels WebClient downloaden(Mit "Fortschrittsabfrage")

 Spoiler

Imports System.Net

    Dim WithEvents wClient As WebClient

    Public Sub downloadFile()
        wClient = New WebClient

        AddHandler wClient.DownloadProgressChanged, AddressOf wClient_DownloadProgressChanged
        AddHandler wClient.DownloadFileCompleted, AddressOf wClient_DownloadFileCompleted

        wClient.DownloadFileAsync(New Uri("www.whatever.com/whatever.exe"), "C:\whatever.exe")
    End Sub

    Private Sub wClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wClient.DownloadProgressChanged
        'e.ProgressPercentage = Fortschritt in Prozent
    End Sub

    Private Sub wClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wClient.DownloadFileCompleted
        RemoveHandler wClient.DownloadProgressChanged, AddressOf wClient_DownloadProgressChanged
        RemoveHandler wClient.DownloadFileCompleted, AddressOf wClient_DownloadFileCompleted

        MessageBox.Show("Done", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

#3 Quelltext einer Seite mittels WebClient auslesen

 Spoiler

Imports System.Net

    Dim WithEvents wClient As New WebClient
    Dim source As String = String.Empty

    Private Sub downloadSource()
        wClient = New WebClient

        AddHandler wClient.DownloadFileCompleted, AddressOf wClient_DownloadCompleted
        wClient.DownloadStringAsync(New Uri("www.whatever.com/whatever.php"))
    End Sub

    Private Sub wClient_DownloadCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadStringCompletedEventArgs) Handles wClient.DownloadStringCompleted
        RemoveHandler wClient.DownloadStringCompleted, AddressOf wClient_DownloadCompleted
        source = e.Result
		
		MessageBox.Show("Done", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

#4 Warten ohne einzufrieren

 Spoiler

Imports System.Threading
Imports System.Threading.Thread

  Dim continueThread As Thread

    Private Sub doSomething()
        'Do something

        continueThread = New Thread(AddressOf waitForIt)
        continueThread.Start()
    End Sub

    Private Sub waitForIt()
        Sleep(5000)

        'Continue code
    End Sub

#5 Farbig und Fett in eine RichTextBox schreiben

 Spoiler

    Private Sub appenText(ByVal t As String, ByVal c As Color)
        RTB.SelectionFont = New Font(RTB.Font, FontStyle.Bold)
        RTB.SelectionColor = c
        RTB.AppendText(t & vbCrLf)
    End Sub
	
	'appenText("Random text 1234567890", Color.Red)

#6 Textdateien lesen, schreiben, erstellen & löschen

 Spoiler

    Private Sub createFile(ByVal p As String)
        File.Create(p).Close()
    End Sub

    Private Sub deleteFile(ByVal p As String)
        File.Delete(p)
    End Sub

    Dim fileContent() As String
    Private Sub readFile(ByVal p As String)
        fileContent = File.ReadAllLines(p)
    End Sub

    Dim sWriter As StreamWriter
    Private Sub writeFile(ByVal t As String, ByVal p As String)
        sWriter = New StreamWriter(p)
        sWriter.WriteLine(t)
        sWriter.Close()
    End Sub

#7 POST-Formulare mittels WebClient uploaden

 Spoiler

   Imports System.Net
Imports System.Text.Encoding
Imports System.Collections.Specialized

    Dim WithEvents wClient As WebClient
    Dim nvc As NameValueCollection
    Dim returnSource As String = String.Empty

    Private Sub uploadForm(ByVal p As String)
        wClient = New WebClient
        nvc = New NameValueCollection

        nvc.Add("username", "newbcode")
        nvc.Add("password", "12345")
        nvc.Add("login", "true")

        AddHandler wClient.UploadValuesCompleted, AddressOf wClient_UploadValuesCompleted
        wClient.UploadValuesAsync(New Uri("www.whatever.com/login.php"), "POST", nvc)
    End Sub

    Private Sub wClient_UploadValuesCompleted(ByVal sender As Object, ByVal e As System.Net.UploadValuesCompletedEventArgs) Handles wClient.UploadValuesCompleted
        RemoveHandler wClient.UploadValuesCompleted, AddressOf wClient_UploadValuesCompleted

        returnSource = UTF8.GetString(e.Result)
        MessageBox.Show("Done", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

#8 Text in Zwischablage speichern / Zwischablage auslesen

 Spoiler

    Private Sub setClipboardText(ByVal t As String)
        My.Computer.Clipboard.SetText(t)
    End Sub

    Dim cp As String = String.Empty
    Private Sub getClipboard()
        cp = My.Computer.Clipboard.GetText
    End Sub

#9 MD5-Hash eines Strings ermitteln

 Spoiler

Imports System.Text.Encoding
Imports System.Security.Cryptography

    Dim md5 As MD5CryptoServiceProvider
    Dim md5hash As String = String.Empty

    Private Sub getHash(ByVal t As String)
        md5 = New MD5CryptoServiceProvider

        md5.ComputeHash(ASCII.GetBytes(t))
        md5hash = BitConverter.ToString(md5.Hash).Replace("-", String.Empty)
    End Sub

#newbcode

[Rorc]

Hier rein:



Moverequest ist schon abgeschickt