论坛 › 已解决问题区 › 请问如何提取ie地址栏里的网址域名？[已解决]

mtvtop 发表于 2011-11-29 16:36:06

请问如何提取ie地址栏里的网址域名？[已解决]

本帖最后由 mtvtop 于 2011-12-3 00:26 编辑

我ie地址访问的是：http://news.qq.com/a/20111129/000164.htm
请问要如何写au3，程序只有检测域名是qq.com的才可以运行？        $oShell=ObjCreate("shell.application")

        For $oWin In $oShell.windows

      If ObjName($oWin.document)=="DispHTMLDocument" Then
                If $oWin.locationurl<>"http://www.qq.com/" Then

MsgBox(64,"1","ok")



                        EndIf
                               
                EndIf
               

        Next

afan 发表于 2011-11-29 17:01:40

If StringRegExp($oWin.locationurl, '(?i)\/\/[^/]*?qq\.com\/') Then

afan 发表于 2011-11-29 17:20:30

本帖最后由 afan 于 2011-11-29 17:43 编辑

Local $sDomainName = 'QQ.com'
Local $oShell = ObjCreate("shell.application"), $oWin
For $oWin In $oShell.windows
        If ObjName($oWin.document) = 'DispHTMLDocument' Then
                Local $Str = $oWin.locationurl
                If StringRegExp($Str, '(?i)\/\/[^/]*?\Q' & $sDomainName & '/\E') Then
                        MsgBox(64, 'ok', $Str)
                Else
                        MsgBox(0, '2域名：' & StringRegExpReplace($Str, '.*?\/\/[^/]*?([^/.]+?\.[^/.]+?)\/.*', '$1'), $Str)
                EndIf
        EndIf
Next

dodolovely 发表于 2011-11-29 21:52:53

楼上的代码写的比较规整

mtvtop 发表于 2011-11-29 22:20:29

回复 3# afan

实在感谢

查看完整版本: 请问如何提取ie地址栏里的网址域名？[已解决]