3000 的需要“标 ...
afan 发表于 2012-3-20 00:38 http://www.autoitx.com/images/common/back.gif
"后宫"...."不走寻常道的佳丽"
嗯, 我已经百分百的肯定 A大 贪快手误打了好多个错字....
嗯, 一定是, 肯定是, 绝对是! 回复 15# kxing
今天研究了一天{:face (270):}
获取文件夹是没问题的,在地址栏编辑也没事.
就是有些,比如本地磁盘,我的文档...那些不能获取.
HotKeySet('{ESC}', 'ex')
AdlibRegister('_GetRmCurrentOpenedAddress')
While 1
Sleep(100)
WEnd
Func _GetRmCurrentOpenedAddress()
Local $IE, $CabinetWClass = ''
Local $Shell = ObjCreate("Shell.Application")
Local $CabinetWClass, $error, $win, $LocationURL
If WinGetState($CabinetWClass) = 15 Then
For $IE In $Shell.Windows()
ConsoleWrite($IE.LocationURL & @CRLF)
If StringInStr($IE.LocationURL, 'file:///') Then
$LocationURL = StringRegExpReplace($IE.LocationURL, 'file:///([^\r\n]+)', '\1')
$win = StringReplace(StringReplace($LocationURL, '%20', ' '), '/', '\')
If WinActive(StringRegExpReplace($win, '.+\\([^\r\n]+)', '\1')) Then
ToolTip($win)
ExitLoop
EndIf
EndIf
Sleep(10)
Next
Else
ToolTip('')
EndIf
EndFunc ;==>_GetRmCurrentOpenedAddress
Func ex()
Exit
EndFunc ;==>ex 你们竟然无视我的回复,明显我给了正确答案 你们竟然无视我的回复,明显我给了正确答案
flyflykao 发表于 2012-3-21 18:52 http://www.autoitx.com/images/common/back.gif
你那是脚本当前的工作目录… 并非任意打开的一个文件夹,看清楼主的意思~ _winapi_getprocesscommandline应该可以吧 路过 ,帮顶
路过 ,帮顶
路过 ,帮顶 回复 19# flyflykao
你那个答案明显错了,要的不是工作目录 回复 18# lixiaolong
不错!顶了! 本帖最后由 lixiaolong 于 2012-3-25 12:23 编辑
回复 24# 星雨朝霞
刚刚发现,我那个脚本如果窗口最大化就获取不了.
知道了原因~ 如果你的脚本是在当前目录的就@ScriptDir 回复 26# xz00311
看清楚,楼主不是问那么菜的问题!{:face (303):}
页:
1
[2]