[原创]：利用wsh写的一个对话框函数 msgbox

秋枫

使用方法：
(msgbox 内容 等待时间 标题 按钮与图标)

2. 
   
3. [FONT=courier new]
   
4. ;;; Created by Qiu Feng, 2003-10-9
   
5. ;;;Buttons
   
6. ;;;0  OK
   
7. ;;;1  OK and Cancel
   
8. ;;;2  Abort, Retry, and Ignore
   
9. ;;;3  Yes, No, Cancel
   
10. ;;;4  Yes and No
    
11. ;;;5  Retry and Cancel
    
12. ;;;
    
13. 
    
14. (setq bt_OK 0
    
15.       bt_OK_Cancel 1
    
16.       bt_Abort_Retry_Ignore 2
    
17.       bt_Yes_No_Cancel 3
    
18.       bt_Yes_No 4
    
19.       bt_Retry_Cancel 5
    
20. )
    
21. 
    
22. ;;;Icon Types
    
23. ;;;
    
24. ;;;16 Stop Mark icon
    
25. ;;;32 Question Mark icon
    
26. ;;;48 Exclamation Mark icon
    
27. ;;;64 Information Mark icon
    
28. 
    
29. (setq icon_Stop 16
    
30.       icon_Question 32
    
31.       icon_Exclamation 48
    
32.       icon_Information 64
    
33. )
    
34. 
    
35. ;;;1  OK button
    
36. ;;;2  Cancel button
    
37. ;;;3  Abort button
    
38. ;;;4  Retry button
    
39. ;;;5  Ignore button
    
40. ;;;6  Yes button
    
41. ;;;7  No button
    
42. (setq rs_OK 1
    
43.       rs_Cancel 2
    
44.       rs_Abort 3
    
45.       rs_Retry 4
    
46.       rs_Ignore 5
    
47.       rs_Yes 6
    
48.       rs_No 7)
    
49. 
    
50. (defun msgbox ( msg timeout title buttons / ws)
    
51.   (setq ws (vlax-create-object "wscript.shell"))
    
52.   (vlax-invoke-method ws 'popup msg timeout title buttons)
    
53. )
    
54. 
    
55. ;;; test
    
56. ;;;(if (= (msgbox "This is a test line." 5 "Qiu Feng" (+ bt_OK_Cancel Icon_Question))
    
57. ;;;       rs_OK)
    
58. ;;;  (alert "You select OK")
    
59. ;;;  (alert "You select Cancel")
    
60. ;;;)
    
61. [/FONT]

<br /> [FONT=courier new]<br /> ;;; Created by Qiu Feng, 2003-10-9<br /> ;;;Buttons<br /> ;;;0  OK<br /> ;;;1  OK and Cancel<br /> ;;;2  Abort, Retry, and Ignore<br /> ;;;3  Yes, No, Cancel<br /> ;;;4  Yes and No<br /> ;;;5  Retry and Cancel<br /> ;;;<br /> <br /> (setq bt_OK 0<br />       bt_OK_Cancel 1<br />       bt_Abort_Retry_Ignore 2<br />       bt_Yes_No_Cancel 3<br />       bt_Yes_No 4<br />       bt_Retry_Cancel 5<br /> )<br /> <br /> ;;;Icon Types<br /> ;;;<br /> ;;;16 Stop Mark icon<br /> ;;;32 Question Mark icon<br /> ;;;48 Exclamation Mark icon<br /> ;;;64 Information Mark icon<br /> <br /> (setq icon_Stop 16<br />       icon_Question 32<br />       icon_Exclamation 48<br />       icon_Information 64<br /> )<br /> <br /> ;;;1  OK button<br /> ;;;2  Cancel button<br /> ;;;3  Abort button<br /> ;;;4  Retry button<br /> ;;;5  Ignore button<br /> ;;;6  Yes button<br /> ;;;7  No button<br /> (setq rs_OK 1<br />       rs_Cancel 2<br />       rs_Abort 3<br />       rs_Retry 4<br />       rs_Ignore 5<br />       rs_Yes 6 <br />       rs_No 7)<br /> <br /> (defun msgbox ( msg timeout title buttons / ws)<br />   (setq ws (vlax-create-object "wscript.shell"))<br />   (vlax-invoke-method ws 'popup msg timeout title buttons)<br /> )<br /> <br /> ;;; test<br /> ;;;(if (= (msgbox "This is a test line." 5 "Qiu Feng" (+ bt_OK_Cancel Icon_Question))<br /> ;;;       rs_OK)<br /> ;;;  (alert "You select OK")<br /> ;;;  (alert "You select Cancel")<br /> ;;;)<br /> [/FONT]

使用样例：

1. 
   
2. [FONT=courier new]
   
3. (if (= (msgbox "This is a test line." 5 "Qiu Feng" (+ bt_OK_Cancel Icon_Question))
   
4.        rs_OK)
   
5.   (alert "You select OK")
   
6.   (alert "You select Cancel")
   
7. )[/FONT]

复制代码

aeo

哈哈，赌钱去^_^

2. 
   
3. 命令: (setq ws (vlax-create-object "wscript.shell"))
   
4. #《  VLA-OBJECT IWshShell3 0017f2a0 》
   
5. 
   
6. 命令: (vlax-dump-object ws t)
   
7. ; IWshShell3: Shell Object Interface
   
8. ;特性值:
   
9. ;   CurrentDirectory = ...不显示带索引的内容...
   
10. ;支持的方法:
    
11. ;   Exec (2)
    
12. T
    

<br /> 命令: (setq ws (vlax-create-object "wscript.shell"))<br /> #《  VLA-OBJECT IWshShell3 0017f2a0 》<br /> <br /> 命令: (vlax-dump-object ws t)<br /> ; IWshShell3: Shell Object Interface<br /> ;特性值:<br /> ;   CurrentDirectory = ...不显示带索引的内容...<br /> ;支持的方法:<br /> ;   Exec (2)<br /> T<br />

怎么没有popup的呢?

jxsqq

挺羡慕那么多钱的

iwzw

wsh是什么？能介绍一下吗？

Quelea

WSH是指Windows Script Host

参见：http://www.google.com/search?hl= ... _zh-CN%7Clang_zh-TW