可否把IE窗口内接收的短信自动保存？

bjcompass

       某数据库嵌入了发送手机短信的http接口，在其中一个窗体的text2中填写用户短信帐号、text4中填写帐号密码，然后用命令按钮代码调用IE
Private Sub Command104_Click() '接收回复短信
Set ws = CreateObject("wscript.shell")
    ws.Run "iexplore.exe http://ipyy.net/ws/Get.aspx?CorpID=" & Me.Text2 & "&Pwd=" & Me.Text4 & ""   
End Sub
在打开的IE窗口内就可以显示出接收到的1条或多条回复短信，每条短信的格式都是：
||回复的手机号码#回复的内容#回复的日期时间#
        
       请问各位老师：可否建立一个表或者文本文件把IE窗口内接收到的短信自动保存到表里或文本文档？
谢谢！

yehf

todaynew

yehf 发表于 2012-7-24 08:40

有点意思。

叶海峰

{:soso_e113:}

jinzhanxi

yehf 发表于 2012-7-24 08:40

相当犀利，真的受教了！

bjcompass

感谢网友yehf的帮助，例子收藏了，将来一定有用。
我试了一下，我这个网址：http://ipyy.net/ws/Get.aspx?CorpID=" & Me.Text2 & "&Pwd=" & Me.Text4 & " 移植到您的例子里，就打不开页面了。可能您的例子只能打开以 .html结尾的网址页面。
      我希望的是把收到的短信有格式的保存在表或者文本文档里，比如每一行一条短信。

叶海峰

打不开你的网址,可能跟跟浏览器的设置有关,不存在只能打开html的网址.只要能浏览到页面,就能把浏览器解析到的内容返回文本,根据文本在进行截取就是了

bjcompass

呵，真不好意思，又来求教：
我刚才试了一次我的命令按钮代码：
Private Sub Command1_Click()  '查询短信余额
Set ws = CreateObject("wscript.shell")
ws.Run "iexplore.exe http://ipyy.net/WS/SelSum.aspx?CorpID=D0030&Pwd=123456"
End Sub
（注：访问的是嵌入的一个短信平台查询余额的接口程序，D0030和123456  分别是用户帐号和密码。返回余额短信数2）

我查看这个返回窗口的源文件发现根本就没有源代码，只有一个数字2，我想接收短信的窗口也一定如此。请问老师们怎样把这样的窗体内容自动保存为一个文档？

叶海峰

Me.W1.Document.body.innertext就是返回浏览器解析到的文本内容,你爱怎么处理就怎么处理.

todaynew

叶海峰 发表于 2012-7-25 13:55
Me.W1.Document.body.innertext就是返回浏览器解析到的文本内容,你爱怎么处理就怎么处理.

是否能考虑单开一贴，并做一个比较完整的示例进行说明。谢谢。