VB中使用DDE技术为应用程序增辉

Eumenides0226

Eumenides0226

2016-02-19 14:20

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享VB中使用DDE技术为应用程序增辉,希望可以对大家能有小小的帮助。
上网的朋友一定都用过网络蚂蚁(NetAnts)的吧?不知你在使用过程中有没有注意过,那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。而“蚂蚁”程序的妙处就在于:在重复运行“蚂蚁”时它不仅拒绝运行,而且能把已经运行的“蚂蚁”激活,这样用上面的程序就无能为力了。但事实上实现拒绝运行并激活已运行的程序有多种方法:
  
  1、用FindWindow函数得到已经运行窗体的句柄(HWND),然后用SetActiveWindow等API函数将其激活。其缺点也很明显,那就是没法传递参数。
  
  2、用FindWindow函数得到已运行窗体的句柄后用SendMessage的方法给窗体传送一个自定义消息(附带参数),然后在窗体中拦截并进行处理,但这样做要修改窗体的标准消息处理程序,用在VC,BC或DELPHI编写的程序中还行,但在VB中工作量太大,并且容易发生“一
  般保护行错误”使VB崩溃,不太可取(当然,如果你有足够的信心和不怕崩溃的精神,也可以试一下)。
  
  3、使用DDE技术
  
  所谓DDE技术,就是动态数据交换技术。也许你很奇怪,这与本文所讨论的内容有什么相干的?且听我慢慢讲来。
  
  为了实现拒绝运行并把已经运行的程序激活并实现各种功能,我们可以先用本文开头提到的方法,检测一下程序有没有被运行过,如果没有,就正常运行,如果已经被运行过,就打通与它的DDE通道,传给它一个(或一些)数据,然后由已经运行的程序对数据进行处理,再去实现各种“意想不到”的功能,这时也许就有人对这你的程序喊:“酷、酷……”
  
  好了,耳听为虚,眼见为实,下面让我们动点真格的。
  
  打开VB,新建一个工程,选择菜单中的“工程-工程1属性”,把工程名称改为“P1”,把已有的一个窗体的“LinkTopic”属性改为“FormDDE”,把“LinkMode”属性改为“1-Source”,添加一个PictureBox控件作为DDE执行控件,命名为picDDE。然后添加一个TextBox控件,命名为“txtInfo”,并把“MultiLine”属性设置为“True”,以便显示多行文本,作为消息显示控件。
  
  最后在窗体代码区输入以下代码:
  
  ->ConstCOMMANDLINE="CommandLine="注释:还是为了省事,定义一个常量
  
  PrivateSubForm_LinkExecute(CmdStrAsString,CancelAsInteger)
  StaticlngCountAsLong
  DimInfoAsString
  
  Info=txtInfo.Text注释:保留原有信息
  
  SelectCaseCmdStr注释:CmdStr是DDE程序传送过来的参数
  Case"Max"
  Me.WindowState=2
  Info=Info vbNewLine "窗体已被最大化"
  Case"ShowTime"
  Info=Info vbNewLine "最后一次运行这个程序的时间是:" Str(Now)
  Case"Count"
  lngCount=lngCount 1
  Info=Info vbNewLine "你已经第" Str(lngCount) "次重复调用这个程序。"_
   vbNewLine "但怕您不多给工资,所以只运行了一个^_^"
  EndSelect
  
  IfLeft(CmdStr,Len(COMMANDLINE))=COMMANDLINEThen
  Info=Info vbNewLine "新程序曾以命令行形式运行" vbNewLine "命令行为:"_
   vbNewLine Right(CmdStr,Len(CmdStr)-Len(COMMANDLINE))
  EndIf
  
  txtInfo.Text=Info注释:把信息显示出来
  
  Cancel=False
  
  EndSub
  
  
  PrivateSubLinkAndSendMessage(ByValMsgAsString)
  DimtAsLong
  picDDE.LinkMode=0注释:--
  picDDE.LinkTopic="P1|FormDDE"注释:|______连接DDE程序并发送数据/参数
  picDDE.LinkMode=2注释:|“|”为管道符,是“退格键”旁边的竖线,
  picDDE.LinkExecuteMsg注释:--不是字母或数字!
  
  t=picDDE.LinkTimeout注释:--
  picDDE.LinkTimeout=1注释:|______终止DDE通道。当然,也可以用别的方法
  picDDE.LinkMode=0注释:|这里用的是超时强制终止的方法
  picDDE.LinkTimeout=t注释:--
  EndSub
  
  
  PrivateSubForm_Load()
  IfApp.PrevInstanceThen注释:程序是否已经运行
  
  Me.LinkTopic=""注释:这两行用于清除新运行的程序的DDE服务器属性,
  Me.LinkMode=0注释:否则在连接DDE程序时会出乱子的
  
  LinkAndSendMessage"Max"注释:--
  LinkAndSendMessage"Count"注释:|-----连接DDE接受程序并传送数据/参数
  LinkAndSendMessage"ShowTime"注释:--
  
  IfCommand""Then注释:如果有命令行参数,就传递过去
  LinkAndSendMessageCOMMANDLINE Command
  EndIf
  End注释:结束新程序的运行
  EndIf
  EndSub->
  测试一下:
  
  把工程“P1”编译成EXE文件(设名称为P1.EXE)
  
  1、打开“我的电脑”,找到P1.EXE并执行。可以看到程序正常运行了。
  
  2、再运行一次,这次新程序没有运行成功,而原来运行的程序却被最大化了,而且文本框中有以下字符:
  
  窗体已被最大化
  你已经第1次重复调用这个程序
  
  但怕您不多给工资,所以只运行了一个。
  
  最后一次运行这个程序的时间是:05-2-67:11:01
  
  3、打开MS-DOS方式,用命令行方式再次运行程序,如“P1HowAreYou?”,这时原来运行的程序文本框中又多了几行字:
  
  窗体已被最大化
  你已经第2次重复调用这个程序。
  但怕您不多给工资,所以只运行了一个
  最后一次运行这个程序的时间是:05-2-67:14:32
  
  新程序曾以命令行形式运行
  
  命令行为:
  
  HowAreYou?
  
  OK,运行完全正确,然后你就可以把它应用的你的程序中了。->

展开更多 50%)
分享

猜你喜欢

VB中使用DDE技术为应用程序增辉

编程语言 网络编程
VB中使用DDE技术为应用程序增辉

为VB应用程序定制浮动提示

Delphi
为VB应用程序定制浮动提示

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在Delphi应用程序中使用DLL

Delphi
在Delphi应用程序中使用DLL

在VB应用程序中使用INI文件的一点体会

编程语言 网络编程
在VB应用程序中使用INI文件的一点体会

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

AutoCAD中使用VBA创建应用程序教程

autocad教程
AutoCAD中使用VBA创建应用程序教程

在应用程序中和Applets小程序中使用archive

编程语言 网络编程
在应用程序中和Applets小程序中使用archive

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

组装电脑应该注意的7个常见的陷阱

组装电脑应该注意的7个常见的陷阱

用VB实现程序的隐形

用VB实现程序的隐形
下拉加载更多内容 ↓