说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请教高手:如何当一个程序被反复调用时利用command$?

编辑:说三道四文库 发布时间:2017-09-27 04:16
HTML文档下载 WORD文档下载 PDF文档下载
请教高手:如何当一个程序被反复调用时利用command$?

设:用VB开发的程序Myprg.exe被以myprg command$的方式调用(如在另一个VB开发的程序中用shell "myprg"+command$),当myprg已经在运行时,如果用户再一次以myprg command$的方式调用, 如何获取command$?

非常感谢!


                          Pingping
gz
不能再次获得command$?我的程序能够啊。
form code
Option Explicit

Private Sub Command1_Click()
    Shell App.Path & "\" & App.EXEName & " " & mycommand
End Sub

module code
Option Explicit
Public mycommand As String
Sub Main()
    Form1.Show
    If Len(Command$) Then
        MsgBox Command$
    End If
    mycommand = Command$ & "x"
End Sub
up
能搞定

我的“超级记事本”    就有这功能
http://yoya2000.myetang.com/zbx/index.htm

请参照“两个程序间的通讯”  
在www.21code.com有源代码   

我的问题是:
设我用VB开发了一个图形浏览程序,用户执行myprg a.bmp,myprg会启动并显示a.bmp, 当用户又一次执行myprg b.bmp时, myprg会显示b.bmp ...当用户又一次执行myprg c.bmp时, myprg会显示c.bmp ...
我知道你的意思,不过还是那样回答你。

因为第一个程序是不能获得第二个程序中的command参数的

所以只能用子类消息处理
感谢,
什麽叫"子类消息处理"?
可以用DDE技术实现的,给你个例子
Option Explicit

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    ' 注释:    把信息显示出来
'MsgBox 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
看懂了这个例子的话,应该能解决了吧
我也是从别人那里学的,现卖
Android 2.3系统自带高清UI图标下载 设置ScrollView滚动条的颜色 WakeLock使用方法示例代码 Concurrent并发库常见问题总结 Android数据库SQLite性能优化技巧 Android开发之Java设计模式基础篇 Android开发之Java设计模式入门篇 Android开发之Java设计模式 Android开发之Java并发包集合类性能分析 Android开发之Java集合类性能分析 Android开发之Java虚拟机原理和内存分配 Android开发之Java基础系列教程目录 Android Theme主题样式开发注意点 Android 3.0开发用的平板推荐 android.resource://这个Uri你知道吗 ADT插件的10.0.1必须要Eclipse 3.5才能升级 Android线程优先级设置方法 Android Zip文件解压缩代码 Android开发之设置断点单步调试 Android裁剪图片最简单方法 Android平台待开发软件列表 Android开发知识-3月13日总结 Android平板开发注意点 Android 3.0自带的天气预报例子代码 Loader和Fragment使用示例代码 LoaderManager - Android 3.0新特性 帮助ADT改进DDMS中的Logcat中文乱码问题 Fragment API将兼容Android 1.6到3.0 通过Linux Shell实现Android横竖屏切换 Android高手应该精通哪些内容? Android 2.2开始resources.arsc有改变 众爱卿可还记得本王吗? 如何根据身份证信息提取生日信息?求相关SQL语句 高分请教WIN2000中超难问题(分不够可以加)! 一个.h及.c可以被两个Project共用,不过我想在另一个Project中更改,但有时会出现提示"不能存储"等,有时.h文件被自动删除..怎么办? 怪现象:Windows 还未启动就黑屏 关于CRecordSet的问题 很菜的问题,希望不要见笑! 关于cookies的问题, 请教各位了. 很急!!!!!! 我日,天天见鬼,我用wsdl做了个webservice的代理类,把文件包含到webapplication中,debug的时候竟然说namespace System.Web.Services 本王对ISharp版竹表示最遗憾的同情和失望 哪位大哥能解决VB打开picture对话框时---蒸发的问题? 为什么我用jsp访问不到bean的属性???[100分,在线结帖] 为什么要“导入COM对象到.Net”? 请问我是不是被攻击了? 求这样的SQL语句,我脑子转不过来了。 请问各位大侠,如何在WIN2000下重启计算机。 不爱说话的男生怎么找女朋友呀 急! datagrid的第一列是空白列,怎么才能删除掉 在textBox上点一下,textbox中的文字清空,接受用户输入,怎么实现? 请问如何补齐笔划 如何在一个表里实现某一个字段的值都加一呢 有关xp中bios的几个问题 "评选最具实力的汇编、底层的开发论坛。" 这个帖子怎么不见了????里面有我急需的东西啊!!!! 大家帮帮我啊(让我郁闷好长时间了) 救助 谁有 中文Lotus Domino R5 Web开发指南 下载? 为什么我的jsp在weblogic里部署后老是乱码? 数组元素的合并,头痛 请问listview中item的data属性 是怎样存入和读取的??????????????????????????????????????? 用MSCOMM出了DEBUG,现在想改用API,但有几个问题不明白,请各位高手进来帮忙!! 哪位大大哥会让IIS6.0支持PHP和CGI?要多少分我都送! 我用FlatStyle里的TflatTitlebar,如何做出像优化大师标题栏一样的渐变色? WIN98\W2000雙系統問題 如何辨别ADSL是否有端口映射功能? 急啊!!!在线等 请问如何在VC中实现SDK,或者打开并断点运行SDK程序代码啊? asp如何控制时间? 如何在一个表里实现某一个字段的值都加一呢 怎样在WinRunner中使用TSL读取Excel中的内容??? XP的电源问题 请问关于SDK-ipconfig.cpp程序的断点运行! 怒了,还是关于两个JFrame传值的问题,100分!!! 请问这个判断应该怎样写? 我建立的anywhere数据库 *.db 怎么给库里的表增加记录! win2000 server中的active directory 到底应如何使用 奇怪盘的用途 关于提交与页面刷新,问了又问? 一个站点下两个根目录? 诺顿严重卸载问题 jsp 和 servlet的数据传递问题 请问第7题怎么写,麻烦告知 魔兽世界 格挡 格挡值 格挡等级 盾牌格挡定义是什么 都是怎么换算的 什么属性对这些有提升那如果格挡高于伤害是不是可以免伤了 作文There are three ways to make the Internet safer for your children-hardware,softwareand underwea不要直接翻译,这是英语看图作文图上的文字,我需要理解过的意思,如果有写好的例文更好这段话的意思我知道, 林语堂,曾点,金圣叹,郑板桥,基督的简介选其中的两个作解 (高数)求间断点个数, There are two ways to make____English interesting.A.to learn B.learning为什么不能选A,要理由, 郑板桥印章里的字里什么? 汉字以及字母的音标具体怎么标注? 醉翁亭记是否要背? 郑板桥的字是什么? 家里祭祀供品(贡品)摆放有哪些风水讲究 我要问一下有理数混合运算化简后,运用加法结合律要不要用括号?九点二十以前的追加 郑板桥字什么 如何处理供品 高中物理追及问题中两车相撞的条件到底是什么这题:不要给我复制黏贴,我答案都知道,老师方法我也知道,但是就是想知道我哪里错了摩托车以速度v1沿平直公路行驶,突然驾驶员发现正前方 伟大的意思, 求高手帮忙做大一高数卷子 只需做选择填空即可 真心各种求.有意着留下邮箱吧 必修1的44页,12题由于扳道工的失误,有两列客运列车都以75km/h的速度在同一铁路线上相向而行.已知列车刹车时能产生的最大加速度为0.4m/s²,为了避免车祸的发生,两列列车的驾驶员至少要在 先给100)求《走一步,再走一步》的读后感,择优选取不要抄的···就算是,也不要满天飞的那种 一道简单高数填空 就是单项选择上面的那道填空 两辆汽车追及问题(懂的进来)在高速公路的超车道上,一辆车身长4米,速度为100的轿车准备超越一辆长12米,速度为80千米|时的货车,从轿车追上货车开始计时,轿车超越货车需要 秒(结果保留2个 求西游记读后感100字到200字 10篇 今天6点之前就要 不要百度上的 要自己写 高数一道选择一道填空.分别是第一题和第九题,又要用导数定义是吧?第九题像这种全微分z都在一起的要怎么搞? 甲、乙两车从同一地点同向行驶(追及问题)甲、乙两车从同一地点同向行驶,但是甲车做匀速直接运动,其速度为v=20m/s,乙车在甲车行驶至距离出发地2000m处时开始以初速度为零,加速度为a=2m/s (好的可以给100--200财富值)几个八年级科学问题1 科学上把具有相同核电荷数(即质子数)的同一类原子总称为元素,如氢元素就是指( ) 同一类原子的总称2 对应1-20号元素序 5,6两题求解题思路 答对追分某人站在在斜面抛物体,V0恒定,如何角度可以获得最大位移?分别站在斜面上部往下,和下部往上抛.解释得清楚的追分.可以给出推倒吗追分?如果在斜面上,向斜面高处抛呢? 求西游记片段及摘抄十篇每篇摘抄200字点评50~100字要多少财富值都给 某商店同时卖出两件商品,都是60元,已知其中一件赚20%,另一件亏20%,那么这个商店卖出这两件商品是赚钱还亏本? 写一个表现母爱的句子,用上“无微不至”. 求一篇文言文的名称是叫“原x”的,讲的是古时君子对自己要求高,对别人要求低,现在的君子正好相反的求这篇文言文的名字 以初速度V0水平抛出一物体,当它的垂直分位移与水平分位移,则瞬时速度等于?位移大小等于? 出色的答非所问这篇文章 求一篇关于东方朔的古文的名字第一句话是:齐人有东方生名朔,以好古传书,爱经术,多所博观外家之语.最后一句话是:传曰:“鸟之将死,其名也哀;人之将死,其言也善.”此之谓也.求这篇 ∫xe^4xdx 写一个表现母爱的句子,用上“无微不至”、“我爱您”及“谢谢” 吴伯萧介绍 试将a/ab+a+1,b/bc+b+1,c/ac+c+1化成同分母的式子?已知abc=1,试将a/ab+a+1,b/bc+b+1,c/ac+c+1化成同分母的式子?(对不起,一开始错了, 写一句表现母爱的句子,用上“ 无微不至 ”一词. 若函数y=ax3-x在正无穷到负无穷上是减函数,则a的取值范围是 1、如图抛物线与直线都经过坐标轴的正半轴上A(4,0),B两点,该抛物线的对称轴x=﹣1与x轴交于点C,且∠ABC=90°,求:⑴直线AB的解析式;⑵抛物线的解析式2、若关于x的方程3x²-2x-n=0没有实 从30米高的楼顶处,以5米每秒的初速度竖直下抛一个球,g取10N,求经多长时间小球落地? 已知二次函数f(x)=x²-kx-1(1)若f(x)在区间[1,4]上是单调函数,求实数k的取值范围(2)求f(x)在区间[1,4]上的最小值 跪求吴伯萧的《马》的读后感,急,现在就要! 抛物线与直线Y=-1/2X+2都经过坐标轴的正半轴上A(4,0) B(0,2)两点 设抛物线坐标轴为X=-1.求抛物线解析要解析 已知a的平方+2a的平方=1,求3a的平方+6a+2的值拜托各位了 3Q 吴伯萧的《早》的赏析 如图.已知抛物线与坐标轴分别交于a(-4,0)点b(4,0)c(0,-2)过点c做平行于x轴的直线 郑板桥诗说明了什么? 吴伯萧简介50字 已知函数y=(m-1)x^2+(m-3)x+(m-1),m取啥实数时,函数图像与X轴.(1)没有公共点 (2)只有一个公共点已知函数y=(m-1)x^2+(m-3)x+(m-1),m取啥实数时,函数图像与X轴.(1)没有公共点(2)只有一个公共点( 最后两句在表达上有什么特点?该诗的整体风格是怎样的? 马 吴伯萧共描述了哪几幅于马有关的图画 对于任何实数m,设函数y=2x+m的图像与函数y=-x+4的图像相交于点p(a,b),则a,b不可能是A.a>0且b<0 B.a<0且b>0 C.a<0且b<0 D.a>0且b<0 盲子失坠的答案 求一篇文言文的名字 可能是以前的课文想起以前接触过一篇文言文,好像是一封书信还是什么的,上面写了作者的感慨,说是好人无好报,举了个坏人得以善终的例子,说是“竟得以善终: There is no way to make everyone happy 盲子失坠中用原文语句回答盲子犯的错误. 格挡性能和格挡发动力到底哪个对骑士更有意义 love is searching for ways to make your loved one 研究了半天总觉得不对, 曼城输球主帅火气大 佩莱格里尼:不想NBA新赛季看群雄“灭火” 马刺依然天价球员托雷斯强势复苏 切尔西登上积市民投诉劳动仲裁超期 南京人社局称人NBA新赛季首期实力榜:热火占鳌头 湖南长沙现“土豪金”大道 200公斤“株连式”拆迁频现 媒体称背后是权力实拍:中国核潜艇导弹发射平台、艇员住美议员:监听确保了欧洲安全 盟友们应埃及一运动员因支持穆尔西而被剥夺比赛茶党加速美国政坛裂变 抓住政府软肋屡日本孤独人群增多朋友租赁登场 每小时湖北公安县屡曝摊派烟酒 动用“红头文中韩文化交流大会在北京举办“监听门”尚难撕破美欧关系巴基斯坦:一部族长老家遭武装人员袭击马尔代夫选举委员会驳回提前选举建议14岁小驴友遗骸没有外伤 小温爸爸作广西一米粉店夫妇被枪击一死一伤 行凶第二季中国好声音总决赛短信中奖观众信巴西强盗入室抢漫画术业有专攻,冲破自身局限,融会贯通价厨房收纳神器,处女座、细节控都不能从世界上最怪的手枪大全菜单的十宗罪!请对号入座!时尚时髦性感潮流皮裤,修身显瘦百搭!国际观察:克里访俄深夜长谈美俄对抗暂老人公交上吐血晕倒 司机伸援手不留姓司机犯困开车撞树上所幸车上人员无大碍警花遇上“汪星人” 兴高采烈拿球挑逗步步惊心 | 宋仲基式撩妹 暖男革命潘毅:经济下滑,降低社保费率——我们东风6神秘技能曝光:可从南极一直打到时尚独特个性短外套,酷感帅气百搭!注意:影响下周股市操作的四大利空他担心的是未來,而不是现在?Bigbang乱扔烟头 盘点娱乐圈没清明前夕 河南举行缅怀遗体人体器官捐谢国民:对中国经济稳定健康可持续发展影视界专家学者聚泰州谈“新媒体生态下拉萨发展智慧交通 公交电子站牌将入“拐错一个路口 成都爷孙俩家门口迷路
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘