Anti-AutoRun

Anti-AutoRun

Salam hormatly agzalar hem myhmanlar!
Eger siz kompýuteriňizi daşyndan çatylýan ýatlardan(Fleşkalardan) geçýän viruslardan azajyk hem bolsa goraýyn diýseňiz onda ine şeýle:

1. Bir teks faýylyny dörediň hem notepadyň üsti bilen açyň.
2. Onuň içine şu scripti ýazyň:

'-------------------------------Şu ýerden başlaýar------------------------

Option Explicit
On Error Resume Next

Dim fso, Shells, File, Drv, InDrive, Count,Drives, Chg

Set fso = CreateObject("Scripting.FileSystemObject")
Set Shells = CreateObject("Wscript.Shell")
Set File = fso.GetFile(WScript.ScriptFullName)
Set Drv = File.Drive
Set InDrive = fso.drives

Do
For Each Drives In InDrive
 If fso.FileExists(Drives.Path & "AUTORUN.INF") Or fso.FileExists(Drives.Path & "autorun.inf") Then
  If Drives.DriveType = 1 Then
   If Drives.Path "A:" Then
              Set Chg = fso.GetFile(Drives.Path & "AUTORUN.INF")
              Chg.Attributes = -8
              Chg.Delete
              call CreateFolderAnti()
              Set Chg = fso.GetFile(Drives.Path)
              Chg.Delete
    End If
  End If  
 End If
          If Not fso.FileExists(Drives.Path & "AUTORUN.INF") Or fso.FileExists(Drives.Path & "autorun.inf") Then
              Call CreateFolderAnti()
          end if
Next
Loop

Sub CreateFolderAnti()
  Dim fso, f, Write
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.CreateFolder(Drives.Path & "AutoRun.inf")
  Set Write = fso.CreateTextFile(Drives.Path & "AutoRun.inf\MeniOka.txt",2,True)
   Write.writeline "Bu fayyl Anti-AutoRun.vbs tarapyndan doredildi."
   Write.writeline "Scripti Myrat  Rahmanow tarapyndan uytgedildi"
   Write.Close
  CreateFolderFun = f.Path
End Sub

'-------------------------------Şu ýerde hem gutarýar-------------------------------

3. Soňra ýatda sakladyp(Save) bu faýylyň adyny Anti-AutoRun.vbs diýip üýtgediň.
4. Anti-AutoRun.vbs – faýylyny ygtybarly ýerde goýuň hem kompýuter bilen bile açylyp siziň kompýuteriňizi azajyk hem bolsa viruslardan goratmakçy bolsaňyz öz awtoişlenişiňize goýup bilersiňiz. Onuň üçin Başlat(Start, Пуск) menýumyzdan Hemme programmalar(All programs, Все программы) bölüminden Awtoişleniş(Autorun, Автозагрузка) bukjasynda Gysga ýoluny(Shortcut, Ярлык) goýup bilersiňiz.

Bu script virusdan üýtgedilen. Ýagny bir virusy alyp(ogrulyk ;-) ) içinden käbir zatlary aýyrylyp goşulan.

Ýaradymy?

Boljak(81%, 9 adam)

Ýolaý!(9%, 1 adam)

Boljak! Azajyk işlemeli!(0%, 0 adam)

Super!(0%, 0 adam)

Muňa meňzeş çagalaň programmalaryny kän gördüm!(0%, 0 adam)

Dowam et!(9%, 1 adam)

Boljak! Azajyk işlemeli!(0%, 0 adam)

Super!(0%, 0 adam)

Muňa meňzeş çagalaň programmalaryny kän gördüm!(0%, 0 adam)

ýolaý(0%, 0 adam)

boljak ýaly özä(0%, 0 adam)