可否把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窗口内接收到的短信自动保存到表里或文本文档？
谢谢！

叶海峰

zhuyiwen 发表于 2012-7-27 22:53
这个是不行的，呵呵，xmlhttp 它不是浏览器对象，因此，也就不存在执行网页上的动作。

难怪我找来找去xmlthhp对象,都没找到类似click,submit的方法.谢谢朱老师的指点了.

roych

zhuyiwen 发表于 2012-7-27 22:53
这个是不行的，呵呵，xmlhttp 它不是浏览器对象，因此，也就不存在执行网页上的动作。

以前在EH里见过一个例子，用XMLHTTP来做一个Excel版飞信例子（实现了添加好友、发送短信等等基本功能），好像是用Post来进行数据提交的噢。

zhuyiwen

叶海峰 发表于 2012-7-27 16:20
朱老师,请问如何用XMLHTTP对象来对网页上的一个按钮进行点击,例如提交按钮,下一页按钮等等.

这个是不行的，呵呵，xmlhttp 它不是浏览器对象，因此，也就不存在执行网页上的动作。

bjcompass

感谢管理员老师提供的代码，虽然我还不太懂，收藏了，慢慢研究。

叶海峰

朱老师,请问如何用XMLHTTP对象来对网页上的一个按钮进行点击,例如提交按钮,下一页按钮等等.

zhuyiwen

bjcompass 发表于 2012-7-26 20:57
zhuyiwen老师所说的XMLHTTP怎样做我还真不懂，请教。

要使用 XMLHTTP 对象，首先必须引用 Microsoft XML 3.0 或更高版本的组件，如图：


下面是一个示例 VBA 函数

1. Public Function getResponse(ByVal url As String) As String
   
2.     Dim oXMLHTTP As New MSXML2.XMLHTTP
   
3.    
   
4.     With oXMLHTTP
   
5.         .Open "GET", url, False
   
6.         .send
   
7.         If .readyState = 4 Then
   
8.             If .Status = 200 Then
   
9.                 getResponse = .responseText
   
10.             End If
    
11.         End If
    
12.     End With
    
13.    
    
14.     Set oXMLHTTP = Nothing
    
15. End Function

复制代码

在立即窗口下的测试：

1. ?getResponse("http://ipyy.net/WS/SelSum.aspx?CorpID=D0030&Pwd=123456")
   
2. 10

复制代码

在你的应用中，使用 XMLHTTP 对象要比WebBrowse 控件效率就得多。

gxy1000

好东西！{:soso_e179:}学习学习

叶海峰

Me.Text1 = Me.W1.Document.body.innertext
改成用
Me.Text1 = Me.W1.Document.body.innerhtml,返回html的源代码文本,看能不能找到截取的方法.

bjcompass

不是2 ，是那个测试账号只剩2条短信余额。
荣幸，一个帖子这么多大侠关注。
我把代码改成这样了：
Private Sub Command1_Click()
Me.Text1 = Me.W1.Document.body.innertext
End Sub

Private Sub Form_Load()
Me.W1.Navigate "http://inolink.com/ws/Get.aspx?CorpID=******&Pwd=******"
End Sub
现在的情况，窗体加载后在窗体中的Microsoft Web Browser控件W1中接收到不确定数量的回复短信，每条短信都是括号中的格式 （ ||回复手机号码#回复内容#回复的时间# ）  每条短信之间不分行且没有间隔。按下命令按钮后这些短信显示到text1中，仍然不分行，难以阅读。
      请问各位老师：可否用每条短信前的“||”做分隔标志，把每条短信单独一行显示到文本框中或其它控件中。
     zhuyiwen老师所说的XMLHTTP怎样做我还真不懂，请教。