hta 实现复制网页内容到剪贴板

CrLf

写这么长是为了消除 cookie 提示

1. <!--
   
2. 复制网址，再双击此文件即可复制文本到剪贴板，示例网址：
   
3. http://www.hgamecn.com/htmldata/article/2734.html
   
4. -->
   
5. 
   
6. <HTA:APPLICATION WINDOWSTATE="minimize" SHOWINTASKBAR="no"/>
   
7. 
   
8. <iframe id=copyhtml onload="copyhtml(this)"></iframe>
   
9. 
   
10. <script>
    
11. var ws=new ActiveXObject('WScript.Shell')
    
12. username = ws.ExpandEnvironmentStrings('%username%')
    
13. //取得用户名
    
14. 
    
15. var sSID = getssid(username)
    
16. //取得ssid
    
17. 
    
18. var name = 'HKEY_USERS\\'+sSID+'\\'+
    
19.                 'Software\\Microsoft\\Windows\\CurrentVersion\\'+
    
20.                 'Internet Settings\\Zones\\3\\1A10'
    
21. //取得注册表地址
    
22. 
    
23. var bak = readreg(name)
    
24. //备份注册表信息
    
25. 
    
26. writereg(name,0)
    
27. //改写注册表信息，以避免 cookie 提示
    
28. 
    
29. var url = clipboardData.getData("text")
    
30. //取得剪贴板中的网址
    
31. 
    
32. document.getElementById('copyhtml').src = url
    
33. //将 iframe 指向该网址
    
34. 
    
35. window.onbeforeunload = function(){
    
36.         writereg(name,bak)
    
37.         //结束时还原注册表信息
    
38. }
    
39. 
    
40. setTimeout(close,15000)
    
41. //15秒后一定会关闭并触发 onbeforeunload
    
42. 
    
43. function getssid(username){
    
44.         var wbemServices = GetObject('winmgmts:\\\\.')
    
45.         var wbemObjectSet = wbemServices.execquery("select sid from win32_userAccount where name='"+username+"'")
    
46.         var sSID = wbemObjectSet.ItemIndex(0).sid
    
47.         return sSID
    
48. }
    
49. 
    
50. function readreg(name){
    
51.         var ws = new ActiveXObject('WScript.Shell')
    
52.         return ws.RegRead(name)
    
53. }
    
54. 
    
55. function writereg(name,value){
    
56.         var ws = new ActiveXObject('WScript.Shell')
    
57.         return ws.RegWrite(name,value)
    
58. }
    
59. 
    
60. function copyhtml(iframe){
    
61.         clipboardData.setData('text',iframe.contentWindow.document.documentElement.innerText)
    
62.         //将网页内容保存到剪贴板
    
63. 
    
64.         close()
    
65.         //关闭窗口
    
66. }
    
67. </script>

复制代码

CrLf

得到的结果是纯文本，不带格式

867258173

已测试成功运行，但有个问题，无法保存空行，

比如原网址

1. 被称为“天空之城”的天界。居民被称为“天人”。
   
2. 
   
3. Caelum Urbs和地上不同，应有尽有。

复制代码

复制剪切板里的就是：

1. 被称为“天空之城”的天界。居民被称为“天人”。
   
2. Caelum Urbs和地上不同，应有尽有。

复制代码

少了空行。能否再修改下，连同这些空行也保存下呢。

CrLf

回复 3# 867258173


    那是通过 margin 设置的间距，不是真正的换行，所以 innerText 读不到

867258173

回复 4# CrLf

这样啊，那就这样吧，有了这个以后直接复制粘贴方便多了。感谢(^-^)

mstsc

怎么弄呢？网址放在哪里呢？

tsqingfeng

如果复制带格式文本到剪贴板，该如何修改？