Mittwoch, 6. Mai 2015
Montag, 4. Mai 2015
Visual Basic.net CSV-Export speichern
Dim CSV_SaveFileDialog As New SaveFileDialog
CSV_SaveFileDialog.InitialDirectory = "C:"
CSV_SaveFileDialog.Filter = "CSV-Dateien|*.csv"
CSV_SaveFileDialog.Title = "Wählen Sie einen Dateititel zum Speichern aus"
If CSV_SaveFileDialog.ShowDialog() = DialogResult.OK Then
MsgBox("Datei gespeichert unter: " & CSV_SaveFileDialog.FileName)
Else
MsgBox("Abbruch")
End If
CSV_SaveFileDialog.InitialDirectory = "C:"
CSV_SaveFileDialog.Filter = "CSV-Dateien|*.csv"
CSV_SaveFileDialog.Title = "Wählen Sie einen Dateititel zum Speichern aus"
If CSV_SaveFileDialog.ShowDialog() = DialogResult.OK Then
MsgBox("Datei gespeichert unter: " & CSV_SaveFileDialog.FileName)
Else
MsgBox("Abbruch")
End If
Visual Basic.net Äquivalent zu App.Path in Visual Basic 6
System.AppDomain.CurrentDomain.BaseDirectory()
Visual Basic.net Mails per SMTP-Server versenden
https://www.vb-paradise.de/index.php/Thread/6931-E-Mail-senden-per-SMTP-Simple-Mail-Transfer-Protocol/
https://msdn.microsoft.com/de-de/library/bb979096.aspx
Dim Message As New MailMessage
Dim Login As New System.Net.NetworkCredential
Login.UserName = "andreas@absender.de"
Login.Password = "Passwort des Absenders"
Message.IsBodyHtml = False
Dim SMTPServer As New SmtpClient()
SMTPServer.Host = "smtp.web.de" 'bei web.de
SMTPServer.Port = 25
SMTPServer.UseDefaultCredentials = False
SMTPServer.Credentials = Login
Try
Message.From = New MailAddress("andreas@absender.de")
Message.To.Add("entchen@empfänger.de")
Message.Subject = "Betreff"
Message.Body = "Inhalt"
SMTPServer.Send(Message)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(ex.Message) 'Fehlermeldung ausgeben
End Try
https://msdn.microsoft.com/de-de/library/bb979096.aspx
Dim Message As New MailMessage
Dim Login As New System.Net.NetworkCredential
Login.UserName = "andreas@absender.de"
Login.Password = "Passwort des Absenders"
Message.IsBodyHtml = False
Dim SMTPServer As New SmtpClient()
SMTPServer.Host = "smtp.web.de" 'bei web.de
SMTPServer.Port = 25
SMTPServer.UseDefaultCredentials = False
SMTPServer.Credentials = Login
Try
Message.From = New MailAddress("andreas@absender.de")
Message.To.Add("entchen@empfänger.de")
Message.Subject = "Betreff"
Message.Body = "Inhalt"
SMTPServer.Send(Message)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(ex.Message) 'Fehlermeldung ausgeben
End Try
Visual Basic.net-Double-Zahlen für SQL-Befehl formatieren
Value.ToString("G", New System.Globalization.CultureInfo("en-US")))
--> Ändert 1,00 auf 1.00
Kalenderwoche aus Datum berechnen-C# und Visual Basic.net
C#:
public static int berechneKalenderwoche(DateTime datum)
{
int kalenderwoche = (datum.DayOfYear/7)+1;
if (kalenderwoche == 53) kalenderwoche = 1;
return kalenderwoche;
}
{
int kalenderwoche = (datum.DayOfYear/7)+1;
if (kalenderwoche == 53) kalenderwoche = 1;
return kalenderwoche;
}
Visual Basic.net:
Public Shared Function berechneKalenderwoche(datum As DateTime) As Integer
Dim kalenderwoche As Integer = (datum.DayOfYear / 7) + 1
If kalenderwoche = 53 Then
kalenderwoche = 1
End If
Return kalenderwoche
End Function
Dim kalenderwoche As Integer = (datum.DayOfYear / 7) + 1
If kalenderwoche = 53 Then
kalenderwoche = 1
End If
Return kalenderwoche
End Function
Samstag, 2. Mai 2015
Eigenen Linux vServer mit Apache Web- und MySQL Server unter Windows aufsetzen [Deutsch][HD]
Donnerstag, 30. April 2015
Visual Basic .net Strings mit AES verschlüsseln
Option Strict On
Imports System.Security.Cryptography
Public Class cCrypt
#Region "Zustandsvariablen"
Private EncryptedString_ As String
Private DecryptedString_ As String
#End Region
Public Sub New()
End Sub
#Region "Methoden"
' Verschlüsseln
Public Sub Encrypt(ByVal AESKeySize As Int32, _
ByVal DecryptedString As String, _
ByVal Password As String)
' Der Salt-Wert ist eine zufällig gewählte Zeichenfolge,
' wenn man so will ein zweites Passwort.
' Nur wer den Salt-Wert und das Passwort kennt,
' kann entschlüsseln.
' Durch Verwendung eines Salt-Wertes ist es deutlich
' schwerer das Passwort zu knacken.
' Wird das Passwort selber zur Erstellung des Salt-Wertes
' verwendet, muss dieses mindestens 8 Zeichen haben.
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
' Mit Hilfe des Passwortes und des Salt wird ein Key (Hash-Wert)
' generiert, der später zur Initialisierung des
' AES-Algorithmus verwendt wird.
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts mit 256-bit
' oder 256-bit Schlüssel und 256-bit Block-Size
Dim AES As New AesManaged
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateEncryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), _
CryptoStreamMode.Write)
' Daten verschlüsseln:
Dim Data() As Byte
Data = System.Text.Encoding.UTF8.GetBytes(DecryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Verschlüsselte Daten als String ausgeben:
EncryptedString_ = Convert.ToBase64String(ms.ToArray)
ms.Close()
AES.Clear()
End Sub
' Entschlüsseln
Public Sub Decrypt(ByVal AESKeySize As Int32, _
ByVal EncryptedString As String, _
ByVal Password As String)
' Der Salt-Wert und das Passwort müssen mit dem übereinstimmen,
' das bei der Verschlüsselung verwendet wurde:
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts:
Dim AES As New AesManaged
' Ein mit 256 bit verschlüsselter String kann
' auch nur mit 256 bit entschlüsselt werden!
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateDecryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), _
CryptoStreamMode.Write)
Try ' Daten entschlüsseln:
Dim Data() As Byte
Data = Convert.FromBase64String(EncryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Die entschlüsselten Daten als String ausgeben:
DecryptedString_ = System.Text.Encoding.UTF8.GetString(ms.ToArray)
ms.Close()
AES.Clear()
Catch ex As Exception
DecryptedString_ = "Ungültiges Passwort!"
End Try
End Sub
#End Region
#Region "Eigenschaften"
ReadOnly Property EncryptedString() As String
Get
Return EncryptedString_
End Get
End Property
ReadOnly Property DecryptedString() As String
Get
Return DecryptedString_
End Get
End Property
#End Region
End Class
Imports System.Security.Cryptography
Public Class cCrypt
#Region "Zustandsvariablen"
Private EncryptedString_ As String
Private DecryptedString_ As String
#End Region
Public Sub New()
End Sub
#Region "Methoden"
' Verschlüsseln
Public Sub Encrypt(ByVal AESKeySize As Int32, _
ByVal DecryptedString As String, _
ByVal Password As String)
' Der Salt-Wert ist eine zufällig gewählte Zeichenfolge,
' wenn man so will ein zweites Passwort.
' Nur wer den Salt-Wert und das Passwort kennt,
' kann entschlüsseln.
' Durch Verwendung eines Salt-Wertes ist es deutlich
' schwerer das Passwort zu knacken.
' Wird das Passwort selber zur Erstellung des Salt-Wertes
' verwendet, muss dieses mindestens 8 Zeichen haben.
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
' Mit Hilfe des Passwortes und des Salt wird ein Key (Hash-Wert)
' generiert, der später zur Initialisierung des
' AES-Algorithmus verwendt wird.
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts mit 256-bit
' oder 256-bit Schlüssel und 256-bit Block-Size
Dim AES As New AesManaged
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateEncryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), _
CryptoStreamMode.Write)
' Daten verschlüsseln:
Dim Data() As Byte
Data = System.Text.Encoding.UTF8.GetBytes(DecryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Verschlüsselte Daten als String ausgeben:
EncryptedString_ = Convert.ToBase64String(ms.ToArray)
ms.Close()
AES.Clear()
End Sub
' Entschlüsseln
Public Sub Decrypt(ByVal AESKeySize As Int32, _
ByVal EncryptedString As String, _
ByVal Password As String)
' Der Salt-Wert und das Passwort müssen mit dem übereinstimmen,
' das bei der Verschlüsselung verwendet wurde:
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts:
Dim AES As New AesManaged
' Ein mit 256 bit verschlüsselter String kann
' auch nur mit 256 bit entschlüsselt werden!
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateDecryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), _
CryptoStreamMode.Write)
Try ' Daten entschlüsseln:
Dim Data() As Byte
Data = Convert.FromBase64String(EncryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Die entschlüsselten Daten als String ausgeben:
DecryptedString_ = System.Text.Encoding.UTF8.GetString(ms.ToArray)
ms.Close()
AES.Clear()
Catch ex As Exception
DecryptedString_ = "Ungültiges Passwort!"
End Try
End Sub
#End Region
#Region "Eigenschaften"
ReadOnly Property EncryptedString() As String
Get
Return EncryptedString_
End Get
End Property
ReadOnly Property DecryptedString() As String
Get
Return DecryptedString_
End Get
End Property
#End Region
End Class
Visual Basic .net-Datagridview Spalten auf Datum/ Währung formatieren
Me.dataGridView1.Columns("UnitPrice").DefaultCellStyle.Format = "c"
Me.dataGridView1.Columns("ShipDate").DefaultCellStyle.Format = "d"
Me.dataGridView1.Columns("ShipDate").DefaultCellStyle.Format = "d"
Visual Basic .net-Datagridview sortieren
DataGridView.Sort(DataGridView.Columns(1), System.ComponentModel.ListSortDirection.Ascending)
DataGridView.Sort(DataGridView.Columns(1), System.ComponentModel.ListSortDirection.Descending)
DataGridView.Sort(DataGridView.Columns(1), System.ComponentModel.ListSortDirection.Descending)
Samstag, 11. April 2015
Dienstag, 7. April 2015
Freitag, 3. April 2015
Montag, 30. März 2015
Freitag, 27. März 2015
Auf Android und unter Windows fernsehen mit Gratistool
Auf Android und unter Windows fernsehen mit Gratistool
Dienstag, 24. März 2015
Zitatverdreher-Die Welt ohne Eigenschaften war eher Eigenschaften ohne Welt
"Die Welt ohne Eigenschaften war eher Eigenschaften ohne Welt"
Max Mustermann
Zitatverdreher-Der Mensch ist frei geboren und liegt doch überall in Ketten
"Der Mensch ist frei geboren und liegt doch überall in Ketten"
Holiday Inn
Zittverdreher-Ich habe keine besonderen Talente. Ich bin nur leidenschaftlich neugierig.
"Ich habe keine besonderen Talente. Ich bin nur leidenschaftlich neugierig."
Barack Obama
Donnerstag, 19. März 2015
Zitatverdreher-Nichts ist mächtiger als eine Idee, deren Zeit gekommen ist
"Nichts ist mächtiger als eine Idee, deren Zeit gekommen ist"
Paris Hilton
Zitatverdreher-There's no business like show business
"There's no business like show business"
Muammar al Gaddafi
Zitatverdreher-Die Macht hat großen Einfluss auf die geistig schwachen
"Die Macht hat großen Einfluss auf die geistig schwachen"
Obi Wan Kenobi
Zitatverdreher-Niemand hat die Absicht, eine Mauer zu errichten
"Niemand hat die Absicht, eine Mauer zu errichten"
Bob, der Baumeister
Titatverdreher-Mailand oder Madrid-Hauptsache Italien
"Mailand oder Madrid-Hauptsache Italien"
Papst Benedikt XVI.
Zitatverdreher-Schön, die Phönizier haben das Geld erfunden. Aber warum so wenig?
"Schön, die Phönizier haben das Geld erfunden. Aber warum so wenig?"
Buddha
Zitatverdreher-Die Macht ist nicht etwas,was man erwirbt, wegnimmt, teilt, was man bewahrt oder verliert; Die Macht ist etwas, was sich von unzähligen Punkten aus und im Spiel ungleicher und beweglicher Beziehungen vollzieht
"Die Macht ist nicht etwas,was man erwirbt, wegnimmt, teilt, was man bewahrt oder verliert; Die Macht ist etwas, was sich von unzähligen Punkten aus und im Spiel ungleicher und beweglicher Beziehungen vollzieht."
Darth Vader
Zitatverdreher-Ihr Völker dieser Welt, schaut auf diese Stadt
"Ihr Völker dieser Welt, schaut auf diese Stadt"
Klaus Wowereit
Zitatverdreher-Die Proletarier haben nichts zu verlieren als ihre Ketten
"Die Proletarier haben nichts zu verlieren als ihre Ketten"
Heidi Klum
Zitatverdreher-Handle nur nach derjenigen Maxime, durch die du zugelich wollen kannst, dass sie ein allgemeines Gesetz werde
"Handle nur nach derjenigen Maxime, durch die du zugelich wollen kannst, dass sie ein allgemeines Gesetz werde."
Silvio Berlusconi
Zitatverdreher-Liebe deinen nächsten so wie dich selbst
"Liebe deinen nächsten so wie dich selbst"
Kurt Cobain
Zitatverdreher-Ich schaue mir meine Filme nicht an, sie sind mir zu brutal
"Ich schaue mir meine Filme nicht an, sie sind mir zu brutal"
Jennifer Aniston
Zitatverdreher-Wer sagt, hier herrscht Freiheit, der lügt. Denn die Freiheit herrscht nicht.
"Wer sagt, hier herrscht Freiheit, der lügt. Denn die Freiheit herrscht nicht."
Barack Obama
Zitatverdreher-Alles hat ein Ende, nur die Wurst hat 2
"Alles hat ein Ende, nur die Wurst hat 2"
Albert Einstein
Zitatverdreher-Geld stinkt nicht
"Geld stinkt nicht"
"Pecunia non olet"
Bischof Franz-Peter Tebartz-van Elst
Zitatverdreher-Je öfter eine Dummheit wiederholt wird, desto mehr bekommt sie den Anschein von Klugheit
"Je öfter eine Dummheit wiederholt wird, desto mehr bekommt sie den Anschein von Klugheit"
The Lehman brothers
Zitatverdreher-Macht kaputt, was euch kaputt macht
"Macht kaputt, was euch kaputt macht"
Axel Springer
Zitatverdreher-Wer mit 20 kein Kommunist war, hat kein Herz. Aber, wer mit 40 noch Kommunist ist, der hat keinen Verstand
"Wer mit 20 kein Kommunist war, hat kein Herz. Aber, wer mit 40 noch Kommunist ist, der hat keinen Verstand"
Josef Stalin
.jpg)
Samstag, 14. März 2015
Zitatverdreher-... treibt die Schuldiger hinaus
"... treibt die Schuldiger hinaus"
Wolfgang Schäuble
Zitatverdreher-Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat
"Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat"
Peter Hartz
Zitatverdreher-Hier bin ich Mensch, hier kauf ich ein
"Hier bin ich Mensch, hier kauf ich ein"
Friedrich Schiller
Zitatverdreher-Wenn man ein 0:2 kassiert, dann ist ein 1:1 nicht mehr möglich
"Wenn man ein 0:2 kassiert, dann ist ein 1:1 nicht mehr möglich"
Satz des Phytagoras
Zitatverdreher-Alles, was wir sind, ist das Resultat von dem, was wir gedacht haben
"Alles, was wir sind, ist das Resultat von dem, was wir gedacht haben"
.jpg)
Lukas Podolski
Zitatverdreher-Der Vorteil von Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist da schon schwieriger.
"Der Vorteil von Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist da schon schwieriger."
Kevin Grosskreutz
Zitatverdreher-Herr, es ist Sommer. Der Sommer war sehr groß. Leg deinen Schatten auf die Sonnenuhren und auf den Fluren lass die Winde los
"Herr, es ist Sommer. Der Sommer war sehr groß. Leg deinen Schatten auf die Sonnenuhren und auf den Fluren lass die Winde los"
H.P.Baxxter
Zitatverdreher-Da hat das rote Pferd sich einfach umgedreht und hat mit seinem Schwanz die Fliege abgewehrt
"Da hat das rote Pferd sich einfach umgekehrt und hat mit seinem Schwanz die Fliege abgewehrt"
Johann Wolfgang von Goethe
Zitatverdreher-Mr. Gorbatschow, tear down this wall
"Mr. Gorbatschow, tear down this wall"
David Hasselhoff
Zitatverdreher-Willst du den Charakter eines Menschen erkennen, so gib ihm Macht
"Willst du den Charakter eines Menschen erkennen, so gib ihm Macht"
Roland Koch
Zitatverdreher-Frage nicht, was dein Land für dich tun kann, frage, was du für dein Land tun kannst
"Frage nicht, was dein Land für dich tun kann, frage, was du für dein Land tun kannst"
Kim Jong Il
Zitatverdreher-Auch ein blindes Huhn findet mal ein Korn
"Auch ein blindes Huhn findet mal ein Korn"
Kevin Grosskreutz
Zitatverdreher-Fußball ist wie Schach, nur ohne Würfel
"Fußball ist wie Schach, nur ohne Würfel"
Alexander Dobrindt
Zitatverdreher-Unter den Blinden ist der Einäugige König
"Unter den Blinden ist der Einäugige König"
Hartmut Mehdorn
Abonnieren
Posts (Atom)