发信人: garfieldmao()
整理人: (2000-09-05 10:36:10), 站内信件
|
【 在 mail98 (mail98) 的大作中提到: 】
: 能否给IE发送信息？比如打开浏览器，直接进入收信，不用再有登陆步骤。
: 也就是怎么替IE提交post，结果在ie中显示？能行吗？
这是我登陆网易社区的code
text1会把从服务器上接收到的数据显示出来，
你可以把它保存为一个htm文件，然后调用IE打开。
Private Sub Command1_Click()
Me.Winsock1.Connect
End Sub
Private Sub Form_Load()
Me.Winsock1.RemoteHost = "club.163.com"
Me.Winsock1.RemotePort = 80
Me.Winsock1.Protocol = sckTCPProtocol
End Sub
Private Sub Winsock1_Connect()
Me.Winsock1.SendData "POST /cgi-bin/login HTTP/1.0" + vbCrLf
Me.Winsock1.SendData "From: [email protected]" + vbCrLf
Me.Winsock1.SendData "User-Agent: MaozaiBroswer 1.0" + vbCrLf
Me.Winsock1.SendData "content-type: application/x-www-form-urlencoded"
+ vbCrLf
k = Len(s)
Me.Winsock1.SendData "content-length: 28" & vbCrLf & vbCrLf
Me.Winsock1.SendData "user=garfieldmao&pass=xxxxxxxxxxxxx" + vbCrLf
'Me.Winsock1.SendData "User-Agent: MaozaiBroswer 1.0" + vbCrLf
Me.Winsock1.SendData "" + vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Me.Winsock1.GetData a
Me.Text1 = Me.Text1 + a
End Sub
--
┏━━━━━━━━━━━━━━━━━━━━━┓
┃请在[将本文章寄一份给原作者]之后打“√”。┃
┃ 猫仔 ＯＩＣＱ：１２５１０８９ ┃
┃ Email:[email protected] ┃
┃ ＶＢ编程园 Http://maozai.home.china.com ┃
┗━━━━━━━━━━━━━━━━━━━━━┛
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.105.153.226]
|
|