可以用wscript.shell来写注册表:Private Sub Command1_Click() Dim wshshell As Object Set wshshell = CreateObject("wscript.shell") '添加或修改注册表 wshshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "0" Set wshshell = Nothing End Sub
---------------------
有多个人问过,你找找以前的贴子2、要求能带用户和密码登陆
可以修改注册表,启动Windows时会自动弹出登陆框
Dim wshshell As Object
Set wshshell = CreateObject("wscript.shell")
'添加或修改注册表
wshshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "0"
Set wshshell = Nothing
End Sub
注:
而且要在defaultusername defaultpassword 当中设置登录的用户和密码才可以。。
2、在BIOS中設置啟動的時間。
3、修改註冊表可以達到自己登錄的目的。
4、如果不想在註冊表保存用戶名和密碼,
你可以通过编程替换掉微软的MSGINA.DLL,
用来实现自己的密码登陆验证功能。講完了,祝你成功。