中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]批处理转EXE后生成的VBS为乱码

fanyulin
新手上路

积分 4
发帖 4
注册 2008-5-15
状态离线

『楼主』: [求助]批处理转EXE后生成的VBS为乱码

原代码如下:转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 ]

2009-11-22 23:10