中国DOS联盟

It's an exe file, in the draft (click "paperclip") to download:
bat2exe


Interface:


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

The interface is a bit small. It would be better if the.bat decompression path could be customized.

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

Support original creation. After testing, it's good. It would be better if the converted program can customize the icon and select the release directory (after adding the icon by yourself, @Echo Off doesn't work). Also, the converted file is a bit large. Compared with ExeScript, the program is concise, but the converted file currently has no advantage. Looking forward to the owner's update.

Originally posted by haiou327 at 2008-1-19 07:40 PM:
Can't download

Originally posted by fastslz at 2008-1-19 02:20 AM:
The interface is a bit small. It would be better if the .bat extraction path could be customized
Direct download address of the attachmenthttp://f921.mail.yahoo.com/ya/download?mid=1_22_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&a ...

Can't download through this attachment direct download address unless you log in to the email first.

Originally posted by fastslz at 2008-1-19 02:20 AM:
The interface is a bit small. It would be better if the .bat extraction path could be customized.
Direct download link for the attachment 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:
Support original creation. It's good after testing. It would be better if the converted program could customize the icon and select the extraction directory (after adding the icon by yourself, @Echo Off doesn't work). Also, the converted file is a bit large ...

This bat2exe is just a trial, mainly to implement the main functions.

Looking forward to the improvement of functions other than the main functions.

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

Just run this VBS directly to download 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","Open mailbox"

dic.add "http://cn.f921.mail.yahoo.com/y5/s/search?show=attachments","Switch to ""My 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","Select 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","Prepare to download"

web=dic.Keys

hint=dic.Items



If MsgBox("About to download bat2exe.exe in "&dic.Count&" steps, please confirm",vbOKCancel)=vbCancel Then WScript.Quit

For i=0 To dic.Count-1

	info.Popup "Step "&i+1&": Currently "&hint(i)&"...",1

	ie.Navigate web(i)

	WScript.Sleep 2000

Next



Set info=Nothing

Set dic=Nothing

Set ie=Nothing

The interface is a bit small. It would be better if the.bat decompression path could be customized.

Thanks. I've already downloaded it. By the way, I also downloaded several other format conversion ones. Hehe

Ask an off-topic question, how is the link to open the email made with b a t 2 e x e? It's really amazing. (I looked at the content in the properties and didn't understand it.)

I am also interested in this direct login method, so that it can be used as a free homepage. I don't know how to implement it.

It's still in TEMP again. It would be nice if it could be customized.

Originally posted by s11ss at 2008-1-21 09:13 AM:
You can directly run this VBS to download bat2exe:

Set info=CreateObject("WScript.Shell")

Set dic=CreateObject("Scripting.Dictionary")

Set ie=CreateObj ... 





Still can't download!!!!!!!!!!!!!!!!1111