Hồ Bình > 03-02-21, 01:34 PM
dangh5 > 03-02-21, 09:36 PM
paulsteigel > 18-02-21, 10:12 AM
(03-02-21, 10:07 PM)Hồ Bình Đã viết:Cảm ơn Mai Đình Dân đã chuẩn bị một file demo cho anh em. Tiện thể mình gửi bản của Bác sĩ Đinh Tiến Danh đã làm trên cơ sở phối hợp. Trên diễn đàn này cũng có bản đó của Danh nhưng link vào trang đã bị khóa của tôi (do google cấu trúc lại trang web)(03-02-21, 09:36 PM)dangh5 Đã viết: bác cho mail mình gửi cho, tại diễn đàn không tìm thấy chỗ đính kèm file.
Đây bác: hoduybinh.ydk36@gmail.com
Sub RemoveKey()
On Error Resume Next
Dim strComputer As String, strKeyPath As String, arrSubkeys As Variant, objSubkey As Variant, objRegistry As Object
Const HKEY_CURRENT_USER = &H80000001
'[HKEY_CURRENT_USER\System\CurrentControlSet\Control\ado_vc5]
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Control"
objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
For Each objSubkey In arrSubkeys
If InStr(UCase(objSubkey), "ADO_VC") Then objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath & "\" & objSubkey
Next
Set objRegistry = Nothing
End Sub
nam0812 > 24-11-21, 03:49 AM
tt1212 > 20-08-24, 10:29 AM
nguyencaothong > 12-09-24, 03:25 PM