net driver connect

 ulong lu_retn,ll_ErrorBufSize,ll_nNameBufSize
string ls_Errorinfo,ls_netName

//错误详细信息
long ll_err_code,ll_err_buff,ll_err_num //网络错误代码
string ls_errcode_explain,ls_net_name //网络错误代码说明


long ll_set_errcode,ll_net_err_code
ls_net_path="//10.1.6.84/发布记录"
ls_password = ""
ls_localname = "K:"
cb_2.enabled = false
ll_net_err_code = WNetAddConnection(ls_net_path,ls_password,ls_localname)

f_net_code(ll_net_err_code,w_filecopy_api,dw_1)
cb_2.enabled = true

函數申明:
FUNCTION ulong WNetAddConnection(ref string lpszNetPath,ref string lpszPassword,ref string lpszLocalName) LIBRARY "mpr.dll" ALIAS FOR "WNetAddConnectionW"
FUNCTION ulong WNetCancelConnection(ref string lpszName,ulong bForce) LIBRARY "mpr.dll" ALIAS FOR "WNetCancelConnectionW"
FUNCTION ulong WNetConnectionDialog(ulong hwnd,ulong dwType) LIBRARY "mpr.dll"

f_net_code 內容:

choose case as_net_code
    case 0
        messagebox("映射提示","连接成功!")
        as_datawindow.reset()
        as_window.TriggerEvent(open!)
    case 50
        messagebox("映射提示","函数不被支持!")
    case 8
        messagebox("映射提示","内存不足!")
    case 59
        messagebox("映射提示","发生网络错误!")
    case 487
        messagebox("映射提示","指针无效!")
    case 67
        messagebox("映射提示","网络名无效!")
    case 1200
        messagebox("映射提示","本地名无效!")
    case 86
        messagebox("映射提示","密码错误!")
    case 5
        messagebox("映射提示","连接被拒绝!")
    case 85
        messagebox("映射提示","已经连接!")
    case 53
        messagebox("映射提示","没有检测到远程共享!")
end choose