vb点虐 设计登录 vb设计登录注册界面

如何用VB.NET制作账号自动登陆的程序

Private Sub SendBlogTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendBlogTimer.Tick

创新互联建站服务项目包括东兴网站建设、东兴网站制作、东兴网页制作以及东兴网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，东兴网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到东兴省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

Dim textboxUserId As HtmlElement

Dim textboxPassword As HtmlElement

Dim buttonSubmit As HtmlElement

textboxUserId = SendBlogBrowser.Document.All("username")'获取用户名输入框

textboxPassword = SendBlogBrowser.Document.All("password")'获取密码输入框

buttonSubmit = SendBlogBrowser.Document.All("btnLogin")'获取登陆按钮

textboxUserId.SetAttribute("value","用户名")'给用户名输入框赋值

textboxPassword.SetAttribute("value","密码"）'给密码框赋值

buttonSubmit.InvokeMember("click")’执行登陆按钮的单击

End Sub

其中的SendBlogBrowser为WebBrowser控件

关于 vb点虐 如何实现 点击网页登陆按钮

protected void Button1_Click(object sender, EventArgs e)

{

if (TextBox1.Text == "" || TextBox2.Text == "")

{

Response.Write("scriptalert('用户名或密码不能为空！')/script"); //提示对话框

}

else

{

string ConStr = "server=(local);user id=sa;pwd=123456;database=userdb";

SqlConnection con = new SqlConnection(ConStr);

string SqlStr = "select * from mymember where sname = '" + TextBox1.Text + "' and spwd = '" + TextBox2.Text + "'"; //Select查询语句

SqlDataAdapter ada = new SqlDataAdapter(SqlStr, con);

con.Open(); //打开连接

DataSet ds = new DataSet();

ada.Fill(ds);

if (ds.Tables[0].Rows.Count 0)

{

Session["username"] = TextBox1.Text;

Response.Redirect("index.aspx");

}

else

{

Response.Write("scriptalert('用户名或密码错误，请重新登录！')/script");

}

} //绑定GridView控件

}

如何用vb点虐 实现用户登陆界面的操作？

select * from t1 where name=** and password=** and style=**

如果查询到的表是空的，说明登陆错误，否则成功