تەييارلايدىغان ماتېرىياللار
Text box دىن بىرنى
Label  دىن بىرنى
Command  ئۇچنى

-----------------تەييارلاپ قۇيۇلغان كود------------------------

Form غا بۇ كودنى چاپلاڭ

 Option Explicit
 Const REG_SZ As Long = 1
 Const HKEY_CURRENT_USER = &H80000001
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
    (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 Sub Command1_Click()
  Dim hKey As Long
  RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
  RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Text1.Text, 30
  RegCloseKey hKey
End Sub
 
Private Sub Command2_Click()
  Dim hKey As Long
  RegCreateKey HKEY_CURRENT_USER, _
  "Software\Microsoft\Internet Explorer\Main", hKey
  RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal "", 30
  RegCloseKey hKey
End Sub

Private Sub Command3_Click()
  End
End Sub

---------------------------------------------------------

كۆچۈرۈپ تارقاتماقچى بولسىڭىز
مەنبەنى ئەسكەرتىڭ
مەنبە : ئەقىللىق بلوگى