Pomoc oko vb virusa

Pomoc oko vb virusa 17.12.2004. u 17:13 · pre 266 meseci #1

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.

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 17.12.2004. u 21:11 · pre 266 meseci #2

Provaj:

Code:

Kill "C:\t.txt"

Re: Pomoc oko vb virusa 18.12.2004. u 17:36 · pre 266 meseci #3

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.

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 18.12.2004. u 17:42 · pre 266 meseci #4

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.

Re: Pomoc oko vb virusa 18.12.2004. u 17:46 · pre 266 meseci #5

probaj ovako!

Code:

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

edit: dodani code tagovi

Re: Pomoc oko vb virusa 18.12.2004. u 17:52 · pre 266 meseci #6

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.

Re: Pomoc oko vb virusa 18.12.2004. u 20:39 · pre 266 meseci #7

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

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 18.12.2004. u 20:50 · pre 266 meseci #8

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

Re: Pomoc oko vb virusa 20.12.2004. u 20:11 · pre 266 meseci #9

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.

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 20.12.2004. u 22:41 · pre 266 meseci #10

Imaš sve tu Link Pa čitaj.

Code:

Me.Hide

Re: Pomoc oko vb virusa 24.12.2004. u 19:05 · pre 266 meseci #11

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!

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 24.12.2004. u 20:51 · pre 266 meseci #12

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

Re: Pomoc oko vb virusa 24.12.2004. u 23:55 · pre 266 meseci #13

@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".

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 25.12.2004. u 20:22 · pre 266 meseci #14

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"

Re: Pomoc oko vb virusa 25.12.2004. u 20:59 · pre 266 meseci #15

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

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 25.12.2004. u 21:19 · pre 266 meseci #16

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

Re: Pomoc oko vb virusa 25.12.2004. u 23:11 · pre 266 meseci #17

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.

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 26.12.2004. u 00:49 · pre 266 meseci #18

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.

Re: Pomoc oko vb virusa 26.12.2004. u 16:54 · pre 265 meseci #19

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

Potpis

||< ArtifeX >||

Re: Pomoc oko vb virusa 26.12.2004. u 21:03 · pre 265 meseci #20

Pa moraš satvit neki broj u interval koji ti odgovara

Forum kao aplikacija na telefonu

Srodne teme