宠辱不惊,看庭前花开花落;去留无意,望天空云卷云舒

VB访问注册表等操作

上一篇 / 下一篇  2007-10-26 16:15:34 / 个人分类:自动化测试


Dim iw1 As New IWshRuntimeLibrary.IWshShell_Class   '访问注册表等操作
Dim ret As String

Private Sub Command1_Click()
    iw1.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Language\net\Num\serialID"
    iw1.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Language\net\Num\serialID", "2C00-002E-0000-606L-070E-6L00-2501-0C040B"
    ret = iw1.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Language\net\Num\serialID")
   
End Sub


TAG: 自动化测试

 

评分:0

我来说两句

Open Toolbar