vb使用dde技术为应用程序增辉上.docxVIP

VB使用DDE技术为应用程序增辉上 上网的朋友一定都用过网络蚂蚁（ Net Ants）的吧？不知你在使用过程中有没有注意过， 那就是如果你想调动两个 蚂蚁”为您效力是不可能的 一一它总会把新运行的关闭。 而蚂蚁”程序的妙处就在于：在重复运行 蚂蚁”时它不仅拒绝运行，而且能把已经运 行的蚂蚁”激活，这样用上面的程序就无能为力了。 但事实上实现拒绝运行并激活已运行的 程序有多种方法： 1、 用FindWindow函数得到已经运行窗体的句柄（ HWND），然后用SetActiveWindow 等API函 数将其激活。其缺点也很明显，那就是没法传递参数。 2、 用FindWindow函数得到已运行窗体的句柄后用 SendMessage的方法给窗体传送一 个自定义 消息（附带参数），然后在窗体中拦截并进行处理， 但这样做要修改窗体的标准消息 处理 程序，用在VC, BC或DELPHI编写的程序中还行，但在 VB中工作量太大，并且 容易发生一 般保护行错误”使VB崩溃，不太可取（当然，如果你有足够的信心和不怕崩溃的精 神，也 可以试一下 A_A）。 3、 使用DDE技术。 所谓DDE技术，就是动态数据交换技术。也许你很奇怪，这与本文所讨论的内容有什 么相干的？ 且听我慢慢讲来。 为了实现拒绝运行并把已经运行的程序激活并实现各种功能， 我们可以先用本文开头提 到的方 法，检测一下程序有没有被运行过，如果没有，就正常运行，如果已经被运行过，就打通与 它的 DDE通道，传给它一个（或一些）数据，然后由已经运行的程序对数据进行处理，再去实 现各种 意想不到”的功能，这时也许就有人对这你的程序喊： 酷、酷……” a_a 好了，耳听为虚，眼见为实，下面让我们动点真格的。 打开VB ,新建一个工程，选择菜单中的 工程-＞工程1属性”把工程名称改为 “ P1］我 爱 偷懒，能短则短a_a ）,把已有的一个窗体的“Li nkTopic属性改为“FormDDE，把 “ LinkMode ” 属性改为“ 1- Source”，添加一个PictureBox控件作为DDE执行控件，命名为 picDDE。然 后添加一个 TextBox控件，命名为“txtinfo,并把“ MultiLine属性设置为“True,以便显示多行文本，作 为 消息显示控件。 最后在窗体代码区输入以下代码: Con st COMMANDLINE = Comma ndL in e= 注释： 还是为了省事，定义一个常量 Private Sub Form_Li nkExecute(CmdStr As Stri ng, Can cel As In teger) Static In gCo unt As Long Dim Info As Stri ng Info = txtI nfo.Text 注释： 保留原有信息 Select Case CmdStr 注释： CmdStr是DDE程序传送过来的参数 Case Max Me.Wi ndowState = 2 Info = Info + vbNewLine + 窗体已被最大化 Case ShowTime Info = Info + vbNewLi ne + 最后一次运行这个程序的时间是： ” + Str(Now) Case Cou nt In gCou nt = In gCou nt + 1 Info = Info + vbNewLine + 你已经第+ Str(lngCount) + 次重复调用这个程序。 _ + vbNewL ine + 但怕您不多给工资，所以只运行了一个 A_A End Select If Left(CmdStr, Le n(COMMANDLINE)) = COMMANDLINE The n Info = Info + vbNewLine + 新程序曾以命令行形式运行 + vbNewLine + 命令行为： + vbNewLi ne + Right(CmdStr, Le n(CmdStr) - Le n(COMMANDLINE)) End If txtln fo.Text = Info 注释： 把信息显示出来 Cancel = False End Sub