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

轻风

你怎么把用户名密码都透露出来了

roych

bjcompass 发表于 2012-7-25 12:41
呵，真不好意思，又来求教：
我刚才试了一次我的命令按钮代码：
Private Sub Command1_Click()  '查询短信 ...

会不会是asp.net语句没写好啊{:soso_e112:}

你给的网址在搜狗浏览器里也只是显示“2”（看来有点2噢，嘻嘻）：


这是论坛搜索帖子的网址显示内容：

zhuyiwen

我刚看了一下，它的短信接口说明 http://ipyy.net/http.asp，建议你使用 XMLHTTP 来获取数据比用浏览器方便，并且更加轻巧。

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怎样做我还真不懂，请教。

叶海峰

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

gxy1000

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

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 控件效率就得多。

叶海峰

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

bjcompass

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

zhuyiwen

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

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