VFP 愛用者社區

[Ruey]

Send a message to any WinNT+? computer that is running the Messenger service, without having to use the Command line "NET SEND" command.

PROCEDURE NetSend
LPARAMETERS pcUser, pcMessage

DECLARE INTEGER NetMessageBufferSend IN netapi32 ;
STRING servername, STRING UserName, STRING fromname, ;
STRING MessageBuf, INTEGER buflen

LOCAL lnLen, lcFrom, lcMsgName, lcUser, lcMsg
lcUser = strconv( StrConv(pcUser,1), 5)
lcMsg = strconv( StrConv(pcMessage,1), 5)
lcFrom = strconv( Strconv(Sys(0),1), 5)
lnLen = len(pcMessage)*2+2
res=NetMessageBufferSend( 0, lcUser, lcFrom, lcMsg, lnLen )
RETURN res


Return Values:
5 = ERROR_ACCESS_DENIED The user does not have access to the requested information.
87 = ERROR_INVALID_PARAMETER The specified parameter is invalid.
50 = ERROR_NOT_SUPPORTED This network request is not supported.
2100+173 = NERR_NameNotFound? The user name could not be found.
2100+36 = NERR_NetworkError? A general failure occurred in the network hardware.

[215001]

請教Ruey

我於Dos下:
NET SEND PC2 Hello 是正常的(PC2為另一台電腦名稱)

但是於VFP下:
=NetSend("PC2","Hello")
卻都不成功,傳回值有時是123,有時傳回2273,是那邊錯了

[goto-dream]

local ws,isok
ws = createobject("WScript.Shell")
isok = ws.run("ping 103.102.255.123",0,"True")
if ISOK = 0
messagebox("ping OK!")
else
messagebox("ping ERROR!")
endif

我用這種模式去改，沒用到上述方法！！你可以試看看

[215001]

謝謝 goto-dream

類似的方法我知道,只是有時間時,我都會試試看別人貼出來的程式碼
看看可不可以執行成功,剛好這一篇怎麼都試不出來,所以才會提問