快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记娱乐博娱188_机器人论坛



应用Internet Explorer工具可以使POST哀求在IE中孕育发生,从而离开法度榜样,阔别了美化界面的事情。法度榜样以致可以暗藏或退出,免去了WebBrowser带来的烦恼,当然也不必要第四个参数。

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

建新工程,在工程中“引用”Internet Explorer工具,点“浏览”,在系统文件夹下找到Shdocvw.dll(这个文件是IE自和记娱乐博娱188带的), 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, B和记娱乐博娱188yVal PostData As String)

iNewBytes和记娱乐博娱188 = Len(Pos和记娱乐博娱188tData) - 1

If iNewBytes

ReDim ByteArray(iNewBytes)

For 和记娱乐博娱188i = 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这个“库”中去了,而前面所说的WebBrowser及Internet Explorer都是这个库中所包孕的“类”。大年夜家可以打开工具浏览器看看它们相互之间的关系。

您可能还会对下面的文章感兴趣: