[VB.Net]Fragen/Antworten & TuT Reuqests [Sammelthread]

Hier könnt ihr Anfragen zu Tutorials oder einfach nur Fragen zu bestimmten Funktionen(z.b ihr wisst was ihr machen wollt, aber euch fällt kein passender Befehl dazu ein) stellen.

Ich werde dann ggf. ein Tutorial schreiben bzw. darauf Antworten

(Leute, die genug ahnung von vb.net haben können natürlich auch antworten, aber bitte keinen schwachsinn)


Historie:
Wie man einen String zwischen 2 Strings ausliest + Base64 Algorythmus (Klick!)
Wie man in einem Webbrowser einen Bestimmtes Element aussucht, und anklickt (Klick!)


MFG Padrino

Cooler Service ;)
Also ich wüsste gerne wie ich in einem Text bestimmte Zeilen in Chars wie z.B. " und > die verschlüsselt Wurden entschlüsseln und wieder verschlüsseln kann.
Als Beispielverschlüsselung, bzw in meinem Fall ist es Base64.

Gruß, Rastajan.

Nimm dir eine Richtextbox, wo du deinen text rein machst.
Und dann sieht der Code wie folgt aus:


Funktion zum Entschlüsseln eines Base64-Hashs

HTML-Code:

---

Public Function DecryptBase64(ByVal sText As String) As String
Dim nBytes() As Byte = System.Convert.FromBase64String(sText)
Return System.Text.Encoding.Default.GetString(nBytes)
End Function

---

Funktion zum Verschlüsselb eines Strings in einen Base64-Hash

HTML-Code:

---

Public Function EncryptBase64(ByVal sText As String) As String
Dim nBytes() As Byte = System.Text.Encoding.Default.GetBytes(sText)
Return System.Convert.ToBase64String(nBytes)
End Function

---

Nun zum ausführen(ENTSCHLÜSSELN // Ich nehme hierzu mal einen Button)

HTML-Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
For Each line In RichTextBox1.Lines
Dim hash As String = Split(Split(line, """")(1), ">")(0)
Dim plain As String = DecryptBase64(hash)
RichTextBox1.Text = RichTextBox1.Text.Replace(hash, plain)
Next
End Sub

---

Und zum Verschlüsseln // nehme ich mal einen zweiten Button)

HTML-Code:

---

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
For Each line In RichTextBox1.Lines
Dim plain As String = Split(Split(line, """")(1), ">")(0)
Dim hash As String = EncryptBase64(plain)
RichTextBox1.Text = RichTextBox1.Text.Replace(plain, hash)
Next
End Sub

---

In deiner Richtextbox1 wird dann der Output am ende auch ausgegeben


################################################## #
################################################## #


Merke:
Um einen String zwischen 2 bekannten strings auszulesen benutzt man die Split funktion:

HTML-Code:

---

Dim Text as String = split(split("<title>Padrino</title>", "<title>")(1), "</title>")(0)

---

In der Variable Text steht nun: Padrino
Denn wir haben unseren Text ab <title> bis </title> gesplittet, und das was dazwischen ist uns so ausgelesen.


Hoffe das ist verständlich, ansonsten einfach nochmal fragen und ich schaue, dass ich es genauer erkläre

MFG Padrino

Könntest auch anstatt immer "System.Text.Encoding.Default.GetString()" zu schreiben, einfach oben schreiben: "Imports System.Text" und dann mit "Encoding.Default.GetString()".

Sparst du bisschen Code. Sonst ist es denk ich schön erklärt.
Guter Thread.

Könntest du ein Tutorial zum Thema "Chat" schreiben

-

Funktioniert, lässt sich sicherlich aber auch noch anders umsetzen.

Code:

---

        If TextBox1.Text.Length = 25 Then
            TextBox2.Text = TextBox1.Text.Substring(0, 5)
            TextBox3.Text = TextBox1.Text.Substring(5, 5)
            TextBox4.Text = TextBox1.Text.Substring(10, 5)
            TextBox5.Text = TextBox1.Text.Substring(15, 5)
            TextBox6.Text = TextBox1.Text.Substring(20, 5)
        End If

---

MfG, Sawyer

Zitat:

---

Zitat von Bart2oo

Könntest du ein Tutorial zum Thema "Chat" schreiben

---

[ame]http://www.youtube.com/watch?v=PvvTgDkko-w&feature=channel_video_title[/ame]

Könnte ich nicht besser machen ;)


@roccihrs

Hab dir mal was kleines geschrieben:

Code:

---

Dim TBlist As New List(Of TextBox)
        TBlist.Add(TextBox2)
        TBlist.Add(TextBox3)
        TBlist.Add(TextBox4)
        TBlist.Add(TextBox5)
        TBlist.Add(TextBox6)

        Dim str As String = TextBox1.Text
        For Each tb In TBlist
            tb.Text = str.Substring(0, 5)
            str = str.Remove(0, 5)
        Next

---

Könntest du zeigen wie meine eine HardwareID Klasse in VB.NET macht ?
Muss nicht großartig aufwendig sein nur wie man z.B die HardwareID aus dem Prozessor rauslesen. Wäre auch natürlich nett wenn du Zeigst wie man es aus den restlichen Komponenten wie der Grafikkarte oder des Maiboard ließt.

~Acsiii

@Acsiii
Hier ein Beispiel von politoxy: http://www.multiupload.com/5JHRKY0LJ6
MfG