|
You last visited: Today at 22:11
Advertisement
newbcode's .NET Snippets
Discussion on newbcode's .NET Snippets within the Coding Snippets forum part of the Coding Releases category.
03/01/2014, 20:20
|
#1
|
elite*gold: 0
Join Date: Mar 2014
Posts: 3
Received Thanks: 0
|
newbcode's .NET Snippets
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
Code:
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")
Code:
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
Code:
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
Code:
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
Code:
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
Code:
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
Code:
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
Code:
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
Code:
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
|
|
|
03/01/2014, 20:36
|
#2
|
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,450
|
Hier rein:
Moverequest ist schon abgeschickt
|
|
|
 |
Similar Threads
|
3rd Job Snippets.
05/18/2014 - Flyff Private Server - 3 Replies
Hallo Leute, kurze Frage... ich habe mich schon einige Male daran probiert, den 3rd Jobsource in einen cleanen v15 zu übernehmen, jedoch mach ich damit immer alles kaput. Ich wollte euch mal fragen, welche Resource-Dateien ich genau brauche, damit alles läuft... würde mich freuen wenn ihr mir da weiterhelfen könntet!!
|
e*pvp Snippets
04/04/2013 - General Coding - 2 Replies
Ich habe mal wieder keine Ahnung wohin das muss, aber egal :awesome:
Da ich die Coding Tutorials Section sehr unübersichtlich finde, teilweise sehr Allgemein geschrieben ist und es schwer ist das richtige zu finden ist, wollte ich folgenden Vorschlag machen:
Für jede Programmiergruppe (C/C++, .NET Languages, AutoIT und Web Development) eine eigene Untergruppe "Snippets" zu machen.
Dort können dann Codeschnippsel, lediglich mit Kommentaren zu der jeweiligen Programmiersprache gepostet...
|
[B] PHP Snippets
10/17/2012 - Web Development - 6 Replies
Hallo zusammen,
ich bin mir nicht wirklich sicher, ob das hier hingehört, wenn nicht bitte moven.
Ihr kennt das - Ihr wollt was coden, Ihr wüsstet eigentlich auch wie es geht, aber dann vergesst Ihr es plötzlich. Deswegen möchte ich hier eine kleinere Zusammenfassung nützlicher PHP-Scripts vorstellen, die sich im Laufe der Jahre bei mir so angesammelt haben. In fernerer Zukunft wird es dazu auch ein Archiv mit Example-Dateien geben, sodass Ihr alles direkt auf eurem XAMPP ausprobieren...
|
[VB.net]Api Bot Snippets
10/31/2011 - Coding Tutorials - 1 Replies
Jo ahbe endlich meinen Youtube API Bot fertig und wollte euch jetzt mal ein paar snippets releasen.
Ok los gehts!
Zuerst müssen wir die Verweise setzen!
Das müsste jeder wissen wie das geht!
Wenn nciht dann nicht weiter lesen.
Ich werde hier ncihts erklären ihr müsst ein wenig mitdenken ;)
Ok weiter gehts.
|
All times are GMT +1. The time now is 22:12.
|
|