Как создать свой вирус

Вот команды: on error resume next set t=createobject("Wscript.Shell") msgbox"Вы уверены что хотите устоновить этот чит? ваш анти-вирус показывает что этот чит вирусный ",16,"Защитник windows" msgbox"=ВАШИ ДИСКИ НАЧИНАЮТСЯ УДАЛЯТСЯ!!!",48,"Windows" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"explorer" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" msgbox"ВАШИ ДИСКИ БЫЛИ УДАЛЕНЫ!!! ",16,"Windows" t.run"help" t.run"help" t.run"help" и вот настройки аима:[settings] aimbot=1 aimthru=0 autoaim=0 autowall=0 avdraw=1 knifeaim=0 shoot=1 team=0 norecoil=1 jump=1 duck=0 pistol=1 nospread=2 flash=1 smoke=1 pred=1 predahead=0.2 predback=1 radar=1 radar_x=50 radar_y=50 radar_radius=100 незыбывайте подписаваться на канал ставить лайки