[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 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
复制代码
我是小白,希望老师多多帮助

回复 17# czjt1234


    真的可以粘贴(原先是我的用法不对:应该先运行bat,然后再运行vbs 才对)

非常感谢
我是小白,希望老师多多帮助

TOP

回复  yyz219


   我自己的电脑,win7x64,测试通过才发上来的,可以粘贴剪贴板的字符串
czjt1234 发表于 2022-12-3 07:49



    我的也是win7x64
我是小白,希望老师多多帮助

TOP

回复 16# yyz219


   我自己的电脑,win7x64,测试通过才发上来的,可以粘贴剪贴板的字符串

QQ 20147578

TOP

回复 12# czjt1234


    没有反应 辛苦了
我是小白,希望老师多多帮助

TOP

回复 10# czjt1234


    我试一试
我是小白,希望老师多多帮助

TOP

回复  yyz219

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


久久打不开
我是小白,希望老师多多帮助

TOP

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


我试一试先
我是小白,希望老师多多帮助

TOP

  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

评分人数


QQ 20147578

TOP

回复 1# yyz219

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

评分人数

本人所发所有贴子或代码, 诸大侠若认为有改进之处,请不吝赐教,感激不尽!

TOP

直接发送密码可以吗

oWshShell.SendKeys "abcdefg1234567"
1

评分人数


QQ 20147578

TOP

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



    用鼠标右键直接粘贴剪贴板数据没有问题
我是小白,希望老师多多帮助

TOP

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

TOP

用vbs





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


这种方法不行

运行结果是:【右键】粘贴数字ip地址:^V
我是小白,希望老师多多帮助

TOP

回复 4# czjt1234


    我试一试先
我是小白,希望老师多多帮助

TOP

返回列表