精华内容
下载资源
问答
  • 在一个EXE文件保存密码[1].不同于利用注册表保存密码,用于注册码保护你发布的应用程序
  • 摘要:VB源码,文件操作,提取图标,应用程序,EXE 从DLL和EXE文件中提取图标,显示在图片框上Vb提取抓出EXE/DLL应用程序的图标存档,有些程序内的图标不只有一个,是一组图标,用于在不同状态下显示,不管有多少个...
  • 从DLL和EXE文件中提取图标,显示在图片框上Vb提取抓出EXE/DLL应用程序的图标存档,有些程序内的图标不只有一个,是一组图标,用于在不同状态下显示,不管有多少个图标,本程序提取到,并且可以将选中的图标...
  • 1.打开VB6 2.选择新建一个标准EXE 3.做好程序 4.点击“”文件“”菜单 ...'调用EXE文件程序 Dim Progpfad As String Sub main() Progpfad = "这里为EXE文件路径" MyAppID = Shell(Progpfad, 1) End Sub ...

    1.打开VB6
    在这里插入图片描述
    2.选择新建一个标准EXE
    在这里插入图片描述
    3.做好程序
    f
    4.点击“”文件“”菜单
    在这里插入图片描述
    5.选择生成选项在这里插入图片描述
    6.保存应用程序到自定义路径在这里插入图片描述
    7.完成在这里插入图片描述
    '调用EXE文件宏程序
    Dim Progpfad As String

    Sub main()

      Progpfad = "这里为EXE文件路径"
    

    MyAppID = Shell(Progpfad, 1)

    End Sub

    展开全文
  • exe文件放入数据库资料表, 保存为image类型数据.  客户端连接数据库将内容下载到本地. exe文件名为"TEST". Dir(strFile) '查找文件 Kill strFile '删除文件 Shell(appPath & "\TEST.exe", vbNormalFocus) ...

    开发环境VB6

    用文件替换来实现程式版本更新.

    将exe文件放入数据库资料表, 保存为image类型数据. 

    客户端连接数据库将内容下载到本地.

    exe文件名为"TEST".

    Dir(strFile) '查找文件

    Kill strFile '删除文件

    Shell(appPath & "\TEST.exe", vbNormalFocus) '执行文件

    使用ADO GetChunk/AppendChunk 数据库存取二进制文件

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    FindWindow(vbNullString, "TEST") '按名字查找窗口, 用来判断TEST.exe是否正在执行.

    Open strFile For Binary As #1   '创建2进制文件

     Put #1, , ByteX  '将ByteX写入文件


    将exe文件存入数据库资料表

        Open strFileName For Binary As #intFile  '打开文件
            lngCount = LOF(intFile)
            ReDim bData(lngCount) As Byte
            Get #intFile, , bData   '将文件放入2进制变量
        Close #intFile


    Dim adoRs As New ADODB.Recordset

           If DbConnection = True Then  '开启数据连接 , 代码省略

            With adoRs
                .Open " Select projectname,projectdesc,projectexe,filecreatedate," _
                        & " usermoddate,moduserip From projectversion " _
                        & " Where projectname='" & strFileShortName & "' and filecreatedate>='" _
                        & Format(FileDateTime(strFileName), "yyyy-MM-dd hh:MM:ss") & "' " _
                        , Cn, adOpenDynamic, adLockOptimistic


                If .EOF Then
                    .AddNew
                End If
                .Fields("projectname") = strFileShortName
                .Fields("projectdesc") = "TEST"
                .Fields("projectexe").AppendChunk bData()
                .Fields("moduserip") = Trim(Me.Winsock1.LocalIP)
                .Fields("filecreatedate") = Format(FileDateTime(strFileName), "yyyy-MM-dd hh:MM:ss")
                .Fields("usermoddate") = Format(Now, "yyyy-MM-dd hh:MM:ss")
                .Update
                
            End With

    End If 


    客户端连接数据库下载exe文件,替换本地文件. 

    Dim ByteX() As Byte
    Dim AdoFile As New ADODB.Recordset

    Dim strFile As String 

    strFile = "appPath\TEST.exe" 'exe文件存放路径

        AdoFile.Open "select projectname,projectexe,filecreatedate " _
                & " from projectversion where projectname = 'TEST' order by filecreatedate desc", Cn, adOpenDynamic, adLockOptimistic
        If Not AdoFile.EOF Then
            AdoFile.MoveFirst
            If AdoFile.Fields("projectexe").ActualSize > 0 Then
                ByteX = AdoFile.Fields("projectexe").GetChunk(AdoFile.Fields("projectexe").ActualSize)
                If Dir(strFile) <> "" Then Kill strFile  'exe文件已存在,则删除.
                Open strFile For Binary As #1   '创建2进制文件
                Put #1, , ByteX  '将ByteX写入
                Close #1

     End If 

     End If 


    展开全文
  • VB反编译,可以把EXE转成工程文件

    热门讨论 2008-11-08 22:14:51
    VB反编译,可以把EXE转成工程文件 VB反编译,可以把EXE转成工程文件
  • 这是用VS2010+Mscomm控件编程实现了串口调试助手的代码,并能把下位机串口通过串口发送过来的数据存储在电脑F盘的data.txt文件中(具体位置和文件名可自己改),具体一步一步是怎么实现的,可以参考我的博客:...
  • VB+acc开发的一个小助手,很简单,实用性强,支持所有代码、特殊符号数据库二进制转换保存和查询显示。...(压缩包里面****①代码查询保存小助手.exe*****②vb_help.mdb******2个是实际要用的文件,其他为VB源代码。)
  • 1,运行一个EXE程序 Dim mProcID As LongmProcID = Shell(FileName) 2,把这个EXE程序关闭掉 Option Explicit Const PROCESS_QUERY_INFORMATION = &H400 Const PROCESS_TERMINATE = &H1 Privat
    1,运行一个EXE程序  
    
    1. Dim   mProcID   As   Long
    2. mProcID   =   Shell(FileName)
    2,把这个EXE程序关闭掉
    1.  Option   Explicit  
    2.    Const   PROCESS_QUERY_INFORMATION   =   &H400  
    3.    Const   PROCESS_TERMINATE   =   &H1  
    4.    Private   Declare   Function   OpenProcess   Lib   "kernel32"   (ByVal   dwDesiredAccess   As   Long,   ByVal   bInheritHandle   As   Long,   ByVal   dwProcessId   As   Long)   As   Long  
    5.    Private   Declare   Function   CloseHandle   Lib   "kernel32"   (ByVal   hObject   As   Long)   As   Long  
    6.    Private   Declare   Function   TerminateProcess   Lib   "kernel32"   (ByVal   hProcess   As   Long,   ByVal   uExitCode   As   Long)   As   Long  
    7.     
    8.    Sub   main()  
    9.            Dim   mProcID   As   Long  
    10.            Dim   hProcess     As   Long  
    11.            mProcID   =   Shell("notepad.exe",   1)   '此处利用了   Shell当函数使用时返回的任务标识  
    12.            hProcess   =   OpenProcess(PROCESS_TERMINATE   Or   PROCESS_QUERY_INFORMATION,False,mProcID)  
    13.            Call   TerminateProcess(hProcess,   3838)  
    14.    End   Sub     
    OpenProcess()的第一个叁数,指的是所取得的hProcess所具有的能力,像PROCESS_QUERY_INFORMATION   便是让GetExitCode()可取得hProcess所指的process之状态,而PROCESS_TERMINATE,便是让 TerminateProcess(hProcess..)的指令能够生效,也就是说,不同叁数设定,使hProcess所具有的权限、能力有所不同。
        本例子将第一个参数设为PROCESS_TERMINATE   Or   PROCESS_QUERY_INFORMATION都可。
    3,通过API函数SendMessage发送一个WM_CLOSE消息,关闭当前EXE窗口    
    1. Private Const WM_CLOSE = &H10
    2. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As StringAs Long
    3. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As Long, lParam As Any) As Long
    4. hwnd = FindWindow(0&, "搜索窗口的标题Title"
    5. Call SendMessage(hwnd,WM_CLOSE, 0, ByVal 0&) 
    4,通过模拟点击鼠标左键,点击画面关闭按钮
    1.  Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long  
    2.    Private   Declare   Function   FindWindow   Lib   "user32"   Alias   "FindWindowA"   (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Long
    3.    Private   Declare   Function   FindWindowEx   Lib   "user32"   Alias   "FindWindowExA"   (ByVal   hWnd1   As   Long,   ByVal   hWnd2   As   Long,   ByVal   lpsz1   As   String,   ByVal   lpsz2   As   String)   As   Long
    4.  Private Const BM_CLICK = &HF5
    5.  Dim fw as Long
    6.  Dim hWnd as Long
    7.   fw   =   FindWindow(vbNullString,   "窗口标题Title")  
    8.    hWnd   =   FindWindowEx(fw,   0,   "Button类名OR 0",   Button的Caption)  
    9.    SendMessage   hWnd,   BM_CLICK,   0,   ByVal 0& 
       这段例子在VB6.0的IDE中Debug时,有可能会出现下列错误,直接无视之,只要编译成EXE后,就不存在这个问题了,IDE的Bug

    Err: -2147417843 - Automation Error : An Out Going Call Cannot Be Made Because The Application Is Dispatching An Input Asynchronous Call

    5,在实验过程中用到的几个API,也分享一下
    1. Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" _
    2. (ByVal hWnd As LongByVal lpClassName As StringByVal nMaxCount As LongAs Long
    3. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
    4.     ByVal hWnd As Long, _
    5.     ByVal sWndTitle As String, _
    6.     ByVal cLen As LongAs Long
    7. Declare Function ShowWindow Lib "user32.dll"  _
    8.     (ByVal hWnd As LongByVal nCmdShow As LongAs Long
    9. Declare Sub Sleep Lib "kernel32.dll" _
    10.         (ByVal dwMillsecounds As Long)
    11. Private Const SW_RESTORE = &H9
    12. Private Const BM_CLICK = &HF5
    13. Dim hWnd As Long
    14. Dim hWndBtn As Long
    15. Dim temp As String
    16. hWnd = FindWindow(vbNullString, "窗口标题Title")
    17. Call ShowWindow(hWnd, SW_RESTORE) '窗口活性化
    18. hWndBtn = FindWindowEx(hWnd, 0&, 0&, "按钮的Caption")
    19. temp = String(256, Chr(0))
    20. Call GetClassName(hWndBtn, temp, 256)  '可以查看对象类名
    21. temp = String(256, Chr(0))
    22. Call GetWindowText(hWndBtn, temp, 256) '可以查看对象Caption
    23. Call SendMessage(hWndBtn, BM_CLICK, 0, ByVal 0&)
    参考的资料网址
    帖子  如何关闭Shell打开的窗口?
    http://topic.csdn.net/t/20040804/14/3241643.html
    帖子  用sendmessage实现自动点击指定窗口中的指定按钮的问题
    http://topic.csdn.net/t/20040819/03/3288355.html
    用FindWindowEx找不到我要的Button,但EnumChildWindows可以遍历到它???
    http://topic.csdn.net/t/20060823/13/4969697.html
    展开全文
  • VB 生成的EXE怎么更换桌面图标

    千次阅读 2015-12-29 22:55:52
    首先 : ico要是32*32像素的 可以百度vb专用的图标 方法一:窗体form的Icon属性里添加一个图标 ...在桌面上F5,或者把这个exe移动到别的目录后改个文件名再移回来就显示新修改的图标了, 原因在于

    首先 :
    ico要是32*32像素的
    可以百度vb专用的图标
    方法一:窗体form的Icon属性里添加一个图标
    方法二:工程--工程属性-生成--图标 选择此窗体的图标就行了。
    当然,必须选择支持的图标才行。


    大多数人经过上面两步还是没改变桌面图标,可以看下面的方法:
    在桌面上F5,或者把这个exe移动到别的目录后改个文件名再移回来就能显示新修改的图标了,
    原因在于桌面文件夹的图标缓存没更新,我以前遇到过。



    展开全文
  • VB6.0的“工程-引用”中有很多控件供用户使用,但有时需要自己编写dll文件以实现...本文介绍如何自己编写一个简单的dll文件,然后在win7 64位下使用regsvr32注册,VB6.0中引用,最后在标准EXE中调用实现某些功能。
  • 完美可用-DirectX修复工具增强版DirectX Repair

    万次阅读 热门讨论 2018-12-06 11:19:34
    DirectX修复工具最新版:DirectX Repair V3.7 增强版 NEW! 版本号:V3.7.0.26539 大小: 107MB/7z格式压缩,189MB/zip格式压缩,...MD5校验码:DirectX Repair.exe/0615325098da4e624ef854af60b56ba2  DirectX_...
  •  再选择"外接程序管理器",你应该可以看到在列表中有"Create DLLs in VB 6.0,然后选择它,在窗口右下方的"加载行为"中把"在启动中加载"和"加载/卸载"都钩选,点确定,再次关闭VB 6.0  4. 再次启动VB,建立一个...
  • VB程序破解

    千次阅读 2016-04-02 16:03:34
    VB程序的破解思路总结、编译方式vs破解工具 比较 把一个简单的VB计时器程序研究透了,对于VB破解应有较大帮助,如有错误欢迎指出。 VB程序也是一个非常有趣的东西,你去看VB的主程序,是用Microsoft Visual ...
  • 今天总结一下VB.NET的程序打包方法,及更改打包后的快捷方式图标。 第一步打开自己想打包的程序文件,然后工具栏选择“文件”,“新建项目”如下图1所示。 图1 完成第一步后进入第二步,在其他项目类型里找到“安装...
  • 按下列方法从VB资源文件中释放出的EXE文件为何运行不了?为何必须用二进制文件编辑器将释放出的EXE文件文件头多了12字节)的前12字节才能正常运行? 二、实现“绿色”软件 现在非常流行“绿色”软件,不...
  • vb 程序破解

    千次阅读 2017-09-02 16:44:57
    这里我尽量多和详细地解释了VB程序的破解(其实也可看到反破解)的相关东西,把一个简单的VB计时器程序研究透了,对于VB破解应有较大帮助,如果觉得无用的不要喷,谢谢!可能包含错误认识,如有错误欢迎指出。 VB程序...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,以此为基础,能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言...
  • 关于VC与VB调用matlab的exe文件.

    千次阅读 2015-01-06 13:04:55
    前些天帮同学调试关于matlab的毕业设计,图像处理的。具体的实现倒没什么,开始需要我帮忙的是在VC里显示MATLAB的处理...一、生成独立可执行的程序exe文件)步骤  1、安装编译器。可有多种选择,matlab自带了一
  • 我知道在/bin下会有exe文件生成,但是有没有什么方法可以象VB6.0中那样直接生成exe文件? vb.net的主要应用不是用来做标准应用程序的么? _________________________________________________________________________...
  • VB程序的脱壳技巧

    千次阅读 2016-06-06 17:49:54
    VB程序的启动方式:每个VB程序通常都会调用到许多的API,但是其中有一个API是雷 打不动的,这就是我们都知道的ThunRTMain函数。VB程序在运行时,都会首先调用 ThunRTMain函数,ThunRTMain函数将会为程序...
  • VB将TXT文本文件的诸多功能操作封装成类文件,比如读写TXT文件内容、向TXT中写入内容,修改TXT中的文件内容,保存TXT文件,甚至还包括了打印功能等,封装之后,你以后的使用就会相当的方便了。
  • VB6.0利用DrawIcon ,ExtractIcon保存程序图标.再利用shell 函数打开exe文件,两者结合即可做出一个小巧的快捷桌面.于2013.11.25所做,可把常用的程序图标添加到本快捷桌面中,打开程序时只需点击一下图标即可运行程序...
  • 很多时候自定义或者引用控件都需要注册才能使用,但是如何使要注册的dll或ocx打包到exe中,使用户下载以后看到的只是一个exe,点击直接运行呢?就像很多安全控件,如支付宝的... 首先,新建一个工程,在“外接程序
  • mid 窗口实现的编辑器,并能防止打开多个实例(32KB) 37,f020.ZIP 在VB中调用HELP文件并实现Winhelp的关键字、主题等功能(16KB) 38,f019.ZIP 如何在VB中分割一个文件并组装恢复它(18KB) 39,f018.ZIP...
  • 这里的压缩不是我们平时使用的RAR、ZIP这些工具的压缩,壳的压缩指的是针对exe、com、和dll等程序文件进行压缩,在程序中加入一段如同保护层的代码,使原程序文件代码失去本来面目,从而保护程序不被非法修改和反...
  • VB程序错误处理方法

    千次阅读 2014-05-03 13:11:37
    大家知道,即使顺序员抱有最好的愿望,而且计划工作做得非常周密,也无法防止代码泛起...假如一个历程中包含了编译错误,VB将不执行该历程,并且我们也不向用户提供带有编译错误的运行期版本应用顺序,大多数编译错
  • 常用EXE文件反编译工具

    万次阅读 2018-07-04 11:31:22
    W32DASM 软件的反编译能力和PEditor 软件的 PE 文件头编辑功能,可以更容易的分析源代码,修复损坏了的资源,可以处理 PE 格式的文件如:EXE、DLL、DRV、BPL、DPL、SYS、CPL、OCX、SCR 等 32 位可执行程序。...
  • VB讲课笔记02:VB程序开发环境

    千次阅读 2018-03-09 11:24:25
    VB讲课笔记02:VB程序开发环境一、VB的特点和版本1、VB的特点Visual Basic(简称VB)是Microsoft 公司开发的一种通用的基于对象的程序设计语言。“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 13,146
精华内容 5,258
关键字:

vb程序exe并能保存文件