Jävulskap & annat kul med .cmd/.bat filer

...det här ämnet verkar passa mig perfekt!

Kodar lite VB 6.0 då och då och Visual Basic är ett mycket kraftfullt programmeringsspråk, men även mycket simpelt!

För att komma till saken, jag har ett "spel" som när det startas gör "error-pip" i datorn, samtidigt som ett ex mspaint öppnas varje millisekund och samtidigt åker cd:n in och ut cirka 100 gånger.

Ngn som vill ha? :), Kan fixa ngt annat skoj om ngn vill :P!

ge mig!
btw. kan man fixa så att den ligger på en hemsida så om nån klickar där så börjar datorn härja så?

haha. ge hit :D:D

Verkar fett skoj

Kan man inte göra ett script som bara spammar cdläsaren och inte går ocH stänga av?

I Service Pack 2 är messengertjänsten avstängd som default vilket betyder att du inte kan ta emot netsend medelanden, antagligen det som är felet.

Sedan måste väl alla ligga i samma arbetsgrupp också, annars funkar det inte.

ett script som jag otroooligt gärna skulle vilja ha tag i är det där som drog omkring för ett tag sen det som gjorde att man skickade länken till scriptet till alla sina MSN-polare var dum nog att inte spara ner det och kolla på det när det var aktuellt... Nån som har det?

EDIT: 22:22

skulle vara otroligt roligt att få tag på det där scriptet som öppnade och stängde CD-Luckan....

Om man söker så finner man

MsgBox "Har du ingenstans att ställa din dricka ?",64,"Dricka"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Spara koden i en .vbs fil.

Finns i en tråd på swec. Den öppnar i.o.f. bara luckan/orna men det är inte så svårt att modifera koden till att också stänga.

VB SCript var ju GRYMMT ROLIGT! men hur fan får man den att stängas på beställning då?

Humm.. Får ett felmeddelande direkt efter dvdromen ploppat ut :/.

Hadde vart roligare om sen åkte in och ut som en dåre

MsgBox "Har du ingenstans att ställa din dricka ?",64,"Dricka"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For a = 0 to 100
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
Next ' a
End If

hahahhahaa så otrooligt pinsamt, men hur stänger man av CD-ROM-skriptet?? :D:D

ctrl alt del, processer, sen avsluta filename.exe

ctrl + alt + del, och så stänger du wscript.exe

aah ok, letade efter skript.vbs som jag hade döpt den till

Kan man göra så att det kommer upp en ruta där man kan skriva i ett meddelande och sen skicka iväg det med net send?

så att man snabbt och lätt kan dra iväg olika meddelanden varje gång

otur på scriptet om man har en "slim line" cd-rom

lr ännu värre som min kompis :S sån man bara stoppar i skivorna i, så han bara "vad ska hända"

Jag undrar om man kan göra så att bakgrundsbilden ändras? Vore skojsigt.. Har kommande LAN som börjar i påsk.. Vore otroligt kul att ha lite roligt med deras datorer,

Eller ännu ännu värre, om man har en lucka framför sina cd-rom enheter o.O
dunk! dunk!dunk! dunk!dunk! dunk!dunk! dunk!

[TGH] raZor jag kan lära dig hur man fixar med cd-läsaren, men då måste du ha Visual Basic och det är lite krånligt. Pm isf.

[KIL]Farmor "viruset" är gjort så att folk verkligen kan gå på det, det är designat som ett spel och kan inte bara starta utifrån en hemsida, nope. Kan skicka dig, skall jag hosta eller har du msn?

Resten som ville ha adda min msn gus@netlane.com!

Mvh!

@echo off
color 0A
cd C:\WINNT\system32
:LOOP
dir
GOTO LOOP

Vad gör den?? E det den som startar om datorn efter 8sek?

Om du läser vad som står där så borde du kunna gissa dig till att det inte startar om datorn. Den listar filerna som finns i C:\WINNT\system32.

Edit: Ändrade "stänger av" till "startar om"