gius (Ex-Member)
Expert
 
Messaggi: 294
Iscritto: 20/06/2007
|
Dato questo codice
Codice sorgente - presumibilmente VB.NET |
Dim linea(1 To 600) As String Dim arcvir(1 To 6000) As String Dim numln As Integer Dim numln2 As Integer Dim numln3 As Integer Dim x As Integer Dim y As Integer Dim filesospetto As String Private Sub confronta() Open "C:\filesospetto" For Input As #1 Do Line Input #1, linea(numln) numln = numln + 1 Loop Until EOF(1) = True Close #1 Open "C:\archivivirali" For Input As #1 Do Line Input #1, arcvir(numln2) numln2 = numln2 + 1 Loop Until EOF(1) = True Close #1 For x = 1 To numln2 If arcvir(x) = linea(1) Then Open "C:\virus" & x For Input As #1 Do Line Input #1, vir(numln3) numln3 = numln3 + 1 Loop Until EOF(1) = True Close #1 For y = 1 To numln3 If Not linea(x) = vir(x) Then Exit For End If Next y MsgBox "warning virus found!!" End If Next x End Sub
|
c'è un errore!potete aiutarmi dicendomi che cos'è e come farlo scomparire 
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Bè, 1 erore è ke non hai specificato ke kosa è vir al punto:
[...]
Line Input #1, vir(numln3)
[...]
Credo che tu debba specificare vir, dicendo che è una variabile, una sub, ecc.
2) Quando fai ad esempio:
Open "C:\archivivirali" ...
devi dire l'estensione altrimenti non trova il file...
quindi devi fare tipo:
Open "C:\archivivirali.txt" ...
ci sono anke altri bug...
Adesso ho un pò modificato il tuo codice e funziona, l'unico problema è che controlla solo la prima riga (ma è risolvibile, adesso nn ho molto tempo a disposizione devo fare una cosa, quando sono libero se non ci sei riuscito vedo io, come si può fare...).
Cmq fai in C: 3 documenti di testo
Chiamati:
filesospetto.txt (con dentro scritto alla 1°riga ciao);
archivivirali.txt (con dentro scritto ciao sempre alla 1° riga);
virus.txt (con dentro scritto ciao alla 1°riga);
adesso se lancerai il prog. e premerai il pulsante command1 verra quel msgbox ke dice ke il file è infetta da un virus,
adesso cambia il contenuto di filesospetto.txt da ciao in una qualsiasi cosa, tipo:
cia
as
sddd
prova
virus
ecc.
quando rilancerai il prog. e premerai il pulsante stavolta non verrà il msgbox.
Ecco il codice:
Codice sorgente - presumibilmente VB.NET |
Dim linea(1 To 600) As String Dim arcvir(1 To 6000) As String Dim numln As Integer Dim numln2 As Integer Dim numln3 As Integer Dim x As Integer Dim y As Integer Dim filesospetto As String Dim vir(1 To 6000) As String Private Sub confronta() Open "C:\filesospetto.txt" For Input As #1 Do numln = numln + 1 Line Input #1, linea(numln) Loop Until EOF(1) = True Close #1 Open "C:\archivivirali.txt" For Input As #1 Do numln2 = numln2 + 1 Line Input #1, arcvir(numln2) Loop Until EOF(1) = True Close #1 For x = 1 To numln2 If arcvir(x) = linea(1) Then Open "C:\virus.txt" For Input As #1 Do numln3 = numln3 + 1 Line Input #1, vir(numln3) Loop Until EOF(1) = True Close #1 For y = 1 To numln3 If Not linea(x) = vir(x) Then Exit For End If Next y MsgBox "warning virus found!!" End If Next x End Sub Private Sub Command1_Click() confronta End Sub
|
Se ci sono problemi postami 
e dimmi se sei riuscito a far leggere al prog pure tutte le righe dopo e non solo la prima.
Ultima modifica effettuata da GrG il 01/11/2007 alle 13:07 |
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
questo codice lo riconosco...
davvero non ho dichiarato vir? mi sembra strano.
ah l'ho fatto apposta di leggere solo la prima riga.
se dovesse ogni volta controllare l'intero file pensa per film da 1 GB..
Edit : ritiro tutto. il codice è sato modificato. è solo mio lo scheletro.
Ps:non serve l'estensione...
Ultima modifica effettuata da P4p3r0g4 il 01/11/2007 alle 16:14 |
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
p.s: non serve l'estensione..
strano, a me mi dice ke il file nn lo trova, vabbè...
|
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
Se tu crei archivio.txt devi cercare archivio.txt
Se tu crei archivio devi cercare archivio
è inutile creare un archivio in txt.
c'è veramente bisogno di leggerlo??
|
|
|
gius (Ex-Member)
Expert
Messaggi: 294
Iscritto: 20/06/2007
|
GrG credo che nel tuo codice ci sia un errore,all'inizio va tutto bene ma quando apro un file per controllare segnala sempre un virus(warning!virus found)
Se lo potresti modificare mi faresti un grande favore!!!
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Cioè tu intendi dire ke quando controlli un'altro file ti da errore?
Nn ho capito bene quello ke intendi dire, ti potresti
spiegare meglio, magari facendo un esempio?
|
|
|
gius (Ex-Member)
Expert
Messaggi: 294
Iscritto: 20/06/2007
|
Ad esempio ,controllo il file pincopallino.exe (o qualunque altro file) e mi dice che c'è un virus e invece non é vero perchè controllato con kaspersky 7.0(e scusa se é poco)
|
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
ma veramente è ancora in fase di test....
cioè non è che se ti dice "virus found" ha trovato un virus, è solo che ha confrontato con un file (archiviovirale) e ha trovato somiglianze.
archiviovirale è un file ipotetico dove IN UN FUTURO staranno le tracce di virus. ora è un file banale.
|
|
|
| 
