Dùng Excel đưa các thông tin vào regedit?

[linhdt]

Mình mới chỉ biết cách lấy các thông tin từ regedit. Hiện nayTôi muốn ứng dụng Excel để đưa thêm các thông tin vào trong regedit, loay hoay mà chưa biết cách , nhờ các bạn chỉ thêm cho.

 

[nvson]

Bạn dùng hàm SaveSetting để lưu các thông số vào Registry và dùng GetSetting để lấy các thông số từ Registry.

 

[linhdt]

Oh, vậy ah, mình sẽ thử, cám ơn bạn nhiều. Có gì không hiểu mình sẽ hỏi thêm bạn. Tks NVSON

 

[VADaNang]

Xin phép được chen vào mục này.
Xin hỏi tôi sử dụng lệnh sau để đăng ký thông tin số liệu trong registy.
Khi chạy chương trình thì thực hiện đúng theo ý muốn.
Nhưng khi tắt máy khởi động lại thì các số liệu đã đăng ký được trong Registry biến mất.
Xin hỏi lệnh viết sai sót chỗ nào.
TY.
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition 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 RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Const REG_OPTION_VOLATILE = 1
Const HKEY_USERS = &H80000003
Const ERROR_SUCCESS = 0&
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Sub Ghi_ma()
Dim Thuoctinh As SECURITY_ATTRIBUTES
Dim MHkey As Long
Dim hKey As Long
Dim Subkey As String
Dim kb As Long
Dim So2 As String
Dim So22 As String
So2 = “111”
So22 = “222”
MHkey = HKEY_USERS
Subkey = ".DEFAULT\KKK"
LReturn = RegCreateKeyEx(MHkey, Subkey, 0, "", REG_OPTION_VOLATILE, KEY_ALL_ACCESS, Thuoctinh, hKey, kb)
LReturn = RegSetValueEx(hKey, "K1", 0&, 1, ByVal So2, Len(So2))
CreateKey = (LReturn = ERROR_SUCCESS)
KQ1 = RegCloseKey(hKey)
LReturn = RegCreateKeyEx(MHkey, Subkey, 0, "", REG_OPTION_VOLATILE, KEY_ALL_ACCESS, Thuoctinh, hKey, kb)
LReturn = RegSetValueEx(hKey, "K2", 0&, 1, ByVal So22, Len(So22))
CreateKey = (LReturn = ERROR_SUCCESS)
KQ2 = RegCloseKey(hKey)
If LReturn = 0 Then MsgBox "Ban da dang ky thanh cong", 1, " DANG KY"
End Sub