如何用VB代码打开局域网上共享的文件夹 vb如何开放本机文件夹在局域网之间的共享
\u5728vb\u4e2d\u600e\u6837\u6253\u5f00\u5c40\u57df\u7f51\u4e2d\u6709\u5bc6\u7801\u5171\u4eab\u7684\u6587\u4ef6\u59391,\u70b9\u51fb\u4efb\u52a1\u680f\u53f3\u4e0b\u89d2\u7684\u7f51\u7edc\u56fe\u6807\uff0c\u7136\u540e\u6253\u5f00\u7f51\u7edc\u548c\u5171\u4eab\u4e2d\u5fc3.
2,\u7f51\u7edc\u548c\u5171\u4eab\u4e2d\u5fc3\u4e2d:\u70b9\u51fb\u5de6\u4fa7\u7684\u66f4\u6539\u9ad8\u7ea7\u5171\u4eab\u8bbe\u7f6e\u6309\u94ae.
3,\u6253\u5f00\u7684\u7a97\u53e3,\u4fee\u6539\u5bc6\u7801\u4fdd\u62a4\u7684\u5171\u4eab\uff0c\u9009\u62e9\u5173\u95ed\u5bc6\u7801\u4fdd\u62a4\u5171\u4eab.
4,\u7136\u540e\u6253\u5f00\u7535\u8111\u7684\u63a7\u5236\u9762\u677f\u3002\u5728\u63a7\u5236\u9762\u677f\u4e2d\u6253\u5f00\u7ba1\u7406\u5de5\u5177.
5,\u7ba1\u7406\u5de5\u5177:\u70b9\u51fb\u6253\u5f00\u8fd9\u91cc\u7684\u672c\u5730\u5b89\u5168\u7b56\u7565.
6,\u672c\u5730\u7b56\u7565\u7684\u5b89\u5168\u9009\u9879:\u786e\u4fdd\u8fd9\u91cc\u7684\u6765\u5bbe\u8d26\u6237\u72b6\u6001\u662f\u542f\u7528\u72b6\u6001\u3002
7,\u5728\u7ba1\u7406\u5de5\u5177\u4e2d\u6253\u5f00\u8ba1\u7b97\u673a\u7ba1\u7406\u3002
8,\u8ba1\u7b97\u673a\u7ba1\u7406\u7684\u672c\u5730\u7528\u6237\u548c\u7ec4\u4e2d\u70b9\u51fb\u7528\u6237\u53f3\u4fa7\u7684GUEST\u6765\u5bbe\u53cc\u51fb\u3002
9,Guest\u5c5e\u6027\u7a97\u53e3\u4e2d\u5982\u56fe\u8fdb\u884c\u8bbe\u7f6e\u4fee\u6539\u3002
10,\u5728guest\u6765\u5bbe\u8d26\u6237\u4e0a\u5355\u51fb\u9f20\u6807\u53f3\u952e\uff0c\u7136\u540e\u9009\u62e9\u8bbe\u7f6e\u5bc6\u7801\u3002
11,\u8bbe\u7f6e\u5bc6\u7801\u7a97\u53e3\u4e2d\uff0c\u8fd9\u91cc\u4ec0\u4e48\u4e5f\u4e0d\u8981\u8f93\u5165\uff0c\u7136\u540e\u70b9\u51fb\u786e\u5b9a\u3002
\u901a\u5e38\u8fd9\u6837\u5c31\u53d6\u6d88\u4e86\u5171\u4eab\u6587\u4ef6\u8bbf\u95ee\u5bc6\u7801\u3002
\u4f60\u7528regsnap\u6216\u8005regshot\u8f6f\u4ef6\u5feb\u7167\u4e0b\u6ce8\u518c\u8868\uff0c\u518d\u7528\u6df1\u5ea6\u90a3\u4e2a\u5de5\u5177\u4fee\u6539\u4e0b\u6ce8\u518c\u8868\uff0c\u518d\u7528regsnap\u6216\u8005regshot\u8f6f\u4ef6\u5feb\u7167\u4e0b\u6ce8\u518c\u8868\uff0c\u5bf9\u6bd4\u4e0b\u4e24\u6b21\u7684\u533a\u522b\u540e\uff0c\u5c31\u80fd\u627e\u5230\u76f8\u5173\u7684\u6ce8\u518c\u8868\u9879\u4e86\uff0c\u627e\u5230\u540e\u7528\u64cd\u4f5c\u6ce8\u518c\u8868\u7684API\u6216\u8005wscript\u66f4\u6539\u6389\u76f8\u5173\u7684\u6ce8\u518c\u9879\u5373\u53ef\u3002
\u5f00\u542f\u6216\u8005\u5173\u95ed\u5c40\u57df\u7f51\u5171\u4eab\u7684\u529f\u80fd\uff0c\u5176\u5b9e\u5c31\u662f\u66f4\u6539\u6ce8\u518c\u8868\u76f8\u5e94\u7684\u952e\u503c\u3002
你用regsnap或者regshot软件快照下注册表，再用深度那个工具修改下注册表，再用regsnap或者regshot软件快照下注册表，对比下两次的区别后，就能找到相关的注册表项了，找到后用操作注册表的API或者wscript更改掉相关的注册项即可。
开启或者关闭局域网共享的功能，其实就是更改注册表相应的键值。
绛旓細1.鍦╨ist.mdb鎵鍦ㄤ富鏈哄垱寤轰竴涓鍏变韩鐩綍锛堣祴浜堝啓鏉冮檺锛夛紝骞舵槧灏勫埌鏈湴锛2.杩炴帴璇彞:db="z:/list.mdb" '鏁版嵁搴撴枃浠朵綅缃紙z涓轰綘鏄犲皠鐨勭洏绗︼級connstr="DBQ="+db+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"鑷充簬浠ｇ爜锛屼綘闅忎究鍦缃戜笂鎼滀竴涓婣DO.NET灏辫兘鎵惧埌寰堝涓滆タ锛屼豢鐓х潃鍐欏氨鏄簡...
绛旓細姝ｅ父鐨勪娇鐢ㄦ枃浠舵嫹璐濆懡浠わ紝涓嶈繃璺緞涓婂啓鎴 \\192.168.0.2\d$\r.txt 鍏变韩鐨勭鐩樿鍔$绗﹀彿锛屽叡浜殑鐩綍鐩存帴鎵撶洰褰曞悕
绛旓細鍦灞鍩熺綉涓鐨勬煇鍙扮數鑴戯紙鏈濂介夋嫨鎬ц兘杈冨ソ鐨勬満瀛愶級涓婂缓绔嬩竴涓鍏变韩鏂囦欢澶癸紙瑕佹妸鏉冮檺璁剧疆涓烘墍鏈変汉閮藉彲璇诲彲鍐欙級锛岀劧鍚庢妸鏂囦欢澶嶅埗鍒拌繖涓枃浠跺す锛屽彧瑕佸悓涓灞鍩熺綉鐨勫叾浠栫數鑴戦兘鑳藉鍦ㄦ闈㈢殑鈥滅綉缁溾濓紙XP涔嬪墠鐨勭郴缁熸槸鍙滅綉涓婇偦灞呪濓級涓湅鍒拌繖涓枃浠讹紝骞朵笖鑳藉杩涜璇诲彇銆佷慨鏀广佸垹闄ょ瓑鎿嶄綔锛岄偅涔堝湪VB杞欢涓篃鍚屾牱...
绛旓細鏈绠鍗曞姙娉曘佹妸寮傚湴鐨刟ccess鏁版嵁搴鍏变韩锛 鐒跺悗閾炬帴瀛楃涓插氨鏄 @鈥淺\灞鍩熺綉IP\\璺緞 *.mdb鈥
绛旓細鎶奺xe鏂囦欢鎵鍦ㄧ殑鏂囦欢澶硅涓鍏变韩鐩綍锛屽苟涓旇涓哄彲璇诲彲鍐欙紝灞鍩熺綉鍐鐨勫叾浠栫數鑴戝氨鑳借闂簡銆傚墠鎻愭槸鐢佃剳涔嬮棿瑕佷簰鐩稿彲瑙侊紝鏈濂借涓哄悓涓涓搴粍銆
绛旓細浣犲彲浠ュ埄鐢ㄨ繙绋嬫闈㈡潵杩炴帴灞鍩熺綉涓鐨勬湇鍔″櫒锛岀劧鍚庝綘灏卞彲浠ュ湪鑷繁鐨勭數鑴戜笂杩滅▼鎿嶇旱鏈嶅姟鍣ㄥ暒锛岃繖鏍风殑璇濆湪鏈嶅姟鍣ㄤ笂鏀句釜闊充箰浠涔堢殑閭ｈ繕涓嶆槸鏄撳鍙嶆帉锛熺敋鑷充箮浣犺繕鍙互鐢ㄨ嚜宸辩數鑴戞搷绾垫湇鍔″櫒鐜╂父鎴忓憿銆傚墠鎻愭潯浠舵槸锛氭湇鍔″櫒蹇呴』寮鏀捐繙绋嬫闈㈡潈闄愶紝鍚屾椂瑕佸湪浣犵殑鐢佃剳鐨勮繙绋嬭繛鎺ヤ腑鎶婅繙绋嬮煶棰戣涓哄湪瀵规柟锛堝嵆鏈嶅姟鍣級...
绛旓細浣犵殑绋嬪簭濡傛灉鍙湪鏈嶅姟鍣ㄤ笂杩愯,閫氳繃缃戠粶璁块棶鍏朵粬瀹㈡埛绔潵鎷疯礉璧勬枡,閭ｈ鑰冭檻鐨勯棶棰樺緢澶氫簡,瀹㈡埛绔湁娌℃湁寮鏈轰篃瑕佽冭檻,濡傛灉浣犺疆璇㈡瘡涓鎴锋満鐨勮瘽,鏄笉鏄繕瑕佸仛鎴愬绾跨▼鐨?鍚﹀垯涓涓竴涓潵寰堟參鐨.鎴戝掓槸寤鸿浣犲啓涓斁鍦ㄥ鎴风鐨勭▼搴,鎶婂鎴风鐨勮祫鏂欎紶鍒版湇鍔″櫒涓.杩欐牱鍙互缁曡繃寰堝楹荤儲.鏈绠鍗曠殑灏辨槸鍦ㄦ湇鍔...
绛旓細鎴戞兂浣犺偗瀹氭湁鏈嶅姟鍣⊿涓婄殑绠＄悊鍛樼敤鎴峰悕鍜屽彛浠わ紝杩欐牱浣犲氨鍙互鍏堣皟鐢ˋPI寤虹珛涓涓狪PC杩炴帴锛岀劧鍚庝綘灏辫兘璁块棶杩欏彴鏈哄櫒涓婄殑璧勬簮浜嗐傚湪浣犵殑宸ョ▼涓澧炲姞涓涓ā鍧楋紝璇ユā鍧浠ｇ爜濡備笅锛歄ption Explicit '===璇存槑=== 'funIpcConn锛堣祫婧愬悕锛岀敤鎴峰悕锛屽彛浠わ級寤虹珛杩炴帴 'funIpcDisConn锛堣祫婧愬悕锛夋柇寮杩炴帴 '寮曠敤锛氭搷浣滅郴缁熻嚜...
绛旓細dwType As Long dwDisplayType As Long dwUsage As Long pLocalName As Long pRemoteName As Long pComment As Long pProvider As Long End Type 浣跨敤WinSock鎺т欢鍙互鏀跺彂鏂囦欢锛屽苟涓斾笉闇瑕佹簮涓绘満鎻愪緵缃戠粶鍏变韩銆傚師鐞嗗鍚屼竴浜涢粦瀹㈢▼搴忥紝浣跨敤Client/Server鏂瑰紡...
绛旓細锛廔P鍗忚銆傚啀鍔犱竴涓寜閽甤mdConnect鍦ㄧ獥浣撴ā鍧涓鍔犲叆浠ｇ爜锛歅rivate Sub FORM_Load()With Me .sckClient.RemoteHost = "127.0.0.1"鈥樿缃繙绋婭P锛屾湰渚嬭涓烘湰鏈恒.sckClient.RemotePort = 4000 鈥樿繙绋嬬鍙,灏变负server涓殑璁剧疆涓鏍.End With End Sub Private sub cmdConnect_Click()SckClient....
