Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite Key1, SValue
End Function
Private Sub Command1_Click()
'Ata kısmı. Burada başlangıca ekleme işlemi yapılır.
RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\" & Text1.Text, Text2.Text
End Sub
Private Sub Command2_Click()
'hakkımda kısmı
MsgBox "by kartal8181"
End Sub
Private Sub Command3_Click()
'çıkış kısmı
End
End Sub
WSHShell.RegWrite Key1, SValue
End Function
Private Sub Command1_Click()
'Ata kısmı. Burada başlangıca ekleme işlemi yapılır.
RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\" & Text1.Text, Text2.Text
End Sub
Private Sub Command2_Click()
'hakkımda kısmı
MsgBox "by kartal8181"
End Sub
Private Sub Command3_Click()
'çıkış kısmı
End
End Sub