Foxtable(狐表) → 用户栏目 → 专家坐堂 → XXXXX桌面上的文件，可以使用ft代码打开吗？


  共有3440人关注过本帖树形打印复制链接

主题：XXXXX桌面上的文件，可以使用ft代码打开吗？
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		XXXXX桌面上的文件，可以使用ft代码打开吗？  发帖心情 Post By：2017/9/3 23:40:00 [显示全部帖子]

如题：


另外，可以选择以管理员打开及输入密码么？
[此贴子已经被作者于2017/9/4 18:23:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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()
[此贴子已经被作者于2018/1/24 15:52:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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，然后尝试关闭，说：没有与此对象关联的进程。
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/1/26 23:43:00 [显示全部帖子]

希望下图，填写关闭项目时间，点按钮后，进程p关闭
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多项目打开1.rar


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180126234307778.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/1/27 8:58:00 [显示全部帖子]

重新上传，密码：888

希望下图，填写关闭项目时间，点按钮后，进程p关闭
现在在桌面上点击2个时间控件，会报错
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多项目打开.rar


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180126234307778.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/1/27 9:07:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/1/27 13:18:00 [显示全部帖子]

本机测试单文件打开关闭正常
但是
在服务器测试打开多文件时，只能打开第一个，即p80正常打开，p91\p92\p93,无法打开，超过关闭时间也无法关闭
密码：888

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多项目打开02.rar


[此贴子已经被作者于2018/1/27 13:38:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/1/28 18:10:00 [显示全部帖子]

楼上代码本地测试打开关闭多个txt文件，正常


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180128175801123.png
图片点击可在新窗口打开查看
修改了需要打开的文件名，上传到服务器后，能正常打开p80\p91\p92\p93，但是超过上图“预计关闭时间”后，项目里的p80\p91\p92\p93没有关闭，提示：
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2017.12.18.1
错误所在事件：窗口,多项目打开,TimerTick
详细错误信息：
进程已退出，因此无法处理请求。

项目文件，密码：888：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多项目打开001.rar


[此贴子已经被作者于2018/1/28 18:13:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/1/28 19:16:00 [显示全部帖子]

15楼项目BeforeShowErrorMessage事件、
加上：e.cancel=true
不提示错误了，但是也不关闭项目p80\p91\p92\p93
[此贴子已经被作者于2018/1/28 19:16:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/1/29 10:27:00 [显示全部帖子]

回楼上1，在本机打开p80\p91\p92\p93正常，关闭p80\p91\p92\p93代码没有执行，提示内容与15楼相同

窗口timetick事件代码如下：
Dim dr As DataRow = DataTables("表A").Find("项目名称='唯一'")
If dr Is Nothing OrElse dr.IsNull("预计关闭时间")  OrElse vars("p80") Is Nothing OrElse vars("p91") Is Nothing OrElse vars("p92") Is Nothing OrElse vars("p93") Is Nothing Then
    msgbox(0)
    e.Form.TimerEnabled = False
Else
    msgbox(1) ’执行了
    If dr("预计关闭时间") <= Date.Now Then
        If vars("p80") IsNot Nothing Then 
           msgbox(2) ’执行后，随即提示15楼相同错误（我把项目事件BeforeShowErrorMessage代码屏蔽了）
           vars("p80").kill  '关闭项目,实测可以关闭
        End If
        If vars("p91") IsNot Nothing Then
           msgbox(3)
           vars("p91").kill
        End If
        If vars("p92") IsNot Nothing Then
           msgbox(4)
           vars("p92").kill
        End If
        If vars("p93") IsNot Nothing Then
           msgbox(5)
           vars("p93").kill
        End If
        e.Form.TimerEnabled = False
    End If
End If

项目密码：888
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多项目打开.rar


[此贴子已经被作者于2018/1/29 10:28:44编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 10 次数据查询