vb锁主页代码

Question

vb锁IE主页代码
请贴出完整代码 谢谢了！

Answer 1

Private Sub Command5_Click()'全信息读取
Dim RegEdit As object
Set RegEdit = Createobject("Wscript.Shell")
Text1.Text = RegEdit.regread("HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}hell\OpenHomePage\Command\\")
Command4.Caption = "恢复"
MsgBox "为了保护IE全信息读取时禁用“修改”功能，点击“恢复”可以恢复“修改”功能"
Command1.Enabled = False
End SubPrivate Sub Command1_Click()'修改
Set WshShell = Createobject("Wscript.Shell")
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}hell\OpenHomePage\Command\\" "C:\Program Files\Internet Explorer\IEXPLORE.EXE" &""&Text1.Text "REG_SZ"
End SubPrivate Sub Command3_Click()'锁定空白页
Set WshShell = Createobject("Wscript.Shell")
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}hell\OpenHomePage\Command\\" "C:\Program Files\Internet Explorer\IEXPLORE.EXE" &"about:blank" "REG_SZ"
End SubPrivate Sub Command6_Click()'退出
End
End SubPrivate Sub Command4_Click()'读取
Dim RegEdit As object
Set RegEdit = Createobject("Wscript.Shell")
Text1.Text = Replace(RegEdit.regread("HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}hell\OpenHomePage\Command\\") "C:\Program Files\Internet Explorer\IEXPLORE.EXE " "")
Command1.Enabled = True
Command4.Caption = "读取"
End SubPrivate Sub Command2_Click()'普通空白页
Set WshShell = Createobject("Wscript.Shell")
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}hell\OpenHomePage\Command\\" "C:\Program Files\Internet Explorer\IEXPLORE.EXE " "REG_SZ"
End Sub