c++ builder建立網(wǎng)絡(luò)映射共享.doc

c+ Builder中用WNetAddConnection2登陸局域網(wǎng)中服務(wù)器的問(wèn)題在我們單位的局域網(wǎng)中有一個(gè)共享的數(shù)據(jù)服務(wù)器，在地址欄里面輸入“hl2adas”可以直接進(jìn)去，不需要用戶名和密碼，我現(xiàn)在在c+ Builder中想連接這個(gè)數(shù)據(jù)服務(wù)器，出了問(wèn)題，不知道如何解決，請(qǐng)各位高手指點(diǎn)，謝謝。我的代碼如下：void _fastcall TForm1:Button1Click(TObject *Sender) char lpMsgBuf200; TNetResource NRW; NRW.dwType=RESOURCETYPE_ANY; NRW.lpLocalName=z:; NRW.lpRemoteName=HL2ADAS ; NRW.lpComment=; NRW.lpProvider=; DWORD d; d=WNetAddConnection2(&NRW,CONNECT_UPDATE_PROFILE); if(d=NO_ERROR) ShowMessage(連接成功); else FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,NULL,GetLastError(),0,lpMsgBuf,200,NULL); ShowMessage(lpMsgBuf); ShowMessage(連接失敗，重新連接);C/C+ code 將網(wǎng)絡(luò)路徑映射為本地盤符DWORD ConnectRemoteDrive(LPSTR ShareName, LPSTR LocalDrive) NETRESOURCE nr; ZeroMemory(&nr, sizeof(nr); nr.dwScope = RESOURCE_GLOBALNET; nr.dwType = RESOURCETYPE_DISK; / RESOURCETYPE_ANY; nr.dwDisplayType = RESOURCEDISPLAYTYPE_GENERIC; nr.dwUsage = RESOURCEUSAGE_CONNECTABLE; nr.lpLocalName = LocalDrive; nr.lpRemoteName = ShareName; nr.lpComment = ; nr.lpProvider = NULL; return WNetAddConnection2(&nr, / NETRESOURCE from enumeration (LPSTR) NULL, / no password (LPSTR) NULL, / logged-in user CONNECT_UPDATE_PROFILE); / update profile with connect info/ ConnectRemoteDrive(HL2ADAS, Z:);大家在運(yùn)用Delphi編寫網(wǎng)絡(luò)應(yīng)用程序時(shí)可能會(huì)遇到這樣一個(gè)問(wèn)題：在一個(gè)由Windows NT和Novell Netware組成的網(wǎng)絡(luò)環(huán)境中，應(yīng)用程序需要使用Novell網(wǎng)上的某些數(shù)據(jù)，如果每次都手工在Windows資源管理器中映射，斷開網(wǎng)絡(luò)驅(qū)動(dòng)器，不僅繁瑣而且顯得不夠?qū)I(yè)。本文將介紹在Delphi中使用Windows32 API函數(shù)解決這一問(wèn)題。 一、 基本原理在Microsoft Windows環(huán)境下，應(yīng)用程序使用Windows網(wǎng)絡(luò)函數(shù)（WNet）來(lái)實(shí)現(xiàn)網(wǎng)絡(luò)功能而不用關(guān)心網(wǎng)絡(luò)的供應(yīng)商及具體實(shí)現(xiàn)。因?yàn)閃Net函數(shù)是獨(dú)立于網(wǎng)絡(luò)的。 Wnet函數(shù)主要有：WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 , WnetCancelConnection2等。本文主要用WnetAddConnection2，WnetCancelConnection2函數(shù)，下面簡(jiǎn)單介紹一下，關(guān)于WNet函數(shù)更詳細(xì)的資料請(qǐng)參考Delphi的連機(jī)文檔和Microsoft API函數(shù)說(shuō)。 WNetAddConnection2在Windows.pas中的函數(shù)原型如下： function WNetAddConnection2(var lpNetResource: TNetResource;lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;為調(diào)用此函數(shù)必須填寫lpNetResouce結(jié)構(gòu)，此結(jié)構(gòu)的定義為：typedef struct _NETRESOUCE DWORD dwScope; DWORD dwType; DWORD dwDisplayType; DWORD dwUsage; LPTSTR lpLocalName; LPTSR lpRemoteName; LPTSr lpProvider; NETRESOURCE; 這里使用dwType,lpLocalName,lpRemoteName,lpProvider幾個(gè)參數(shù)。其含義如下：dwType : 用于指定網(wǎng)絡(luò)的資源類型，有以下RESOURCETYPE_ANY(任何資源) , RESOURCETYPE_DISK(磁盤資源) , RESOURCETYPE_PRINT（打印機(jī)資源）。lpLocalName : 指定本地設(shè)備。lpRemoteName : 指定遠(yuǎn)程網(wǎng)絡(luò)名。lpProvider : 指定提供網(wǎng)絡(luò)資源的供應(yīng)商。如為空，則表示供應(yīng)商未知。WNetAddConnection2函數(shù)的lpPassword為遠(yuǎn)程資源的口令。 lpUserName為遠(yuǎn)程資源的用戶名。dwFlags標(biāo)志位用于指定登錄時(shí)是否重新連接（0時(shí)表示不重新連接，CCONNECT_UPDATE_PROFILE登錄時(shí)重新連接）。WnetCancelConnection2在Windows.pas中的函數(shù)原型如下：function WNetCancelConnection2(lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;lpName : 要斷開的 掏繾試椿蟣鏡刂囟蚯鰲?dwFlags : 含義同上。fForce : True表示不管是否有文件打開，強(qiáng)制性斷開網(wǎng)絡(luò)驅(qū)動(dòng)器；False 表示如有文 件打開則函數(shù)運(yùn)行失敗。二、實(shí)例在Delphi的File菜單下選擇New Application，在Form1上放置一個(gè)Button，在Button1的Click事件中鍵入如下代碼： procedure TForm1.Button1Click(Sender : TObject);var NetSource : TNetResource;begin with NetSource do begin dwType := RESOURCETYPE_ANY;lpLocalName := X:; / 將遠(yuǎn)程資源映射到此驅(qū)動(dòng)器lpRemoteName := hqServersys; / 遠(yuǎn)程網(wǎng)絡(luò)資源lpProvider := ; / 必須賦值,如為空則使用lpRemoteName的值。 end; WnetAddConnection2(NetSource, Password, Guest, /用戶名為Guest，口令為PasswordCONNECT_UPDATE_PROFILE); /下次登錄時(shí)重新連接/此時(shí)在Windows資源管理器中可看到網(wǎng)絡(luò)驅(qū)動(dòng)器X：if MessageDlg(Are you sure to disconnect Drive ?,mtConfirmation, mbYes, mbNo, 0) = mrYes then /不管是否有文件打開，斷開網(wǎng)絡(luò)驅(qū)動(dòng)器X： WNetCancelConnection2( X:, CONNECT_UPDATE_PROFILE, True); end;end;本程序在Delphi3.0,4.0、PWindows95、Novell Netware 3.12下編譯運(yùn)行通過(guò)。- 建立網(wǎng)絡(luò)驅(qū)動(dòng)器的映射。 void CMountDlg:OnMountButton() / TODO: Add your control notification handler code herechar netpathMAX_PATH; /輸入的網(wǎng)絡(luò)路徑m_NetpathEdit.GetWindowText(netpath, sizeof(netpath);char drvMAX_PATH; /本地的驅(qū)動(dòng)器盤符m_DriveEdit.GetWindowText(drv, sizeof(drv);NETRESOURCE netres;netres.dwScope=RESOURCE_GLOBALNET;netres.dwType=RESOURCETYPE_ANY;netres.dwDisplayType=RESOURCEDISPLAYTYPE_GENERIC;netres.dwUsage=RESOURCEUSAGE_CONNECTABLE;netres.lpLocalName=drv;netres.lpRemoteName=netpath;netres.lpComment=NULL;netres.lpProvider=NULL;DWORD rslt=WNetAddConnection2(&netres, NULL, NULL, 0);CString str;str.Format(WNetAddConnection2()return code=%d, rslt);MessageBox(str);取消網(wǎng)絡(luò)驅(qū)動(dòng)器的映射void CMountDlg:OnUnmountButton() / TODO: Add your control notification handlercode herechar drvMAX_PATH; /本地的驅(qū)動(dòng)器盤符m_DriveEdit.GetWindowText(drv, sizeof(drv);DWORD rslt=WNetCancelConnection2(drv, 0, FALSE);CString str;str.Format(WNetCancelConnection2() return code=%d,rslt);MessageBox(str); /顯示信息成功與否 return code =0 成功 否則 建立失敗網(wǎng)絡(luò)映射命令 2010-01-05 09:30:44s1)空連接命令 1)建立空連接: net use IPipc$ /user: (一定要注意:這一行命令中包含了3個(gè)空格)2)建立非空連接: net use IPipc$ 用戶名 /user:密碼 (同樣有3個(gè)空格)3)映射默認(rèn)共享: net use z: IPc$ 密碼 /user:用戶名 (即可將對(duì)方的c盤映射為自己的z盤，其他盤類推) 如果已經(jīng)和目標(biāo)建立了ipc$，則可以直接用IP+盤符+$訪問(wèn),具體命令 net use z: IPc$4)刪除一個(gè)ipc$連接 net use IPipc$ /del5)刪除共享映射 net use c: /del 刪除映射的c盤，其他盤類推 net use * /del 刪除全部,會(huì)有提示要求按y確認(rèn) 3 查看遠(yuǎn)程主機(jī)的共享資源（但看不到默認(rèn)共享） net view IP4 查看本地主機(jī)的共享資源（可以看到本地的默認(rèn)共享） net share5 得到遠(yuǎn)程主機(jī)的用戶名列表 nbtstat -A IP6 得到本地主機(jī)的用戶列表 net user7 查看遠(yuǎn)程主機(jī)的當(dāng)前時(shí)間 net time IP8 顯示本地主機(jī)當(dāng)前服務(wù) net start9 啟動(dòng)/關(guān)閉本地服務(wù) net start 服務(wù)名 /y net stop 服務(wù)名 /y10 映射遠(yuǎn)程共享: net use z: IPbaby 此命令將共享名為baby的共享資源映射到z盤11 刪除共享映射 net use c: /del 刪除映射的c盤，其他盤類推 net use * /del /y刪除全部12 向遠(yuǎn)程主機(jī)復(fù)制文件 copy 路徑srv.exe IP共享目錄名，如： copy ccbirds.exe *.*.*.*c 即將當(dāng)前目錄下的文件復(fù)制到對(duì)方c盤內(nèi)13 遠(yuǎn)程添加計(jì)劃任務(wù) at ip 時(shí)間 程序名，如： at 127.0.0.0 11:00 love.exe 注意：時(shí)間盡量使用24小時(shí)制；在系統(tǒng)默認(rèn)搜索路徑（比如system32/）下不用加路徑，否則必須加全路徑 14 開啟遠(yuǎn)程主機(jī)的telnet 這里要用到一個(gè)小程序：opentelnet.exe，各大下載站點(diǎn)都有，而且還需要滿足四個(gè)要求：1）目標(biāo)開啟了ipc$共享 2）你要擁有管理員密碼和帳號(hào) 3）目標(biāo)開啟RemoteRegistry服務(wù)，用戶就該ntlm認(rèn)證 4）對(duì)WIN2K/XP有效，NT未經(jīng)測(cè)試 命令格式：OpenTelnet.exe server account psw NTLM認(rèn)證方式 port 試?yán)缦拢篶:OpenTelnet.exe *.*.*.* administrator 1 9015 激活用戶/加入管理員組 1 net uesr account /active:yes 2 net localgroup administrators account /add16 關(guān)閉遠(yuǎn)程主機(jī)的telnet 同樣需要一個(gè)小程序：ResumeTelnet.exe 命令格式：ResumeTelnet.exe server account psw 試?yán)缦拢篶:ResumeTelnet.exe *.*.*.* administrator 17 刪除一個(gè)已建立的ipc$連接 net use IPipc$ /del 教你用個(gè)at命令,你拷一個(gè)程序可以指定時(shí)間讓其執(zhí)行的 at computername time /interactive | /every:date,./next:date,. command比如:at 00:00 cmd /c copy C:Documents*.* C:MyDocs常見錯(cuò)誤代碼 錯(cuò)誤號(hào)5，拒絕訪問(wèn)：很可能你使用的用戶不是管理員權(quán)限的，先提升權(quán)限； 錯(cuò)誤號(hào)51，Windows無(wú)法找到網(wǎng)絡(luò)路徑：網(wǎng)絡(luò)有問(wèn)題； 錯(cuò)誤號(hào)53，找不到網(wǎng)絡(luò)路徑：ip地址錯(cuò)誤；目標(biāo)未開機(jī)；目標(biāo)lanmanserver服務(wù)未啟動(dòng)；目標(biāo)有防火墻（端口過(guò)濾）； 錯(cuò)誤號(hào)67，找不到網(wǎng)絡(luò)名：你的lanmanworkstation服務(wù)未啟動(dòng)或者目標(biāo)刪除了ipc$； 錯(cuò)誤號(hào)1219，提供的憑據(jù)與已存在的憑據(jù)集沖突：你已經(jīng)和對(duì)方建立了一個(gè)ipc$，請(qǐng)刪除再連； 錯(cuò)誤號(hào)1326，未知的用戶名或錯(cuò)誤密碼：原因很明顯了； 錯(cuò)誤號(hào)1792，試圖登錄