返回列表 上一主題 發帖

如何停止屏幕閃動

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-7-19 15:00 | 顯示全部帖子

如何停止屏幕閃動

Shell
致大大們,

請問嫗下代碼要如何才可以停止屏幕閃動.
  1. Sub zz()
  2. Debug.Print CreateObject("WScript.Shell").exec("%comspec% /c " & """VOL c:""").StdOut.ReadAll
  3. End Sub
複製代碼
收藏 分享

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2016-7-19 16:46 | 顯示全部帖子
多謝PKKO, 這方法不適用於此.
此代碼衹是隨便引用一些DOS的查詢, 把傳回的 DEBUG PRINT 出來。

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
3#
發表於 2016-7-19 22:50 | 顯示全部帖子
stillfish00你好,

想來是我舉例問題不好, 以 dir 來做例子, fso 是很好的解決屏幕閃動, 但我是想於shell 中用DOS 查詢, 而能控制屏幕閃動, 例如要查詢 xcop /?, fso 便不能做到, 以下代碼便能做到, 但有屏幕閃動。

Sub zz()
Debug.Print CreateObject("WScript.Shell").exec("%comspec% /c xcopy /?").StdOut.ReadAll
End Sub

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
4#
發表於 2016-7-20 08:08 | 顯示全部帖子
jackyq,
........,0,1 > .txt 是可以, 我一向都是這樣做, 但我就是想一次過放入數組, 我曾配合過 clip 指令放入剪貼簿, 已成功, 但.........stdout 似乎更快捷及簡單。 目前就是如何另 CreateObject("WScript.Shell").Exec 如 CreateObject("WScript.Shell").Run 般,做到有窗口隱蔽功能。

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題