bat2exe - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

是exe文件，在草稿里（点击“别针”）下载：
b a t 2 e x e

界面：

[ Last edited by s11ss on 2008-1-19 at 08:03 PM ]

界面小了点，如果能自定义.bat解压路径更好

[ Last edited by fastslz on 2008-1-19 at 11:33 PM ]

支持原创，测试后不错，转换后的程序如果能自定义图标和选择释放目录就更好了（自行添加图标后，@Echo Off不起作用了）.，另外转换后的文件有点大
和ExeScript相比较，程序短小精悍，但转换后的文件，目前还没有优势，期待楼主的更新

Originally posted by haiou327 at 2008-1-19 07:40 PM:
下不了

Originally posted by fastslz at 2008-1-19 02:20 AM:
界面小了点，如果能自定义.bat解压路径更好
附件直接下载地址http://f921.mail.yahoo.com/ya/download?mid=1_22_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&a ... 不能通过此附件直接下载地址下载，除非先登录邮箱。

Originally posted by fastslz at 2008-1-19 02:20 AM:
界面小了点，如果能自定义.bat解压路径更好
附件直接下载地址http://f921.mail.yahoo.com/ya/download?mid=1_22_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&a ... Originally posted by afeichai at 2008-1-19 04:11 AM: 支持原创，测试后不错，转换后的程序如果能自定义图标和选择释放目录就更好了（自行添加图标后，@Echo Off不起作用了）.，另外转换后的文件有点大 ... 这个bat2exe只是一个尝试而已，主要是为了实现主要功能。

期待主要功能以外的功能的完善。

直接运行此vbs就可以下载bat2exe：

Set info=CreateObject("WScript.Shell")
Set dic=CreateObject("Scripting.Dictionary")
Set ie=CreateObject("InternetExplorer.Application")

dic.add "https://edit.bjs.yahoo.com/config/login?.intl=cn&.done=http%3A%2F%2Fcn.mail.yahoo.com%2Finset.html%3Frr%3D318470264&.src=ym&.cnrid=ymhp_20000&.challenge=_qMMi1uvHwJ1ISFSZgXOzHCUJG4q&login=%63%6E%64%6F%73%40%79%61%68%6F%6F%2E%63%6E&passwd=%77%65%61%72%65%6F%6B&submit=%B5%C7+%C2%BC","打开邮箱"
dic.add "http://cn.f921.mail.yahoo.com/y5/s/search?show=attachments","切换到""我的附件"""
dic.add "http://cn.f921.mail.yahoo.com/y5/s/attachment;_ylc=X3oDMTR2amFwNGEzBEFjdGlvbgNGaWxlIG5hbWUgY2xpY2tlZARJbnRsA2NuBExua1R5cANSZWd1bGFyBFBhcnRUeXBlA1lhaG9vIQRSZXNQb3NBAzIEUmVzUG9zUgMyBFNyY2hDdXJyA2F0dGFjaG1lbnQEU3JjaERlc3QDBF9RdWVyeUlkAzI4NDQxNjU2Mjc0NzkzZDYxOGU1OTViBF9TAzE1MDUwMDc1Nw--?op=scanattach&ids=1_1162_3_1065_0_AG360csAADWnR5DKowlR4xVLABI|2|%40S%40Search&search=1","选中bat2exe.exe"
dic.add "http://f921.mail.yahoo.com/ya/download?mid=1_1162_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&pid=2&clean=0","准备下载"
web=dic.Keys
hint=dic.Items

If MsgBox("即将分"&dic.Count&"步下载bat2exe.exe，请确认",vbOKCancel)=vbCancel Then WScript.Quit
For i=0 To dic.Count-1
	info.Popup "第"&i+1&"步：正在"&hint(i)&"...",1
	ie.Navigate web(i)
	WScript.Sleep 2000
Next

Set info=Nothing
Set dic=Nothing
Set ie=Nothing

界面小了点，如果能自定义.bat解压路径更好

谢谢　已经下载　顺便下了其他几个转换格式的　呵呵

问个题外话，b a t 2 e x e这个打开邮箱的链接是怎么做出来的，实在是太牛了。（看了一下属性里的内容没看懂。）

偶也对这种直接登录的方式感兴趣,这样不是可以当免费主页使用了.不知道如何实现

又是TEMP里面，能自定意就好了

Originally posted by s11ss at 2008-1-21 09:13 AM:
直接运行此vbs就可以下载bat2exe：

Set info=CreateObject("WScript.Shell") Set dic=CreateObject("Scripting.Dictionary") Set ie=CreateObj ... 还是下不了!!!!!!!!!!!!!!!!1111

第1楼　s11ss	发表于 2008-01-19 00:10
银牌会员　发帖 566　积分 2,098
[原创]bat2exe 是exe文件，在草稿里（点击“别针”）下载： b a t 2 e x e 界面： [ Last edited by s11ss on 2008-1-19 at 08:03 PM ]

第2楼　fastslz	发表于 2008-01-19 02:20
铂金会员　发帖 2,315　积分 5,493　来自上海
界面小了点，如果能自定义.bat解压路径更好 [ Last edited by fastslz on 2008-1-19 at 11:33 PM ]

第3楼　afeichai	发表于 2008-01-19 04:11
初级用户　发帖 78　积分 171
支持原创，测试后不错，转换后的程序如果能自定义图标和选择释放目录就更好了（自行添加图标后，@Echo Off不起作用了）.，另外转换后的文件有点大和ExeScript相比较，程序短小精悍，但转换后的文件，目前还没有优势，期待楼主的更新

第4楼　haiou327	发表于 2008-01-19 19:40
高级用户　发帖 348　积分 713
下不了

第5楼　s11ss	发表于 2008-01-19 20:57
银牌会员　发帖 566　积分 2,098
Originally posted by haiou327 at 2008-1-19 07:40 PM: 下不了 Originally posted by fastslz at 2008-1-19 02:20 AM: 界面小了点，如果能自定义.bat解压路径更好附件直接下载地址http://f921.mail.yahoo.com/ya/download?mid=1_22_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&a ... 不能通过此附件直接下载地址下载，除非先登录邮箱。

第6楼　s11ss	发表于 2008-01-19 21:01
银牌会员　发帖 566　积分 2,098
Originally posted by fastslz at 2008-1-19 02:20 AM: 界面小了点，如果能自定义.bat解压路径更好附件直接下载地址http://f921.mail.yahoo.com/ya/download?mid=1_22_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&a ... Originally posted by afeichai at 2008-1-19 04:11 AM: 支持原创，测试后不错，转换后的程序如果能自定义图标和选择释放目录就更好了（自行添加图标后，@Echo Off不起作用了）.，另外转换后的文件有点大 ... 这个bat2exe只是一个尝试而已，主要是为了实现主要功能。

第7楼　lianjiang2004	发表于 2008-01-19 21:05
金牌会员　发帖 1,884　积分 3,946
期待主要功能以外的功能的完善。

第8楼　s11ss	发表于 2008-01-21 09:13
银牌会员　发帖 566　积分 2,098
直接运行此vbs就可以下载bat2exe： Set info=CreateObject("WScript.Shell") Set dic=CreateObject("Scripting.Dictionary") Set ie=CreateObject("InternetExplorer.Application") dic.add "https://edit.bjs.yahoo.com/config/login?.intl=cn&.done=http%3A%2F%2Fcn.mail.yahoo.com%2Finset.html%3Frr%3D318470264&.src=ym&.cnrid=ymhp_20000&.challenge=_qMMi1uvHwJ1ISFSZgXOzHCUJG4q&login=%63%6E%64%6F%73%40%79%61%68%6F%6F%2E%63%6E&passwd=%77%65%61%72%65%6F%6B&submit=%B5%C7+%C2%BC","打开邮箱" dic.add "http://cn.f921.mail.yahoo.com/y5/s/search?show=attachments","切换到""我的附件""" dic.add "http://cn.f921.mail.yahoo.com/y5/s/attachment;_ylc=X3oDMTR2amFwNGEzBEFjdGlvbgNGaWxlIG5hbWUgY2xpY2tlZARJbnRsA2NuBExua1R5cANSZWd1bGFyBFBhcnRUeXBlA1lhaG9vIQRSZXNQb3NBAzIEUmVzUG9zUgMyBFNyY2hDdXJyA2F0dGFjaG1lbnQEU3JjaERlc3QDBF9RdWVyeUlkAzI4NDQxNjU2Mjc0NzkzZDYxOGU1OTViBF9TAzE1MDUwMDc1Nw--?op=scanattach&ids=1_1162_3_1065_0_AG360csAADWnR5DKowlR4xVLABI\|2\|%40S%40Search&search=1","选中bat2exe.exe" dic.add "http://f921.mail.yahoo.com/ya/download?mid=1_1162_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&pid=2&clean=0","准备下载" web=dic.Keys hint=dic.Items If MsgBox("即将分"&dic.Count&"步下载bat2exe.exe，请确认",vbOKCancel)=vbCancel Then WScript.Quit For i=0 To dic.Count-1 info.Popup "第"&i+1&"步：正在"&hint(i)&"...",1 ie.Navigate web(i) WScript.Sleep 2000 Next Set info=Nothing Set dic=Nothing Set ie=Nothing

第9楼　plr000	发表于 2008-03-01 16:17
社区乞丐　发帖 4　积分 -40
界面小了点，如果能自定义.bat解压路径更好

第10楼　suntb	发表于 2008-03-01 19:28
高级用户　发帖 277　积分 581
谢谢　已经下载　顺便下了其他几个转换格式的　呵呵

第11楼　wwmy1982	发表于 2008-03-03 09:14
初级用户　发帖 11　积分 29
好东西

第12楼　hlighta	发表于 2008-03-22 23:06
初级用户　发帖 12　积分 21
问个题外话，b a t 2 e x e这个打开邮箱的链接是怎么做出来的，实在是太牛了。（看了一下属性里的内容没看懂。）

第13楼　dato	发表于 2008-03-23 10:12
高级用户　发帖 377　积分 916
偶也对这种直接登录的方式感兴趣,这样不是可以当免费主页使用了.不知道如何实现

第14楼　qdloverr	发表于 2008-03-25 15:33
初级用户　发帖 33　积分 97
又是TEMP里面，能自定意就好了

第15楼　haiou327	发表于 2008-05-03 23:29
高级用户　发帖 348　积分 713
Originally posted by s11ss at 2008-1-21 09:13 AM: 直接运行此vbs就可以下载bat2exe： Set info=CreateObject("WScript.Shell") Set dic=CreateObject("Scripting.Dictionary") Set ie=CreateObj ... 还是下不了!!!!!!!!!!!!!!!!1111