如何用vb寫自動修改登錄檔(教學VB篇)

f66666602

以下是VB程式碼原始碼:

Dim Regedit
Public Function RegeditStringAD(TypeString1 As String, TypeString2 As String)
Set Regedit = CreateObject("WScript.Shell")
　　Regedit.RegWrite "HKEY_CURRENT_USER\Software\Axialis\folders" & TypeString1, TypeString2　
' 寫入
　　Set Regedit = Nothing
End Function
Public Function RegeditStringDE(TypeString1 As String)
On Error Resume Next
　　Set Regedit = CreateObject("WScript.Shell")
　　Regedit.regDelete "HKEY_CURRENT_USER\Software\Axialis\folders" & TypeString1　 '刪除
　　Set Regedit = Nothing
End Function
Public Function RegeditStringRE(TypeString1 As String) As String
On Error Resume Next
　　Set Regedit = CreateObject("WScript.Shell")
　　RegeditStringRE = Regedit.RegRead("HKEY_CURRENT_USER\Software\Axialis\folders" &
TypeString1)　　'讀取
　　Set Regedit = Nothing
End Function