论坛 › 『 提问交流 』 › 实现网站标题检测

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
                        If $Winname[$i] <> "" And IsVisible($Winname[$i]) Then
                                WinActivate ($Winname[$i])
                                Sleep (1000)
                                $Titl = WinGetTitle ("")
                                If StringInStr ( $Titl, $uTitl) Then
                                        MsgBox (0,"",$Titl)
                                        ExitLoop
                                ElseIf $i = $Winname 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
                        If $Winname[$i] <> "" And IsVisible($Winname[$i]) Then
                              WinActivate ($Winname[$i])
                              Sleep (1000)
                              $Titl = WinGetTitle ("")
                              If StringInStr ( $Titl, $uTitl) Then
                                        MsgBox (0,"包含" &$uTitl & "完整的标题信息",$Titl)
                                        ExitLoop
                              ElseIf $i = $Winname 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

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

查看完整版本: 实现网站标题检测