[原创]VBS读写注册表，全局变量，INI文件和数据库的示例　[金字塔]

'测试注册表读写
Sub TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\weisoft\金字塔\settings")
 Call registry.WriteInt("id",123)
 result=registry.ReadInt("id")
 application.msgout result
End Sub

'测试全局变量读写
Sub TestExtData()
 Call document.setextdata("id",123)
 result=document.getextdata("id")
 application.msgout result
End Sub

'测试INI文件读写
Sub TestInI()
 Call document.WritePrivateProfileFloat("settings","id",123,"d:\\settings.ini")
 result=document.GetPrivateProfileFloat("settings","id",1,"d:\\settings.ini")
 application.msgout result
End Sub

'测试数据库读写
Sub TestDatabase()
 Set adoconnection=CreateObject("adodb.connection")
 adoconnection.Open("provider=microsoft.jet.oledb.4.0;data source="&application.apppath&"\db1.mdb")
 adoconnection.Execute("insert into main(id) values(123)")
 Set rs = adoconnection.Execute("select id from main")
 application.msgout rs("id").Value
 adoconnection.close
End Sub