Samstag, 4. Juli 2015
Dienstag, 30. Juni 2015
Montag, 29. Juni 2015
AES-FileCryptor
AES-FileCryptor
A programm to encrypt/ decrypt files with AES.
Ein Programm, um Dateien mit AES zu ent-/ verschlüsseln.
Download (GDrive)
Download (Dropbox)
Download (Sourceforge)
Lizenz
Manual (Englisch)
Manual (Deutsch)
Ein Programm, um Dateien mit AES zu ent-/ verschlüsseln.
Download (GDrive)
Download (Dropbox)
Download (Sourceforge)
Lizenz
Manual (Englisch)
Manual (Deutsch)
Plattform: Windows mit .Net 4.5.1
Error-Logging in VB.Net
Public Sub WriteToLog(ByVal Text As String)
Try
If System.IO.Directory.Exists(System.AppDomain.CurrentDomain.BaseDirectory() & "log\") = False Then
System.IO.Directory.CreateDirectory(System.AppDomain.CurrentDomain.BaseDirectory() & "log\") 'Verzeichnis erstellen
End If
'Datum anpassen
Dim CurrentDate_Month As String = ""
If DateTime.Today.Month < 10 Then
CurrentDate_Month = "0" & DateTime.Today.Month
Else
CurrentDate_Month = DateTime.Today.Month
End If
Dim CurrentDate_Day As String = ""
If DateTime.Today.Day < 10 Then
CurrentDate_Day = "0" & DateTime.Today.Day
Else
CurrentDate_Day = DateTime.Today.Day
End If
'Dateipfad anlegen:
Dim Dateipfad As String = System.AppDomain.CurrentDomain.BaseDirectory() & "log\" & DateTime.Today.Year & "_" & CurrentDate_Month & "_" & CurrentDate_Day & "_" & ".txt"
If System.IO.File.Exists(Dateipfad) = False Then
Using LogFile As FileStream = File.Create(Dateipfad, 200, FileOptions.Asynchronous)
LogFile.Close()
End Using
End If
'Datei öffnen
Dim fs As FileStream = New FileStream(Dateipfad, FileMode.Append, FileAccess.Write)
'Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
'Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
'Zeilen schreiben
w.WriteLine("------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
'Daten anpassen für Log:
w.WriteLine(CurrentDate_Day & "." & CurrentDate_Month & "." & DateTime.Today.Year & "-" & TimeOfDay)
w.Write(Text)
w.WriteLine()
'Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString) 'Fehlermeldung ausgeben
End Try
End Sub
Try
If System.IO.Directory.Exists(System.AppDomain.CurrentDomain.BaseDirectory() & "log\") = False Then
System.IO.Directory.CreateDirectory(System.AppDomain.CurrentDomain.BaseDirectory() & "log\") 'Verzeichnis erstellen
End If
'Datum anpassen
Dim CurrentDate_Month As String = ""
If DateTime.Today.Month < 10 Then
CurrentDate_Month = "0" & DateTime.Today.Month
Else
CurrentDate_Month = DateTime.Today.Month
End If
Dim CurrentDate_Day As String = ""
If DateTime.Today.Day < 10 Then
CurrentDate_Day = "0" & DateTime.Today.Day
Else
CurrentDate_Day = DateTime.Today.Day
End If
'Dateipfad anlegen:
Dim Dateipfad As String = System.AppDomain.CurrentDomain.BaseDirectory() & "log\" & DateTime.Today.Year & "_" & CurrentDate_Month & "_" & CurrentDate_Day & "_" & ".txt"
If System.IO.File.Exists(Dateipfad) = False Then
Using LogFile As FileStream = File.Create(Dateipfad, 200, FileOptions.Asynchronous)
LogFile.Close()
End Using
End If
'Datei öffnen
Dim fs As FileStream = New FileStream(Dateipfad, FileMode.Append, FileAccess.Write)
'Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
'Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
'Zeilen schreiben
w.WriteLine("------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
'Daten anpassen für Log:
w.WriteLine(CurrentDate_Day & "." & CurrentDate_Month & "." & DateTime.Today.Year & "-" & TimeOfDay)
w.Write(Text)
w.WriteLine()
'Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString) 'Fehlermeldung ausgeben
End Try
End Sub
Sonntag, 28. Juni 2015
Samstag, 20. Juni 2015
Sonntag, 14. Juni 2015
Freitag, 12. Juni 2015
Visual Basic 6 Tastendruck abfangen
If KeyCode = vbKeyEnter Then
Call Command_Berechne_Click 'Button-Klick aufrufen
End If
Call Command_Berechne_Click 'Button-Klick aufrufen
End If
Dienstag, 9. Juni 2015
Visual Basic .Net AES-128 und AES-256-Verschlüsselung, File to Byte-Array, Byte-Array to File,
AES-128 und AES-256-Verschlüsselung:
File to Byte-Array:
http://www.example-code.com/vbdotnet/readFileIntoByteArray.asp
Byte-Array to File:
http://www.example-code.com/vbdotnet/save-byte-array.asp
How to: Convert an Array of Bytes into a String in Visual Basic:
https://msdn.microsoft.com/en-us/library/ms172827.aspx
Byte-Array to File:
http://www.example-code.com/vbdotnet/save-byte-array.asp
How to: Convert an Array of Bytes into a String in Visual Basic:
https://msdn.microsoft.com/en-us/library/ms172827.aspx
Montag, 8. Juni 2015
Donnerstag, 4. Juni 2015
Visual Basic .Net IP-Kamera-Connect
The TCPCam Class
Instead of using the TCPCam ActiveX you can use the TCPCam class which can be found on the extracted rar file on this path:
"TCPCam\TCPCam\TCPCam\bin\Release" just add a reference to your project with the "TCPCam.dll" file. You need a picturebox to display the camera frames on. Declare your camera object before you continue:
Instead of using the TCPCam ActiveX you can use the TCPCam class which can be found on the extracted rar file on this path:
"TCPCam\TCPCam\TCPCam\bin\Release" just add a reference to your project with the "TCPCam.dll" file. You need a picturebox to display the camera frames on. Declare your camera object before you continue:
Code:
Dim Webcam As New TCPCam.Host(Picturebox,Port)
or as a client:
Code:
Dim Webcam As New TCPCam.Client(Picturebox)
With this class you can use the SendImage method to send images to
the host, not just camera frames.
Download: GDrive
Mittwoch, 3. Juni 2015
Montag, 1. Juni 2015
Visual Basic .Net Ordner erstellen, wenn noch nicht existiert
If System.IO.Directory.Exists("C:\test") = False Then
System.IO.Directory.CreateDirectory("C:\test")
End If
Visual Basic .Net Color RGB to HTML-Color (HEX)
http://lateral8.com/articles/2010/2/2/how-to-convert-rgb-to-hexadecimal-code-in-net.aspx
string htmlString = System.Drawing.ColorTranslator.ToHtml(System.Drawing.Color.FromArgb(70, 90, 155));
Visual Basic .Net Copy Paste in Textbox verhindern
In den Designer gehen --> Textbox anwählen --> ShortcutsEnabled auf "false" setzen
Sonntag, 31. Mai 2015
Visual Basic .Net Komplette Fehlermeldung anzeigen
Try
...
Catch ex As Exception
MessageBox.Show(ex.ToString)
...
End Try
...
Catch ex As Exception
MessageBox.Show(ex.ToString)
...
End Try
Dienstag, 19. Mai 2015
Sonntag, 17. Mai 2015
Visual Basic .Net Tasten abfragen
1. Bei der Form KeyPreview auf True setzen
2.
Private Sub Form_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 'Readme aufrufen
If e.KeyCode = Keys.F1 Then
Process.Start(System.AppDomain.CurrentDomain.BaseDirectory() & "Readme.pdf")'Readme aufrufen
End If
End Sub
2.
Private Sub Form_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 'Readme aufrufen
If e.KeyCode = Keys.F1 Then
Process.Start(System.AppDomain.CurrentDomain.BaseDirectory() & "Readme.pdf")'Readme aufrufen
End If
End Sub
Visual Basic .Net PDF Datei anzeigen
Process.Start(System.AppDomain.CurrentDomain.BaseDirectory() & "Readme.pdf") 'Readme anzeigen
Visual Basic .Net Datum für Access zusammenbauen
'Heutiges Datum für Access vorbereiten
Dim HeutigesDatum As String = "#" & DateTime.Today.Year & "-" & DateTime.Today.Month & "-" & DateTime.Today.Day & "#"
Dim HeutigesDatum As String = "#" & DateTime.Today.Year & "-" & DateTime.Today.Month & "-" & DateTime.Today.Day & "#"
Samstag, 16. Mai 2015
'Cannot find DAO350.dll' file error VB6
The DA0350.dll must be registered.
Try this:
On the Visual Basic 6.0 CD (or whatever your installation source is),
locate the Dao350.dll file, and then copy it to the directory
c:\program files\common files\microsoft shared\DAO. (The Dao350.dll file
is located in the \os\system folder on the Visual Basic 6.0 CD.)
To register this file, click Start, click Run, and then type or paste the following line:
Regsvr32 "c:\program files\common files\microsoft shared\DAO\Dao350.dll"
Update:
The VB6TMPL.TLB is probably not installed for your current user.
Try to run Visual Basic as administrator and/or try this: http://support.microsoft.com/kb/262976/en-us
1. Download DAO350.dll: https://drive.google.com/file/d/0B7FLEm_FBeJFMFg4VlNDaFFQYm8/view?usp=sharing.
2. Diese Datei in den Ordner c:\program files\common files\microsoft shared\DAO kopieren.
3. Start --> "cmd" suchen --> Regsvr32 "c:\program files\common files\microsoft shared\DAO\Dao350.dll" eingeben --> Enter --> Fertig
Siehe auch:
Mittwoch, 13. Mai 2015
Budapest-George Ezra Official HD HQ
Blame it on me-George Ezra Official HD HQ
Blame it on me-George Ezra de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Bring me some water-Melissa Etheridge Official HD HQ
Bring me some water-Melissa Etheridge de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
We are the people-Empire of the sun Official HD HQ
We are the people-Empire of the sun de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Walking on a dream-Empire of the sun Official HD HQ
Walking on a dream-Empire of the sun de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Survival-Eminem Official HD HQ
Not afraid-Eminem Official HD HQ
Berzerk-Eminem Official HD HQ
Cool kids-Echosmith Official HD HQ
Heartbeat song-Kelly Clarkson Official HD HQ
Heartbeat song-Kelly Clarkson de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Break the rules-Charli XCX Official HD HQ
Break the rules-Charli XCX de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Nachtschicht-Unheilig Official HD HQ
Nachtschicht-Unheilig de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Abwärts-Unheilig Official HD HQ
Riptide-Vance Joy Official HD HQ
First time-Vance Joy Official HD HQ
First time-Vance Joy de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Alles okay-Ventim Official HD HQ
Brenna dads guard-Hubert von Goisern Official HD HQ
Brenna dads guard-Hubert von Goisern de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Jump-Van Halen Official HD HQ
Wir haben Grund zum Feiern-Otto Waalkes Official HD HQ
Wir haben Grund zum Feiern-Otto Waalkes de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
The days-Robbie Williams Official HD HQ
The days-Robbie Williams de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
She's Madonna-Robbie Williams Official HD HQ
She's Madonna-Robbie Williams de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
Shame-Robbie Williams Official HD
Shame-Robbie Williams de FranzHuber23
Twitter: @FranzHuber23
Twitter: @TheFranzHuber23
Homepage
Keine Homepage
Facebook
Facebook
Youtube:FranzHuber23
Youtube:HansDampf99984
Youtube:LetsZockClassic
Youtube:Elon Musk
Google+:FranzHuber23
Google+:LetsZockClassic
Google+:HansDampf99984
Google+:Elon Musk
The days-Avicii Official HD
Dienstag, 12. Mai 2015
Visual Basic .net verschiedene Farben pro Zeile in Richtextbox
RichTextBox_Hinweise.SelectionStart = 0
RichTextBox_Hinweise.SelectionLength = 1
RichTextBox_Hinweise.SelectionColor = Color.Red
RichTextBox_Hinweise.SelectionStart =1
RichTextBox_Hinweise.SelectionLength = 1
RichTextBox_Hinweise.SelectionColor = Color.Green
RichTextBox_Hinweise.SelectionLength = 1
RichTextBox_Hinweise.SelectionColor = Color.Red
RichTextBox_Hinweise.SelectionStart =1
RichTextBox_Hinweise.SelectionLength = 1
RichTextBox_Hinweise.SelectionColor = Color.Green
Abonnieren
Posts (Atom)