发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:53), 站内信件
|
请参考：
1、建立过程
PROC TESTNET
PARA P_RemoteName,P_Password,P_LocalName
Declare Long WNetAddConnection in "mpr.dll" String lpRemoteName,String
lpPassword,String lpLocalName
LOCAL M_RETURNNET
M_RETURNNET=WNetAddConnection(P_RemoteName,P_Password,P_LocalName)
RETURN M_RETURNNET
2、调用：
local m_testnet
m_testnet=TESTNET("\\app_server1\c","","L:")
DO CASE
CASE m_testnet=0
=messagebox("成功!")
CASE m_testnet=5
=messagebox("访问拒绝!")
CASE m_testnet=8
=messagebox("内存不足!")
CASE m_testnet=50
=messagebox("不被支持的函数!")
CASE m_testnet=59
=messagebox("网络错误!")
CASE m_testnet=67
=messagebox("网络名无效!")
CASE m_testnet=85
=messagebox("连接已经存在!")
CASE m_testnet=86
=messagebox("口令错误!")
CASE m_testnet=487
=messagebox("指针无效!")
CASE m_testnet=1200
=messagebox("本地驱动器名无效!")
otherwise
=messagebox("无效错误!")
endcase
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.104.24.167]
|
|