向网页 定时发送消息 用vb如何实现?

yelang771 2008-04-10 01:42:47
rt
怎样实现发送消息到网页上,比如我现在发的这个帖子里..
用什么控件,怎样实现.
...全文
185 16 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
camel78 2008-05-09
  • 打赏
  • 举报
回复
不定时上论坛解答问题。
定时部分用Timmer就不说了,发送部分
1:用异步下载方式
Dim oADL As AsyncDownload
oADL.Download URL, , , "Post", , "UserName=uname&PWD=password"
2:用WebBrowser控件
'赋值
WebBrowser1.Document.All.UserName.Value = "uname"
WebBrowser1.Document.All.PWD.Value = "password"
'提交
Private Sub cmd点击注册帐号提交_Click()
On Error Resume Next
'对于没有Name的没找到好方法,只能用这种笨方法,你有如好的方法可告诉我:)
Dim i As Integer
Dim j As Integer
For i = 0 To Val(WebBrowser1.Document.All.length - 1)
If WebBrowser1.Document.All.Item(i).Name <> "login" Then
Else
j = i
Exit For
End If
Next
WebBrowser1.Document.All.Item(i).Click
End Sub
lyserver 2008-05-09
  • 打赏
  • 举报
回复
我写了一个定时向所有IE窗口写时间的程序,LZ可在此基础上进一步发挥。
类模块:clsIE.cls
Option Explicit

Public Event NewWindow(Cancel As Boolean)
Public Event Quit()
Public Event BeforeNavigate(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Public Event DocumentComplete(ByVal pDisp As Object, URL As Variant)

Public WithEvents IE As InternetExplorer

Dim WithEvents MyTimer As Timer
Dim m_lCookie As Long

Private Sub Class_Terminate()
On Error Resume Next
MyTimer.Enabled = False
Form1.Controls.Remove ("VB.Timer" & CStr(lCookie))
Set IE = Nothing
End Sub

Public Property Let lCookie(ByVal lNewCookie As Long)
m_lCookie = lNewCookie
Set MyTimer = Form1.Controls.Add("VB.Timer", "MyTimer" & CStr(m_lCookie))
MyTimer.Interval = 1000
MyTimer.Enabled = True
End Property

Public Property Get lCookie() As Long
lCookie = m_lCookie
End Property

Public Sub IE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
RaiseEvent BeforeNavigate(pDisp, URL, Flags, TargetFrameName, PostData, Headers, Cancel)
MyTimer.Enabled = False
End Sub

Public Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
RaiseEvent DocumentComplete(pDisp, URL)
If IE.Busy = False Then
MyTimer.Enabled = True
End If
End Sub

Public Sub IE_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim m_Cancel As Boolean
RaiseEvent NewWindow(m_Cancel)
cancle = m_Cancel
End Sub

Public Sub IE_OnQuit()
RaiseEvent Quit
End Sub

Private Sub MyTimer_Timer()
Dim i As Integer
Dim Body As Object
Dim MyElement As Object

On Error Resume Next
Set Body = IE.document.Body
Set MyElement = IE.document.getElementById("MyTimeLable")
If TypeName(MyElement) <> "Nothing" Then
MyElement.innerHTML = "<span id=" & Chr(34) & "MyTimeLable" & Chr(34) & ">当前时间:" & Time() & "</span>"
ElseIf TypeName(Body) <> "Nothing" Then
Body.innerHTML = "<span id=" & Chr(34) & "MyTimeLable" & Chr(34) & ">当前时间:" & Time() & "</span></p>" & Body.innerHTML
End If
Err.Clear
End Sub
窗口模块:Form1.frm
Option Explicit

Dim WithEvents Shl As ShellWindows
Dim IEMonitor() As clsIE
Dim IE_Count As Integer

Private Sub Form_Load()
Dim i As Integer

ReDim IEMonitor(0)
Set Shl = New ShellWindows
IE_Count = 0

For i = 0 To Shl.Count - 1
If TypeName(Shl.Item(i)) = "IWebBrowser2" Then
ReDim Preserve IEMonitor(IE_Count)
Set IEMonitor(IE_Count) = New clsIE
Set IEMonitor(IE_Count).IE = Shl.Item(i)
IEMonitor(IE_Count).lCookie = i
IE_Count = IE_Count + 1
End If
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 0 To IE_Count - 1
Set IEMonitor(i) = Nothing
Next
Set Shl = Nothing
End Sub

Private Sub Shl_WindowRegistered(ByVal lCookie As Long)
If TypeName(Shl.Item(Shl.Count - 1)) = "IWebBrowser2" Then
ReDim Preserve IEMonitor(IE_Count)
Set IEMonitor(IE_Count) = New clsIE
Set IEMonitor(IE_Count).IE = Shl.Item(Shl.Count - 1)
IEMonitor(IE_Count).lCookie = lCookie
IE_Count = IE_Count + 1
End If
End Sub

Private Sub Shl_WindowRevoked(ByVal lCookie As Long)
Dim i As Integer, j As Integer
For i = 0 To IE_Count - 1
If lCookie = IEMonitor(i).lCookie Then
For j = i + 1 To IE_Count - 1
Set IEMonitor(j - 1) = IEMonitor(j)
Next
IE_Count = IE_Count - 1
Set IEMonitor(IE_Count) = Nothing
ReDim Preserve IEMonitor(IE_Count)
End If
Next
End Sub
yinweihong 2008-05-08
  • 打赏
  • 举报
回复
哎,又是一个机器人~!!!!
yelang771 2008-05-08
  • 打赏
  • 举报
回复
不要验证的,我可以自己先登陆进来,在自动发送.

说给我听听

表说很简单,我搞不定~
  • 打赏
  • 举报
回复
关键是你要自动发帖子么?现在很多论坛都有验证功能了。所以分析验证图片很麻烦。如果不用验证功能。用很多控件都能实现。
lyserver 2008-05-08
  • 打赏
  • 举报
回复
截获浏览器,很简单.
forbearORfolie 2008-05-08
  • 打赏
  • 举报
回复
jf
yelang771 2008-05-08
  • 打赏
  • 举报
回复
在顶一次~~
yelang771 2008-05-07
  • 打赏
  • 举报
回复
弄不好,在顶上来~
meiZiNick 2008-05-01
  • 打赏
  • 举报
回复
lz要干嘛?
knowledge_Is_Life 2008-05-01
  • 打赏
  • 举报
回复
有点难度哦
UltraBejing 2008-04-30
  • 打赏
  • 举报
回复
我也想知道,正在找這方面的資料~~~~~
yelang771 2008-04-10
  • 打赏
  • 举报
回复
谢谢楼上的 回家研究~~
CathySun118 2008-04-10
  • 打赏
  • 举报
回复
http://www.cnblogs.com/wddavid/archive/2005/06/19/176978.html
迈克揉索芙特 2008-04-10
  • 打赏
  • 举报
回复
POST 数据包
  • 打赏
  • 举报
回复
用IWebBrowser2
◆ 01.htm 1、怎么用mscomm控件检测modem是否与计算机联接正确?2、如何用mscomm挂断modem与别的电话机间的连接?(已接通) ◆ 02.htm CWinInetConnection---一个封装了WinInet API函数的类 ◆ 03.htm MODEM通讯意外处理 ◆ 04.htm MsComm 文字传输 ◆ 05.htm PING一个IP地址(向它发送一个数据包并等待回应) ◆ 06.htm SMTP协议简介 (Simple Mail Transfer Protocol) ◆ 07.htm VB5.0 中远程数据库的访问 ◆ 08.htm VB下如何编写CRC校验程序 ◆ 09.htm VB中Winsock控制的UDP协议的使用 ◆ 10.htm Visual Basic 6中发送邮件的新方法 ◆ 11.htm Visual Basic通信程序设计 ◆ 12.htm Whois 示例程序 ◆ 13.htm Winsock Terminal示例程序 ◆ 14.htm WinSock断开导致客户端问题 ◆ 15.htm 把Outlook信箱中的附件另存为 ◆ 16.htm 保证连网计算机时间同步 ◆ 17.htm 编写网络寻呼机 ◆ 18.htm 编制自已的电话录音小程序 ◆ 19.htm 程序中如何启动默认的拨号连接 ◆ 20.htm 程序中如何启动默认的拨号连接? ◆ 21.htm 打开器并进入指定网址 ◆ 22.htm 打开一个直接到自己主页的器 ◆ 23.htm 得到用户的IP地址 ◆ 24.htm 电话拨号 ◆ 25.htm 电子邮件的标准格式 (RFC 822) ◆ 26.htm 断开拨号网络的连接 ◆ 27.htm 断开与 Internet 的连接 ◆ 28.htm 发送电子邮件附件 ◆ 29.htm 发送电子邮件附件1 ◆ 30.htm 发送电子邮件附件2 ◆ 31.htm 发送电子邮件附件3 ◆ 32.htm 发送电子邮件附件4 ◆ 33.htm 获得用户网络登录名 ◆ 34.htm 基 于Win95 的VB5 串 口 通 信 程 序 ◆ 35.htm 基于Win95的VB5串口通信程序 ◆ 36.htm 几个设置IE的API ◆ 37.htm 检测运程数据传送的断线 ◆ 38.htm 简单的聊天程序 ◆ 39.htm 简单电子邮件发送程序 ◆ 40.htm 建立拨号联接 ◆ 41.htm 将所有窗口最小化 ◆ 42.htm 利用IE控件访问Internet ◆ 43.htm 利用IE控件设计简易器 ◆ 44.htm 利用Mscomm32控件判断MODEM是否打开,或者正在工作,并且判断拨号时是否遇忙音 ◆ 45.htm 利用TAPI进行电话拨号 ◆ 46.htm 利用VB访问Internet ◆ 47.htm 利用VB设计聊天室 ◆ 48.htm 利用Visual Basic实现无线通讯 ◆ 49.htm 利用Winsock控件实现局域网通信 ◆ 50.htm 强制一个本地或远程NT系统关闭 ◆ 51.htm 取得网卡序列号 ◆ 52.htm 如何从 Internet 上取回某一个网页的內容? ◆ 53.htm 如何检测是否已连接到Internet? ◆ 54.htm 如何利用Winsock控件编写自己的Internet程序 ◆ 55.htm 如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸? ◆ 56.htm 如何启动拨号网路中的连线? ◆ 57.htm 如何使用MSCOMM32.OCX发送大于80H的字符,可否给个示例程序 ◆ 58.htm 如何通过VB获取网卡地址 ◆ 59.htm 如何用VB打开默认器或默认发信程序? ◆ 60.htm 如何用Visual Basic编写小型的网络系统 ◆ 61.htm 如何在程序中启动 NT 的【拨号连接】对话框 ◆ 62.htm 如何在程序中启动 NT 的【拨号连接】对话框? ◆ 63.htm 如何在网页上使用 VB5 制作的 ActiveX 控件? ◆ 64.htm 如何中断【拨号网络连接】 ◆ 65.htm 设计Browser及FTP程序 ◆ 66.htm 设计Chat程序 ◆ 67.htm 设计E-mail程序 ◆ 68.htm 设置计算机名称 ◆ 69.htm 使用VB获得一页的HTML代码 ◆ 70.htm 使用VB收发电子邮件 ◆ 71.htm 使用标签控件调出器 ◆ 72.htm 使用超链接和发送Email ◆ 73.htm 使用器的文件复制对话框 ◆ 74.htm 输入/输出篇 ◆ 75.htm 通过WnetEnumResource函数获得网络资源 ◆ 76.htm 通往 Internet 的捷径 ◆ 77.htm 显示计算机的名称 ◆ 78.htm 用 MAPI 控件实现发送邮件 ◆ 79.htm 用 WinSock 控件下载文件 ◆ 80.htm 用 Winsock 实现聊天的程序 ◆ 81.htm 用Internet Transfer编写FTP程序 ◆ 82.htm 用Sockets发送电子邮件 ◆ 83.htm 用VB 创 建 自 己 的 通 信 程 序 ◆ 84.htm 用VB5.0开发通信软件的技巧 ◆ 85.htm 用VB5开发IE ◆ 86.htm 用VB编写网络寻呼 ◆ 87.htm 用VB编写小型的网络系统 ◆ 88.htm 用VB创建自己的通信程序 ◆ 89.htm 用VB构建Internet的应用[微软提供] ◆ 90.htm 用VB开发标准CGI程序 ◆ 91.htm 用VB实现客户——服务器(TCP IP)编程实例 ◆ 92.htm 用VB实现客户服务器(TCP、IP)编程实例 ◆ 93.htm 用VB实现聊天讨论室和点对点会话 ◆ 94.htm 用VB写一个定时PING某IP的程序 ◆ 95.htm 用VB制作器 ◆ 96.htm 用Visual Basic 5.0设计E-mail程序(MAPI) ◆ 97.htm 用Visual Basic6.0编写客户服务器程序 ◆ 98.htm 用Visual Basic创建FTP组件 ◆ 99.htm 用Visual Basic开发数据库器 ◆ 100.htm 用Visual Basic轻松地设计Browser及Ftp程序 ◆ 101.htm 用Winsock控件发信Email ◆ 102.htm 用Winsock控件实现文件的下载 ◆ 103.htm 用Winsock实现点对点通信 ◆ 104.htm 邮件检查程序(二) ◆ 105.htm 邮件检查程序(一) ◆ 106.htm 在VB程序中怎样挂断拨号网络 ◆ 107.htm 在VB中操纵OLE服务器应用程序 ◆ 108.htm 在VB中利用UDP协议编写聊天程序 ◆ 109.htm 在VB中模拟实现邮件传输 ◆ 110.htm 在VB中如何得到网络中某一台电脑(电脑名)的网卡地质? (自己的) ◆ 111.htm 在VB实现文件上传 ◆ 112.htm 在VB实现文件上载 ◆ 113.htm 在VB中使用UDP协议 ◆ 114.htm 在VB中用Outlook发电子邮件 ◆ 115.htm 在WindowsNT网络中广播消息 ◆ 116.htm 在程序中打开 Internet 拨号连接窗口 ◆ 117.htm 在一个单位内部或通过广域协议(如X.25)互联的行业内部都有几十或上万台计算机互联,用Intranet虽然可以建立聊天室,但实现点对点实时对话却比较困难。本人用Winsock和VB自制了一套聊天室和对话系统,特拿来供同行们参考。 ◆ 118.htm 在应用中集成器 ◆ 119.htm 在桌面上建立一个 Internet 快捷键 ◆ 120.htm 怎样接收电子邮件(POP3协议简介) ◆ 121.htm 怎样用VB得知系统当前是否处于internet链结状态 ◆ 122.htm 制作自己的网络搜索软件 ◆ 123.htm 自动更新工作站的应用程序 ◆ 124.htm 自己的IE——用VB制作器 ◆ 125.htm HTTP协议(学习笔记) ◆ 126.htm HTTP协议四--关于Chunked编码 ◆ 127.htm IE器完全控制 ◆ 128.htm OICQ服务器系统通讯协议 ◆ 129.htm POP3协议的基本命令 ◆ 130.htm RAS API上的其他Function ◆ 131.htm VB + API 获取 IE 的 “代理服务器” 配制 ◆ 132.htm vb调用winInet API接口post数据到指定的url ◆ 133.htm vb开发通信软件 ◆ 134.htm vb设计数据库电子邮件程序(1) ◆ 135.htm vb设计数据库电子邮件程序(2) ◆ 136.htm vb设计数据库电子邮件程序(3) ◆ 137.htm vb设计数据库电子邮件程序(4) ◆ 138.htm vb设计数据库电子邮件程序(5) ◆ 139.htm vb设计数据库电子邮件程序(6) ◆ 140.htm VB实现应用程序在局域网上自动更新 ◆ 141.htm VB邮件检查程序 ◆ 142.htm vb中从域名得到IP及从IP得到域名 ◆ 143.htm VB中检测是否连网 ◆ 144.htm WebClass实现动态WEB编程之理论篇 ◆ 145.htm Winsocket网络编程谈 ◆ 146.htm Winsock编程框架 ◆ 147.htm Winsock错误代码一览表 ◆ 148.htm 程式自动呼叫拨号网络(RAS API) ◆ 149.htm 打开一个超连接 ◆ 150.htm 得到登入windows 的人的id ◆ 151.htm 访问Internet并调用Explorer ◆ 152.htm 非同步文件下载类 ◆ 153.htm 给Outlook的所有用户发送信件 ◆ 154.htm 获得网卡的MAC地址 ◆ 155.htm 基于WinSock的小型网络管理系统及其实现 ◆ 156.htm 检测是否连接到Internet ◆ 157.htm 检测网络是否连通 ◆ 158.htm 建立Web的超链接树形图 ◆ 159.htm 建立你自己的器-Properties ◆ 160.htm 建立你自己的器-查看源文件 ◆ 161.htm 建立你自己的器-打印 ◆ 162.htm 建立你自己的器-打印设置 ◆ 163.htm 建立你自己的器-发送到FontPage ◆ 164.htm 建立你自己的器-发送到Visual Interdev ◆ 165.htm 建立你自己的器-发送到软盘 ◆ 166.htm 建立你自己的器-复制 ◆ 167.htm 建立你自己的器-另存为 ◆ 168.htm 建立你自己的器-全选 ◆ 169.htm 建立你自己的器-页面设置 ◆ 170.htm 开发通信软件的技术与技巧 ◆ 171.htm 开发网络应用的5个技巧 ◆ 172.htm 利用RAS调用在VB6.0中实现拨号上网 ◆ 173.htm 利用VB提取HTML文件中的EMAIL地址 ◆ 174.htm 枚举出局域网上所有网络资源 ◆ 175.htm 面向Internet的开发工具 ◆ 176.htm 你也可以YAI--VB5中Winsock控件的使用 ◆ 177.htm 判断一个文件是否在IE的缓存中 ◆ 178.htm 启动拨号网络中的连接 ◆ 179.htm 浅谈HTTP协议(二)--返回值 ◆ 180.htm 浅谈HTTP协议(一)--结构 ◆ 181.htm 如何利用 WebBrowser 控件显示 .GIF 动画? ◆ 182.htm 如何映射(中断网络磁盘) ◆ 183.htm 设计E-mail的接收部分 ◆ 184.htm 设置器默认网址 ◆ 185.htm 实现端口对端口的聊天 ◆ 186.htm 使用ASP建立Http组件 ◆ 187.htm 使用VB编写纯ASP程序 ◆ 188.htm 使用vb获取网上邻居里的计算机名 ◆ 189.htm 使用VB建立Web Server ◆ 190.htm 使用Visual Basic开发通讯软件 ◆ 191.htm 使用资源工具包执行本地和远程重新启动 ◆ 192.htm 谈谈远程控制中关于搜索、控制计算机的功能 ◆ 193.htm 压缩 Html ◆ 194.htm 用ASP、VB和XML建立互联网应用程序(1) ◆ 195.htm 用ASP、VB和XML建立互联网应用程序(2) ◆ 196.htm 用ASP、VB和XML建立互联网应用程序(3) ◆ 197.htm 用ASP、VB和XML建立互联网应用程序(4) ◆ 198.htm 用COMMUNICATION控件进行数据采集(学习笔记) ◆ 199.htm 用OLE自动化Outlook ◆ 200.htm ActiveX控件用于DHTML开发 ◆ 201.htm 用VB编写ActiveX DLL实现ASP编程 ◆ 202.htm 用VB编写Windows CGI应用程序 ◆ 203.htm 用VB编写标准CGI程序(上) ◆ 204.htm 用VB编写标准CGI程序(下) ◆ 205.htm 用VB编写收发电子邮件程序 ◆ 206.htm 用VB编写网络监控软件 ◆ 207.htm 用VB编写异步多线程下载程序 ◆ 208.htm 用VB导入导出IE器收藏夹 ◆ 209.htm 用VB定制合路器 ◆ 210.htm 用VB和XML建立集中式应用程序 ◆ 211.htm 用VB将Html转换为文本文件 ◆ 212.htm 用VB开发分布式应用 ◆ 213.htm 用VB设计基于代理服务器的网络计费系统 ◆ 214.htm 用VB制作文件下载程序 ◆ 215.htm 用Visual Basic 实现无线通讯 ◆ 216.htm 用Winsock制作一套聊天室和对话系统 ◆ 217.htm 远程共享显示及声音的实现 ◆ 218.htm 远程启动机器ABC API解决方案 ◆ 219.htm 远程启动机器ABC WMI解决方案 ◆ 220.htm 在VB5中利用Winsock和msDNS控件进行 ◆ 221.htm 找出计算机上当前登录入网的用户 ◆ 222.htm 用VB5 Winsock控件创建TCP(IP)客户机 服务器程序

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧