如何自动复制键盘所输入的字符到新的文本中 - 中国DOS联盟论坛

如题，也许说的不详细，举个例子更生动。
如我需要多次打开如下网址，但是其中有几个字符经常变动，如红色所示
http://www.cn-dos.net/forum/post.php?action=newthread&fid=23
我这次是23，下一次可能就是36
如何建立一个批片理命令，等待键入一个字符，然后回车，
可以把所键入的数字复制到需要替换的地方，然后打开新的网址
这个批处理命令如何实现？

谢谢！

这个是基础:


@echo off
set /p strNum=输入字符:
start "" "http://www.cn-dos.net/forum/post.php?action=newthread&fid=%strNum%"
goto :eof

真是个热心人
谢谢

但是还有一个问题
如果我不需要打开新发浏览器
而是使用原有打开的浏览器
即我已经打开了一个浏览器
当我运行此命令时
在我打开的浏览器中打开网址
这个处理该如何实现？

方法一、修改你的浏览器的默认设置为总是在新标签中打开连接（针对自己浏览器网上去找，不详述）。

方法二、用我盗版的脚本，它会新开一个专门的IE浏览器，使得你输入的所有网站都在这个IE浏览器标签中打开，具体做法就是：

把下面的 VBScript 代码保存为 OpenURLInTab.vbs ，双击就能运行（这里面有无用的代码，但是注明出处是良好的行为习惯）


' 设定你要访问的网址的前一部分
urlHead = "http://www.cn-dos.net/forum/post.php?action=newthread&fid="

Const NAV_OPEN_IN_BACKGROUND_TAB = &H1000
sParam = "&reg;2009&nbsp;Reproduction&nbsp;&nbsp;<em>qinchun36 | CN-DOS.net</em><p>&copy;2007&nbsp;&nbsp;Original released at&nbsp;&nbsp;<a href='http://blogs.msdn.com/tonyschr/archive/2007/01/19/ie-automation-amp-tabs.aspx' target='_self'>Tony Schreiner's WebLog</a>"

Set oIE = CreateObject("InternetExplorer.Application")
	oIE.Visible = true
	oIE.Navigate2 "about:blank"
	oIE.document.body.innerHTML = sParam
Do
	sParam = InputBox("输入参数" & vbCrLf & vbCrLf & "(空值、取消、关闭输入框都可以结束输入)", "Goto CN-DOS.net", "23")
	If sParam = "" Then WScript.Quit
	oIE.Navigate2 urlHead & sParam, NAV_OPEN_IN_BACKGROUND_TAB
Loop

[ Last edited by qinchun36 on 2009-12-16 at 11:33 ]

第1楼　ttimber	发表于 2009-12-14 16:47
初级用户　发帖 43　积分 198
如何自动复制键盘所输入的字符到新的文本中如题，也许说的不详细，举个例子更生动。如我需要多次打开如下网址，但是其中有几个字符经常变动，如红色所示 http://www.cn-dos.net/forum/post.php?action=newthread&fid=23 我这次是23，下一次可能就是36 如何建立一个批片理命令，等待键入一个字符，然后回车，可以把所键入的数字复制到需要替换的地方，然后打开新的网址这个批处理命令如何实现？谢谢！

第2楼　mountvol	发表于 2009-12-14 16:58
初级用户　发帖 117　积分 186
这个是基础: @echo off set /p strNum=输入字符: start "" "http://www.cn-dos.net/forum/post.php?action=newthread&fid=%strNum%" goto :eof

第3楼　ttimber	发表于 2009-12-16 08:49
初级用户　发帖 43　积分 198
真是个热心人谢谢

第4楼　ttimber	发表于 2009-12-16 09:33
初级用户　发帖 43　积分 198
但是还有一个问题如果我不需要打开新发浏览器而是使用原有打开的浏览器即我已经打开了一个浏览器当我运行此命令时在我打开的浏览器中打开网址这个处理该如何实现？

第5楼　qinchun36	发表于 2009-12-16 11:31
高级用户　发帖 400　积分 609
方法一、修改你的浏览器的默认设置为总是在新标签中打开连接（针对自己浏览器网上去找，不详述）。方法二、用我盗版的脚本，它会新开一个专门的IE浏览器，使得你输入的所有网站都在这个IE浏览器标签中打开，具体做法就是：把下面的 VBScript 代码保存为 OpenURLInTab.vbs ，双击就能运行（这里面有无用的代码，但是注明出处是良好的行为习惯） ' 设定你要访问的网址的前一部分 urlHead = "http://www.cn-dos.net/forum/post.php?action=newthread&fid=" Const NAV_OPEN_IN_BACKGROUND_TAB = &H1000 sParam = "®2009 Reproduction  <em>qinchun36 \| CN-DOS.net</em><p>©2007  Original released at  <a href='http://blogs.msdn.com/tonyschr/archive/2007/01/19/ie-automation-amp-tabs.aspx' target='_self'>Tony Schreiner's WebLog</a>" Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = true oIE.Navigate2 "about:blank" oIE.document.body.innerHTML = sParam Do sParam = InputBox("输入参数" & vbCrLf & vbCrLf & "(空值、取消、关闭输入框都可以结束输入)", "Goto CN-DOS.net", "23") If sParam = "" Then WScript.Quit oIE.Navigate2 urlHead & sParam, NAV_OPEN_IN_BACKGROUND_TAB Loop [ Last edited by qinchun36 on 2009-12-16 at 11:33 ]