smss 当前离线
中尉
echo 把我传递给剪贴板|clip&mshta vbscript:msgbox("搞定,去粘贴吧",64,"提示!")(window.close)&exit复制代码
TOP
Set objHTML=CreateObject("htmlfile") a=objHTML.ParentWindow.ClipboardData.GetData("text") if a <> "" Then Set fs=CreateObject("Scripting.FileSystemObject") Set file=fs.CreateTextFile("list.txt",true) file.WriteLine a End If复制代码