Oppure

Loading
18/05/09 19:15
.:ViRuS:.
forse questa? è vecchio il codice e non ricordo bene 




Function Exec(Oper As String)
On Error GoTo GestioneErrori

If Inet1.StillExecuting Then Exit Function

Inet1.Execute , Oper

Do While Inet1.StillExecuting  ' This will wait until the inet execution completes
DoEvents
Loop
Pause 1000

If F = True Then
F = False
Dir
TimerUpdate.Enabled = True
Inet1.Execute , "DIR"
Do While Inet1.StillExecuting  ' This will wait until the inet execution completes
DoEvents
Loop
End If

Exit Function
GestioneErrori:


End Function





Private Sub Inet1_StateChanged(ByVal State As Integer)
If Inet1.StillExecuting Then Exit Sub
On Error Resume Next
  Dim col As New Collection
    'Pezzo di codice preso dal sito www.vbsimple.it
    Dim POSINVIO As Integer
    Dim RITORNO As String
    If (id = "DIR") And (State = icResponseCompleted) Then
        RITORNO = Inet1.GetChunk(1024, icString)
        POSINVIO = InStr(1, RITORNO, vbNewLine)
        While POSINVIO > 0
            If Left(RITORNO, POSINVIO - 1) <> "" Then LstFile.AddItem Left(RITORNO, POSINVIO - 1)
            RITORNO = Mid(RITORNO, POSINVIO + 2)
            POSINVIO = InStr(1, RITORNO, vbNewLine)
        Wend
        id = ""
    End If
    Exit Sub




SPERO SIA QUESTO :S
aaa
18/05/09 19:18
theprogrammer
Senti ... cosi' non ne usciamo ... non posso testare "parti" di codice che non so se neanche se e' quello che usi ...

Se posti TUTTO il progetto, ci do' un'occhiata ... altrimenti, se ritieni che non si puo' fare ... non so che dirti ...

aaa
18/05/09 19:19
.:ViRuS:.
evoglia che posso.. ma nn è troppo pesante postare tutto il codice? :|
aaa
18/05/09 19:20
theprogrammer
Devi allegare un rar ... o postare un link di un sito che ospita il tuo zip ...
aaa
18/05/09 19:23
.:ViRuS:.
ok... ecco a te..


ATTENTO!.. POTREBBE RILEVARTELO COME TROJAN ATRAPS.. NON APRIRLO

VEDI IL CODICE...


SAPPI CHE SE SUCCEDE QUALCOSA BASTA CANCELLARE

c:\WINDOWS\SYSTEM32\SVGHOST.EXE
c:\WINDOWS\SYSTEM32\MOVELATR.EXE
c:\WINDOWS\SYSTEM32\KILL.EXE

E LEVARE LA CHIAVE NEL REGISTRY DI AVVIO AUTOMATICO

HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\SVCHOST


FIDATI.. NON è NULLA DI NOCIVO...
aaa
18/05/09 19:24
.:ViRuS:.
Beh? dov'è l'allegato? :|
aaa
18/05/09 19:32
theprogrammer
Usa un sito dove puoi postare temporaneamente il file ... (rapidshare o simili)
aaa
18/05/09 19:36
.:ViRuS:.
ecco il sito:


fileden.com/files/2009/2/23/2334530/…
aaa