saol baba da ben bu tarz demek istemedim vb de projemizi yaparken o proje hangi kodları ekliyelimki. exe dosyası her windows açılışında otomatik açılsın? -

Sen de bi amele ismi yazmana gerenk yok direk app. ile işi çözersin Kod: Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" Form_Load a yazılacak ve pc her açıldığında program çalışacak

karşındakine amele diosun ama adamın yazdığı kodun ne işe yaradığına bakmadığından eminim. arkadaş 2 adet button ile balangıca ekletip kaldırıyor. birazdan bunu nasıl başlangıçtan istediğimiz zmn kaldırabiliriz diye soracaksınız.

konuyu upluyorum belki ama ben vb 6 da yaptığım programı bir türlü başlangıçta çalıştıramadım son 1 hafatadır bununla uğraşıyorum lakin verilen kodlar sürekli hata alıyorum lütfen biri nasıl yapacağımı

amele o kadar koda ne gerek var Dim Kd As Object Set Kd = CreateObject Kd. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\PROGRAMININ_ISMI", "C:\PROGRAMIN YOLU", "REG_SZ"

e tmm iste arkadasda onu vermis zaten

Iki tane command dugmesi ekle (Command1, Command2) asagidaki kodu ekle: Option Explicit Private Declare Function RegCloseKey Lib "advapi32. dll" As Long Private Declare Function RegCreateKey Lib "advapi32. dll" Alias "RegCreateKeyA" As Long Private Declare Function RegDeleteKey Lib "advapi32. dll" Alias "RegDeleteKeyA" As Long Private Declare Function RegDeleteValue Lib "advapi32. dll" Alias "RegDeleteValueA" As Long Private Declare Function RegOpenKey Lib "advapi32. dll" Alias "RegOpenKeyA" As Long Private Declare Function RegQueryValueEx Lib "advapi32. dll" Alias "RegQueryValueExA" As Long Private Declare Function RegSetValueEx Lib "advapi32. dll" Alias "RegSetValueExA" As Long Private Const REG_SZ = 1 ' Unicode nul terminated string Private Const REG_DWORD = 4 ' 32-bit number Private Const ERROR_SUCCESS = 0& Public Enum pvpHK HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HKEY_USERS = &H80000003 HKEY_PERFORMANCE_DATA = &H80000004 End Enum Private Const pvpRunHKey = "Software\Microsoft\Windows\CurrentVersion\Run" Private Sub savestring Dim keyhand As Long Dim r As Long r = RegCreateKey r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len If r = 87 Then DeleteValue Hkey, strPath, strValue End If r = RegCloseKey End Sub Private Function DeleteValue Dim keyhand As Long Dim r As Long r = RegOpenKey r = RegDeleteValue r = RegCloseKey End Function Public Function RunAtStartup savestring pvpHK. HKEY_CURRENT_USER, pvpRunHKey, sAppTitle, strsAppName End Function Public Function RemoveFromStartup DeleteValue pvpHK. HKEY_CURRENT_USER, pvpRunHKey, sAppTitle End Function Private Sub Command1_Click RunAtStartup App. Title, App. Path & "\" & App. EXEName & ". EXE" End Sub Private Sub Command2_Click RemoveFromStartup App. Title, App. Path & "\" & App. EXEName & ". EXE" End Sub Private Sub Form_Load Command1. Caption = "Windows Startupa ekle" Command2. Caption = "Windows Startuptan kaldir" End Sub -

arkdaşlar Vb de yaptıgımz. exe dosyasını nasıl bilgisayarın başlangıcına ekliyebiliriz yada bu işin kodaları nedir?