Newsgroup: it.comp.lang.visual-basic
Titolo: Browser Per Bambini

Come avevo annunciato alcuni post fa, sto sviluppando un nuovo browser
dedicato ai bambini.
Ho bisogno del vostro aiuto, consigli e commenti.
Il browser (in versione alpha, ma moooooooooolto alpha) e scaricabile da:
http://www.nicolaottomano.it/ProteggiBimbo.zip
Per ora blocca solo i siti con parole chiave in italiano.
Poi devo tradurre in inglese.
Sono ben accette nuove parole chiave e traduzioni delle parole presenti.
Provate e fatemi sapere, cosě appena lo finisco lo posto al WM del SC
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 Provate e fatemi sapere, così appena lo finisco lo posto al WM del SC
molto carino, forse l'interfaccia dovrebbe essere più "cartone
animato"......
per dire, ritoccherei i pulsanti avanti, indietro con qualcosa di più
fumettoso........
:-))))
però devo dire che alcune pagine me le ha bloccate correttamente. Ho provato
a cliccare qualche banner di troppo, giusto per testare, e funziona.....
sai cosa farei infine?
fai capire quando il browser sta scaricando. Non solo, evita di dirlo. Dato
che l'utente sarà un bambino, non dirgli "l'ultima operazione è ancora in
esecuzione", non capirebbe nulla. Interrompi tu l'operazione e sei a posto.
Il gallo che usi nella pagina di errore mettilo in alto a destra, fallo
ruotare mentre navighi.
Rendilo più presente, e poi ci sei!!!!
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri
di Jair, Rone, Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia
oppressione di questo giorno e nell'oscurità caliginosa
di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

 bye
solo un suggerimento:
io le liste degli indirizzi previsti e dei domini permessi le ho previste in
due txt:
    j = 0
    fnum = FreeFile
    Open App.Path & "\domain.txt" For Input As #fnum
    While Not EOF(fnum)
        ReDim Preserve aDomain(j)
        Line Input #fnum, s
        If Left(s, 1) <> "#" And s <> "" And Len(Trim(s)) > 0 Then
aDomain(j) = Trim(s)
        j = j + 1
    Wend
    Close #fnum
in questo modo non sei costretto a ricompilare il programma ogni volta che
aggiungi una voce. aggiungi una linea al txt.
le linee che iniziano con # (o qualunque altra cosa ti serve) servono per i
commenti nel txt.
ciao, j.

I bimbi sono curiosi, svegli, e il semi nascosto lo stimolano.
Presumo che la maschera deve coprire l'intera superficie del video.
Se le dai la possibilità di ridurre la maschera, può accedere a IE, e magari
tra i preferiti o la cronologia, il link di sito rosa.
La barra, senza eccedere, un pò puffosa. I tasti colorati.
Mentre carica, possibile un orsetto che cammina ?
Quel cerca, porta dovunque
Mettere un filtro ?
il problema se esci dal protetto, si rischia di trovare una pagina che
pubblicizza amori e incontri
In cosiderazione che l'elenco degli indirizzi possibili si allunga,
possibile due elenchi;
uno generale, il secondo preferiti, aggiunti dal bambino.
Il numero dei pulsanti mi sembrano pochi
Ave
giuseppeD

 previste in due txt:
ci ho pensato, ma il programma gira circa del 30% più lento.
Tieni conto che avvengono 2 download della pagina (solo l'html però), il
primo per controllare e il secondo come webbrowser.navigate.
E già così andiamo del 20% più lenti di IE, se ci aggiungo un 30% diveta una
lumaca (poi pensiamo se aggiungo centinaia di nuove parole chiave).
Lo so, ricompilare è oneroso, ma credo che in questo caso sia meglio la
velocità.
bye
PS cmq grazie x il consiglio :-)


 PS cmq grazie x il consiglio :-)
la lista la leggi solo una volta, al load.
perderai (forse) 2-3 secondi, ma non costringi i tuoi utenti ad avere vb6
per ricompilare.
si possono modificare la lista per conto loro.
ciao, j.

 errore mettilo in alto a destra, fallo ruotare mentre navighi.
Questo fa parte dell'interfaccia che devo ancora sviluppare. Credo comunque
che seguirò i vari consigli che mi state dando.
bye
PS grazie x i consigli


 primo per controllare e il secondo come webbrowser.navigate.
scusa, ci bado ora.
fra l'altro eviterei inet.
gia' grazie al wb oggi su una macchina ho dovuto fare wupdate e scaricare 10
mb di sp1, oltre alle patch. solito discorso: meno controlli ci sono, meglio
e'.
ti bastano due istanze del webbrowser.
se tutto il testo di quello nascosto e' ok, fai
set wbVisible = wbHidden.
a occhio, e' piu' veloce.
almeno, il download dovresti farlo una volta sola.
per il parsing del testo nel wb
devi mettere fra i rif la ms html library, poi qualcosa tipo questo:
Public Sub Sorgente()
'    On Error GoTo errman
    Dim s As String
    Dim HtmlDoc As HTMLDocument
    Set HtmlDoc = frmWww.WB1.Document
'1
    s = HtmlDoc.body.innerHTML
    Dim fNum As Long, FName As String
    FName = ChekSlash(App.Path) & "innerhtml.txt"
    fNum = FreeFile
    Open FName For Output As #fNum
    Print #fNum, s
    Close #fNum
    FileExec FName
'2
    s = HtmlDoc.body.innerText
    FName = ChekSlash(App.Path) & "innertext.txt"
    fNum = FreeFile
    Open FName For Output As #fNum
    Print #fNum, s
    Close #fNum
    FileExec FName
'3
    s = HtmlDoc.documentElement.outerHTML
    FName = ChekSlash(App.Path) & "outerhtml.txt"
    fNum = FreeFile
    Open FName For Output As #fNum
    Print #fNum, s
    Close #fNum
    FileExec FName
    Set HtmlDoc = Nothing
    Exit Sub
errman:     MsgBox Error
End Sub
riciao

 si possono modificare la lista per conto loro.
non male come idea... ti confesso che non mi era passata per il cervello...
bye


questo si che rallenterebbe sul serio il programma :-P
ribye


 Il numero dei pulsanti mi sembrano pochi
ci devo lavorare...
bye e grazie per i consigli


 ribye
sei sicuro ? lo uso da piu' di un anno ed e' istantaneo...

Ho ulteriormente migliorato il browser. Ho aggiunto alcune finestre più
carine, ho inserito parole chiave in inglese.
Sto cercando pulsanti per la barra di navigazione, ma non ne trovo di carini
(ho girato mezza internet...)
L'indirizzo è sempre quello:
 
http://www.nicolaottomano.it/ProteggiBimbo.zip


 metodi sono più efficienti.
Infatti non credo che sia poi così efficiente.
bye e grazie x i consigli e bug report.
