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

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

本帖最后由 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类操作] 请问如何提取ie地址栏里的网址域名？[已解决]

相关帖子