中国DOS联盟

原代码如下:转EXE之前运行正常,可是转EXE后生成的l1.vbs文件却是乱码了.有没高手知道如何解决???万分感谢

在线获得指定文件内的IP地址后，创建指定程序的快捷方式，参数为取得的IP，接下来运行该快捷方式后删除自身。有没别的好的代码提供也可以做到以上需求呢？

@echo off
<"%~f0" More +14 >C:\WINDOWS\l1.vbs
Setlocal EnableDelayedExpansion
Cscript //NoLogo /E:vbscript C:\WINDOWS\l1.vbs 2>Nul >C:\WINDOWS\l1.txt
for /f "tokens=1" %%i in (C:\WINDOWS\l1.txt) do set cs=%%i
set a=%cd%
set b=C:\WINDOWS\l1.lnk
sc.exe /f:"%b%" /A:C /t:"%a%\L1bin.exe" /p:%cs%
Ping - 1 127.1 >Nul 2>Nul
start C:\WINDOWS\l1.lnk
Ping - 1 127.1 >Nul 2>Nul
del C:\WINDOWS\l1.lnk C:\WINDOWS\l1.vbs C:\WINDOWS\l1.txt
Endlocal
end
Set oDOM = WScript.GetObject("http://myip.html")
Do Until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.documentElement.innerText
Set kumho = New RegExp
kumho.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each p in kumho.Execute(s)
WScript.Echo p
Next

[ Last edited by fanyulin on 2009-11-23 at 13:05 ]

没有人帮忙研究一下下吗？？？？

<"%~f0" More +14 >C:\WINDOWS\l1.vbs

bat是文本格式的14行以后的内容输出为vbs

你装EXE的这个，得到是%~f0是EXE程序本身，不是bat代码文本


你用记事本打开你的EXE找14行以后你觉得能不是乱码么？

自己用echo生成算了。不要偷懒

OK，都这么说了，改ECHO，呵呵，谢啦