请问VB中怎么调用网页用户登陆窗口？希望大哥大姐们写源码好学习和研究

补充：回答满意 追加分

答案：'汗,楼上几位不懂还乱回复,真是...'以下代码需要要控件 WebBrowser1Private Sub Form_Load()  WebBrowser1.Navigate " http://wenwen.zzzyk.com/z/PopLogin.e?sp=104"End SubPrivate Sub WebBrowser1_DownloadComplete()  '网页载入完毕时触发的事件  dim a as Integer  a = IsLogin(WebBrowser1.Document.cookie)  '得到网页的Cookie判断是否有登陆标记  msgbox a'这里是可以写      if a then 登陆成功窗体.showEnd SubFunction IsLogin(ByVal sCookie As String) As Boolean  Dim i As Integer  i = InStr(1, sCookie, "skey=")  'skey是Cookie里记录密码的字段,默认无"="号,只有在登陆后才会有 "skey=加密后的密码" 这个格式.这种登陆标志你可以通过登陆前后的Cookie对比看出来.  If i > 0 Then IsLogin = TrueEnd Function'
<!--#include file=../include/config.asp--> '变量定义 
<!--#include file=../include/conn_view.asp--> '开数据库 
<!--#include file=../include/function.asp--> '检测服务器，运行环境是否正确 
<% 
dim user,password,strSql,rsTmp,retValue 
user=request("user") '登陆页面的用户名 
password=request("password") '登陆页面的用户密码 
if user="" then '判断用户名是否填写 
out("用户名不能为空！") 
resonse.end 
end if 
if password="" then '判断用户密码是否填写 
out("密码不能为空！") 
resonse.end 
end if 
set rsTmp=Server.CreateObject("ADODB.RecordSet") 
strSql = "select * from [你的库表名] where username='" & convertsql(user) & "'" 
strSql = strSql & " and userpassword='" & convertsql(password) & "'" 
rsTmp.open strSql,conn 
if rsTmp.eof then 
out("该用户不存在,或密码错误！") 
retValue=1 
else 
retValue=0 
'##设置session 
session("adminlogin")="ok" 
session("user_id")=rsTmp("user_id") 
end if 
rsTmp.close 
set rsTmp=nothing 
conn.close 
set conn=nothing 
'##跳转到另一页去 
if retValue=0 then 
response.redirect "../manage.asp" '跳转到登陆后页面 
end if 
%> 
以上就是VBscript+ACCES数据库登陆时判断用户名及密码的详细代码 
解决办法不象楼上说的那么复杂，很简单，如果有兴趣，联系我
我把我写的源码发给你看看！
QQ：276256127
WINSOCK + POST 就完事了，
还要什么WEBBROWSE，

不要以为MSWINSOCK不能在其他地方使用
我的方法就不要窗口的，能在类里面执行。

上一个：Java、VB.NET的电子书教材和技术学习网站
下一个：新手学习VB，没基础，推荐本适合自学的VB的书，谢谢，一本就好