Public Class Forbidden
Public Function NContains(ByVal S As String, ByVal C As Char) As Int16
Dim T As Int16 = 0
For i As Int16 = 0 To S.Length - 1
If S(i) = C Then
T += 1
End If
Next
Return T
End Function
Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
If frmBrowser.Forbpassword <> Nothing Then
If InputBox("Inserire la password per la modifica:") = frmBrowser.Forbpassword Then
Dim S As String = InputBox("Inserire il sito:")
If Not S.StartsWith("http://") Then
S = S.Insert(0, "http://")
End If
lstSites.Items.Add(S)
frmBrowser.Forbiddens.Add(S)
frmBrowser.AddForbidden(S)
Else
MsgBox("Password errata!", MsgBoxStyle.Exclamation)
End If
Else
Dim S As String = InputBox("Inserire il sito:")
If Not S.StartsWith("http://") Then
S = S.Insert(0, "http://")
End If
lstSites.Items.Add(S)
frmBrowser.Forbiddens.Add(S)
frmBrowser.AddForbidden(S)
End If
End Sub
Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemove.Click
If lstSites.SelectedIndex >= 0 And InputBox("Inserire la password per la rimozione:") = frmBrowser.Forbpassword Then
frmBrowser.Forbiddens.RemoveAt(lstSites.SelectedIndex)
lstSites.Items.RemoveAt(lstSites.SelectedIndex)
End If
End Sub
Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
Me.Close()
End Sub
Private Sub Forbidden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim S As String
For Each S In frmBrowser.Forbiddens
lstSites.Items.Add(S)
Next
End Sub
Private Sub cmdPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPassword.Click
If frmBrowser.Forbpassword = Nothing Then
frmBrowser.Forbpassword = InputBox("Inserire la nuova password:")
'Append(Application.StartupPath + "\Settings.dat", frmBrowser.Forbpassword)
Else
If InputBox("Inserire la VECCHIA password:") = frmBrowser.Forbpassword Then
Dim T(1) As String
T(0) = InputBox("Inserire la NUOVA password:")
T(1) = InputBox("Reinserire la NUOVA password:")
If T(0) <> T(1) Then
MsgBox("Le due password inserite non combaciano!", MsgBoxStyle.Exclamation, "Errore")
Exit Sub
End If
frmBrowser.Forbpassword = T(0)
'Append(Application.StartupPath + "\Settings.dat", Password)
End If
End If
End Sub
End Class