VFP 愛用者社區

[garfield]

資料來源:
http://www.tek-tips.com/faqs.cfm?fid=2677

英文版用法範例

To demonstrate this code, open two instances of VFP.
In the first, issue:
? messagebox("click Abort Retry or Ignore",2,"Special")

Then, in the second, issue:
?closewindow("Special","&Abort")
* Now, go back to the first and show the message box again
?closewindow("Special","&Retry")
* Now, go back to the first and show the message box again
?closewindow("Special","&Ignore")

中文版用法範例
在開另一個VFP環境
? messagebox("click Abort Retry or Ignore",2,"Special")

在原VFP環境
?closewindow("Special","中止(&A)")
傳回的兩個值都不為0, 則表示正常關閉


********************
PROCEDURE CloseWindow
LPARAMETERS pcTitle, pcButtonCaption

#DEFINE WM_COMMAND 0x0111
#DEFINE WM_LBUTTONDOWN 0x0201
#DEFINE WM_LBUTTONUP 0x0202

DECLARE INTEGER FindWindow IN user32;
STRING lpClassName,;
STRING lpWindowName

DECLARE INTEGER FindWindowEx IN user32;
INTEGER hwndParent, ;
INTEGER hwndChildAfter, ;
STRING lpszClassName, ;
STRING lpszWindowCaption

DECLARE INTEGER SendMessage IN user32;
INTEGER hWnd,;
INTEGER Msg,;
INTEGER wParam,;
INTEGER lParam

wndDialog = FindWindow( 0, pcTitle )
wndButton = 0

if wndDialog > 0
* Sometimes Message WM_COMMAND 0x00110818 isn't enough,
* if you MUST click "Cancel" or "Yes", etc
* then provide a button caption
if VarType(pcButtonCaption)='C'
wndButton = FindWindowEx( wndDialog, 0, 'Button', ;
pcButtonCaption )
if wndButton > 0
SendMessage(wndButton, WM_LBUTTONDOWN, 1, 0x00120025 )
SendMessage(wndButton, WM_LBUTTONUP, 0, 0x00120025 )
* Button Clicked message
SendMessage(wndDialog, WM_COMMAND, 3, wndButton )
endif
endif

SendMessage(wndDialog, WM_COMMAND, 1, 0x00110818 )
endif
return Str(wndDialog,10)+str(wndButton,10)

[syntech]

這不就是"讓電腦扮演網路黃牛"的基本嗎?

[bin1x]

這意思是說
送出一個雷同於keyboard 巨集的那一種意思嗎?
只是keyboard命令 換成了closewindows常式
而使用裝置由keyboard 成了mouse

[garfield]

要做按鍵精靈是參考這一篇
http://vfp.sunyear.com.tw/viewtopic.php?p=6626&highlight=#6626

[bin1x]

我是指說介紹這此一功能的功能何在?