精华内容
下载资源
问答
  • vb将vbs封装exe

    2009-11-17 16:55:00
    下午无聊,实现了一下这个,代码有的地方很不好,以下代码是把一个加用户的vbs封装exe了: Attribute VB_Name = "Module1" Public Declare Function AllocConsole Lib "kernel32.dll" () As Long Public Declare ...
    下午无聊,实现了一下这个,代码有的地方很不好,以下代码是把一个加用户的vbs封装成exe了:

    Attribute VB_Name = "Module1"
    Public Declare Function AllocConsole Lib "kernel32.dll" () As Long
    Public Declare Function FreeConsole Lib "kernel32.dll" () As Long
    Public Declare Function SetConsoleTitle Lib "kernel32.dll" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long
    Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
    Public Declare Function AttachConsole Lib "kernel32.dll" (ByVal ProcessID As Integer) As Boolean

    Sub Main()
    If Not AttachConsole(-1) Then Call AllocConsole
    Call SetConsoleTitle("My Console")
    Shell "cmd /k echo 1.exe user pass && echo.", vbMinimizedNoFocus '这样来显示用法效果实在不好,以后改动吧

    On Error Resume Next
    Dim strCmd As String
    strCmd = VBA.Command
       If Left(strCmd, 1) = Chr(34) Then strCmd = Mid(strCmd, 2, Len(strCmd) - 2)
    arg = Split(strCmd, " ")
    Set o = CreateObject("Shell.Users")
    Set z = o.Create(arg(0))
    z.changePassword arg(1), ""
    z.setting("AccountType") = 3

    Call Sleep(2000)
    Call FreeConsole

    End Sub

    转载于:https://www.cnblogs.com/top5/archive/2009/11/17/1604748.html

    展开全文
  • VB封装DLL教程_ASP

    2011-02-19 17:50:18
    VB封装DLL教程_ASP (VB制作ASP组件_阿里西西_alixixi.com原创视频录像).exe 播放密码alixixi.com
  • 如何将 exe程序和vb编译的exe文件 封装为一个exe文件把它当成资源文件,包到主程序里以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化 Option Explicit Sub Main() Const DBSIZE = ...

    ''如何将 exe程序和vb编译的exe文件    封装为一个exe文件
    ''把它当成资源文件,包到主程序里
    ''以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化   
       Option    Explicit   
        
       Sub    Main()   
               Const    DBSIZE    =    479232    '欲生成的数据库大小是479232Byte,名字为Provider.mdb   
               Const    Comcat    =    3856    '欲生成的控件大小是3856Byte,Comcat.dll   
                
               Const    Msado15    =    491792    '欲生成的控件大小是3856Byte,msado15.dll   
                
               Const    MSCOMCT2    =    662288    '欲生成的控件大小是662,288Byte,MSCOMCT2.OCX   
                
               Const    mscomctl    =    1081616    '欲生成的控件大小是3856Byte,mscomctl.ocx   
                
               Const    stdole2    =    16896    '欲生成的控件大小是16,896Byte,stdole2.tlb   
                        
                
               ''**   
                
           Dim    Ocx()    As    Byte    'OCX是个Btye类型的数组   
           Dim    Counter    As    Long   
        
           Ocx    =    LoadResData(107,    "CUSTOM")      '将自定义资源中101号资源读入数组OCX   
           '注意,微软的帮助中对加载自定义资源的说明有错误,自定义资源标识为"CUSTOM"而不是帮助所说

    的数字10   
          
               '程序不在根目录下一一一一一一一一一一一   
               If    Dir(App.Path    &    "/Provider.mdb")    =    ""    Then    '程序路径下有无控件,无则

    生成控件   
                   '以二进制方式写(生成)控件(agtintl.dll)到主程序所在的目录   
                   Open    App.Path    &    "/Provider.mdb"    For    Binary    As    #1   
                   For    Counter    =    0    To    DBSIZE    -    1    '注意因为从0    Byte开始因此以文件

    大小    -    1Byte    为终值   
                       Put    #1,    ,    Ocx(Counter)   
                   Next    Counter   
                   Close    #1   
               End    If   
               ''二二二二二二二二二二二二二二二二二二二二二二   
               Erase    Ocx   
                 Ocx    =    LoadResData(102,    "CUSTOM")   
                  
               If    Dir(App.Path    &    "/comcat.dll")    =    ""    Then   
                       Open    App.Path    &    "/comcat.dll"    For    Binary    As    #1   
                       For    Counter    =    0    To    Comcat    -    1    '注意因为从0    Byte开始因此以

    文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
               End    If   
                
               Shell    "Regsvr32    /s"    &    App.Path    &    "/comcat.dll"   
               '三三三三三三三三三三三三三三三三三三三三三三三三三   
               Erase    Ocx   
                 Ocx    =    LoadResData(103,    "CUSTOM")   
               If    Dir(App.Path    &    "/msado15.dll")    =    ""    Then   
                       Open    App.Path    &    "/msado15.dll"    For    Binary    As    #1   
                       For    Counter    =    0    To    Msado15    -    1    '注意因为从0    Byte开始因此以

    文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
               End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/msado15.dll"   
               '四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四   
               Erase    Ocx   
                 Ocx    =    LoadResData(104,    "CUSTOM")   
               If    Dir(App.Path    &    "/MSCOMCT2.OCX")    =    ""    Then   
                       Open    App.Path    &    "/MSCOMCT2.OCX"    For    Binary    As    #1   
                       For    Counter    =    0    To    MSCOMCT2    -    1    '注意因为从0    Byte开始因此

    以文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
               End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/MSCOMCT2.OCX"   
               '五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五   
               Erase    Ocx   
                 Ocx    =    LoadResData(105,    "CUSTOM")   
               If    Dir(App.Path    &    "/mscomctl.ocx")    =    ""    Then   
                       Open    App.Path    &    "/mscomctl.ocx"    For    Binary    As    #1   
                       For    Counter    =    0    To    mscomctl    -    1    '注意因为从0    Byte开始因此

    以文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
                       End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/mscomctl.ocx"   
               '六六六六六六六六六六六六六六六六六六六六六六六六六   
               Erase    Ocx   
                 Ocx    =    LoadResData(106,    "CUSTOM")   
               If    Dir(App.Path    &    "/stdole2.tlb")    =    ""    Then   
                       Open    App.Path    &    "/stdole2.tlb"    For    Binary    As    #1   
                       For    Counter    =    0    To    stdole2    -    1    '注意因为从0    Byte开始因此以

    文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
                       End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/stdole2.tlb"   
                
               FrmMain.Show   
       End    Sub   
       '注册控件   
       'Private    Declare    Function    RegOcx    Lib    "A.OCX"    Alias    "DllRegisterServer"    ()   

    As    Long   
       '   
       'Private    Sub    Form_Load()   
       '          Call    RegOcx   
       'End    Sub   
       '   
       'OCX文件中都有一个接口DllRegisterServer,这个接口就是用来注册自身的,同样,也可以

    用"UnDllregisterServer"在代碼中來取消注冊控件自身   
       '如果是注册其它路径的文件    ,    要在声明时写完整路径,    如   
       'Private    Declare    Function    RegOcx    Lib    "C:/Test/A.OCX"    Alias    "DllRegisterServer"

       ()    As    Long   
       '   
       'Private    Sub    Form_Load()   
       '          Call    RegOcx   
       'End    Sub   
       '还有一种   
       'Private    Sub    Form_Load()   
       '          Me.Visible    =    False   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/DtRead.ocx"    '用参数/s,不提示

    注册成功信息   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/ConnStr.dll"   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/HisCurve.ocx"   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/Rep.dll"   
       '          MsgBox    "注册成功!"   
       '          Unload    Me   
       'End    Sub  

    展开全文
  • VB6.0封装VBA代码为Exe程序,里面注释全部封装过程及注意问题,仅需要几部即可完成,即可直接执行或者被Excel调用
  • 将Excel VBA封装exe程序[老贴收藏]

    万次阅读 2019-09-17 16:23:22
    将Excel VBA封装exe程序[老贴收藏] 假如您手头已有一xls文档等待封装,假如您机子上已安装有VB6开发系统,那么请跟着往下操作: 一、用VB制作EXE文件头部分 1、打开VB,“文件”-“新建工程”-“标准EXE”; 2...

    将Excel VBA封装成exe程序[老贴收藏]
    假如您手头已有一xls文档等待封装,假如您机子上已安装有VB6开发系统,那么请跟着往下操作:

    一、用VB制作EXE文件头部分

      1、打开VB,“文件”-“新建工程”-“标准EXE”;
    
      2、此时会出现名为Form1的默认窗体编辑窗口,Form1将作为软件启动封面窗体,打开该Form1的属性窗口,对如下属性进行设置:BorderStyle=0,StartUpPosition=2,Icon与Picture属性设置成你需要的图标(这也将成为你EXE的图标)和设计好准备使用的图片(即软件封面),窗体的大小设置成您需要的合适值即可。
    
      3、往窗体中添加一个时钟控件timer1,并将其InterVal属性设为1000。
    
      4、双击窗体打开代码编辑窗口,录入以下代码:
    

    Private Declare Function SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare Function GetTempFileName Lib “kernel32” Alias “GetTempFileNameA” (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
    Private Declare Function GetTempPath Lib “kernel32” Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
    Private Const MAX_PATH = 260
    Private Const EXE_SIZE = 81920 '本EXE实际字节大小
    Private Type FileSection
    Bytes() As Byte
    End Type
    Private Type SectionedFile
    Files() As FileSection
    End Type
    Dim StopTime As Integer

    Private Sub Form_Activate()
    If Command$() = “” Then Main1
    End Sub

    Private Sub Form_Load()
    On Error Resume Next
    If Command$() = “” Then
    Form1.Visible = True
    SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1 '将封面置为最顶层窗体
    Else
    Form1.Visible = False
    Form1.Timer1.Enabled = True
    End If
    End Sub
    Sub Main1()
    Dim StartXLSByte, I, J As Long
    Dim AppPath, XlsTmpPath As String
    Dim myfile As SectionedFile
    Dim xlApp As Excel.Application '定义EXCEL类
    Dim xlBook As Excel.Workbook '定义工件簿类
    Dim xlsheet As Excel.Worksheet '定义工作表类
    AppPath = App.Path
    XlsTmpPath = GetTempFile() '取得XLS临时文件名(带路径)
    If VBA.Right(App.Path, 1) = “” Then AppPath = VBA.Left(App.Path, VBA.Len(App.Path) - 1)
    Open AppPath & “” & App.EXEName & “.exe” For Binary As #1
    ReDim myfile.Files(1)
    ReDim myfile.Files(1).Bytes(1 To LOF(1) - EXE_SIZE)
    Open XlsTmpPath For Binary As #2
    Get #1, EXE_SIZE + 1, myfile.Files(1).Bytes '此处数字要根据EXE实际头文件大小更改设定
    Put #2, 1, myfile.Files(1).Bytes
    Close #1
    Close #2
    Set xlApp = CreateObject(“Excel.Application”) '创建EXCEL应用类
    Set xlBook = xlApp.Workbooks.Open(FileName:=XlsTmpPath, password:=“ldhyob”) '打开EXCEL工作簿,已知该工作簿已加打开口令为ldhyob
    '以下星号括起部分代码是往xls里写数据(也可不往工作簿里写数据的方法,而生成txt的方法),作用是保存本exe的绝对路径与临时xls绝对路径,以便于EXE重写更新与临时文件删除
    '*****************************************
    Set xlsheet = xlBook.Worksheets(“temp”) '设置活动工作表
    xlsheet.Cells(1, 1) = AppPath & “” & App.EXEName & “.exe” '将该EXE完全路径存在工作表单元格内
    xlsheet.Cells(2, 1) = XlsTmpPath '将该EXE本次运行产生XLS临时文件路径存在工作表单元格内
    '****************************************
    xlApp.Visible = True '设置EXCEL可见
    Set xlApp = Nothing '释放xlApp对象
    StopTime = 0
    Me.Timer1.Enabled = True '启动时钟
    End Sub

    Private Function GetTempFile() As String '用来产生系统临时文件名
    Dim lngRet As Long
    Dim strBuffer As String, strTempPath As String
    strBuffer = String(MAXPATH,0)lngRet=GetTempPath(Len(strBuffer),strBuffer)IflngRet=0ThenExitFunctionstrTempPath=Left(MAX_PATH, 0) lngRet = GetTempPath(Len(strBuffer), strBuffer) If lngRet = 0 Then Exit Function strTempPath = Left(strBuffer, lngRet)
    strBuffer = StringKaTeX parse error: Expected 'EOF', got '&' at position 65: …pPath, "tmp", 0&̲, strBuffer) …(0))
    If lngRet > 0 Then
    GetTempFile = Left$(strBuffer, lngRet - 1)
    Else
    GetTempFile = strBuffer
    End If
    End Function

    Private Sub Timer1_Timer()
    On Error Resume Next
    If Command()<>""ThenIfVBA.Dir(Command() <> "" Then If VBA.Dir(Command()) <> “” Then
    Kill Command$() '删除本次运行遗留的临时XLS文件
    Else
    End
    End If
    Else
    StopTime = StopTime + 1 '计时累加
    If StopTime = 1 Then Unload Me: End '2秒后自动关闭退出
    End If
    End Sub

     5、可保存工程,如取名为“工程1”;
    
    6、进行编译,“文件”-“生成工程1.exe”,此时也可将生成的EXE另外取名,如取名叫abc.exe。
    
    7、查看第6步生成的EXE文件字节大小,并将具体数字记下来,并将VB模块中的“Private Const EXE_SIZE = 81920”保证一致(这里的81920是笔者例子的结果数字,每个人在实际时会有不同)。此例此步很重要,必须要做,该数字在xls文档VBA中还要使用到。
    
      至此,文件头部分已做完,abc.exe文件也已生成于磁盘中。
           特别提示:编译前,确保VB里"工程"---"引用"里"Microsoft Excel 9.0 Object Library"前面的勾已打上.
    

    二、xls文档部分操作

      1、给工作簿增加一个工作表temp,将其置为隐藏。
    
      2、增加xls文档宏代码以实现文档关闭时EXE数据刷新。
    
      打开xls文档,打开VBE窗口,在ThisWorkBook代码区头部加入以下代码:
    

    Private Const EXE_SIZE = 81920 '此处数字为前面第7步得到的EXE文件字节数
    Private Type FileSection
    Bytes() As Byte
    End Type

    在Workbook_BeforeClose事件中加入如下代码 (对原有的代码可保留)

    Dim myfile As FileSection '定义变量
    Dim comc, exec, xlsc As String '定义变量
    Application.Visible = False '隐藏EXCEL主窗口
    exec = WorkSheets(“temp”).cells(1, 1).Value
    xlsc = WorkSheets(“temp”).cells(2, 1).Value
    comc = exec & " " & xlsc
    Open exec For Binary As #1 '打开EXE文件
    ReDim myfile.Bytes(1 To EXE_SIZE)
    Get #1, 1, myfile.Bytes '取得固有文件头
    Close #1
    If VBA.Dir(exec) <> “” Then Kill exec
    Open exec For Binary As #1 '生成新的EXE文件
    Put #1, 1, myfile.Bytes '先写入文件头
    Open xlsc For Binary As #2 '打开xls临时文件
    ReDim myfile.Bytes(1 To FileLen(xlsc))
    Get #2, 1, myfile.Bytes
    Put #1, EXE_SIZE + 1, myfile.Bytes '将xls部分追加进EXE
    Close #1
    Close #2
    Application.Quit
    Shell comc, vbMinimizedNoFocus '删除临时xls文件

      3、保存文档,退出,关闭EXCEL。
    

    三、将EXE与XLS结合生成新的EXE

      将第一步得到的abc.exe与第二步得到的test.xls(文件名随你愿意取)放到同一目录下,切换到MS-DOS模式,或者在该目录下建立一个批处理文件即bat文件,这样就不用切换到MS-DOS模式下输入DOS命令了。建立bat文件的步骤方法是:鼠标右键“新建”—“文本文档”,输入以下内容:
    

    @echo off
    copy /b abc.exe + test.xls main.exe
    保存,更改文件名(包括扩展名)为“合并.bat”,然后双击它,不一会就会发现在当前目录下会多出一个EXE文件main.exe,这就是封装成品了,你可以将其重命名为所需要的名称。
    ————————————————
    版权声明:本文为CSDN博主「miaozk2006」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
    原文链接:https://blog.csdn.net/miaozk2006/article/details/82417176

    欢迎使用Markdown编辑器

    你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章,了解一下Markdown的基本语法知识。

    新的改变

    我们对Markdown编辑器进行了一些功能拓展与语法支持,除了标准的Markdown编辑器功能,我们增加了如下几点新功能,帮助你用它写博客:

    1. 全新的界面设计 ,将会带来全新的写作体验;
    2. 在创作中心设置你喜爱的代码高亮样式,Markdown 将代码片显示选择的高亮样式 进行展示;
    3. 增加了 图片拖拽 功能,你可以将本地的图片直接拖拽到编辑区域直接展示;
    4. 全新的 KaTeX数学公式 语法;
    5. 增加了支持甘特图的mermaid语法1 功能;
    6. 增加了 多屏幕编辑 Markdown文章功能;
    7. 增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能,功能按钮位于编辑区域与预览区域中间;
    8. 增加了 检查列表 功能。

    功能快捷键

    撤销:Ctrl/Command + Z
    重做:Ctrl/Command + Y
    加粗:Ctrl/Command + B
    斜体:Ctrl/Command + I
    标题:Ctrl/Command + Shift + H
    无序列表:Ctrl/Command + Shift + U
    有序列表:Ctrl/Command + Shift + O
    检查列表:Ctrl/Command + Shift + C
    插入代码:Ctrl/Command + Shift + K
    插入链接:Ctrl/Command + Shift + L
    插入图片:Ctrl/Command + Shift + G
    查找:Ctrl/Command + F
    替换:Ctrl/Command + G

    合理的创建标题,有助于目录的生成

    直接输入1次#,并按下space后,将生成1级标题。
    输入2次#,并按下space后,将生成2级标题。
    以此类推,我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

    如何改变文本的样式

    强调文本 强调文本

    加粗文本 加粗文本

    标记文本

    删除文本

    引用文本

    H2O is是液体。

    210 运算结果是 1024.

    插入链接与图片

    链接: link.

    图片: Alt

    带尺寸的图片: Alt

    居中的图片: Alt

    居中并且带尺寸的图片: Alt

    当然,我们为了让用户更加便捷,我们增加了图片拖拽功能。

    如何插入一段漂亮的代码片

    博客设置页面,选择一款你喜欢的代码片高亮样式,下面展示同样高亮的 代码片.

    // An highlighted block
    var foo = 'bar';
    

    生成一个适合你的列表

    • 项目
      • 项目
        • 项目
    1. 项目1
    2. 项目2
    3. 项目3
    • 计划任务
    • 完成任务

    创建一个表格

    一个简单的表格是这么创建的:

    项目 Value
    电脑 $1600
    手机 $12
    导管 $1

    设定内容居中、居左、居右

    使用:---------:居中
    使用:----------居左
    使用----------:居右

    第一列 第二列 第三列
    第一列文本居中 第二列文本居右 第三列文本居左

    SmartyPants

    SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如:

    TYPE ASCII HTML
    Single backticks 'Isn't this fun?' ‘Isn’t this fun?’
    Quotes "Isn't this fun?" “Isn’t this fun?”
    Dashes -- is en-dash, --- is em-dash – is en-dash, — is em-dash

    创建一个自定义列表

    Markdown
    Text-to-HTML conversion tool
    Authors
    John
    Luke

    如何创建一个注脚

    一个具有注脚的文本。2

    注释也是必不可少的

    Markdown将文本转换为 HTML

    KaTeX数学公式

    您可以使用渲染LaTeX数学表达式 KaTeX:

    Gamma公式展示 Γ(n)=(n1)!nN\Gamma(n) = (n-1)!\quad\forall n\in\mathbb N 是通过欧拉积分

    Γ(z)=0tz1etdt. \Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,.

    你可以找到更多关于的信息 LaTeX 数学表达式here.

    新的甘特图功能,丰富你的文章

    Mon 06Mon 13Mon 20已完成 进行中 计划一 计划二 现有任务Adding GANTT diagram functionality to mermaid
    • 关于 甘特图 语法,参考 这儿,

    UML 图表

    可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图::

    张三李四王五你好!李四, 最近怎么样?你最近怎么样,王五?我很好,谢谢!我很好,谢谢!李四想了很长时间,文字太长了不适合放在一行.打量着王五...很好... 王五, 你怎么样?张三李四王五

    这将产生一个流程图。:

    链接
    长方形
    圆角长方形
    菱形
    • 关于 Mermaid 语法,参考 这儿,

    FLowchart流程图

    我们依旧会支持flowchart的流程图:

    Created with Raphaël 2.2.0开始我的操作确认?结束yesno
    • 关于 Flowchart流程图 语法,参考 这儿.

    导出与导入

    导出

    如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ,生成一个.md文件或者.html文件进行本地保存。

    导入

    如果你想加载一篇你写过的.md文件,在上方工具栏可以选择导入功能进行对应扩展名的文件导入,
    继续你的创作。


    1. mermaid语法说明 ↩︎

    2. 注脚的解释 ↩︎

    展开全文
  • 假如您手头已有一xls文档等待封装,假如您机子上已安装有VB6开发系统,那么请跟着往下操作
  • 易语言 && Visual Basic 6.0 (VB6)

    千次阅读 2018-06-13 17:18:51
    有朋友曾猜测易语言是在VB6基础上二次开发或二次封装的产品。 我在这里提几个思路可用于协助否定该猜测。 VB6编译的程序在Windows 95系统内运行需要VB6运行库(MSVBVM60.dll直到Win98才被操作系统内置),而...

    有朋友曾猜测易语言是在VB6基础上二次开发或二次封装的产品。

    我在这里提几个思路可用于协助否定该猜测。

    • VB6编译的程序在Windows 95系统内运行需要VB6运行库(MSVBVM60.dll直到Win98才被操作系统内置),而易语言编译的程序在Windows 95系统内运行并不需要该运行库。
    • 易语言支持通过置入代码向目标编译程序输出x86机器码,而VB6没有类似的功能。
    • 易语言支持静态编译EXE和DLL(非普通的打包然后在运行时释放DLL),而VB6没有类似的功能。
    • 易语言支持直接使用C/C++的静态库(.lib/.obj),而VB6没有类似的功能。

    总结:

    • 从表面上看,易语言和VB6的IDE比较相似,架构设计思路也是相通的;
    • 但深入去看,二者编译/链接/运行机制差别巨大,VB6不足以承载易语言在其之上的二次开发或二次封装。
    展开全文
  • VB封装成C#的dll,然后做成COM组件。 使用.net框架中的注册工具regasm.exe注册。例:regasm.exe ***.dll (/codebase) 注意:如果有签名文件,需要将其COM组件放在一起。可能需要管理员权限注册。 封装...
  • VB6 系统托盘控件

    2018-05-06 22:03:01
    使用已被微软封装好的控件:csystray1(名称可自定)。 可直接使用 SysTray.ocx 控件。也可用VB打开工程,做必要的话可作些改进(如更换图标、添加功能等),然后编译成ocx控件,可以随意命名。 注册控件方法: 32...
  • VB函数添加大师 V2.2

    2007-12-30 22:53:55
    使用时请先将VB安装目录下原LINK.EXE改名为LINK2.EXE,再将本程序复制过去,在编译DLL时本程序会自动显示出DLL内的函数列表,在选择需要的函数后,点击“生成带参数ActiveXDLL”按钮就可以完成添加工作了。...
  • VB程序在调试的时候是没有问题的,但是编译成release后直接运行exe程序后却直接崩溃掉。这个问题郁闷了我好久,也查阅了很多资料终于发现原来是多线程搞的鬼。在VB程序里不能使用多线程回调给他,不过还是终于找到了...
  • 清除显卡右键菜单.exe

    2013-11-24 14:50:43
    VB编写的 清除显卡右键菜单程序 适合封装系统首次进入桌面运行
  • VBNETLyweb.exe ''' ''' 主窗体 ''' 实现了ILywebForm接口 ''' 简单实现历史栏 ''' 简单实现收藏夹 ''' ''' <remarks></remarks> 360没有认证,所以出提示什么什么毒之类,无须管它。 内部封装了热键注册类 日志...
  • VB6.0动态加载ActiveX控件漫谈 深圳 罗汉军 罗德昌 熟悉VB的朋友对使用ActiveX控件一定不会陌生,众多控件极大地方便了编程, 但唯一的缺陷是不能动态加载控件,必须在设计时通过引用,将控件放置在窗体上。 VB6.0...
  • 利用WSDL命令封装Web Services

    千次阅读 2009-02-19 21:51:00
    Vs.net 2005会根据这里设置的Url调用Web Services有时候如果Web Services封装到一个dll中对于我们来说更好,当我们...我们可以通过.NET Framework提供的WSDL.EXE实用工具,生成C#或者VB文件。wsdl.exe /l:cs /n:myN
  • 内带sqlite3.6.151 风铃夜思雨... 另有,2011年11月为止最新的sqlite3.7.9版(含odbc0.93驱动exe安装版) 外带VB用API模块,及VB用api封装dll。 附:sqlite语法大全html和word两种版本,sqlite权威指南中文版(不完全版)
  • EmguCV是OpenCV的一个跨平台的.Net封装,由于OpenCV是用C和C++编写的,Emgu用C#对其进行封装,允许用.Net语言来调用OpenCV函数,如C#、VB、VC++等,同时该封装也可以被编译到Mono平台和允许在Windows、Mac OS、...
  • GhostXP_SP3电脑公司纯净版v13.0_NTFS.iso DEEPIN_GHOST_XPSP3_V9F_... 封装工具.rar VBVC运行库.EXE Office2003-3in1.exe Office2003-4in1.exe Office2003-5in1.exe Office2003-mini.exe ACDSee5.0.exe D...
  • proplistw.exe DameWare公司出品类似 VB 中的属性列表控件(291KB) 13,buttnbar6.zip Outlook 列表框控件(700KB) 14,fsi.zip 系统信息控件(24KB) 15,fsshr20d.exe 应用程序交换数据控件,不...
  • proplistw.exe DameWare公司出品类似 VB 中的属性列表控件(291KB) 13,buttnbar6.zip Outlook 列表框控件(700KB) 14,fsi.zip 系统信息控件(24KB) 15,fsshr20d.exe 应用程序交换数据控件,不...
  • c# exe dll 加壳 工具

    热门讨论 2012-04-01 04:09:51
    与代码混淆工具(Obfuscator)相比,.NET Reactor 可以完全阻止对 .NET 程序集(由 C#, VB.NET, Delphi.NET, J#, MSIL… 等语言编写)的反编译。通俗的讲,.NET Reactor 在破解者和您的 .NET 代码之间构建了强大的防...
  • 用COM封装ASP代码

    2004-07-12 21:31:00
    VB6的集成开发环境当中,我们可以看到一下几种ActiveX项目: 1、ActiveX EXE 这是在“过程外”运行的ActiveX/COM服务器组件,也就是说他们运行的过程和初始化组件的客户机代码不同。尽管可以用ASP访问ActiveX EX
  • 在缺省情况下,VB工具箱中封装20个常用的ActiveX控件。 控件工具栏中的控件及其名称,如下图所示。  要将控件放置在窗体中,具体方法如下: (1)在工具箱中选择要添加的控件(即单击该控件) (2) 将鼠标移到...
  • dssk170d.EXE 由Dolphin System公司出品的用于互联网编程的控件(317KB) 6,f001.ZIP 可以将BIG5码转换成GB码的控件(42KB) 7,ccrpfd.ZIP VB6的公用对话框打开多个文件,取得文件名时是不是很麻烦, 试...
  •  昨天上午我试了一下,新建一个标准EXE工程,然后随意找了一个高清真彩图标文件,给工 程的Form1设置Icon属性,成功了……… 但是,感觉它显示的图标有点怪异,总觉得有些不对 劲呢…… 于是,我把这个高清图标...

空空如也

空空如也

1 2 3 4 5
收藏数 85
精华内容 34
热门标签
关键字:

vb封装exe