冉小歌F
VB自动登陆网站
不是这样用的，HTML里最多加个CHECKBOX罢了 主要看你submit之后执行的代码， LZ说是VB的话，我想你应该用的是ASP代码吧 如果是这样的话 那一般就用： request.cookie(＂email＂) = request(＂email＂) '将Email存入本地cookie中 request.cookie(＂autoIn＂) = 1 '将是否自动登录状态存入本地cookie中 而在下次打开页面的时候只需要查看 if response.cookie(＂autoIn＂) = 1 then '检查自动登录状态是否为1 如果是的话自动登录代码 end if需要的话，可以留言找我...
vb 网页自动登录
添加一个webbrowser控件，然后在它的complete事件里添加代码： Dim d As Object, o As Object, pc As String On Error Resume Next Set d = web.Document If d Is Nothing Then Exit Sub Set o = d.getElementById(＂username＂) o.Value = ＂admin＂ Set o = d.getElementById(＂pwd_＂) o.Value = ＂123456＂ web.Navigate ＂javascript:checkLogin();void 0＂
...也输入了帐号和密码 钩选了记住帐号密码 请问怎么实现自动登陆这个...
建立text1,text2,text3,text4,text5，并且设置Text5的Multiline属性为True，代码如下。
================================= Private Sub Command1_Click() Dim i As Long, t As Long t = Val(Text2.Text) For i = 0 To Val(Text3.Text) Text5.Text = Text5.Text & Text1.Text & t i & ＂;＂ & Text4.Text & vbCrLf Next End Sub Private Sub Form_Load() Text1.Text = ＂＂ Text2.Text = ＂＂ Text3.Text = ＂＂ Text4.Text = ＂＂ Text5.Text = ＂＂ End Sub
用VB.NET做一个程序自动登陆https://passport.baidu.com/...
Public conn As New SqlConnection(＂server=(local);database=student;Integrated Security=True＂） -----这是连接数据库的代码 Public comm As New SqlCommand Public dr As SqlDataReader comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = ＂select * from login where 用户名 = '＂ & 用户名 & ＂' and 密码='＂ & 密码 & ＂'＂ If conn.State = ConnectionState.Closed Then conn.Open() End If dr = comm.ExecuteReader If dr.HasRows Then Return True Else Return False End If dr.Close() If conn.State = ConnectionState.Open Then conn.Close() End If 次用户名的话可以用SQL检查约束设置，弄一个触发器！！！
如何用vb制作一个可以自动登陆ftp的程序？
VB编写一个可以注册帐号的登录系统步骤：1)1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。
2)VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLE DB连接数据库等。
在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。
ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。
该窗口的SQL语句可复制到程序代码用于编程。
4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。
5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。
6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。
以下是用ADO数据对象编写的登录和注册的代码：1）标准模块代码：Option Explicit Public loginname As String Public cn As New ADODB.Connection '定义数据库的连接存放数据和代码 Public rs As New ADODB.Recordset Public sql As String Public Newname As String2）注册窗体代码：Option Explicit Dim Password As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1 ＂＂ Then sql = ＂select * from 用户管理 where 用户名='＂ & Text1.Text & ＂'＂ ' and 密码='＂ & Text2.Text & ＂'＂ cn.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\data\data.mdb;Persist Security Info=False＂ cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic If rs.EOF = True Then '没有该用户名可以注册 MsgBox ＂用户名可以注册！＂ rs.Close cn.Close Newname = Text1.Text Text4 = Newname Text2.SetFocus Else MsgBox ＂该用户名已经存在，换名注册！＂ Text1.Text = ＂＂ Text1.SetFocus End If End If Exit Subfinish: MsgBox Err.DescriptionEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2 ＂＂ Then Password = Text2.Text Text5 = Password Text3.SetFocus End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text3.Text = Text2.Text Then Command3.Enabled = True Command3.SetFocus ElseIf KeyAscii = 13 And Text3.Text Text2.Text Then Text3 = ＂＂ Text3.SetFocus End IfEnd SubPrivate Sub Command1_Click() Unload MeEnd SubPrivate Sub Command3_Click() sql = ＂select * from 用户管理＂ cn.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\data\data.mdb;Persist Security Info=False＂ cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic rs.AddNew rs.Fields(0) = Newname rs.Fields(1) = Password rs.Update rs.Close cn.Close Command3.Enabled = FalseEnd Sub3）登录窗体代码：Option Explicit Dim pnum As IntegerPrivate Sub Command1_Click() On Error GoTo finish '防错代码，防止意外而导致的退出 sql = ＂select * from 用户管理 where 用户名='＂ & Text1.Text & ＂' and 密码='＂ & Text2.Text & ＂'＂ cn.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\data\data.mdb;Persist Security Info=False＂ cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic '以上使用最通用的方法来查询数据库中是否有匹配的记录 If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的 If pnum pnum = pnum + 1 MsgBox ＂用户名或密码错误！＂， vbInformation， ＂错误次数：＂ & pnum rs.Close cn.Close Text1.Text = ＂＂ Text2.Text = ＂＂ Text1.SetFocus Exit Sub Else MsgBox ＂用户名或密码错误超过三次，系统会自动退出＂， vbInformation， ＂提示＂ End End If Else loginname = rs.Fields(0) Form1.Show rs.Close cn.Close End If Exit Subfinish: MsgBox Err.Description rs.Close cn.CloseEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '获取按键，如果是回车就运行image_click按钮的内容 Call Command1_Click End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command3_Click() frmZhuce.ShowEnd Sub
