对注册表操作(简单)

来源:互联网 发布:网络德州扑克论坛 编辑:程序博客网 时间:2024/05/17 01:27

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那样 刚刚入门的 看都迷惑

 

 

原创粉丝点击