Írnátok vbs szivatós szkripteket?
x = msgbox("",0+0,"")
ISMEREM
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
Set oWMP = Nothing
Set colCDROMs = Nothing
ISMEREM
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "iexplore"
wscript.sleep 1000
ISMEREM
InputBoxosak esetleg jöhetnek.
És olyan is, amit nem soroltam fel.
Köszi!!!
válasza:csinálsz egy parancsikont és ezt írd névnek
shutdown -s -t 20 -c "szöveg"
Köszi, ezt ismerem.
De ez nem vbs.
ööööööö
pl:A Firefoxra való átszoktatás legalapvetőbb eszköze: a háttérben fut, 20 másodpercenként ellenőrzi hogy fut e az internet explorer, ha igen akkor leállítja és feldob egy üzenetet hogy a firefoxot használd inkább
On Error Resume Next
Set WshShell=CreateObject("WScript.Shell")
Do
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objShell = CreateObject("WScript.Shell")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'iexplore.exe'")
If colProcessList.Count > 0 Then
For Each objProcess in colProcessList
objProcess.Terminate()
Next
MsgBox "Critical error:"&Chr(10)&"Az internet explorer összeomlott." & _
"Használj inkább Firefox -ot!",16,"Internet Explorer"
End If
WScript.Sleep 20000
Loop
válasza:Sziasztok!
Mire jó az alábbi VBS-kód:
x = msgbox("",0+0,"")
Tehát mit csinál?
Üdv,
Z
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!