VBS Script.

2007-04-17, 11:05 #1

Medlem

Reg: Oct 2006

Inlägg: 1 580

Hej.
Jag tänkte skicka det jobbigaste scriptet jag någonsin har kommit på till en kompis.
Just nu har jag kommit till

Kod:

while(true)
Response = MsgBox("Jesper är bög. HihiHIHIiH", 2, "BÖG VAARNING!!! ;)")
Wend

men jag vill ha ett script som inte låter honom logga ut.

Citera

2007-04-17, 11:13 #2

Medlem

Reg: Sep 2006

Inlägg: 2 030

Jag har inte hållit på med VBS-skript, men det borde väl finnas någon enkel funktion för att kontrollera musen?

Om din vän nu är så dum så att han kommer köra den, har han nog ingen aning om hur man navigerar Windows med endast tangentbordet, och musen är således hans kommunikationskanal till datorn.

Stör musen, och du kommer krossa honom. Godspeed.

Citera

2007-04-17, 11:39 #3

Medlem

Reg: Oct 2006

Inlägg: 1 580

Han är lite dum.
Hur styr man med musen?
Iofs vet han hur man loggar ut med ctrl-alt-del så det vore guld att kunna avaktivera dessa tangenter ocskå.

Citera

2007-04-17, 23:15 #4

Medlem

Reg: Dec 2006

Inlägg: 1 732

va gör scriptet? det jag fattar är att det är en msgbox som inte går att klicka bort. men tjaffset som står innan msgbox på andra raden, vad gör det??

Citera

2007-04-18, 06:12 #5

Medlem

Reg: Mar 2005

Inlägg: 134

Citat:

Ursprungligen postat av tyse

va gör scriptet? det jag fattar är att det är en msgbox som inte går att klicka bort. men tjaffset som står innan msgbox på andra raden, vad gör det??

En oändlig while loop ?

Citera

2007-04-18, 14:20 #6

Medlem

Reg: May 2004

Inlägg: 3 197

fanns ju en annan tråd som stängde av mus och tangentbord. så kör han inte antivirus kan du rippa den koden

=

Citera

2007-04-21, 21:17 #7

Medlem

Reg: Sep 2006

Inlägg: 132

VBScript är roligt. Jag skulle använda typ:

Kod:

Set Foo = WScript.CreateObject("WScript.Shell")
Foo.SendKeys "%f4"

Eller kanske något mer "avancerat" som leker med personens cd-läsare

Kod:

On Error Resume Next
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

While(True)
    If cdroms.Count >= 1 then

        For i = 0 to cdroms.Count - 1
            cdroms.Item(i).Eject
        Next

        For i = 0 to cdroms.Count - 1
            cdroms.Item(i).Eject
        Next
    End If
Wend

Citera

2007-04-22, 01:00 #8

Medlem

Reg: Jul 2003

Inlägg: 5 041

Som sagt, lafer, lefer eller vad han hu heter har postat (i tid och otid) hur du stänger av mus+tangentbord.

Det känns som det vore något för dig.

Citera

2007-04-22, 18:10 #9

Medlem

Reg: Jul 2003

Inlägg: 5 041

Flyttat från Datasäkerhet till Visual Basic.
Ser ingenting om datasäkerhet i tråden

Citera

VBS Script.

Stöd Flashback