- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- XXXXX桌面上的文件，可以使用ft代码打开吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106173)
-- 发布时间：2017/9/3 23:40:00
-- XXXXX桌面上的文件，可以使用ft代码打开吗？
如题：
另外，可以选择以管理员打开及输入密码么？
[此贴子已经被作者于2017/9/4 18:23:54编辑过]
-- 发布时间：2017/9/4 8:54:00
--
1、http://www.foxtable.com/webhelp/scr/0353.htm
2、https://msdn.microsoft.com/zh-cn/library/system.diagnostics.process.start(v=vs.80).aspx
3、
Dim zx As New Process \'定义一个新的Process
zx.File ="D:\\FOX程序\\项目名\\Publish\\程序名.exe"
zx.Verb = "runas"
zx.Start()
-- 发布时间：2018/1/24 15:30:00
--
Dim zx1 As New Process \'定义一个新的Process
zx1.File ="D:\\FOX程序\\项目名\\Publish\\程序名.exe"
zx1.Verb = "runas"
zx1.Start()
如何在2个启动之间，加上2秒的延时？
Dim zx2 As New Process \'定义一个新的Process
zx2.File ="D:\\FOX程序\\项目名\\Publish\\程序名.exe"
zx2.Verb = "runas"
zx2.Start()
zx2.File ="D:\\FOX程序\\项目名\\Publish\\程序名.exe"
zx2.Verb = "runas"
zx2.Start()
[此贴子已经被作者于2018/1/24 15:52:02编辑过]
-- 发布时间：2018/1/24 16:23:00
--
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
Application.DoEvents
End While
msgbox("10秒后执行")
-- 发布时间：2018/1/24 18:52:00
--
Dim zx1 As New Process \'定义一个新的Process
zx1.File ="C:\\需要1.txt"
\'zx1.Verb = "runas"
zx1.Close() ’我打开了C:\\需要1.txt，然后尝试关闭，说：没有与此对象关联的进程。
-- 发布时间：2018/1/24 19:38:00
--
vars("p") = system.Diagnostics.Process.Start("d:\\test.txt")
msgbox(123)
vars("p").kill
-- 发布时间：2018/1/26 22:15:00
--
vars("p") = system.Diagnostics.Process.Start("c:\\***.txt") ’打开项目，实测可以办到
sdt = Date.Now ’2592000秒，即1个月
While Date.Now < sdt.AddSeconds(2592000) ’因为不知道未来什么时候关闭项目，所以先写1个月
Application.DoEvents
End While
vars("p").kill ’关闭项目，实测可以关闭
这个代码写在项目窗口的click事件，我主要想要问，1个月内，需要关闭项目，有办法缩短2592000吗？
此主题相关图片如下：qq图片201801262221322235.png
[此贴子已经被作者于2018/1/26 22:19:46编辑过]
-- 发布时间：2018/1/26 22:33:00
--
没看懂你的意思？
-- 发布时间：2018/1/26 23:43:00
--
希望下图，填写关闭项目时间，点按钮后，进程p关闭
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多项目打开1.rar |
此主题相关图片如下：qq图片20180126234307778.png
-- 发布时间：2018/1/27 8:44:00
--
开发者密码？