Dim Wshshell As Object
Dim bkey As String
Set Wshshell = CreateObject("WScript.Shell")
Wshshell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Able Software/Reg Code", registercode, "REG_SZ"
Wshshell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Able Software/Reg Company", company, "REG_SZ"
Wshshell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Able Software/Reg Name", comname, "REG_SZ"
MsgBox ("注册表添加成功")
这也真是够简单的了 不像API那样 刚刚入门的 看都迷惑