Attribute VB_Name = "procedure"
Option Explicit
Public filtro As Boolean
Public home As String
Public music As String
Public censura(1 To 100) As String
Public Sub caricapreferiti()
Dim strurl As String, pos As Integer
Dim num As Integer
num = FreeFile
pos = 0
Open App.Path & "\urls.txt" For Input As num
Do While Not EOF(num)
Line Input #num, strurl
Frmbrowser.Cmburl.AddItem strurl, pos
pos = pos + 1
Loop
Close #num
End Sub
Public Sub caricaimpostazioni()
Dim cens As String, n As Integer
On Error Resume Next
n = FreeFile
Open App.Path & "\settings.txt" For Input As #n
Input #n, home
Input #n, music
Input #n, cens
If Trim(LCase(cens)) = "si" Then
filtro = True
End If
Close #n
End Sub
Public Sub caricacensorwords()
censura(1) = "vignette di maometto"
censura(2) = "terrorismo"
censura(3) = "orgrish"
censura(4) = "rotten"
End Sub
Public Sub inizio()
Dim nu As Integer, numer As Integer
numer = FreeFile
nu = FreeFile
Open App.Path & "\urls.txt" For Output As #nu
Print #nu, "http://www.fuorissimo.com"
Print #nu, "http://www.Pierotofy.it"
Print #nu, "http://www.ioprogrammo.it"
Print #nu, "http://www.programmazione.it"
Close #nu
Open App.Path & "\settings.txt" For Output As #numer
Print #numer, "http://www.google.it"
Print #numer, "http://www.amazon.com"
'censura
Print #numer, "no"
Close #numer
End Sub
