VB自动登陆网络站点详解(三):Internet Explorer对象

原创 2004年05月29日 15:51:00

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

使用Internet Explorer对象可以使POST请求在IE中产生,从而脱离程序,远离了美化界面的工作。程序甚至可以隐藏或退出,免去了WebBrowser带来的烦恼,当然也不需要第四个参数。

下面我们还是以登陆CSDN为例,给出实际的代码,您可以根据前面文章中提供的参数换成你注册过的站点:

建新工程,在工程中“引用”Internet Explorer对象,点“浏览”,在系统文件夹下找到Shdocvw.dll(这个文件是IE自带的), Form1中添加Command1,以下是代码——

 

    Dim g_oIE As InternetExplorer

Private Sub Command1_Click()

    Dim vPost As Variant

    Dim vHeaders As Variant

 

    Set g_oIE = New InternetExplorer

    g_oIE.Visible = True

   

    ReDim aByte(0) As Byte

    cPostData = "login_name=帐号&password=密码&cookietime=0"

    PackBytes aByte(), cPostData

   

    vPost = aByte

    vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)

   

    g_oIE.Navigate "http://www.csdn.net/member/logon.asp", , , vPost, vHeaders

   

End Sub

Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)

    iNewBytes = Len(PostData) - 1

    If iNewBytes < 0 Then Exit Sub

    ReDim ByteArray(iNewBytes)

    For i = 0 To iNewBytes

       ch = Mid(PostData, i + 1, 1)

       If ch = Space(1) Then

          ch = "+"

       End If

       ByteArray(i) = Asc(ch)

    Next

End Sub

(请输入自己的帐号及密码试运行。这种方法的好处是显而易见的,你可以按这个方法将前面的代码改造一下。)

PackBytes函数将Post出去的数据转化为一个ASCII数组,另外vHeaders的值必须以“+ Chr(10) + Chr(13)”结束。

 

代码没有什么好解释的,现在已经进入到Shdocvw.dll这个“库”中去了,而前面所说的WebBrowserInternet Explorer都是这个库中所包含的“类”。大家可以打开对象浏览器看看它们互相之间的关系。

用程序来控制一个网页,实现自动输入等操作

首先今天要说的东西跟游戏无关,你是不是有时候会遇到,在某个网页上重复着几十次的简单而又无聊的录入或点击等工作?比如你的程序需要测试,需要注册大量的测试邮箱。比如你的老板是个变态,让你去各个论坛发大量的...
  • lufy_Legend
  • lufy_Legend
  • 2014年05月07日 10:55
  • 101670

VB重启explorer的模块,执行过程:RestartExplorer

调用方式: Private Sub Command1_Click() RestartExplorer End Sub 以下新建一个模块,放进去即可 '〓〓〓〓〓〓〓〓〓〓RestartExpl...
  • xiaoyao961
  • xiaoyao961
  • 2013年08月04日 03:59
  • 1771

关于VB方法返回值为值类型时,出现要求对象的理解

今天写代码时,要写一个带返回值的方法,如下: '更新数据库操作 Public Function ExecuteCommand(ByVal strSql As String, _ ...
  • yanzhibo
  • yanzhibo
  • 2013年03月26日 15:56
  • 3172

vb获得网络时间的函数(历史上最全最完整最可靠的函数)

Private Sub Form_Load() MsgBox getWebDatetimie End Sub '直接调用 Private Function getWebDatetimie() ...
  • sysdzw
  • sysdzw
  • 2017年01月18日 15:11
  • 1319

VB6对象浏览器的用法

估计不少书都把这个强大的工具忽略了,这里补充一下。在VB6的IDE里按下F2,或者选择【视图】菜单的【对象浏览器】菜单项,就可以打开对象浏览器。对象浏览器可以看到一个库中的全部类,模块,枚举的定义。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 02:11
  • 6451

vb中自动调整控件的大小

机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件。当没有调整该控件的大小时,查询结果可能会如图所示: 而我们需要的是: 这本来是一个很简单的调整MSHFlexGrid列宽的...
  • u010930340
  • u010930340
  • 2013年11月17日 21:26
  • 1575

DataGrid控件用法详解

转自:http://www.vckbase.com/document/viewdoc/?id=1164 作者:万建华 下载源代码 写在前面   刚写这个题目,就觉得肩上...
  • banrixianxin
  • banrixianxin
  • 2014年05月16日 00:23
  • 4234

VB中 MSComm控件使用详解

MSComm        控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便,程序员不必去花时间去了解较为复杂的API函数,而且在VC、VB、Delp...
  • niepangu
  • niepangu
  • 2015年06月16日 11:24
  • 4654

用VB实现客户——服务器(TCP/IP)编程实例

现在大多数语言都支持客户-服务器模式编程,其中VB给我们提供了很好的客户-服务器编程方式。下面我们用VB来实现TCP/IP网络编程。   TCP/IP协议是Internet最重要的协议。VB提供了W...
  • u014112224
  • u014112224
  • 2014年03月16日 17:44
  • 3833

VB 中得为空判断

IsArray 函数  返回 Boolean 值,指出变量是否为一个数组。 语法  IsArray(varname)  必要的 varname 参数是一个指定变量的标识符。 说明  如果变量是数组,则...
  • wangsy0202
  • wangsy0202
  • 2016年07月06日 13:38
  • 2045
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB自动登陆网络站点详解(三):Internet Explorer对象
举报原因:
原因补充:

(最多只允许输入30个字)