VB.Net-Forum - Beitragsübersicht -
ThemaV12: My.Settings
Von Inveritas
Datum 04. September 2015 um 10:38:53
Frage sow ... habe ein erneutes Problem ...


es werden in my.settings iwi keine Einträge gespeichert ...
Private Sub setup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Text = My.Settings.url
TextBox2.Text = My.Settings.purl
TextBox3.Text = My.Settings.port

#Region "Centrierung"

Label1.Left = CInt((Me.Width - Label1.Width) / 2)
Label2.Left = CInt((Me.Width - Label2.Width) / 2)
Label3.Left = CInt((Me.Width - Label3.Width) / 2)
Label4.Left = CInt((Me.Width - Label4.Width) / 2)
PictureBox6.Left = CInt((Me.Width - PictureBox6.Width) / 2)
RichTextBox1.Left = CInt((Me.Width - RichTextBox1.Width) / 2)
PictureBox9.Left = CInt((Me.Width - PictureBox9.Width) / 2)
#End Region

#Region " Ausgabe der RichTextBox"

RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
Dim h As Integer = RichTextBox1.Size.Height
Dim f As Single = RichTextBox1.Font.Height
For i As Integer = 0 To CInt(Math.Truncate(h / f)) \ 9 - 1 '(1 Is For 1 Line text ...Set 2 If you have 2 lines text e.t.c)
RichTextBox1.Text += vbCr & vbLf
Next
RichTextBox1.Text += "In this window you can enter your server data." & vbCrLf & vbCrLf & " IMPORTANT INFO !!!!!!!" & vbCrLf & vbCrLf & "After you have clicked Save , this window will never Open
again !!!" & vbCrLf & " Please check your entries exactly did befor they will save. " & vbCrLf & " Best greetings," & vbCrLf & "Sonaca"

#End Region

End Sub

#Region "savebutten"

' Abfrage ob die textboxen ausgefüllt worden sind
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click

If TextBox1.Text = "" Then
MsgBox("Pleae Enter ur Update URL")

Else
My.Settings.url = TextBox1.Text
My.Settings.Save()
End If

If TextBox2.Text = "" Then
MsgBox("Pleae Enter ur Website URL")

Else

My.Settings.purl = TextBox2.Text
My.Settings.Save()

End If

If TextBox3.Text = "" Then

Else

My.Settings.port = TextBox3.Text
My.Settings.Save()
My.Settings.Reload()

End If

'Abfrage ob eine url zum updater und zur hompage gespeichert wurde
If My.Settings.url & My.Settings.purl = "" = True Then
MsgBox("es wurde kein wert hinterlegt")

Else

Hauptseite.Show()
Me.Hide()

End If

End Sub
#End Region
habe ich irgendwas übersehen oder vergessen ?

grüße
Antwort:
Von Nico
E-Mail nico.schertler@studentpartners.de
Datum 07. September 2015 um 08:26:09
Antwort In irgendeiner Form werden die Daten immer irgendwo stehen müssen. Du könntest sie als Konstante im Quellcode deklarieren. Dann stehen sie aber auch im Klartext in der EXE. Wenn du nicht willst, dass der String bemerkt wird, kannst du ihn kodieren und/oder verschlüsseln. Base64 ist z.B. ein Kode, der schon von .Net unterstützt wird. Allerdings sind die Resultate meistens einfach als Base64 identifizierbar. Dann gäbe es noch die guten alten Cäsar- oder Vigenere-Chiffren. Einige Verschlüsselungsalgorithmen sind auch schon in .Net implementiert. Sinn machen hier symmetrische Verfahren wie z.B. AES. Allerdings musst du da auch den Schlüssel irgendwo speichern. Dann geht es darum, zu verhindern, dass ein Teil der EXE überhaupt als Schlüssel identifiziert wird. Alles nicht ganz so einfach. Eventuell hilft dir der Suchbegriff Obfuscation weiter.

Nico
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ]
Antworten
V12: My.Settings - Inveritas 04. September 2015 um 10:38:53
Re: My.Settings - Inveritas 05. September 2015 um 05:50:42
Re: My.Settings - Nico 06. September 2015 um 09:48:23
Re: My.Settings - Inveritas 07. September 2015 um 06:43:32
Re: My.Settings - Nico 07. September 2015 um 08:26:09

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  VB 2012
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB.Net-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | VB/VBA-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015