欢迎光临 - 嗷嗷叫的老马 - 写了一个进程间通讯的类....以后做类似的程序时就方便了(VB6.0)

写了一个进程间通讯的类....以后做类似的程序时就方便了(VB6.0) [ 2007-06-20 \| 作者：马大哈 \| 来自：本站原创]
之前要做一个进程间通讯的例子,为了以后方便,就做了一个这样的类使用很简单,在代码里面一目了然,这里就不细说了.... 包里的EXE运行两份,然后在Text2里输入字符,回车,就可以看到效果了. 代码在这里: 点击下载此文件

我发现我越来越会抬杠了......咳咳.....

广东学生群K视频.....(摘于网络)

hgigiu 于 2011-10-13 09:30 PM 发表评论：

太阳伞广告伞制作太阳伞图片上海广告伞广告伞价格铅笔伞伞广告伞太阳伞上海地区广告伞太阳伞专业定做！www.sh513.com 上海地铁爱心伞制造商按此在新窗口打开图片

马大哈于 2011-06-18 11:47 PM 发表评论：

已经发送到你的邮箱了,请查收

liuxin_ming 于 2011-06-10 07:07 PM 发表评论：

写了一个进程间通讯的类....以后做类似的程序时就方便了(VB6.0) 附件下载不下来，是不是过期了呀

马大哈于 2009-09-11 03:29 AM 发表评论：

修正一下上面的地址: [URL]http://www.m5home.com/blog2/blogview.asp?logID=365&cateID=2[/URL]

2569 于 2008-09-01 11:19 AM 发表评论：

马大哈于 2007-07-07 01:29 PM 发表评论：

可能里面的字符串长度没有处理好使用lstrlen应该不会有这问题了.... 晚上有时间我改改看

everyone 于 2007-07-07 11:09 AM 发表评论：

输入“123”，发到那边，就只剩“12”了。我也来转发一个，dde的。好象工程只能保存为P1.vbp，要不然无效。忘了从哪copy过来的。 '打开VB，新建一个工程，选择菜单中的“工程->工程1 属性”，把工程名称改为“P1”，把已有的一个窗 '体的“LinkTopic”属性改为“FormDDE”，把“LinkMode”属性改为“1 - Source”，添加一个Picture 'Box控件作为DDE执行控件，命名为picDDE。然后添加一个 TextBox控件，命名为“txtInfo”，并把“Mul 'tiLine”属性设置为“True”，以便显示多行文本，作为消息显示控件。最后在窗体代码区输入以下代码 Const COMMANDLINE = "CommandLine=" '注释：还是为了省事，定义一个常量 Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer) Static lngCount As Long Dim Info As String Info = txtInfo.Text '注释：保留原有信息 Select Case CmdStr '注释： 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 + "但怕您不多给工资，所以只运行了一个 ^_^" End Select If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then Info = Info + vbNewLine + "新程序曾以命令行形式运行" + vbNewLine + "命令行为：" _ + vbNewLine + Right(CmdStr, Len(CmdStr) - Len(COMMANDLINE)) End If txtInfo.Text = Info '注释：把信息显示出来 Cancel = False End Sub Private Sub LinkAndSendMessage(ByVal Msg As String) Dim t As Long picDDE.LinkMode = 0 '注释：-- picDDE.LinkTopic = "P1|FormDDE" '注释： |______连接DDE程序并发送数据/参数 picDDE.LinkMode = 2 '注释： | “|”为管道符，是“退格键”旁边的竖线， picDDE.LinkExecute Msg '注释：-- 不是字母或数字！ t = picDDE.LinkTimeout '注释：-- picDDE.LinkTimeout = 1 '注释： |______终止DDE通道。当然，也可以用别的方法 picDDE.LinkMode = 0 '注释： | 这里用的是超时强制终止的方法 picDDE.LinkTimeout = t '注释：-- End Sub Private Sub Form_Load() If App.PrevInstance Then '注释: 程序是否已经运行 Me.LinkTopic = "" '注释：这两行用于清除新运行的程序的DDE服务器属性， Me.LinkMode = 0 '注释：否则在连接DDE程序时会出乱子的 LinkAndSendMessage "Max" '注释：-- LinkAndSendMessage "Count" '注释： |-----连接DDE接受程序并传送数据/参数 LinkAndSendMessage "ShowTime" '注释：-- If Command <> "" Then '注释：如果有命令行参数，就传递过去 LinkAndSendMessage COMMANDLINE + Command End If End '注释：结束新程序的运行 End If End Sub '测试一下: '把工程“P1”编译成EXE文件（设名称为 P1.EXE ） '1、打开“我的电脑”，找到 P1.EXE 并执行。可以看到程序正常运行了。 '2、再运行一次，这次新程序没有运行成功，而原来运行的程序却被最大化了，而且文本框中有以下字符: '窗体已被最大化 '你已经第 1次重复调用这个程序 '但怕您不多给工资，所以只运行了一个。 '最后一次运行这个程序的时间是：05-2-6 7:11:01 '3、打开 MS-DOS方式，用命令行方式再次运行程序，如 “P1 How Are You?”，这时原来运行的程序文 '本框中又多了几行字： '窗体已被最大化 '你已经第 2次重复调用这个程序。 '但怕您不多给工资，所以只运行了一个 '最后一次运行这个程序的时间是：05-2-6 7:14:32 '新程序曾以命令行形式运行 '命令行为: 'How Are You? 'OK，运行完全正确，然后你就可以把它应用的你的程序中了。

马大哈于 2007-06-26 11:40 PM 发表评论：

如果出现无法执行,可能需要注册一下那个类型库... 在这里: http://www.m5home.com/blog/blogview.asp?logID=365&cateID=2