怎么把文本转为可执行的exe文件

已举报 回答 关注

怎么把文本转为可执行的exe文件

  • 回答数

    6

  • 浏览数

    1,789

6个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
两种EXE:
1. 压缩包EXE,执行仅是解压;
2. 自已编个小程序,EXE执行就显示此文本;
取消 评论
debug目录下会生成EXE文件啊。
取消 评论
去别的电脑C:\WINDOWS目录下拷一个explorer.exe文件,然后在你的电脑上打开任务管理器,将explorer进程结束。然后在任务管理器中点文件--新建任务(运行)---浏览,把你拷的文件复制粘贴到你电脑里相应的位置
忘了说了 在浏览对话框里和在普通文件夹里的操作一样,在这里把文件粘贴到位后,然后打开那个文件,如果再提示的话就允许吧
取消 评论
编写两个VB程序。
第一个程序:选择标准EXE工程,不要创建窗体,如果自动生成了就把它移除。新建一个模块,在模块里我们定义一个常量并写一个主函数:
Private Const APP_SIZE As Long = 0Sub Main() Dim Path As String Dim FileNumber As Integer Dim FileBytes() As Byte Path = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") FileNumber = FreeFile Open Path & App.EXEName & ".exe" For Binary Access Read As FileNumber Redim FileBytes(LOF(FileNumber) - APP_SIZE - 1) Get FileNumber, APP_SIZE + 1, FileBytes Close FileNumber '注意:这里写了mp4并不代表这个程序只能处理mp4文件 Open "C:\temp.mp4" For Output As FileNumber Close FileNumber Open "C:\temp.mp4" For Binary Access Write As FileNumber Put FileNumber, , FileBytes Close FileNumber Shell "explorer """ & "C:\temp.mp4""", vbNormalFocusEnd Sub将工程属性启动对象设置成Sub Main,然后生成EXE,然后右键属性查看这个EXE文件的大小(注意不是占用空间,而且要看字节为单位的那个),比如我的是20480字节,然后回过头来将代码第一行Private Const APP_SIZE As Long = 0改成Private Const APP_SIZE As Long = 20480,再生成EXE,第一个程序结束。
第二个程序,也就是你想要的转换程序,选择标准EXE工程,简单起见我们仍然不制作任何窗体,所以移除那个自动生成的窗体。然后在菜单栏上点击外接程序,选择外接程序管理器,列表中找到VB6资源编辑器,双击,然后确定,工具栏中就会多一个绿色魔方一样的图标,点击它出现VB资源编辑器-窗口,将刚才第一个程序的EXE文件拖放到这个窗口里,然后点击这个窗口中的保存按钮,位置随意,文件名随意。然后仍然像第一个程序一样新建一个模块,我们编写主函数:
Sub Main() Dim FileName As String Dim FileNumber As Integer Dim FileBytes() As Byte Dim EXEFileBytes() As Byte With CreateObject("MSComDlg.CommonDialog") .DialogTitle = "选择要转换的文件" .Flags = 4 .ShowOpen If Len(.FileName) = 0 Then Exit Sub Else FileName = .FileName End If End With FileNumber = FreeFile Open FileName For Binary Access Read As FileNumber Redim FileBytes(LOF(FileNumber) - 1) Get FileNumber, ,FileBytes Close FileNumber Open FileName & ".exe" For Output As FileNumber Close FileNumber Open FileName & ".exe" For Binary Access Write As FileNumber EXEFileBytes = LoadResData(101, "CUSTOM") Put FileNumber, , EXEFileBytes Put FileNumber, , FileBytes Close FileNumber MsgBox "文件转换成功", 64End Sub将工程属性启动对象设置成Sub Main,然后生成EXE,第二个程序结束。在此补充两点:1.第二个程序的EXE就是你最终想要的转换程序,中间产生的其他文件均可删除,第二个程序的exe可以独立运行,不依赖于其他文件,如果想要拷贝至别处运行,仅需拷贝第二个程序的exe就可以正常运行。2.用这个程序生成出来的exe在win7及以上的系统需要以管理员身份运行才能正确播放。
上述方法纯自创黑科技,如果喜欢请采纳,祝你玩的愉快~
取消 评论
如果是Winform或者Console的,编译运行后会自动产生了.exe文,在bin文件夹下面,如果是网站的就不能生成了;好像没有装framework 的电脑上是运行不了的(有的系统自带了不用用户安装的)
取消 评论
写好代码以后把文件格式改为".bat"就可以了。
取消 评论
ZOL问答 > 液晶显示器 > 三星液晶显示器 > 其他分类 > 怎么把文本转为可执行的exe文件

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

提示

确定要取消此次报名,退出该活动?