pb操作局域网共享文件（有用户名和密码）

lvrxy

免费乐捐，感谢支持

pb9下测试Ok,希望能帮助到大家
使用到的结构体：
global type netresource from structure
        long                dwscope
        long                dwtype
        long                dwdisplaytype
        long                dwusage
        string                lplocalname
        string                lpremotename
        string                lpcomment
        string                lpprovider
end type


1.声明外部Api函数：
//增加网络共享映射
Function ULong WNetAddConnection2A(Ref netresource lnet,Ref String pass,Ref String username,ULong dwflags) Library "mpr.dll"
//断开网络共享映射
Function ULong WNetCancelConnection2A(Ref String lpName,ULong dwflags,boolean fForce) Library "mpr.dll"


2.建立网络共享映射，虚拟个盘符出来（如：'K:'盘）从而对文件进行读写
【】实例：
ULong              ll_flag
netresource   ln_lnet

ll_flag = 1 // 0表示建立永久连接
ln_lnet.lplocalname = "k:"                                                   // 虚拟盘符
ln_lnet.lpremotename = "\\192.168.10.158\share"             // 实际共享路径
ls_username = "administrator"    // 访问共享文件的用户名
ls_pass = "123456"                    //  访问共享文件的密码
li_ret = WNetAddConnection2A(Ref ln_lnet,Ref ls_pass,Ref ls_username, ll_flag) // 共享映射

If li_ret <> 0 Then
    Messagebox('','共享映射创建失败!')
End If

// 这时本地虚拟的K盘就可以随便读写了（=读写共享的目标文件夹）
li_ret = MessageBox("Tips","Delete file?",Question!,OKCancel!,2)
If li_ret = 1 Then
        If Not FileExists (ls_file) Then Goto Label
        If FileDelete(ls_file) Then
                MessageBox('Tips','Success!')
        Else
                MessageBox('Tips','Fail!')
        End If
End If


// 使用完成，记得断开共享映射哦
WNetCancelConnection2A("K:",1,True)      // 断开网络共享映射

surachai43

thanks for sharing