| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 511 人关注过本帖
标题:求VB 封装EXE到程序里 用一个调用一个的源码。哪位大神给修改一下也可以啊
只看楼主 加入收藏
WSZXD
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-6-27
结帖率:100%
  已结贴   问题点数:20  回复次数:7   
求VB 封装EXE到程序里 用一个调用一个的源码。哪位大神给修改一下也可以啊
求VB 封装EXE到程序里 用一个调用一个的源码。哪位大神给修改一下也可以啊
Private Sub Command1_Click()
Shell App.Path & "\hfs..exe" '运行程序
End Sub

Private Sub Form_Load()
   Dim FileByte() As Byte
   Dim sName As String
   
   If (App.Path) = "\" Then
       sName = App.Path & "hfs..exe"
   Else
       sName = App.Path & "\hfs.>exe"
    End If
   
   If Dir(sName) <> sName Then
       FileByte() = LoadResData(101, "CUSTOM")
      
           
       Close #1
   End If
    '
End Sub



[此贴子已经被作者于2018-3-26 15:16编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-03-26 15:13
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:102
帖 子:4209
专家分:28884
注 册:2009-4-8
  得分:5 
没看懂

无知
2018-03-26 20:34
WSZXD
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-6-27
  得分:0 
回复 2楼 Artless
VB自释码放运行源码
2018-03-27 11:12
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:23
帖 子:250
专家分:1381
注 册:2016-3-10
  得分:5 
如果只是实现自释放文件包含源码,那你用rar,把源码压缩为自释放文件就行了。

2018-03-27 11:34
WSZXD
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-6-27
  得分:0 
回复 4楼 wds1
怎么写 给个源码
2018-03-27 12:30
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:220
帖 子:4264
专家分:26041
注 册:2008-10-15
  得分:5 
估计第一件事,就是被杀软件干掉。

使用资源文件 。
      FileByte() = LoadResData(101, "CUSTOM")

判断文件是否存在,是,删除
以二进制打开文件
一次性把 整个数组写进去
关闭文件

没有循环,只有一个判断,再加三条 顺序语句。自己翻译为 代码。


授人于鱼,不如授人于渔
早已停用QQ了
2018-03-27 15:38
WSZXD
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-6-27
  得分:0 
回复 6楼 风吹过b
给个参考源码 刚刚学习VB
2018-03-28 09:12
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:220
帖 子:4264
专家分:26041
注 册:2008-10-15
  得分:0 
'判断文件是否存在,是,删除
if dir(sName) <> "" then
  kill sName
end if
'以二进制打开文件
Open sName For Binary As #1
'一次性把 整个数组写进去
Put #1,,FileByte
'关闭文件
Close #1

授人于鱼,不如授人于渔
早已停用QQ了
2018-03-28 09:53







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022465 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved