【已解决】能不能用bat复制百分浏览器地址栏的地址？谢谢

yyz219

回复 15# aloha20200628


    没有复制  谢谢

aloha20200628

回复 16# yyz219

正常的运行步骤如下（确保运行批处脚本之前，百分浏览器窗口未被最小化）
一。先自动将当前正在浏览的网页窗口置顶
二。再将被置顶的网页地址栏高显（或加亮）
三。最后会在cmd窗口命令行显示被抓取的网页地址
楼主可确认是在哪一步出错？或出现什么相应结果？

yyz219

可能窗口置顶，我再试一试 谢谢

aloha20200628

回复 16# yyz219

又复查了一遍百分浏览器内置的快捷键列表，竟然发现其中有 '一键（alt+c）复制地址栏数据到剪贴板' 的功能，据此可将15楼代码针对百分浏览器定制化，如下

1. 
   
2. 2>1/* ::
   
3. @echo off &for /f "tokens=2 delims= " %%p in ('tasklist /v /fi "imagename eq chrome.exe"^|more +3') do for /f "delims=" %%v in ('cscript /nologo /e:jscript "%~f0" %%p') do (echo,%%v&pause&exit/b)
   
4. exit/b */
   
5. v=WSH.arguments, ws=WSH.createobject('wscript.shell'), ws.appactivate(v(0));
   
6. WSH.sleep(500), ws.sendkeys('%c'), WSH.sleep(300);
   
7. hf=WSH.createobject('htmlfile'), url=hf.parentWindow.clipboardData.getData('text');
   
8. WSH.echo(url), WSH.quit();
   

复制代码

运行以上代码之前要确保百分浏览器窗口未被最小化！若还有问题，请按17楼中所述第一和第三步骤两项检查回复...

Five66

改了下2楼链接里的AHK代码
注意: 浏览器显示语言需要为简中 ,因为使用的是类名Chrome_WidgetWin_1 ,vsc或edge之类的也有这个类名 ,结果可能不准确

1. 
   
2. setbatchlines -1
   
3. navName := "地址和搜索栏"
   
4. ;navName := "Address and search bar";english ver navName
   
5. IUIAutomation := ComObjCreate(CLSID_CUIAutomation := "{ff48dba4-60ef-4201-aa87-54103eef594e}", IID_IUIAutomation := "{30cbe57d-d9d0-452a-ab13-7ac5ac4825ee}")
   
6. DllCall(NumGet(NumGet(IUIAutomation+0)+6*A_PtrSize), "ptr", IUIAutomation, "ptr", WinExist("ahk_class Chrome_WidgetWin_1"), "ptr*", ElementFromHandle)   ; IUIAutomation::ElementFromHandle
   
7. AddressBarName := DllCall("oleaut32\SysAllocString", "str", navName, "ptr")
   
8. VarSetCapacity(variant, 8+A_PtrSize*2, 0)
   
9. NumPut(VT_BSTR := 8, variant, 0, "ushort")
   
10. NumPut(AddressBarName, variant, 8, "ptr")
    
11. if (A_PtrSize = 4)
    
12.    DllCall(NumGet(NumGet(IUIAutomation+0)+23*A_PtrSize), "ptr", IUIAutomation, "int", UIA_NamePropertyId := 30005, "int64", NumGet(variant, 0, "int64"), "int64", NumGet(variant, 8, "int64"), "ptr*", condition1)   ; IUIAutomation::CreatePropertyCondition
    
13. else
    
14.    DllCall(NumGet(NumGet(IUIAutomation+0)+23*A_PtrSize), "ptr", IUIAutomation, "int", UIA_NamePropertyId := 30005, "ptr", &variant, "ptr*", condition1)   ; IUIAutomation::CreatePropertyCondition
    
15. VarSetCapacity(variant, 8+A_PtrSize*2, 0)
    
16. NumPut(VT_I4 := 3, variant, 0, "ushort")
    
17. NumPut(UIA_EditControlTypeId := 50004, variant, 8, "int")
    
18. if (A_PtrSize = 4)
    
19.    DllCall(NumGet(NumGet(IUIAutomation+0)+23*A_PtrSize), "ptr", IUIAutomation, "int", UIA_ControlTypePropertyId := 30003, "int64", NumGet(variant, 0, "int64"), "int64", NumGet(variant, 8, "int64"), "ptr*", condition2)   ; IUIAutomation::CreatePropertyCondition
    
20. else
    
21.    DllCall(NumGet(NumGet(IUIAutomation+0)+23*A_PtrSize), "ptr", IUIAutomation, "int", UIA_ControlTypePropertyId := 30003, "ptr", &variant, "ptr*", condition2)   ; IUIAutomation::CreatePropertyCondition
    
22. DllCall(NumGet(NumGet(IUIAutomation+0)+25*A_PtrSize), "ptr", IUIAutomation, "ptr", condition1, "ptr", condition2, "ptr*", conditions)   ; IUIAutomation::CreateAndCondition
    
23. DllCall(NumGet(NumGet(ElementFromHandle+0)+5*A_PtrSize), "ptr", ElementFromHandle, "int", TreeScope_Descendants := 0x4, "ptr", conditions, "ptr*", element) ; IUIAutomationElement::FindFirst
    
24. VarSetCapacity(variant, 8+A_PtrSize*2, 0)
    
25. DllCall(NumGet(NumGet(element+0)+10*A_PtrSize), "ptr", element, "int", UIA_ValueValuePropertyId := 30045, "ptr", &variant)   ; IUIAutomationElement::GetCurrentPropertyValue
    
26. ObjRelease(element)
    
27. ObjRelease(conditions)
    
28. ObjRelease(condition1)
    
29. ObjRelease(condition2)
    
30. ObjRelease(ElementFromHandle)
    
31. clipboard := StrGet(NumGet(variant, 8, "ptr"), "utf-16")
    
32. DllCall("oleaut32\SysFreeString", "ptr", AddressBarName)
    
33. return
    

复制代码

yyz219

回复 19# aloha20200628


    没有解决 谢谢

yyz219

回复 20# Five66


    我试一试先  谢谢

yyz219

回复 20# Five66


    提示错误

aloha20200628

回复 21# yyz219

楼主可简单做一个测试》在百分浏览器中用 alt+c 组合键是否能复制当前网页的网址到剪贴板？
运行19楼代码后，百分浏览器中的当前网页是否会被自动置顶？当然前提是运行代码之前百分浏览器不能被最小化！

yyz219

回复 24# aloha20200628


    用 alt+c 组合键 不能 复制当前网页的网址到剪贴板

aloha20200628

回复 25# yyz219

进入百分浏览器》设置》快捷键》右侧窗口中应该可以查看到 “复制地址栏网址到剪贴板 - Alt+C” 选项...
是否在 “快捷键” 选项中没有开启 “启用快捷键” ？

yyz219

回复 26# aloha20200628


    非常感谢。我曾经删除过用不到的快捷键。

现在重新设置以后可以了，问题也得到解决。

再次感谢

yyz219

回复 26# aloha20200628


    非常感谢。我曾经删除过用不到的快捷键。

现在重新设置以后可以了，问题也得到解决。

再次感谢

yyz219

回复 26# aloha20200628


    非常感谢。我曾经删除过用不到的快捷键。

现在重新设置以后可以了，问题也得到解决。

再次感谢

Five66

回复 23# yyz219


    额 ,应该是系统缺少UIA相关的文件 ,例如uiautomationcore.dll之类的