新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
哈哈简单哪
延长网站建设公司创新互联,延长网站设计制作,有大型网站制作公司丰富经验。已为延长1000多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的延长做网站的公司定做!
第一步:登陆网页代码
第二步:登陆以后判断是否登陆成功
有两种方法:1.获取网页代码,判断网页字符有无”登陆成功”字样
源代码:
2.就是判断网页是否跳转到了某一页
源代码:
两种方法结合起来用,可以判断网页是否无法连接
把异常堆栈打出来看看
补充:
在更新或提交的时候出现的错误,可能是某个控件的值,字符串等无法转换成数字,你检查一下是不是不小心弄错了控件了
你每次取出的是表中的首条记录,当然只能用首条记录登陆了!
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失败")
End If
dr.Close()
conn.Close()
这种情况下,效率极不好!你能理解什么意思就行了!否则将你的程序改完了!
cnum 没有声明dim的声明一下,
你必须明白,如果你用 vb.net 做开发就别再用 ado 而改用ado.net
用oledb.oldbconnection代替 adodb.connection
如果你坚持在 .net 中用ado,请添加引用,引用 com 中的 ado
setfocus 不是.net 用法 改成 focus
unload改成 close
或者你可以用vb.net 的自带工具,升级vb6的代码。
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控件