请教用vb实现一个简单的功能

我们学校上网，打开任意一个网页前，它会定位到http://10.254.0.9/weblogin.jsp这台服务器的一个网页，提示要输入用户名密码才能上网，我觉得每次都要这样比较麻烦，所以我想用VB做一个登陆器，
我分析了一下10.254.0.9这个网页的html代码,代码如下
其中有三个地方是要可以变的，
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head><body onload="mainform.submit()">
<!-- https://10.254.0.9:443/secu/webLogin.jsp -->
<form action="https://10.254.0.9:443/secu/webLogin.jsp" method="post" name="mainform" id="mainform">
  用户名：
  <input name=username type="text" id="username" value="2004090600028">
密码：
<input name=password type="password" id="password" value="zbt19840605">
        <input type='hidden' name='connectname' value=''>
        <input type='hidden' name='connecttype' value='-1'>
        <input type='hidden' name='consumeright' value='0'>
        <input type='hidden' name='separatecard' value='0'>
        <input type='hidden' name='localIP' value='220.189.65.70'>
        <input type='hidden' name='IsIndex' value='0'>
        <input type='hidden' name='needActiveX' value='1'>
        <input type='hidden' name='isPNP' value='0'>
        <input type='hidden' name='httpIP' value='220.189.65.70'>
        <input type='hidden' name='isProxy' value='0'><input type="submit" name="Submit" value="提交">
</form>
</body>
</html>
一是IP的地方，220.189.65.70，一是username,和password,
肯请高手指点，分不够再加

解决方案 »

  1.   

    Private Sub Command1_Click()
        IE.Document.All("username").Value = "york"
        IE.Document.All("Password").Value = "123456"
        IE.Document.All("submit").Click
    End SubPrivate Sub Form_Load()
        IE.Navigate "D:\1.htm"
    End Sub
      

  2.   

    to:wwqna(york) ( ) 信誉：98 
    在vb里就写这两段就可以了吗？，我不太懂VB
      

  3.   

    楼上的方法可以实现登陆，问题是登陆成功后，用这个browser控件自制的浏览器继续上网还行，改用IE的话恐怕就
      

  4.   

    看我的：Option Explicit
    '首先要引用Microsoft Internet Controls
    Dim myIE As InternetExplorer
    Private Sub Command1_Click()
        Set myIE = New InternetExplorer
        myIE.Visible = True
        myIE.Navigate2 "https://10.254.0.9:443/secu/webLogin.jsp?username=york&Password=123456"
    End Sub
      

  5.   

    看贴子:http://community.csdn.net/Expert/topic/3617/3617669.xml?temp=.8420526