Jump to content
Forum Windows-az.com

AvtoStart


Ʌüsal

Recommended Posts

Hazırladğınız proqramın sistemin ilk açılışında işə düməsi üçün kod...

 

Forma klik edin...

General sətrinə aşağıdaı kodu yazın...

 

Imports System.IO

 

Daha sonra Formun Load sətrinə keçirik və kodumuzu yazırıq...

 

Dim filename As String

Dim filepath As Object

Dim registrykey As Object

 

 

filename = (\"WindowsApplication1.exe\")

filepath = Path.GetFullPath(filename)

registrykey = CreateObject(\"WScript.Shell\")

registrykey.RegWrite(\"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows

\CurrentVersion\\Run\\WindowsApplication1\", filepath)

 

Qeyd:

WindowsApplication1.exe mənim hazırladğımı proqramın adıdır.Sizdə əgər məsələn

Setup.exe olacaqsa kodda dəyişik edəcəksiz

 

 

Ümumi kod:

 

Imports System.IO

Public Class Form1

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim filename As String

Dim filepath As Object

Dim registrykey As Object

 

 

filename = (\"WindowsApplication1.exe\")

filepath = Path.GetFullPath(filename)

registrykey = CreateObject(\"WScript.Shell\")

registrykey.RegWrite(\"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curre

ntVersion\Run\WindowsApplication1\", filepath)

 

End Sub

End Class

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...