以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在表中做个外部程序的按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25057)
--  作者：zhaohj611718
--  发布时间：2012/10/30 12:07:00
--  在表中做个外部程序的按钮

怎样实现在数据列（电话号码列）上点击该列出现发短信的程序（我有一个短信猫的程序）这样我可以在表上直接点击该程序
--  作者：Fotable
--  发布时间：2012/10/30 12:13:00
--  

示例一

打开文件"C:\\test.xls"，代码非常简单：

Dim Proc As New Process \'定义一个新的Process
Proc.File = "C:\\test.xls" \'指定要打开的文件
Proc.Start()

示例二

利用属性Verb可以设置打开的动作，不同的外部程序，支持的动作会不同，对于Excel文件，支持三个Verb动作：
Open: 打开，这也是默认的动作。
OpenAsReadOnly：以只读方式打开
Print：打印，完成打印后自动关闭

例如：

Dim Proc As New Process
Proc.File = "C:\\test.xls"
Proc.Verb = "Print" \'指定动作
Proc.Start()

上面的代码将打开文件c:\\test.xls，然后执行打印命令，打印结束后自动关闭Excel。

如果要获得某一文件类型支持的全部Verb动作，可以参考下面的代码：

Dim Proc As New Process
Proc.File = "C:\\test.txt"
For Each Verb As String in Proc.Verbs
    Output.show(Verb)
Next

在命令窗口执行上面的代码，可以列出文本文件支持的verb动作。

示例三

下面的代码，列出了扩展名为Doc的文件所支持的动作。

Dim Proc As New Process
Proc.File = "C:\\test.doc"
For each Verb As String In Proc.Verbs
    Output.Show(verb)
Next

示例四

下面的代码，调用记事本打开文件“c:\\table.txt”。

Dim Proc As New Process
Proc.File = "Notepad.exe" \'指定要执行的文件
Proc.Arguments = "c:\\table.txt" \'指定命令行参数
Proc.Start()

示例五

通过WaitForInputIdle，可以等待程序启动结束并进入空闲状态，然后向程序发送按键信息。
例如：

Dim Proc As New Process
Proc.File = "C:\\table.txt"
Proc.Start
Proc.WaitForInputIdle() \'等程序自动结束并进入空闲状态
Sendkeys.Send("I Like Foxtable") \'发送按键信息
--  作者：lin_hailun
--  发布时间：2012/10/30 15:02:00
--  
 或者，楼主看看帮助自带的短信猫教程……

 http://www.foxtable.com/help/topics/2426.htm
--  作者：zhaohj611718
--  发布时间：2012/10/30 17:01:00
--  

能做个按钮，然后点击它就打开一个.exe程序么
--  作者：lin_hailun
--  发布时间：2012/10/30 18:08:00
--  
Dim Proc As New Process
Proc.File = "C:\\table.exe"
Proc.Start