加一个 CheckBox1
If e.Form.Controls("CheckBox1").checked=True Then Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","UserName",_UserName) '保存登录信息到注册表 Else Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","UserName","") '保存登录信息到注册表 End If
加好友 
发短信
Post By：2018/1/5 15:32:00 [显示全部帖子]
