实现网站标题检测

airen007 · 发表于 2012-10-16 01:01:04

本帖最后由 airen007 于 2012-10-16 19:54 编辑

老鸟们，如果我需要监控一个网页标题内容，当标题出现要监控的内容时执行某一程序该怎么写？最好能使用配置文件。注：是一直监视某个网站，如网站出现敏感字符就执行某一程序。

nmgwddj · 发表于 2012-10-16 03:28:49

Neuis · 发表于 2012-10-16 08:33:41

$Winname = WinList ("")/IE 类名
While 1
$uTitl = InputBox ("a","b")
If @error = 1 Then
Exit
Else
For $i = 1 To $Winname[0][0]
If $Winname[$i][0] <> "" And IsVisible($Winname[$i][1]) Then
WinActivate ($Winname[$i][0])
Sleep (1000)
$Titl = WinGetTitle ("[Active]")
If StringInStr ( $Titl, $uTitl) Then
MsgBox (0,"",$Titl)
ExitLoop
ElseIf $i = $Winname[0][0] Then
MsgBox (0,"","fail")
ExitLoop
EndIf
EndIf
Next
EndIf
WEnd

Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf

EndFunc ;==>刚解决了一个和你差不多的问题。给代码你参考一下，难得再改。

airen007 · 发表于 2012-10-16 08:43:56

回复 3# Neuis

有详细注释吗？请指教。

楼上风云 · 发表于 2012-10-16 13:26:30

回复 4# airen007
;对二楼的脚本，稍作改动，你就明白他的思路了：

$Winname = WinList ("");IE 类名
While 1
      $uTitl = InputBox ("请输入搜索关键词","标题中出现的完整或部分文字")
      If @error = 1 Then
            Exit
      Else
            For $i = 1 To $Winname[0][0]
                     If $Winname[$i][0] <> "" And IsVisible($Winname[$i][1]) Then
                              WinActivate ($Winname[$i][0])
                              Sleep (1000)
                              $Titl = WinGetTitle ("[Active]")
                              If StringInStr ( $Titl, $uTitl) Then
                                    MsgBox (0,"包含" &$uTitl & "  完整的标题信息",$Titl)
                                    ExitLoop
                              ElseIf $i = $Winname[0][0] Then
                                    MsgBox (0,"抱歉",$uTitl & "  没有找到，操作失败")
                                    ExitLoop
                              EndIf
                     EndIf
            Next
      EndIf
WEnd

Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
      Return 1
Else
      Return 0
EndIf
EndFunc ;==>

airen007 · 发表于 2012-10-16 14:18:29

回复 5# 楼上风云

谢谢

veket_linux · 发表于 2012-10-16 18:02:30

搜索

如何监控计算机打开的IE标题

airen007 · 发表于 2012-10-16 22:28:01

继续等，一直等到最好的答案。

Neuis · 发表于 2012-10-17 14:28:30

我给出的方式是一种思路，你可以跟着这个思路去写出你要的。不要等人完全帮你解决。

		自动登录	找回密码
密码			加入

[网络通信] 实现网站标题检测

相关帖子

本帖子中包含更多资源