snälla datorbus
- lord_vasagos
- Posts: 4075
- Joined: 2002-11-01 6:23:59
- Location: falun
snälla datorbus
satt och drygade mig lite med farsan och slängde i hop ett enkelt datorbus
och tänkte att man kan väll starta en tråd med databus
Regler
inga filer som raderar peronliga filer eller ställer till skada på operativsystemet
och inga bus som är permanenta
som t.e.x skapa 100000 mappar som ligger kvar på skrivbordet
eller t.e.x nått script som trycker konstant alt f4 och ligger i autostart
skriv en beskrivning vad buset gör
fel medelande om att det är fel på cd´n sen åker cd ut
varning om skadade kluster sen div fel medelanden
varning för att datorn är överhettad och datorn måste stängas av
datorn stängs av
kopiera texten nedan till antekningar byt filändelse till .vbs
sen är det bara att dubbel klicka och köra
MsgBox "Varning! Det är ett problem med din cd spelare.", 16, "Warning"
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
MsgBox "Varning! Scandisk har hittat skadade kluster på din hårdisk.", 16, "Warning"
MsgBox "fel i C:\Program\Windows Media Player\mplayer 2", 64, "fel!"
MsgBox "fel i c:\windows\system 32", 64, "fel!"
MsgBox "fel i c:\windows\", 64, "fel!"
MsgBox "fel i C:\Program\Outlook Express", 64, "fel!"
MsgBox "fel i c:\C:\Program\Messenger\msmsgs.exe", 64, "fel!"
MsgBox "Din dator är överhettad.", 16, "Warning"
MsgBox "Varning! din dator stängs ner omedelbart, för att förebygga allvarlig skada.", 16, "Warning"
For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
objPC.Win32Shutdown 1 + 4
Next
och tänkte att man kan väll starta en tråd med databus
Regler
inga filer som raderar peronliga filer eller ställer till skada på operativsystemet
och inga bus som är permanenta
som t.e.x skapa 100000 mappar som ligger kvar på skrivbordet
eller t.e.x nått script som trycker konstant alt f4 och ligger i autostart
skriv en beskrivning vad buset gör
fel medelande om att det är fel på cd´n sen åker cd ut
varning om skadade kluster sen div fel medelanden
varning för att datorn är överhettad och datorn måste stängas av
datorn stängs av
kopiera texten nedan till antekningar byt filändelse till .vbs
sen är det bara att dubbel klicka och köra
MsgBox "Varning! Det är ett problem med din cd spelare.", 16, "Warning"
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
MsgBox "Varning! Scandisk har hittat skadade kluster på din hårdisk.", 16, "Warning"
MsgBox "fel i C:\Program\Windows Media Player\mplayer 2", 64, "fel!"
MsgBox "fel i c:\windows\system 32", 64, "fel!"
MsgBox "fel i c:\windows\", 64, "fel!"
MsgBox "fel i C:\Program\Outlook Express", 64, "fel!"
MsgBox "fel i c:\C:\Program\Messenger\msmsgs.exe", 64, "fel!"
MsgBox "Din dator är överhettad.", 16, "Warning"
MsgBox "Varning! din dator stängs ner omedelbart, för att förebygga allvarlig skada.", 16, "Warning"
For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
objPC.Win32Shutdown 1 + 4
Next
Last edited by lord_vasagos on 2006-02-13 16:36:24, edited 1 time in total.
Asus mobbo fx 8120 8gb ram ati 7850 oc
hohoo det här ska jag ha lite roligt med Underbart!
EDIT: dum fråga, finns det någon kod för om man vill att den ska stänga läsaren efter sig?
T.ex:
Öppnar luckan
msgbox "meddelande whatever"
Stänger luckan
???
EDIT: dum fråga, finns det någon kod för om man vill att den ska stänga läsaren efter sig?
T.ex:
Öppnar luckan
msgbox "meddelande whatever"
Stänger luckan
???
Workstation: Core i5 750 2.66GHz, 4GB DDR3, 3TB HDD, HD4890 1GB, Windows7 Pro x64
Laptop: AMD Athlon64 X2 QL-60 1.90GHz, 3GB DDR2, 250GB HDD, HD3450 256MB, Windows Vista Home Premium x86
iPhone 3G 8GB | PS3 40GB | XB360 20GB | Wii 8GB | PSP 2GB | PS2
Laptop: AMD Athlon64 X2 QL-60 1.90GHz, 3GB DDR2, 250GB HDD, HD3450 256MB, Windows Vista Home Premium x86
iPhone 3G 8GB | PS3 40GB | XB360 20GB | Wii 8GB | PSP 2GB | PS2
- lord_vasagos
- Posts: 4075
- Joined: 2002-11-01 6:23:59
- Location: falun
- lord_vasagos
- Posts: 4075
- Joined: 2002-11-01 6:23:59
- Location: falun
Jag tror det inte går att mata in den via datorn, läste det på forumetfruktfanatikern_bf wrote:Den var verkligen cooool. Kan du inte programmera om koden så att cd-mataren går in och ut flera gånger?
någonstans...
//Elias
|Mobil| Eten M500 @ 400Mhz 192MB ram Windows mobile 2003
|Dator| Athlon64 3000+ s939 6600GT Arctic cooling T2 | 1x AC Silencer 64 Ultra TC | 5x Arctic Fan 3 TC
|Äger| En lödkolv lite sladd och en bunt lysdioder
|Dator| Athlon64 3000+ s939 6600GT Arctic cooling T2 | 1x AC Silencer 64 Ultra TC | 5x Arctic Fan 3 TC
|Äger| En lödkolv lite sladd och en bunt lysdioder
Titta på ex. PowerDVD, trycker man på ejectknappen när spelaren är öppen så stängs den.Eskil wrote:Jag tror det inte går att mata in den via datorn, läste det på forumet
någonstans...//Elias
Spelaren stängs även automatiskt om datorn startar om med luckan ute.
Ghlargh ska inte hållas lagligen eller annars ansvarig om en 64bitare eller dennes utrustning dör eller skadas allvarligt efter att ha följt Ghlarghs tips, tipsen är avsedda endast som vägledning och inte som en exakt instruktion. Kan du inte, rör inte!
Det går hur bra som helts en polare skrev en liten trevlig applikation som matade in och ut cd-läsaren tills man stängde av programmet.Eskil wrote:Jag tror det inte går att mata in den via datorn, läste det på forumetfruktfanatikern_bf wrote:Den var verkligen cooool. Kan du inte programmera om koden så att cd-mataren går in och ut flera gånger?
någonstans...
//Elias
Här är alla olika konstater man kan använda för att göra meddelanderutan lite mer personlig
Constant Value Description
vbOKOnly ........................Display OK button only.
vbOKCancel .....................Display OK and Cancel buttons.
vbAbortRetryIgnore ..........Display Abort, Retry, and Ignore buttons.
vbYesNoCancel .................Display Yes, No, and Cancel buttons.
vbYesNo ...........................Display Yes and No buttons.
vbRetryCancel ..................Display Retry and Cancel buttons.
vbCritical .........................Display Critical Message icon.
vbQuestion .......................Display Warning Query icon.
vbExclamation ..................Display Warning Message icon.
vbInformation ...................Display Information Message icon.
vbDefaultButton1 ...............First button is default.
vbDefaultButton2 ...............Second button is default.
vbDefaultButton3 ...............Third button is default.
vbDefaultButton4 ...............Fourth button is default.
vbApplicationModal.............The user must respond to the message box before continuing work in the current application.
vbSystemModal..................All applications are suspended until the user responds to the message box.
vbMsgBoxHelpButton ..........Adds Help button to the message box
VbMsgBoxSetForeground ....Specifies the message box window as the foreground window
vbMsgBoxRight ..................Text is right aligned
vbMsgBoxRtlReading .......... Specifies text should appear as right-to-left reading on Hebrew and Arabic systems
Jaha, vem ska gå till serverrummet och stänga cd-luckan till min dator nu? Inte jag iaf.
ATHLON 2400@3800+|ASUS A8N-SLI DELUXE|ATI RADEON X850XT|2x512 KINGSTON PC3200@200MHz|MAXTOR 6B200M0 200GB|SEAGATE BARRACUDA 400GB
"What we experience, is not nature itself but nature according to our method of questioning." - Werner Heisenberg
"What we experience, is not nature itself but nature according to our method of questioning." - Werner Heisenberg
Är det här olika kod som man kan utföra eller står det bara på rutan att det är fel? Sedan undrar jag bara varför man inte kan skicka detta till sina kompisar, exempelvis genom msn där det då står att filen inte bedömdes vara säker och därför går det inte att skicka. Detta kommer alltid när man vill skicka exe.filer eller med andra liknande filändelser. Vad är det egentligen och kan man häva bort det på ngt sätt?Trappski wrote:Det går hur bra som helts en polare skrev en liten trevlig applikation som matade in och ut cd-läsaren tills man stängde av programmet.Eskil wrote:Jag tror det inte går att mata in den via datorn, läste det på forumetfruktfanatikern_bf wrote:Den var verkligen cooool. Kan du inte programmera om koden så att cd-mataren går in och ut flera gånger?
någonstans...
//Elias
Här är alla olika konstater man kan använda för att göra meddelanderutan lite mer personlig
Constant Value Description
vbOKOnly ........................Display OK button only.
vbOKCancel .....................Display OK and Cancel buttons.
vbAbortRetryIgnore ..........Display Abort, Retry, and Ignore buttons.
vbYesNoCancel .................Display Yes, No, and Cancel buttons.
vbYesNo ...........................Display Yes and No buttons.
vbRetryCancel ..................Display Retry and Cancel buttons.
vbCritical .........................Display Critical Message icon.
vbQuestion .......................Display Warning Query icon.
vbExclamation ..................Display Warning Message icon.
vbInformation ...................Display Information Message icon.
vbDefaultButton1 ...............First button is default.
vbDefaultButton2 ...............Second button is default.
vbDefaultButton3 ...............Third button is default.
vbDefaultButton4 ...............Fourth button is default.
vbApplicationModal.............The user must respond to the message box before continuing work in the current application.
vbSystemModal..................All applications are suspended until the user responds to the message box.
vbMsgBoxHelpButton ..........Adds Help button to the message box
VbMsgBoxSetForeground ....Specifies the message box window as the foreground window
vbMsgBoxRight ..................Text is right aligned
vbMsgBoxRtlReading .......... Specifies text should appear as right-to-left reading on Hebrew and Arabic systems
x-axeln vs y-axeln
Gör den till en rar fil och skicka den isåfall.fruktfanatikern_bf wrote:Är det här olika kod som man kan utföra eller står det bara på rutan att det är fel? Sedan undrar jag bara varför man inte kan skicka detta till sina kompisar, exempelvis genom msn där det då står att filen inte bedömdes vara säker och därför går det inte att skicka. Detta kommer alltid när man vill skicka exe.filer eller med andra liknande filändelser. Vad är det egentligen och kan man häva bort det på ngt sätt?
AMD Barton 2500+@3200+ || Epox EP-8RDA+ || 1024 DDR-DIMM PC3200/DDR400 184pin 400MHz CAS2.5 || Radeon 9600Pro || Thermaltake Highest Xaser III V2000A Super Tower || NEC 2500 DVD brännare || 19 tum TFT Samsung SyncMaster 940B
länk?Stuggi wrote:*Host* Finns en fix som tar bort det ur msn
ATHLON 2400@3800+|ASUS A8N-SLI DELUXE|ATI RADEON X850XT|2x512 KINGSTON PC3200@200MHz|MAXTOR 6B200M0 200GB|SEAGATE BARRACUDA 400GB
"What we experience, is not nature itself but nature according to our method of questioning." - Werner Heisenberg
"What we experience, is not nature itself but nature according to our method of questioning." - Werner Heisenberg