这简直是一个要我命的问题，请哪位高手指点一下，小女子非常感激？！

[ni]

我想做一个可以自动登陆BBS的程序，可是我不懂得思路，嘿嘿，所以想请位高手指点一下，就是晚上开机一夜，可以自动登陆，退出。
就这样，嘿嘿，谢谢。
有好几个人给我指点过，可是我都不太懂，因为本人不太属于这一行，嘿嘿，所以接受的有点慢，请哪位善良的大虾指点一下，可否说的详细一点
谢谢谢谢谢谢啦

[AABB]

BBS自动登录机(1.0)
http://www.csdn.net/cnshare/soft/11/11212.shtm

[孟繁光]

敬告：CSDN的BBS也不是登陆一次就有分数的啊。你用登陆来得分是不是太累啊。步入你好好学习学习，回答别人问题来分快啊。

-----------
A person with no dream in life can never live a happp life.

[zag]

楼上的兄弟,人家是问怎么做,而不是你想的那样.

[yarshray]

以下程序是用来验证用户登录的共有两个按钮，一个是用来提交的，一个是用来重填的，页面部分就很简单了，两个文本框，两个按钮，这里页面的代码就不写了：）

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox3.Text = "" Or TextBox4.Text = "" Then
Label35.Text = "请确认您的输入！"
Return
End If
Dim sql As String = "select * from pwd where stu_id=@stu_id and pwd=@pwd"
Dim comm As SqlCommand = New SqlCommand(sql, conn)
comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))
comm.Parameters("@stu_id").Value = TextBox3.Text
comm.Parameters.Add(New SqlParameter("@pwd", SqlDbType.Char, 16))
comm.Parameters("@pwd").Value = TextBox4.Text
Dim dr As SqlDataReader
conn.Open()
dr = comm.ExecuteReader
If dr.Read Then
Session("stu_id") = TextBox3.Text
dr.Close()
comm.Cancel()
Dim sql_3 As String = "update stu_base set point=point+1 where stu_id=@stu_id"
comm = New SqlCommand(sql_3, conn)
comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))
comm.Parameters("@stu_id").Value = Session("stu_id")
comm.ExecuteNonQuery()
comm.Cancel()
Response.Redirect("detail.aspx?stu_id='" & Session("stu_id") & "'")
Else
Label35.Text = "您还没有注册或账号密码错误"
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

[huiqi2001]

:),楼上例子不错啊

[孟繁光]

---SQL Script------------------------------------------
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pwd]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[pwd]
GO

CREATE TABLE [dbo].[pwd] (
[stu_id] [int] NOT NULL ,
[pwd] [char] (16) COLLATE Chinese_Taiwan_Stroke_CI_AS NOT NULL ') ON [PRIMARY]
GO

---------------------------------------------
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[stu_base]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[stu_base]
GO

CREATE TABLE [dbo].[stu_base] (
[stu_id] [int] NOT NULL ,
[point] [int] NOT NULL
) ON [PRIMARY]
GO

---------------------------------------------
declare @stu_id int
declare @pwd char(16)
--
set @stu_id = 1
set @pwd = 'pass'
--
begin transaction
insert pwd (stu_id,pwd) values(@stu_id,@pwd)
if @@error > 0 goto errH
insert stu_base (stu_id) values (@stu_id)
if @@error > 0 goto errH
commit transaction
return
--
errH:
rollback transaction
raiserror 16000 'Insert Failed! Please retry it after you confirm it.'
go

[Seeko0]

楼上 yarshray(saga jion) 举例子了，实现的方法应该都差不多。
要实现自动登陆,可以有这两种方式：
1、注册表记录登陆信息
2、在客户段设置cookie（Session记住的时间是很有限的哦）
然后按照楼上的判断方法与数据库记录进行比较就可实现自动登陆了吧！

[yohomonkey]

up一下吧！