标题: [原创]bat2exe [打印本页]
作者: s11ss 时间: 2008-1-19 00:10 标题: [原创]bat2exe
是exe文件，在草稿里（点击“别针”）下载：
b a t 2 e x e
界面：
[ Last edited by s11ss on 2008-1-19 at 08:03 PM ]
作者: fastslz 时间: 2008-1-19 02:20
界面小了点，如果能自定义.bat解压路径更好
[ Last edited by fastslz on 2008-1-19 at 11:33 PM ]
作者: afeichai 时间: 2008-1-19 04:11
支持原创，测试后不错，转换后的程序如果能自定义图标和选择释放目录就更好了（自行添加图标后，@Echo Off不起作用了）.，另外转换后的文件有点大
和ExeScript相比较，程序短小精悍，但转换后的文件，目前还没有优势，期待楼主的更新
作者: haiou327 时间: 2008-1-19 19:40
下不了
作者: s11ss 时间: 2008-1-19 20:57
| Quote: | |
|
| Quote: | |
|
不能通过此附件直接下载地址下载，除非先登录邮箱。
作者: s11ss 时间: 2008-1-19 21:01
| Quote: | |
|
| Quote: | |
|
这个bat2exe只是一个尝试而已，主要是为了实现主要功能。
作者: lianjiang2004 时间: 2008-1-19 21:05
期待主要功能以外的功能的完善。
作者: s11ss 时间: 2008-1-21 09:13
直接运行此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
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
作者: plr000 时间: 2008-3-1 16:17
界面小了点，如果能自定义.bat解压路径更好
作者: suntb 时间: 2008-3-1 19:28
谢谢 已经下载 顺便下了其他几个转换格式的 呵呵
作者: wwmy1982 时间: 2008-3-3 09:14
好东西
作者: hlighta 时间: 2008-3-22 23:06
问个题外话，b a t 2 e x e这个打开邮箱的链接是怎么做出来的，实在是太牛了。（看了一下属性里的内容没看懂。）
作者: dato 时间: 2008-3-23 10:12
偶也对这种直接登录的方式感兴趣,这样不是可以当免费主页使用了.不知道如何实现
作者: qdloverr 时间: 2008-3-25 15:33
又是TEMP里面，能自定意就好了
作者: haiou327 时间: 2008-5-3 23:29
| Quote: | |
|
还是下不了!!!!!!!!!!!!!!!!1111
作者: haiou327 时间: 2008-5-3 23:33
用亚虎邮箱登陆也没有下载下来.
haiou991217@yahoo.com.cn
[ Last edited by haiou327 on 2008-5-3 at 11:38 PM ]
作者: haiou327 时间: 2008-5-4 00:26
下载了，退出就进不了，可以把CMD窗口关闭变灰的程序没有下载到。
谢了。
作者: haiou327 时间: 2008-5-4 01:18
楼主的GRAY如何来使用。
GRAY name.cmd
作者: 5872169 时间: 2008-10-28 10:41
楼主的软件不错，请教一下，VBS加密后，怎么还原源代码？？是否有工具还原？？