e.Form.Controls("UserN").Text = getconfigvalue("User_N","")
e.Form.Controls("UserP").Text = getconfigvalue("User_P","")
'******进入系统按钮代码：
Dim chk1 As WinForm.CheckBox = e.Form.Controls("CheckBox1") '*****设置默认值
Dim chk2 As WinForm.CheckBox = e.Form.Controls("CheckBox2") '*****记住密码
Dim chk3 As WinForm.CheckBox = e.Form.Controls("CheckBox3") '*****自动登录
If chk1.checked = True Then
saveconfigvalue("User_N",e.Form.Controls("UserN").Text)
End If
If chk2.checked = True Then
saveconfigvalue("User_P",e.Form.Controls("UserP").Text)
End If
加好友 
发短信
Post By：2018/10/26 12:06:00 [显示全部帖子]
