[其他] [已解决]弹出cmd窗口内的右键菜单有快捷键吗？谢谢

yyz219

完美解决了问题：

粘贴剪切板内容--回车.vbs：

Wsh.Sleep 100  '【延时100毫秒】
'【在bat窗口粘贴剪切板内容】
Dim oWshShell, s
Set oWshShell = CreateObject("WScript.Shell")
s =  CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
oWshShell.SendKeys s

'【按"回车"键】
createobject("wscript.shell").sendkeys "{ENTER}"  '【按"ENTER"】
复制代码

****************************************************
复制ip双击抓取域名（好）.bat

::【最终文件在桌面：数字ip地址.txt】
@echo off
::【粘贴数字ip地址 →→→ 抓取域名（保存为：00.txt）】
start  "" "粘贴剪切板内容--回车.vbs"
set /p M=粘贴数字ip地址:（由 “粘贴剪切板内容--回车.vbs” 完成）
echo.
echo.
echo             请耐心等待... ...
set "url=https://site.ip138.com/%M%"
::set "url=https://site.ip138.com/183.131.207.66/"
PowerShell -NoProfile -C "$str=(New-Object System.Net.WebClient).DownLoadString('%url%'); [regex]::Matches($str, '</span><a href=\"/([^^/]+)/\"') | forEach{ $_.Groups[1].Value }" >00.txt
::*************************************************************   
::【（行首加0.0.0.0 ）（ 行尾加 #【】）（保存为：01.txt） 】
set "strOne=0.0.0.0 "  %【行首添加字符】%
set "strTwo= #【】"    %【行尾添加字符】%
for /f "tokens=*" %%i in (00.txt) do (>>"01.txt" echo %strOne%%%i%strTwo%)
::++++++++++++++++++++++++++++++++++++++++++++++
::【开头加一行：ip地址 (其中：%M% ————数字ip地址)（保存为：D:\桌面\数字ip地址.txt）】
(
  echo # 【ip地址】：%M% 【文件在桌面】
  type "01.txt"
           )>"D:\桌面\Desktop\%M%.txt"
::++++++++++++++++++++++++++++++++++++++++
del 00.txt "01.txt"
start "" "D:\桌面\Desktop\%M%.txt"
exit
复制代码

czjt1234

需要粘贴ip ？
不能把ip作为参数传递吗
或者 | > 什么的

yyz219

回复 2# czjt1234


    目的就是需要粘贴ip

czjt1234

用vbs

Dim oWshShell

Set oWshShell = CreateObject("WScript.Shell")
oWshShell.AppActivate "cmd.exe"    '激活指定窗口
Wsh.Sleep 100
oWshShell.SendKeys "^V"            '发送 ctrl + v
oWshShell.SendKeys "{ENTER}"       '发送回车键
复制代码

先查找完全匹配的标题栏
找不到就匹配标题栏左起或右起的字符串
但不会匹配标题栏中间的字符串

例如激活指定窗口 "abc"
可以匹配标题栏www.abc或abc.com
但不会匹配www.abc.com

terse

这里直接获取粘贴板数据不行吗

yyz219

回复 4# czjt1234


    我试一试先

yyz219

用vbs





先查找完全匹配的标题栏
找不到就匹配标题栏左起或右起的字符串
但不会匹配标题栏中间的 ...
czjt1234 发表于 2022-12-1 19:34

这种方法不行

运行结果是：【右键】粘贴数字ip地址:^V

aloha20200628

试试》点击CMD窗口左上角图标-弹出菜单中选择‘默认值’或‘属性’-勾选‘编辑选项’中的‘快速编辑模式’-确认退出菜单，即可用鼠标右键直接粘贴剪贴板数据了。

yyz219

试试》点击CMD窗口左上角图标-弹出菜单中选择‘默认值’或‘属性’-勾选‘编辑选项’中的‘快速编辑模式’- ...
aloha20200628 发表于 2022-12-2 10:34

    用鼠标右键直接粘贴剪贴板数据没有问题

czjt1234

直接发送密码可以吗

oWshShell.SendKeys "abcdefg1234567"

5i365

回复 1# yyz219

下面这个小软件可以解决不能ctrl+v的问题
https://dennisbabkin.com/clc/

czjt1234

Dim oWshShell, s
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.AppActivate "cmd.exe"    '激活指定窗口
Wsh.Sleep 3000                     '延时3秒
s =  CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
oWshShell.SendKeys s
复制代码

yyz219

czjt1234 发表于 2022-12-2 20:34

我试一试先

yyz219

回复  yyz219

下面这个小软件可以解决不能ctrl+v的问题
https://dennisbabkin.com/clc/
5i365 发表于 2022-12-2 20:24

久久打不开

yyz219

回复 10# czjt1234


    我试一试