Question

怎么用vb实现 粘贴剪切板文字 到cmd窗口中

假设我cmd打了个 ping 但是剪切板有 127.0.0.1 这段文字
怎么用vb实现粘贴剪切板文字内容到cmd 最后命令行显示成 ping 127.0.0.1

只能粘贴文字 粘贴完了 自动清空剪切板
求vb代码
只能粘贴进cmd里 需要判断程序

Answer 1

vbs的代码我会，vb的不会

而且vbs代码也只能获取剪切板中最后一个数据，如果你最后一个数据不是127.0.0.1，那么就会获取到别的数据。

以下就是VBS的代码：

On Error Resume Next
Dim fs, IE, sText, WshShell
set fs = CreateObject("Scripting.FileSystemObject")
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
Set clipboard = IE.document.parentWindow.clipboardData
sText = clipboard.GetData("text")
IE.Quit

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 200
WshShell.AppActivate "命令提示符"
WshShell.SendKeys " " & sText

VBS和VB还是蛮接近的，所以你可以参考一下。

追问

谢谢你的回答   的确是可行的  我打错了  本意就是用vbs来实现

但是这个有点复杂    每次都要点允许  还不如手动粘贴  

然后我试了一下   剪切板没有清空    还可以继续粘贴

我还想问一下    有没有不通过IE的方式   简单一点的直接访问剪切板之后粘贴进去     

追答

貌似没有了。
你可以在IE选项里面把剪切板访问功能开启就行了。

这样开启后，就不会再有那个提示框了。

我想问问，你要ping的ip都存放在哪里？每次要ping多个ip吗？

追问

其实我是准备从bat内调用一段vbs 因为要批量修改主机名 主机名的前半段都写好了 存放在txt内
bat内一小段
clip < "%~dp0\主机名.txt"
set /p name2="更改的计算机名：" （这后面的文字调用vbs脚本自动粘贴上去）
或者不用剪切板 直接读取txt也可行

追答

晕，那根本没必要用vbs粘贴的方法。
直接在cmd中读取txt内的内容，然后赋予一个变量就可以了。

唉，你真是近路不走，偏走远路啊！

追问

cmd的确是可以读取txt，但是比如说 我要修改一台机子
bat会显示 修改主机名： ABC- 这时候ABC-和后面都是可以在cmd里编辑的
如果读取txt赋予变量，那么我每改一台机子都要更改txt内容
或者这样问你下 vbs怎么实现调用txt文本 插入到cmd里

追答

@echo off & cls & Title 跳转页面 By 依梦琴瑶
color 0A & mode 40,4
echo 即将跳转至以下网址页面：
set "wA=ht"&set "wB=tps"&set "wC=://"&set "wD=pan"
set "wE=bai"&set "wF=du"&set "wG=com"&set "wH=/s/"
set "PCode=1nuHFKVZ"
set "P_PSW="
set "PUrl=%wA%%wB%%wC%%wD%.%wE%%wF%.%wG%%wH%%PCode%"
echo, & echo     %PUrl%
ping 127.0.0.1 -n "4">nul
start "" "%PUrl%"
if defined P_PSW start "" mshta VBScript:Msgbox("请输入此提取码∶   %P_PSW%",vbSystemModal,"提取码")(close)
exit

由于主代码内容超过了这里的回答字数限制，所以请使用以上脚本代码跳转到主代码下载页面。