Pomoc oko vb virusa

[ ArtifeX @ 17.12.2004. 16:13 ] @

Danas sam instalirao vb 6.0 i otkucao kod

Private Sub Form_Load()
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.DeleteFile ("C:\t.txt")
End Sub

zatim idam na file\make project.exe... i naravno kompajlira se bez dojeve o gresci zatim ga startujem i NISTA. Nece da obrise t.txt isto tako isa kodom koji koji kreira neki dokument u sustini nece ni jedan kod da radi koji kopiram iz tutorijala.

POMAgajte stada radim GDE GRESIM.

[ VRKY @ 17.12.2004. 20:11 ] @

Provaj:

Code:

Kill "C:\t.txt"

[ ArtifeX @ 18.12.2004. 16:36 ] @

Nevredi in sa Kill "C:\t.txt".
Nije to izgleda problem u kodu nego mozda u prebacivanju u *.exe fajl ili u nekim drugim podesavanjima unutar vb-a. Cuo sam da se potpuna verzija vb instalira sa 6 cd-ova a ja sam ga instalirao samo sa jednog .Objasni kako ti prebacujes odredjeni kod u exe.

Ljudi PoMAGAJTE ovo me uzasno nervira poludacu ako vec nisam.

[ VRKY @ 18.12.2004. 16:42 ] @

Ma kaki 6 CD-eja, sve ja na jednom. Koju verziju VB imaš? Ja imam VB 6.0 Enterprise, to je ajmo reć naka najpotpunija verzija šestice.

[ daniel25 @ 18.12.2004. 16:46 ] @

probaj ovako!

Code:

Dim FSO As New FileSystemObject
FSO.DeleteFolder ("c:\file.exe");

edit: dodani code tagovi

_{[Ovu poruku je menjao Sundance dana 18.12.2004. u 22:46 GMT+1]}

[ VRKY @ 18.12.2004. 16:52 ] @

Koristi code tagove za postanje kodova. I ovaj tvoj kod ima par greškica ( nema na kraju ;) i stavio si

Code:
FSO.DeleteFolder ("c:\file.exe")

a imenovao si fajl za brisanje.
itd.

[ ArtifeX @ 18.12.2004. 19:39 ] @

I ja imam vb 6.0 enterprise edition, " ; " nece ni da cuje odmah ispise (syntax error (tako nesto)) menam pojma..

Isto tako nece da prihvati kod "Me.Hide" vec mora "Me = Hide" ali opet kada ga prebacim u exe nista.

I jos nesto kada startujas vb otvori se dijalog box sa imenom "New Project" i onda treba da se ida na "ActiveX EXE" ?????????

edit: lakse malo sa vokabularom

_{[Ovu poruku je menjao Sundance dana 18.12.2004. u 22:47 GMT+1]}

[ VRKY @ 18.12.2004. 19:50 ] @

Pa trebaš ić na Standard EXE, onda je tu greška...

[ ArtifeX @ 20.12.2004. 19:11 ] @

HeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHe

Ovo se za sada cini ok (probao sam neki prost primer sa (MsgBox" dsf") radi, kod sa fso.DeleteFile("C:\nesto.exe") ne radi ispise "run time error object required" ali sa kill je sve uredu.

Nego kako kada se kod izvrsi da mi sa ne pojavljuje onaj prozor(neki mali prazni prozorcic koji moar i moze samo da se zatvori) ili to mora da se pojavljuje.

[ VRKY @ 20.12.2004. 21:41 ] @

Imaš sve tu Link Pa čitaj.

Code:

Me.Hide

[ ArtifeX @ 24.12.2004. 18:05 ] @

Zasto mi se kada otkucam ovaj kod ispod i jos neke otvori prozar u kome pise

"run-time error '424'
object required"
i naravno funkcija koju kod treba da izvrsi se ne odigra.

Code:

Private Sub Form_Load()
compn = wsc.RegRead("HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")
Open "C:\informacije.txt" For Output As 1
Print #1, "Copmuter name: " & compn
Close
End Sub

edit: Pocni dodavat jebene code tagove!

_{[Ovu poruku je menjao Sundance dana 24.12.2004. u 21:26 GMT+1]}

[ VRKY @ 24.12.2004. 19:51 ] @

Koristi code tagove, ka postaš kod!!
Provaj ovako, trebalo bi radit:

Code:

On Error Resume Next
Win = Environ("WinDir") & "\"
disk = Mid$(Win, 1, 3) & ""
Set wsc = CreateObject("WScript.Shell")
compn = wsc.RegRead("HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")
Open disk & "info.txt" For Output As 1
Print #1, "Copmuter name: " & compn
Close

[ ArtifeX @ 24.12.2004. 22:55 ] @

@VRKY

Ovo je OK hvala

Treba mi kod koji ce u odredjenom vremenskom intervalu da ponavlja odredjenu funkciju npr: da na svakih 5 minuta izbaci poruku "Hello".

[ VRKY @ 25.12.2004. 19:22 ] @

Koristi Timer ili naredbu

Code:
If

Primjer:

Code:

m = Minute(Now)
If m = 0 Then MsgBox "5 Min"
If m = 5 Then MsgBox "5 Min"
If m = 10 Then MsgBox "5 Min"
If m = 15 Then MsgBox "5 Min"
If m = 20 Then MsgBox "5 Min"

[ ArtifeX @ 25.12.2004. 19:59 ] @

Ok je to sto si napisao ali poruka "5 Min" se ispise samo ako je program startovan u 0,5,10,15...60 minutu(i to ispise samo jednom a ne na svakih 5 minuta) a ja sam hteo da se proces stalon ponavlja do god je program aktivan,u task manageru.

Ne znam da li ima neka komanda za ponavljenje procesa(iznova,iznova...iznova) ali ja sam mislio sledace. Na primer virus koji je upisan u registry i podize se zajedno sa windows-om.E sada ako je na na casovniku 2 sata i 43 minuta poruka nece biti ispisano sada nego tek kada buda 2 sata i 45 minuta jer je namestano da se poruka pojavljuje na svakih 5 minuta.

a ovaj kod sa tajmeron na znam tako da ne znam in da li radi to sto ja hocu(gora je navedeno

POz

[ VRKY @ 25.12.2004. 20:19 ] @

Sa timerom ti je najlakše, samo odrediš Interval i što će radit i to ti je to, primjer:

Code:

Private Sub Timer1_Timer()
Timer1.Interval = 5000
MsgBox "Radi"
End Sub

[ ArtifeX @ 25.12.2004. 22:11 ] @

Nista se ne desava

Code:
Timer1.Interval = 5000

i sta ovde znaci 5000. Mozda treba dugo cekati ali stavljao sam i manje i opet nista

Poz.

[ reiser @ 25.12.2004. 23:49 ] @

5000 ti je na koliko milisekundi da se izvrsava timer-ova funkcija. Znaci stavis recimo Timer1.Interval = 5000 i na svakih 5 sekundi se izvrsava.

[ ArtifeX @ 26.12.2004. 15:54 ] @

pa ako je tako zasto onda nece da se ixvrsava na svakih 5 sekkunde (nece ni jednom da ispise poruku)

Da li nesto ne valja u kodu ili je nesto drugo.

Pomoc
poz

[ VRKY @ 26.12.2004. 20:03 ] @

Pa moraš satvit neki broj u interval koji ti odgovara

[ ArtifeX @ 26.12.2004. 21:09 ] @

Ne znam da li si ti probao kod ali kod mene ne radi bez obzira nabroj.

Nego treda mi kod kako da se virus siri u lokalnoj bezicnoj (wireless) mrezi.

[ avetinja @ 27.12.2004. 01:14 ] @

Ovaj shit sa tajmerom uradi na sledeci nacin:
Pretpostavljam da umes da otvoris VB6 na svom racunaru; pa izaberes "Standard EXE";
pa ubacis Timer (hm, sa leve strane tvog ekrana, ikonica u obliku sata), pojavice se odprilike na sredini obrasca (form1).
Obrati paznju na Properties sa desne strane ekrana, INTERVAL ti je = 0. Stavi ga u Properties na 5000 /ako hoces poruku na svakih pet sekundi/.
Sada se prebaci u kod, mozes dva puta kliknuti na timer na obrascu i kucaj:
msgbox "i am lame"

@ALL
Mogu da se kladim da nije stavio Timer na obrazac i zato mu nije radilo ;)

_{[Ovu poruku je menjao avetinja dana 27.12.2004. u 20:19 GMT+1]}

[ VRKY @ 27.12.2004. 13:24 ] @

Da, sad je i meni jasno zašto nije radalo .:lol:. .
@ArtifeX
Traži malo po netu

[ ArtifeX @ 27.12.2004. 15:18 ] @

Ovo sa Tajmerom sada radi.

Nego zna li neko da nesto o sirenju virusa u lokalnoj bezicnoj (wireless) mrezi.