找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 52925|回复: 18

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

[复制链接]
发表于 2022-12-1 09:16:39 | 显示全部楼层 |阅读模式
本帖最后由 yyz219 于 2022-12-3 09:41 编辑

完美解决了问题:

粘贴剪切板内容--回车.vbs:
  1. Wsh.Sleep 100  '【延时100毫秒】
  2. '【在bat窗口粘贴剪切板内容】
  3. Dim oWshShell, s
  4. Set oWshShell = CreateObject("WScript.Shell")
  5. s =  CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
  6. oWshShell.SendKeys s

  7. '【按"回车"键】
  8. createobject("wscript.shell").sendkeys "{ENTER}"  '【按"ENTER"】
复制代码
****************************************************
复制ip双击抓取域名(好).bat
  1. ::【最终文件在桌面:数字ip地址.txt】
  2. @echo off
  3. ::【粘贴数字ip地址 →→→ 抓取域名(保存为:00.txt)】
  4. start  "" "粘贴剪切板内容--回车.vbs"
  5. set /p M=粘贴数字ip地址:(由 “粘贴剪切板内容--回车.vbs” 完成)
  6. echo.
  7. echo.
  8. echo             请耐心等待... ...
  9. set "url=https://site.ip138.com/%M%"
  10. ::set "url=https://site.ip138.com/183.131.207.66/"
  11. PowerShell -NoProfile -C "$str=(New-Object System.Net.WebClient).DownLoadString('%url%'); [regex]::Matches($str, '</span><a href="/([^^/]+)/"') | forEach{ $_.Groups[1].Value }" >00.txt
  12. ::*************************************************************   
  13. ::【(行首加0.0.0.0 )( 行尾加 #【】)(保存为:01.txt) 】
  14. set "strOne=0.0.0.0 "  %【行首添加字符】%
  15. set "strTwo= #【】"    %【行尾添加字符】%
  16. for /f "tokens=*" %%i in (00.txt) do (>>"01.txt" echo %strOne%%%i%strTwo%)
  17. ::++++++++++++++++++++++++++++++++++++++++++++++
  18. ::【开头加一行:ip地址 (其中:%M% ————数字ip地址)(保存为:D:\桌面\数字ip地址.txt)】
  19. (
  20.   echo # 【ip地址】:%M% 【文件在桌面】
  21.   type "01.txt"
  22.            )>"D:\桌面\Desktop\%M%.txt"
  23. ::++++++++++++++++++++++++++++++++++++++++
  24. del 00.txt "01.txt"
  25. start "" "D:\桌面\Desktop\%M%.txt"
  26. exit
复制代码
发表于 2022-12-1 12:28:18 | 显示全部楼层
需要粘贴ip ?
不能把ip作为参数传递吗
或者 | > 什么的
 楼主| 发表于 2022-12-1 19:11:18 | 显示全部楼层
回复 2# czjt1234


    目的就是需要粘贴ip
发表于 2022-12-1 19:34:40 | 显示全部楼层
本帖最后由 czjt1234 于 2022-12-1 19:35 编辑

用vbs


  1. Dim oWshShell

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



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

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

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

发表于 2022-12-2 00:25:13 | 显示全部楼层
这里直接获取粘贴板数据不行吗
 楼主| 发表于 2022-12-2 08:00:43 | 显示全部楼层
回复 4# czjt1234


    我试一试先
 楼主| 发表于 2022-12-2 08:17:32 | 显示全部楼层
用vbs





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


这种方法不行

运行结果是:【右键】粘贴数字ip地址:^V
发表于 2022-12-2 10:34:12 | 显示全部楼层
试试》点击CMD窗口左上角图标-弹出菜单中选择‘默认值’或‘属性’-勾选‘编辑选项’中的‘快速编辑模式’-确认退出菜单,即可用鼠标右键直接粘贴剪贴板数据了。
 楼主| 发表于 2022-12-2 19:23:27 | 显示全部楼层
试试》点击CMD窗口左上角图标-弹出菜单中选择‘默认值’或‘属性’-勾选‘编辑选项’中的‘快速编辑模式’- ...
aloha20200628 发表于 2022-12-2 10:34



    用鼠标右键直接粘贴剪贴板数据没有问题
发表于 2022-12-2 20:15:56 | 显示全部楼层
直接发送密码可以吗

oWshShell.SendKeys "abcdefg1234567"

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

发表于 2022-12-2 20:24:27 | 显示全部楼层
回复 1# yyz219

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

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

发表于 2022-12-2 20:34:11 | 显示全部楼层
  1. Dim oWshShell, s
  2. Set oWshShell = CreateObject("WScript.Shell")
  3. oWshShell.AppActivate "cmd.exe"    '激活指定窗口
  4. Wsh.Sleep 3000                     '延时3秒
  5. s =  CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
  6. oWshShell.SendKeys s
复制代码

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

 楼主| 发表于 2022-12-2 21:39:00 | 显示全部楼层
czjt1234 发表于 2022-12-2 20:34


我试一试先
 楼主| 发表于 2022-12-2 21:39:48 | 显示全部楼层
回复  yyz219

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


久久打不开
 楼主| 发表于 2022-12-2 21:40:21 | 显示全部楼层
回复 10# czjt1234


    我试一试
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 10:51 , Processed in 0.021688 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表