كيف أكتب شيفرة

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
   (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
   "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
   ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
   ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
   (ByVal hKey As Long) As Long
   
Private Const HKEY_LOCAL_MACHINE = &H80000002


Private Sub Form_Load()
Dim lRegKey As Long
Dim sApp As String
sApp = App.Path + IIf(Right(App.Path, 1) <> "\", "\", "") + App.EXEName + ".exe"
If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run\", lRegKey) = 0 Then
   If RegSetValueEx(lRegKey, "My Program", 0, 1, ByVal sApp, Len(sApp)) Then
       MsgBox "There was a Problem Adding This Program to the Registry", vbExclamation, "Error"
   End If
   Call RegCloseKey(lRegKey)
End If
End Sub

طريقة ثانية :

Set iii= CreateObject("wscript.shell")
'للكتابة
iii.regwrite "   HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre
ntVersion\Run\code4arab", "c:\file name"
'اما للقراءه
iii.regread "   HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre
ntVersion\Run\code4arab", "c:\file name

"

جربت الطريقة الاولى واشتغلت معي .. ولكنني لم اجرب الطريقة الثانية ..

مع العلم ان الشفرة موجودة في المنتدى على الرابط التالي ..

/index.ph...hl=المنافذ&st=0

يحوي الرابط مجموعة رائعة من الاكواد .. تعتبر مرجع .