锘??xml version="1.0" encoding="utf-8" standalone="yes"?>亚洲人成图片小说网站,亚洲中文字幕乱码一区,伊人久久综在合线亚洲91http://m.tkk7.com/dunkbird/category/30986.htmlzh-cnFri, 21 Aug 2009 13:10:01 GMTFri, 21 Aug 2009 13:10:01 GMT60Winsock鎺т歡http://m.tkk7.com/dunkbird/articles/292089.html澶ч笩澶ч笩Fri, 21 Aug 2009 05:57:00 GMThttp://m.tkk7.com/dunkbird/articles/292089.htmlhttp://m.tkk7.com/dunkbird/comments/292089.htmlhttp://m.tkk7.com/dunkbird/articles/292089.html#Feedback0http://m.tkk7.com/dunkbird/comments/commentRss/292089.htmlhttp://m.tkk7.com/dunkbird/services/trackbacks/292089.htmlWinsock鎺т歡
2008-11-03 15:24
Winsock鎺т歡瀵圭敤鎴鋒槸涓嶅彲瑙嗙殑錛屽彲浠ュ緢瀹規槗鍦拌闂甌CP鍜孶DP緗戠粶鏈嶅姟銆傚叾鍙互琚玀icrosoft Access, Visual Basic ,Visual C++鎴朧isual FoxPro寮鍙戜漢鍛樹嬌鐢ㄣ傝緙栧啓瀹㈡埛鍜屾湇鍔″櫒搴旂敤紼嬪簭錛屼笉闇瑕佷簡瑙CP鎴栬皟鐢ㄥ簳灞俉insock API鐨勫叿浣撶粏鑺傘傞氳繃璁劇疆Winsock鎺т歡鐨勫睘鎬у拰璋冪敤璇ユ帶浠剁殑鏂規硶錛屽彲浠ュ緢瀹規槗鍦拌繛鎺ュ埌榪滅▼璁$畻鏈哄茍榪涜鍙屽悜鐨勬暟鎹氦鎹€?br /> 灞炴?br /> BytesReceived灞炴э紝LocalHostName灞炴э紝LocalIP灞炴э紝LocalPort灞炴э紝RemoteHost灞炴э紙ActiveX鎺т歡錛夛紝SocketHandle灞炴э紝State灞炴э紙Winsock鎺т歡錛夛紝Protocol灞炴э紙Winsock鎺т歡錛夛紝Name灞炴э紝Parent灞炴э紝RemoteHost灞炴э紙ActiveX鎺т歡錛夛紝RemotePort灞炴э紙ActiveX鎺т歡錛夛紝Index灞炴э紙ActiveX鎺т歡錛夛紝Tag灞炴э紙ActiveX鎺т歡錛夛紝Object灞炴э紙ActiveX鎺т歡錛夈?br /> 鏂規硶
Accept鏂規硶錛孊ind鏂規硶錛孋lose鏂規硶錛圵insock鎺т歡錛夛紝Listen鏂規硶錛孭eerData鏂規硶錛孲endData鏂規硶錛孏etData鏂規硶錛圵inSock鎺т歡錛夛紝GetData鏂規硶錛圓ctiveX鎺т歡錛夈?br /> 浜嬩歡
Close浜嬩歡錛孋onnectionRequest浜嬩歡錛孌ataArrival浜嬩歡錛孲endComplete浜嬩歡錛孲endProgress浜嬩歡錛孍rror浜嬩歡錛孋onnect浜嬩歡錛圵insock鎺т歡錛夛紝Connect浜嬩歡銆?br /> Winsock 鎺т歡瀵圭敤鎴鋒潵璇存槸涓嶅彲瑙佺殑錛屽畠鎻愪緵浜嗚闂?TCP 鍜?UDP 緗戠粶鏈嶅姟鐨勬柟渚塊斿緞銆侻icrosoft Access銆乂isual Basic銆乂isual C++ 鎴?Visual FoxPro 鐨勫紑鍙戜漢鍛橀兘鍙嬌鐢ㄥ畠銆備負緙栧啓瀹㈡埛鎴栨湇鍔″櫒搴旂敤紼嬪簭錛屼笉蹇呬簡瑙?TCP 鐨勭粏鑺傛垨璋冪敤浣庣駭鐨?Winsock APIs銆傞氳繃璁劇疆鎺т歡鐨勫睘鎬у茍璋冪敤鍏舵柟娉曞氨鍙交鏄撹繛鎺ュ埌涓鍙拌繙紼嬫満鍣ㄤ笂鍘伙紝騫朵笖榪樺彲鍙屽悜浜ゆ崲鏁版嵁銆?br /> TCP 鍩虹
鏁版嵁浼犺緭鍗忚鍏佽鍒涘緩鍜岀淮鎶や笌榪滅▼璁$畻鏈虹殑榪炴帴銆傝繛鎺ヤ袱鍙拌綆楁満灝卞彲褰兼榪涜鏁版嵁浼犺緭銆?br /> 濡傛灉鍒涘緩瀹㈡埛搴旂敤紼嬪簭錛屽氨蹇呴』鐭ラ亾鏈嶅姟鍣ㄨ綆楁満鍚嶆垨鑰?IP 鍦板潃錛圧emoteHost 灞炴э級錛岃繕瑕佺煡閬撹繘琛?#8220;渚﹀惉”鐨勭鍙o紙RemotePort 灞炴э級錛岀劧鍚庤皟鐢?Connect 鏂規硶銆?br /> 濡傛灉鍒涘緩鏈嶅姟鍣ㄥ簲鐢ㄧ▼搴忥紝灝卞簲璁劇疆涓涓敹鍚鍙o紙LocalPort 灞炴э級騫惰皟鐢?Listen 鏂規硶銆傚綋瀹㈡埛璁$畻鏈洪渶瑕佽繛鎺ユ椂灝變細鍙戠敓 ConnectionRequest 浜嬩歡銆備負浜嗗畬鎴愯繛鎺ワ紝鍙皟鐢?ConnectionRequest 浜嬩歡鍐呯殑 Accept 鏂規硶銆?br /> 寤虹珛榪炴帴鍚庯紝浠諱綍涓鏂硅綆楁満閮藉彲浠ユ敹鍙戞暟鎹備負浜嗗彂閫佹暟鎹紝鍙皟鐢?SendData 鏂規硶銆傚綋鎺ユ敹鏁版嵁鏃朵細鍙戠敓 DataArrival 浜嬩歡銆傝皟鐢?DataArrival 浜嬩歡鍐呯殑 GetData 鏂規硶灝卞彲鑾峰彇鏁版嵁銆?br /> UDP 鍩虹
鐢ㄦ埛鏁版嵁鏂囨姤鍗忚 (UDP) 鏄竴涓棤榪炴帴鍗忚銆傝窡 TCP 鐨勬搷浣滀笉鍚岋紝璁$畻鏈哄茍涓嶅緩绔嬭繛鎺ャ傚彟澶?UDP 搴旂敤紼嬪簭鍙互鏄鎴鋒満錛屼篃鍙互鏄湇鍔″櫒銆?br /> 涓轟簡浼犺緭鏁版嵁錛岄鍏堣璁劇疆瀹㈡埛璁$畻鏈虹殑 LocalPort 灞炴с傜劧鍚庯紝鏈嶅姟鍣ㄨ綆楁満鍙渶灝?RemoteHost 璁劇疆涓哄鎴瘋綆楁満鐨?Internet 鍦板潃錛屽茍灝?RemotePort 灞炴ц緗負璺熷鎴瘋綆楁満鐨?LocalPort 灞炴х浉鍚岀殑绔彛錛屽茍璋冪敤 SendData 鏂規硶鏉ョ潃鎵嬪彂閫佷俊鎭備簬鏄紝瀹㈡埛璁$畻鏈轟嬌鐢?DataArrival 浜嬩歡鍐呯殑 GetData 鏂規硶鏉ヨ幏鍙栧凡鍙戦佺殑淇℃伅銆?/font>


澶ч笩 2009-08-21 13:57 鍙戣〃璇勮
]]>
VB Socket緙栫▼(WinSock鎺т歡緙栧啓緗戜笂鑱婂ぉ紼嬪簭)http://m.tkk7.com/dunkbird/articles/292088.html澶ч笩澶ч笩Fri, 21 Aug 2009 05:54:00 GMThttp://m.tkk7.com/dunkbird/articles/292088.htmlhttp://m.tkk7.com/dunkbird/comments/292088.htmlhttp://m.tkk7.com/dunkbird/articles/292088.html#Feedback0http://m.tkk7.com/dunkbird/comments/commentRss/292088.htmlhttp://m.tkk7.com/dunkbird/services/trackbacks/292088.html鐢╒B5涓璚inSock鎺т歡緙栧啓緗戜笂鑱婂ぉ紼嬪簭



Sockets鏄湪Unix緋葷粺涓婃彁鍑烘潵鐨勶紝涓寮濮嬩富瑕佹槸鐢ㄤ簬鏈湴閫氳錛屼絾寰堝揩灝卞簲鐢ㄥ埌C/S浣撶郴涓娿侻icroSoft鍏徃鍦ㄦ鍩虹涓婂垱寤轟簡 WinSock鎺т歡錛屼笓闂ㄧ敤浜嶹indows鎺ュ彛錛屼笌Sockets瀹屽叏鍏煎銆俉insock鎺т歡瀵圭敤鎴鋒潵璇存槸涓嶅彲瑙佺殑錛屽畠鎻愪緵浜嗚闂?TCP 鍜?UDP 緗戠粶鏈嶅姟鐨勬柟渚塊斿緞銆侻icrosoft Access銆乂isual Basic銆乂isual C++ 鎴?Visual FoxPro 鐨勫紑鍙戜漢鍛橀兘鍙嬌鐢ㄥ畠銆備負緙栧啓瀹㈡埛鎴栨湇鍔″櫒搴旂敤紼嬪簭錛屼笉蹇呬簡瑙?TCP 鐨勭粏鑺傛垨璋冪敤浣庣駭鐨?Winsock APIs銆傞氳繃璁劇疆鎺т歡鐨勫睘鎬у茍璋冪敤鍏舵柟娉曞氨鍙交鏄撹繛鎺ュ埌涓鍙拌繙紼嬫満鍣ㄤ笂鍘伙紝騫朵笖榪樺彲鍙屽悜浜ゆ崲鏁版嵁銆備笅闈㈠氨鍒╃敤VB5涓殑WinSock鎺т歡緙栧啓涓涓綉涓?鑱婂ぉ紼嬪簭銆?


涓錛夌綉緇滈氫俊鍗忚鐨勫熀紜鍜岄夋嫨


1錛? TCP錛堟暟鎹紶杈撳崗璁級鍩虹

鏁版嵁浼犺緭鍗忚鍏佽鍒涘緩鍜岀淮鎶や笌榪滅▼璁$畻鏈虹殑榪炴帴銆傝繛鎺ヤ袱鍙拌綆楁満灝卞彲褰兼榪涜鏁版嵁浼犺緭銆?
濡傛灉鍒涘緩瀹㈡埛搴旂敤紼嬪簭錛屽氨蹇呴』鐭ラ亾鏈嶅姟鍣ㄨ綆楁満鍚嶆垨鑰?IP 鍦板潃錛圧emoteHost 灞炴э級錛岃繕瑕佺煡閬撹繘琛?#8220;渚﹀惉”鐨勭鍙o紙RemotePort 灞炴э級錛岀劧鍚庤皟鐢?Connect 鏂規硶銆?
濡傛灉鍒涘緩鏈嶅姟鍣ㄥ簲鐢ㄧ▼搴忥紝灝卞簲璁劇疆涓涓敹鍚鍙o紙LocalPort 灞炴э級騫惰皟鐢?Listen 鏂規硶銆傚綋瀹㈡埛璁$畻鏈洪渶瑕佽繛鎺ユ椂灝變細鍙戠敓 ConnectionRequest 浜嬩歡銆備負浜嗗畬鎴愯繛鎺ワ紝鍙皟鐢?ConnectionRequest 浜嬩歡鍐呯殑 Accept 鏂規硶銆?
寤虹珛榪炴帴鍚庯紝浠諱綍涓鏂硅綆楁満閮藉彲浠ユ敹鍙戞暟鎹備負浜嗗彂閫佹暟鎹紝鍙皟鐢?SendData 鏂規硶銆傚綋鎺ユ敹鏁版嵁鏃朵細鍙戠敓 DataArrival 浜嬩歡銆傝皟鐢?DataArrival 浜嬩歡鍐呯殑 GetData 鏂規硶灝卞彲鑾峰彇鏁版嵁銆?

1錛? UDP錛堢敤鎴鋒暟鎹枃鎶ュ崗璁級鍩虹

鐢ㄦ埛鏁版嵁鏂囨姤鍗忚 (UDP) 鏄竴涓棤榪炴帴鍗忚銆傝窡 TCP 鐨勬搷浣滀笉鍚岋紝璁$畻鏈哄茍涓嶅緩绔嬭繛鎺ャ傚彟澶?UDP 搴旂敤紼嬪簭鍙互鏄鎴鋒満錛屼篃鍙互鏄湇鍔″櫒銆?
涓轟簡浼犺緭鏁版嵁錛岄鍏堣璁劇疆瀹㈡埛璁$畻鏈虹殑 LocalPort 灞炴с傜劧鍚庯紝鏈嶅姟鍣ㄨ綆楁満鍙渶灝?RemoteHost 璁劇疆涓哄鎴瘋綆楁満鐨?Internet 鍦板潃錛屽茍灝?RemotePort 灞炴ц緗負璺熷鎴瘋綆楁満鐨?LocalPort 灞炴х浉鍚岀殑绔彛錛屽茍璋冪敤 SendData 鏂規硶鏉ョ潃鎵嬪彂閫佷俊鎭備簬鏄紝瀹㈡埛璁$畻鏈轟嬌鐢?DataArrival 浜嬩歡鍐呯殑 GetData 鏂規硶鏉ヨ幏鍙栧凡鍙戦佺殑淇℃伅銆?

1錛? 閫夋嫨閫氳鍗忚

鍦ㄤ嬌鐢?WinSock 鎺т歡鏃訛紝棣栧厛闇瑕佽冭檻浣跨敤浠涔堝崗璁傚彲浠ヤ嬌鐢ㄧ殑鍗忚鍖呮嫭 TCP 鍜?UDP銆備袱縐嶅崗璁箣闂寸殑閲嶈鍖哄埆鍦ㄤ簬瀹冧滑鐨勮繛鎺ョ姸鎬侊細
TCP 鍗忚鏄湁榪炴帴鐨勫崗璁紝鍙互灝嗗畠鍚岀數璇濈郴緇熺浉姣斻傚湪寮濮嬫暟鎹紶杈撲箣鍓嶏紝鐢ㄦ埛蹇呴』鍏堝緩绔嬭繛鎺ャ?
UDP 鍗忚鏄竴縐嶆棤榪炴帴鍗忚錛屼袱鍙拌綆楁満涔嬮棿鐨勪紶杈撶被浼間簬浼犻掗偖浠訛細娑堟伅浠庝竴鍙拌綆楁満鍙戦佸埌鍙︿竴鍙拌綆楁満錛屼絾鏄袱鑰呬箣闂存病鏈夋槑紜殑榪炴帴銆傚彟澶栵紝鍗曟浼犺緭鐨勬渶澶ф暟鎹噺鍙栧喅浜庡叿浣撶殑緗戠粶銆?

鍒板簳閫夋嫨鍝竴縐嶅崗璁氬父鏄敱闇瑕佸垱寤虹殑搴旂敤紼嬪簭鍐沖畾鐨勩備笅闈㈢殑鍑犱釜闂灝嗘湁鍔╀簬閫夋嫨閫傚疁鐨勫崗璁細

1. 鍦ㄦ敹鍙戞暟鎹殑鏃跺欙紝搴旂敤紼嬪簭鏄惁闇瑕佸緱鍒板鎴風鎴栬呮湇鍔″櫒鐨勭‘璁や俊鎭紵濡傛灉闇瑕侊紝浣跨敤 TCP 鍗忚錛屽湪鏀跺彂鏁版嵁涔嬪墠鍏堝緩绔嬫槑紜殑榪炴帴銆?

2. 鏁版嵁閲忔槸鍚︾壒鍒ぇ錛堜緥濡傚浘璞′笌澹伴煶鏂囦歡錛夛紵鍦ㄨ繛鎺ュ緩绔嬩箣鍚庯紝TCP 鍗忚灝嗙淮鎶よ繛鎺ュ茍紜繚鏁版嵁鐨勫畬鏁存с備笉榪囷紝榪欑榪炴帴闇瑕佹洿澶氱殑璁$畻璧勬簮錛屽洜鑰屾槸姣旇緝“鏄傝吹”鐨勩?

3. 鏁版嵁鍙戦佹槸闂存瓏鐨勶紝榪樻槸鍦ㄤ竴涓細璇濆唴錛熶緥濡傦紝濡傛灉搴旂敤紼嬪簭鍦ㄦ煇涓換鍔″畬鎴愮殑鏃跺欓渶瑕侀氱煡鏌愪釜璁$畻鏈猴紝UDP 鍗忚鏄洿閫傚疁鐨勩俇DP 鍗忚閫傚悎鍙戦佸皯閲忕殑鏁版嵁銆?

閫氳鍗忚鐨勯夋嫨鏄氳繃璁劇疆WinSock鐨凱rotocol灞炴ф潵瀹炵幇鐨勩備笅闈㈤夋嫨TCP閫氳鍗忚緙栧啓緗戜笂鑱婂ぉ紼嬪簭錛屽湪姝や箣鍓嶅繀欏葷煡閬撲竴涓瀬鍏墮噸瑕佺殑鍙傛暟---鏈嶅姟鍣ㄧ鐨処P鍦板潃鎴栬綆楁満鍚嶃?

浜岋級紜畾璁$畻鏈虹殑鍚嶅瓧

1. 鍦ㄨ綆楁満鐨勬闈笂錛屽彸閿崟鍑?#8220;緗戜笂閭誨眳”銆?

2. 閫夋嫨“灞炴?#8221;銆?

3. 鍗曞嚮“鏍囪瘑”閫夐」鍗°?

4. 鍦?#8220;璁$畻鏈哄悕縐?#8221;妗嗕腑鍙互鎵懼埌璁$畻鏈虹殑鍚嶇О銆?

紜畾璁$畻鏈虹殑 IP鍦板潃

1. 鍗曞嚮“浠誨姟鏉?#8221;涓婄殑“鍚姩”銆?

2. 閫夋嫨“榪愯”銆?

3. 鑻ユ湇鍔″櫒绔搷浣滅郴緇熶負win95鍒欏湪“鎵撳紑”涓~鍏?#8220;winipcfg”錛岃嫢鏈嶅姟鍣ㄧ鎿嶄綔緋葷粺涓簑innt鍒欏湪“鎵撳紑”涓~鍏?#8220;ipconfig”銆?

4. 鎸変笅“紜畾”閿?

涓婇潰鎵懼埌鐨勮綆楁満鍚嶇О鎴朓P鍦板潃鍙互浣滀負WinSock鐨凴emoteHost 灞炴х殑鍊箋?

涓夛級 winsock鎺т歡鐨凷tate灞炴с?




state 灞炴х殑璁劇疆鍊兼槸錛?甯?鏁?
鍊?鎻?榪?

sckclosed 0 緙虹渷鐨勩傚叧闂?
sckopen 1 鎵撳紑
scklistening 2 渚﹀惉
sckconnectionpending 3 榪炴帴鎸傝搗
sckresolvinghost 4 璇嗗埆涓繪満
sckhostresolved 5 宸茶瘑鍒富鏈?
sckconnecting 6 姝e湪榪炴帴
sckconnected 7 宸茶繛鎺?
sckclosing 8 鍚岀駭浜哄憳姝e湪鍏抽棴榪炴帴
sckerror 9 閿欒


涓嬮潰涓昏瑕佺敤鍒皊ckClosed.sckConnected涓や釜State灞炴х殑鍊箋?

鍥涳級緗戜笂鑱婂ぉ紼嬪簭鐨勭紪鍒?

4錛? 紼嬪簭涓湇鍔″櫒绔墍璧風殑浣滅敤銆?

浠庡浘紺轟腑鍙互鐪嬪埌鏈嶅姟鍣ㄧ鐨勪袱涓獁insock鎺т歡涔嬮棿騫朵笉瀛樺湪鐩存帴鐨勯氳錛屽悓鏃秙ckServer1鍜宻ckClient2鍙?sckServer2鍜宻ckClient1涔嬮棿鏄笉鑳界洿鎺ラ氳鐨勩傝繖涔熷嵆鏄鑻ckClient1鍚憇ckClient2鍙戝嚭淇℃伅錛屼俊鎭鍏堣 sckServer1鎺ュ彈錛宻ckServer1鍐嶅皢淇℃伅浼犵粰紼嬪簭鐨勪俊鎭鐞嗛儴鍒嗭紝淇℃伅澶勭悊閮ㄥ垎鍐嶅皢澶勭悊濂界殑淇℃伅浼犵粰sckServer2錛屽啀鐢?sckServer2浼犵粰sckClient2銆傚弽涔嬩害鐒躲傞偅涔堟湇鍔″櫒绔殑淇℃伅澶勭悊閮ㄥ垎鍙堣繘琛屼粈涔堝伐浣滃憿錛?

1. 瀵歸氳鐨勯氶亾鏁頒綔涓浜涢檺鍒躲?

2. 瀵逛嬌鐢ㄥ悗宸插叧闂殑閫氶亾錛屽繀欏昏兘澶熼噸鏂頒嬌鐢ㄤ互鑺傜渷璧勬簮銆?

3. 蹇呴』瀵規墍浼犻掔殑鏁版嵁鍖呬俊鎭綔鐢戝埆錛屼粠鑰屼綔鍑轟笉鍚岀殑澶勭悊銆?

閫氳繃瑙e紑鏁版嵁鐨勫寘澶村氨鍙尯鍒嗕笉鍚岀殑淇℃伅銆?

緗戜笂鑱婂ぉ鏈変袱縐嶆柟寮忥細絎竴縐嶏紝浠ュ箍鎾柟寮忥紱絎簩縐嶏紝浠ョ偣瀵圭偣鐨勬柟寮忋傚箍鎾柟寮忓嵆鎵鏈夊鎴烽兘鑳芥敹鍒版煇涓瀹㈡埛鍙戝嚭鐨勪俊鎭傜偣瀵圭偣鐨勬柟寮忓嵆鎯寵“鎮勬倓璇?”鐨勪竴瀵瑰鎴蜂笓闂ㄥ紑杈熶簡涓闂磋皥璇濈殑“灝忓眿”錛屽埆鐨勫鎴蜂笉鑳?#8220;鍚?#8221;鍒頒粬浠殑璋堣瘽銆傚湪涓嬮潰鐨勭▼搴忎腑灝嗙湅鍒板浣曞埄鐢ㄦ暟鎹殑涓嶅悓鍖呭ご鏉ュ尯鍒嗙敤鎴鋒槸鎯充互騫挎挱鏂瑰紡榪樻槸 浠ョ偣瀵圭偣鐨勬柟寮忚繘琛岃皥璇濈殑錛堢偣瀵圭偣鏂瑰紡鏁版嵁鐨勫寘澶翠負“PT”,騫挎挱鏂瑰紡鍒欐棤鍖呭ご錛夈?

4錛? 瀹㈡埛绔殑紼嬪簭

1. 鍦ㄥ鎴風鍒涘緩涓涓柊鐨勫伐紼嬪皢鍏跺懡鍚嶄負“ClientPrj”

2. 灝嗙己鐪佺獥浣撳懡鍚嶄負 frmClient銆?

3. 灝嗙獥浣撶殑鏍囬鏀逛負“Client”銆?

4. 鍦ㄧ獥浣撲腑娣誨姞涓涓?WinSock 鎺т歡錛屽茍灝嗗叾鍛藉悕涓?tcpClient銆?

5. 鍦?frmClient 涓坊鍔犱竴涓狶istBox 鎺т歡銆傚皢鍏跺懡鍚嶄負lstReceive銆?

6. 鍦?frmClient 涓坊鍔犱竴涓?TextBox 鎺т歡銆傚皢鍏跺懡鍚嶄負 txtSend銆?

7. 鍦ㄧ獥浣撲笂鏀句袱涓?CommandButton 鎺т歡錛屽茍灝嗗叾鍛藉悕涓?cmdConnect鍜宑mdSent銆?

8. 灝哻mdConnect鎺т歡鐨勬爣棰樻敼涓?Connect, 灝哻mdSent鎺т歡鐨勬爣棰樻敼涓?Sent銆?

9. 鍦ㄧ獥浣撲腑娣誨姞濡備笅鐨勪唬鐮併?

Private Sub cmdConnect_Click()

On Error GoTo ErrorPro

sckClient.Connect

Exit Sub

ErrorPro:

MsgBox "鏈嶅姟鍣ㄦ湭寮鎴栫綉緇滃嚭閿欙紒"

End

End Sub

Private Sub cmdSent_Click()

sckClient.SendData txtSent.Text

End Sub

Private Sub Form_Load()

' RemoteComputerName涓烘湇鍔″櫒绔殑璁$畻鏈哄悕鎴朓P鍦板潃銆?

sckClient.RemoteHost = "RemoteComputerName"

sckClient.RemotePort = 1000

End Sub



Private Sub sckClient_Close()

MsgBox "鏈嶅姟鍣ㄩ氶亾宸插叧闂紒"

End

End Sub



Private Sub sckClient_Connect()

MsgBox "榪炴帴鎴愬姛錛?

cmdConnect.Enabled = False

End Sub



Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)

Dim s As String

sckClient.GetData s

lstReceive.AddItem s

End Sub



Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

sckClient.Close

cmdConnect.Enabled = True

End Sub

4錛? 鏈嶅姟鍣ㄧ鐨勭▼搴?

1. 鍦ㄦ湇鍔″櫒绔垱寤轟竴涓柊鐨勫伐紼嬪皢鍏跺懡鍚嶄負“ServerPrj”銆?

2. 灝嗙己鐪佺獥浣撳懡鍚嶄負“frmServer”銆?

3. 鍦ㄧ獥浣撲腑娣誨姞涓涓狶istBox鎺т歡錛屽皢鍏跺懡鍚嶄負“lstReceive”銆?

4. 鍦ㄧ獥浣撲腑娣誨姞涓変釜WinSock鎺т歡錛屽皢鍏跺垎鍒懡鍚嶄負“sckListen”錛宻ckBusy鍜?#8220;sckServer”騫跺皢“sckServer”鐨?#8220;Index”灞炴ц緗負0銆?

5. 鍦ㄧ獥浣撲腑娣誨姞濡備笅浠g爜.銆?

'鏈澶ч氶亾鏁?

Private MaxChan As Integer



Private Sub Form_Load()

Dim i As Integer

MaxChan = 10

For i = 1 To MaxChan - 1

Load sckServer(i)

Next i

sckListen.LocalPort = 1000

sckListen.Listen

End Sub



Private Sub sckBusy_Close()

sckBusy.Close

End Sub



Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long)

sckBusy.SendData "鏈嶅姟鍣ㄥ繖錛岃紼嶅悗鍐嶈繛鎺ワ紒"

DoEvents

End Sub



Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)

Dim i As Integer

'鍐沖畾鐢卞摢涓Winsock鎺ュ彈璇鋒眰

For i = 0 To MaxChan - 1

If sckServer(i).State = 0 Then

Exit For

End If

Next i

If sckServer(i).State = 0 Then

sckServer(i).Accept requestID

Exit Sub

End If

'濡傛灉鎵鏈塛insock閮界敤瀹屽垯鐢變笓闂ㄧ殑“蹇?#8221;Winsock鎺ュ彈璇鋒眰錛屼互鍏嶇敤鎴瘋姹傚緱涓嶅埌鍝嶅簲

sckBusy.Close

sckBusy.Accept requestID

End Sub



Private Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

sckListen.Close

sckListen.LocalPort = 1000

sckListen.Listen

End Sub



Private Sub sckServer_Close(Index As Integer)

sckServer(Index).Close

End Sub



Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)

Dim s As String

Dim i As Integer

sckServer(Index).GetData s

If UCase(Left(Trim(s), 2)) = "PT" Then '鍒ゆ柇鏄惁涓烘倓鎮勮瘽錛岀偣瀵圭偣鏂瑰紡

If IsNumeric(Mid(Trim(s), 3, 1)) Then

i = Mid(Trim(s), 3, 1)

sckServer(i).SendData "Channel " & Index & " " & Right(Trim(s), Len(Trim(s)) - 3)

DoEvents

End If

Else '騫挎挱鏂瑰紡

For i = 0 To MaxChan - 1

'鍒╃敤winsock鐨凷tate灞炴х粰鎵鏈夎繛鎺ュ湪鏈嶅姟鍣ㄤ笂鐨勫鎴峰彂娑堟伅

If sckServer(i).State = 7 Then

sckServer(i).SendData "Channel " & Index & " " & Trim(s)

DoEvents

End If

Next i

End If

lstReceive.AddItem "Channel " & Index & " " & Trim(s)

End Sub



Private Sub sckServer_Error(Index As Integer, ByVal Number As Integer, Description As String, _

ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As _

Long, CancelDisplay As Boolean)

sckServer(Index).Close

End Sub

浠庣▼搴忎腑鍙互鐪嬪埌錛氱涓錛岀▼搴忎腑闄愬埗浜嗛氶亾鏁幫紙10璺級銆傜浜岋紝閫氳繃鍒ゆ柇WinSock鎺т歡鐨凷tate灞炴ф槸鍚︿負0錛堝叧闂姸鎬侊級錛屾潵閲嶆柊浣跨敤宸?鍏抽棴鐨刉inSock鎺т歡銆傜涓夛紝閫氳繃緇橶inSock鎺т歡浼犻掔殑淇℃伅鍔犱笂鍖呭ご錛屾潵瀵逛俊鎭繘琛屼笉鍚岀殑澶勭悊錛堢▼搴忎腑鑻ヤ俊鎭墠鍔犱笂浜?#8220;PT"錛圥rivate Talk錛?"閫氶亾鏁?#8221;鐨勫寘澶達紝鐢辨灝辯煡閬撳鎴鋒兂瑕佸悓鎷ユ湁姝?#8220;閫氶亾鏁?#8221;鐨勫彟涓瀹㈡埛榪涜“鎮勬倓璇?#8221;錛屽惁鍒欏氨浠ュ箍鎾柟寮忓皢淇℃伅鍙戠粰鎵鏈夊鎴鳳級銆?


浜旓級 緇撴潫璇?

WinSock鎺т歡涓嶄粎浠呮槸鐢ㄦ潵緙栧埗緗戜笂鑱婂ぉ紼嬪簭錛岃屼笖鍙互鐢ㄦ潵緙栧埗鍚勭緗戠粶娓告垙鎴栫綉緇滈氫俊紼嬪簭銆傚疄闄呬笂WinSock鎺т歡鏄紪鍒跺悇縐岰/S紼嬪簭 鐨勫埄鍣ㄣ傚湪瀹為檯浣跨敤涓氬父鏄皢WinSock鎺т歡灝佽鍦ˋctivex DLL錛堣繘紼嬪唴錛夈丄ctivex EXE錛堣繘紼嬪錛夐儴浠剁殑綾諱腑錛堢被涓紩鐢級鏉ヤ嬌鐢ㄧ殑銆傞氳繃鍖哄垎鎵浼犱俊鎭墠鐨勪笉鍚岀殑鍖呭ご錛岀敤RaiseEvent鍛戒護寮曞彂涓嶅悓 鐨勪簨浠訛紝鍐嶅浜嬩歡鍒嗗埆榪涜澶勭悊銆傝繖鏍蜂笉浠呭鍔犱簡紼嬪簭鐨勫彲璋冭瘯鎬у拰瀹夊叏鎬э紝鑰屼笖鏇寸鍚堜簨浠墮┍鍔ㄧ紪紼嬫柟娉曠殑鐗圭偣銆?/font>

澶ч笩 2009-08-21 13:54 鍙戣〃璇勮
]]>
VB Socket緙栫▼(Winsock鎺т歡鍒涘緩TCP/IP瀹㈡埛鏈?鏈嶅姟鍣ㄧ▼搴?http://m.tkk7.com/dunkbird/articles/292087.html澶ч笩澶ч笩Fri, 21 Aug 2009 05:53:00 GMThttp://m.tkk7.com/dunkbird/articles/292087.htmlhttp://m.tkk7.com/dunkbird/comments/292087.htmlhttp://m.tkk7.com/dunkbird/articles/292087.html#Feedback0http://m.tkk7.com/dunkbird/comments/commentRss/292087.htmlhttp://m.tkk7.com/dunkbird/services/trackbacks/292087.htmlWinsock鎺т歡寤虹珛鍦═CP銆乁DP鍗忚鐨勫熀紜涓婏紝瀹屾垚涓庤繙紼嬭綆楁満鐨勯氫俊銆傚嵆浣垮TCP/IP涓嶅お鐔熸倝鐨勭敤鎴鳳紝浣跨敤璇ユ帶浠朵篃鍙互鍦ㄥ崄鍑犲垎閽熷唴鍒涘緩涓 涓畝鍗曠殑瀹㈡埛鏈?鏈嶅姟鍣ㄧ▼搴忋備笅闈㈡垜浠Winsock鎺т歡鐨勪簨浠躲佹柟娉曘佸睘鎬ф寜鍏跺湪紼嬪簭涓嚭鐜扮殑欏哄簭鍒嗗埆浣滆緇嗙殑浠嬬粛錛屼互渚挎洿濂藉湴鐞嗚В紼嬪簭婧愪唬鐮併?
涓嬮潰鏄疻insock鎺т歡鐨勭浉鍏沖睘鎬э紝鏂規硶鍜屼簨浠躲?鐣ュ幓涓浜涙殏鐢ㄤ笉鍒扮殑)
*灞炴?
-------------------------------------------------------------------------
LocalHostName | 鏈湴鏈哄櫒鍚?
LocalIP | 鏈湴鏈哄櫒IP鍦板潃
LocalPort | 鏈湴鏈哄櫒閫氫俊紼嬪簭鐨勭鍙?0 <绔彛 <65536)
RemoteHost | 榪滅▼鏈哄櫒鍚?
RemotePort | 榪滅▼鏈哄櫒鐨勯氫俊紼嬪簭绔彛
state | 榪炴帴鐨勫綋鍓嶇姸鎬?鏂囧悗鏈夎緇嗚鏄?
Protocal | 浣跨敤TCP鎴朥DP鍗忚(榪欓噷鎴戜滑閫?#8216;0-sckTCPProtocal’)
--------------------------------------------------------------------------
*鏂規硶
--------------------------------------------------------------------------
Listen
Listen鏂規硶鐢ㄤ簬鏈嶅姟鍣ㄧ▼搴忥紝絳夊緟瀹㈡埛璁塊棶銆?
鏍煎紡錛歐insock瀵硅薄.listen
Connect
Connect鏂規硶鐢ㄤ簬鍚戣繙紼嬩富鏈哄彂鍑鴻繛鎺ヨ姹?
鏍煎紡錛歐insock瀵硅薄.connect [榪滅▼涓繪満IP,榪滅▼绔彛]
Accept
Accept鏂規硶鐢ㄤ簬鎺ュ彈涓涓繛鎺ヨ姹?
鏍煎紡錛歐insock瀵硅薄.accept Request ID
Senddata
姝ゆ柟娉曠敤浜庡彂閫佹暟鎹?
鏍煎紡錛歐insock瀵硅薄.senddata 鏁版嵁
Getdata
鐢ㄦ潵鍙栧緱鎺ユ敹鍒扮殑鏁版嵁
鏍煎紡錛歐insock瀵硅薄.getdata 鍙橀噺 [,鏁版嵁綾誨瀷 [,鏈澶ч暱搴]
Close
鍏抽棴褰撳墠榪炴帴
鏍煎紡錛歐insock瀵硅薄.close
*浜嬩歡
----------------------------------------------------------------------------
Close | 榪滅▼鏈哄櫒鍏抽棴榪炴帴鏃惰Е鍙?
Connect | 榪炴帴寤虹珛濂斤紝鍙互榪涜閫氫俊鏃惰Е鍙?瀹㈡埛绔?
ConnectRequest | 鏈夎姹傝繛鎺ュ埌杈炬椂浜х敓(鏈嶅姟鍣ㄧ)
DataArrival | 鏈夋暟鎹埌杈炬椂瑙﹀彂
Error | 鍙戠敓閿欒鏃跺彂鐢?
SendProgress | 鏁版嵁浼犻佽繘搴?
-----------------------------------------------------------------------------

鏈嶅姟鍣ㄧ▼搴忕殑瀹炵幇榪囩▼鏄細
錛?錛夋湇鍔″櫒紼嬪簭蹇呴』璁劇疆濂絃ocalPort灞炴э紝浣滀負渚﹀惉绔彛錛岃鍊間負涓涓暣鏁幫紙鍙鏄竴涓叾瀹僒CP/IP搴旂敤紼嬪簭娌℃湁浣跨敤榪囩殑鍊煎嵆鍙級銆?
錛?錛変嬌鐢↙isten鏂規硶榪涘叆渚﹀惉鐘舵侊紝絳夊緟瀹㈡埛鏈虹▼搴忕殑榪炴帴璇鋒眰銆?
錛?錛夊鎴鋒満紼嬪簭鍙戝嚭榪炴帴璇鋒眰錛屼嬌鏈嶅姟鍣ㄧ▼搴忎駭鐢烠onnectionRequest浜嬩歡錛岃浜嬩歡寰楀埌涓涓弬鏁皉equestID銆?
錛?錛夋湇鍔″櫒紼嬪簭鐢ˋccept鏂規硶鎺ュ彈瀹㈡埛鏈虹▼搴忕殑requestID璇鋒眰銆傝繖鏍鳳紝鏈嶅姟鍣ㄧ▼搴忓氨鍙互鐢⊿endData鏂規硶鍙戦佹暟鎹簡銆侫ccept鏂規硶蹇呴』鐢ㄤ笂涓姝ュ緱鍒扮殑requestID浣滀負鍏跺弬鏁般?
錛?錛夊綋鏈嶅姟鍣ㄧ▼搴忔帴鏀跺埌鏁版嵁鏃訛紝浜х敓DataArrival浜嬩歡錛屽弬鏁癇ytesTotal鍖呭惈鎺ユ敹鍒扮殑鏁版嵁瀛楄妭鏁般傚湪璇ヤ簨浠朵腑錛屽彲浠ョ敤GetData鏂規硶鎺ユ敹鏁版嵁銆?
錛?錛夊鏋滄帴鍙楀埌Close浜嬩歡錛屽垯鐢–lose鏂規硶鍏抽棴TCP/IP榪炴帴銆?
瀹㈡埛鏈虹▼搴忕殑瀹炵幇榪囩▼鏄細
錛?錛?瀹㈡埛紼嬪簭璁劇疆Remotehost灞炴э紝浠ヤ究鎸囧畾榪愯鏈嶅姟鍣ㄧ▼搴忕殑涓繪満 鍚嶏紝璇ュ瓧絎︿覆鍙湪“鎺у埗闈㈡澘|緗戠粶|鏍囪瘑|璁$畻鏈哄悕”涓煡鍒般?
錛?錛?璁劇疆RemotePort灞炴?浠ヤ究鎸囧畾鏈嶅姟鍣ㄧ▼搴忕殑渚﹀惉绔彛銆?
錛?錛変嬌鐢–onnect鏂規硶錛屽悜鏈嶅姟鍣ㄦ彁鍑鴻繛鎺ヨ姹傘?
錛?錛夋湇鍔″櫒鎺ュ彈瀹㈡埛鏈虹▼搴忕殑璇鋒眰錛屽鎴鋒満紼嬪簭浜х敓Connect浜嬩歡錛屽氨鍙互鐢⊿endData鏂規硶鍙戦佹暟鎹簡銆?
錛?錛夊綋瀹㈡埛鏈虹▼搴忔帴鏀跺埌鏁版嵁鏃訛紝浜х敓DataArrival浜嬩歡錛屽弬鏁癇ytesTotal鍖呭惈鎺ユ敹鍒扮殑鏁版嵁瀛楄妭鏁般傚湪璇ヤ簨浠朵腑錛屽彲浠ョ敤GetData鏂規硶鎺ユ敹鏁版嵁銆?
錛?錛夊鏋滄帴鍙楀埌Close浜嬩歡錛屽垯鐢–lose鏂規硶鍏抽棴榪炴帴銆?
Winsock鎺т歡榪樻湁涓や釜閲嶈鐨勫睘鎬э紝鍗砅rotocol鍜孲tate銆侾rotocol璁懼畾浣跨敤鐨勫崗璁槸TCP榪樻槸UDP錛氬彇鍊?sckTCPProtocol琛ㄧずTCP, 鍙栧約ckUDPProtocol鍒欒〃紺篣DP銆傚洜涓篧insock鎺т歡鐨勭己鐪佽緗槸sckTCPProtocol錛屾墍浠ョ▼搴忎腑騫舵病鏈変嬌鐢?Protocol灞炴с係tate灞炴у弽鏄犵殑鏄綋鍓峊CP/IP鐨勮繛鎺ョ姸鎬侊紝鍙栧煎琛?鎵紺恒?
琛? Winsock鎺т歡鐨凷tate灞炴у強鍏舵弿榪?
甯告暟 鍊?鎻忚堪
SckClosed 0 緙虹渷鍊鹼紝鍏抽棴
SckOpen 1 鎵撳紑
SckListening 2 渚﹀惉
SckConnectionPending 3 榪炴帴鎸傝搗
SckResolvingHost 4 璇嗗埆涓繪満
SckHostResolved 5 宸茶瘑鍒富鏈?
SckConnecting 6 姝e湪榪炴帴
SckConnected 7 宸茶繛鎺?
SckClosing 8 鍚岀駭浜哄憳姝e湪鍏抽棴榪炴帴
SckError 9 閿欒
鍏堝湪涓鍙拌綆楁満涓婅繍琛屾湇鍔″櫒紼嬪簭錛屾鏃剁獥鍙d笂鍙湁涓涓?#8220;閫鍑?#8221;鎸夐挳銆?鍐嶅湪鍙︿竴鍙拌綆楁満涓婅繍琛屽鎴鋒満紼嬪簭錛屽湪“榪炴帴”鎸夐挳鍙寵竟鐨勬枃鏈涓緭鍏ユ湇鍔″櫒鐨勪富鏈哄悕鍚庡崟鍑?#8220;榪炴帴”鎸夐挳銆傚鏋滆繛鎺ユ垚鍔燂紝鍒欐湇鍔″櫒鍜屽鎴鋒満紼嬪簭紿楀彛閮戒細鍑?鐜頒袱涓枃鏈銆傝繖鏃訛紝涓ょ閮藉彲浠ュ湪涓婇潰鐨勬枃鏈涓緭鍏ユ枃瀛楋紝榪欎簺鏂囧瓧浼氱珛鍗沖湪涓嬮潰鐨勬枃鏈涓嚭鐜般?
鏈嶅姟鍣ㄧ▼搴忎嬌鐢ㄧ殑鎺т歡濡備笅錛?
錛?錛塁ommand1錛氶鍑烘寜閽紱
錛?錛塼extsend錛氬彂閫佹暟鎹枃鏈錛?
錛?錛塛insockserver錛?鏈嶅姟鍣╓insock錛?
錛?錛塼extget 錛氭帴鏀舵暟鎹枃鏈銆?
鏈嶅姟鍣ㄧ▼搴忕殑鐣岄潰濡傚浘鎵紺恒?
鏈嶅姟鍣ㄧ▼搴忕殑婧愪唬鐮佸涓嬶細
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
textsend.Visible = False
textget.Visible = False
Winsockserver.LocalPort = 1001
Winsockserver.Listen
End Sub

Private Sub textsend_Change()
Winsockserver.SendData textsend.Text
End Sub
Private Sub Winsockserver_Close()
Winsockserver.Close
End
End Sub

Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)
textsend.Visible = True
textget.Visible = True
If Winsockserver.State <> sckClosed Then Winsockserver.Close
Winsockserver.Accept requestID
End Sub

Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String

Winsockserver.GetData tmpstr
textget.Text = tmpstr
End Sub

瀹㈡埛鏈虹▼搴忎嬌鐢ㄧ殑鎺т歡濡備笅錛?
錛?錛塁ommand1錛氶鍑烘寜閽紱
錛?錛塁ommand2錛氳繛鎺ユ寜閽紱
錛?錛塛insockclient錛氬鎴稺insock錛?
錛?錛塗ext1錛氫富鏈哄悕鏂囨湰妗嗭紱
錛?錛塗extsend錛氬彂閫佹暟鎹枃鏈錛?
錛?錛塗extget錛氭帴鏀舵暟鎹枃鏈錛?銆銆
瀹㈡埛鏈虹▼搴忕殑婧愪唬鐮佸涓嬶細
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Winsockclient.Connect
End Sub
Private Sub Form_Load()
textsend.Visible = False
textget.Visible = False
Winsockclient.RemotePort = 1001
Winsockclient.RemoteHost = "sccdsz"
End Sub
Private Sub Text1_Change()
Winsockclient.RemoteHost = Text1.Text
End Sub
Private Sub textsend_Change()
Winsockclient.SendData textsend.Text
End Sub
Private Sub Winsockclient_Close()
Winsockclient.Close
End
End Sub
Private Sub winsockclient_Connect()
textsend.Visible = True
textget.Visible = True
Command2.Visible = False
End Sub
Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String
Winsockclient.GetData tmpstr
textget.Text = tmpstr
End Sub

鎴戣瘯榪囦簡錛屽彲浠ョ敤



澶ч笩 2009-08-21 13:53 鍙戣〃璇勮
]]>
excel 鑷畾涔夎彍鍗?/title><link>http://m.tkk7.com/dunkbird/articles/291016.html</link><dc:creator>澶ч笩</dc:creator><author>澶ч笩</author><pubDate>Thu, 13 Aug 2009 07:25:00 GMT</pubDate><guid>http://m.tkk7.com/dunkbird/articles/291016.html</guid><wfw:comment>http://m.tkk7.com/dunkbird/comments/291016.html</wfw:comment><comments>http://m.tkk7.com/dunkbird/articles/291016.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://m.tkk7.com/dunkbird/comments/commentRss/291016.html</wfw:commentRss><trackback:ping>http://m.tkk7.com/dunkbird/services/trackbacks/291016.html</trackback:ping><description><![CDATA[<p> </p> <p>Private Sub Workbook_Open()</p> <p>    Dim cbr As CommandBar<br />     Dim ctrMenu As CommandBarControl<br />     Dim ctr As CommandBarControl<br />     <br />     Set cbr = Application.CommandBars("Worksheet Menu Bar")<br />     <br />     For Each ctr In cbr.Controls<br />     <br />         If ctr.Caption = "custom" Then<br />             Exit Sub<br />         End If<br />     <br />     Next<br />     <br />     <br />     Set ctlMenu = cbr.Controls.Add(Type:=msoControlPopup)<br />     <br />     With ctlMenu<br />            .Caption = "custom"<br />             With .Controls.Add(Type:=msoControlButton)<br />                 .Caption = "aa"<br />                 .OnAction = "action1"<br />             End With<br />             With .Controls.Add(Type:=msoControlButton)<br />                 .Caption = "bb"<br />                <br />                 .OnAction = "action2"<br />             End With<br />     End With<br />     <br /> End Sub<br /> </p> <img src ="http://m.tkk7.com/dunkbird/aggbug/291016.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://m.tkk7.com/dunkbird/" target="_blank">澶ч笩</a> 2009-08-13 15:25 <a href="http://m.tkk7.com/dunkbird/articles/291016.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item><item><title>VB COM鍩虹璁插駭涔婣ctiveX EXEshttp://m.tkk7.com/dunkbird/articles/245232.html澶ч笩澶ч笩Tue, 09 Dec 2008 05:23:00 GMThttp://m.tkk7.com/dunkbird/articles/245232.htmlhttp://m.tkk7.com/dunkbird/comments/245232.htmlhttp://m.tkk7.com/dunkbird/articles/245232.html#Feedback0http://m.tkk7.com/dunkbird/comments/commentRss/245232.htmlhttp://m.tkk7.com/dunkbird/services/trackbacks/245232.html
銆銆 鎵浠ワ紝鎯沖湪榪欓噷瀹為檯緙栧啓涓涓猘ctivex exe宸ョ▼銆備簨瀹炰笂錛屽畠鍜宎ctivex dll娌℃湁澶ぇ鐨勫尯鍒紝鐢氳嚦娌℃湁鍖哄埆銆傚湪鍚姩visual basic鍚庨夋嫨\"activex exe\"灝卞彲鍒涘緩錛岀劧鍚庡儚浠ュ墠涓鏍鋒瀯閫犺嚜宸辯殑綾匯?

銆銆 浣嗚繖閲屼笉鎯沖啀浣滄洿璇︾粏鐨勮璁猴紝鍥犱負activex exe鍜宎ctivex dll闄や簡鍦ㄨ繍琛屾椂鏈変竴浜涘井灝忓尯鍒錛屽叾浠栭兘鐩稿悓銆?

銆銆 瀹冧滑鐨勫尯鍒鍏堣〃鐜板湪瀹冧滑鐨刓"榪涚▼絀洪棿\"鐨勪笉鍚屻傛墍璋揬"榪涚▼絀洪棿\"鏄敤浜庤繍琛屻佸鐞嗗拰瀛樺彇鐨勪竴鍧楄綆楁満鍐呭瓨銆備換浣晈indows紼嬪簭錛屽microsoft word絳夛紝閮芥湁鑷繁鐨刓"榪涚▼絀洪棿\"錛屽畠寰堝儚紼嬪簭鐨勬闈㈤偅鏍楓?

銆銆 褰撲嬌鐢╝ctivex dlls宸ョ▼榪愯鏃訛紝dll鏄湪浣跨敤瀹冪殑紼嬪簭鐨勮繘紼嬬┖闂翠腑榪愯鐨勶紝鑰宎ctivex exe鏄湪榪涚▼絀洪棿澶栭潰宸ヤ綔鐨勩備絾鏄紝activex exe榪樻湁鑷繁鐨刓"妗岄潰\"銆傝繖絀剁珶濡備綍鐞嗚В鍛紵

銆銆 鍋囧錛宎ctivex dll鍙樺緱涓嶇ǔ瀹氭垨鎰忓鍙楁崯鏃訛紝浣跨敤瀹冪殑搴旂敤紼嬪簭甯稿父鍑虹幇钃濆睆鐨勬鏈虹幇璞★紝鑰屽湪exes涓嵈涓嶄細鍙戠敓錛屽洜涓哄畠鏈夎嚜宸辯殑\"榪涚▼絀洪棿\"錛屽嵆浣胯鐮村潖錛屼篃浠呬粎鏄闈㈠彈鎹燂紝褰撶劧鐢ㄦ埛紼嬪簭搴旇寰堝ソ鍦板幓淇瀹冦?

銆銆 鍏舵錛屽畠浠殑鍖哄埆榪樿〃鐜板湪瑁呰澆鐨勯熷害涓娿傜敱浜巇ll鏄洿鎺ヨ杞藉埌宸插瓨鍦ㄧ殑榪涚▼絀洪棿錛屾墍浠ュ畠鐨勯熷害闈炲父蹇傝宔xes鐢變簬榪樿鍒嗛厤鑷繁鐨勮繘紼嬬┖闂達紝鎵浠ラ熷害涓婄浉瀵規參涓鐐廣?

銆銆 涓婅堪涓ょ偣鍖哄埆鍙互璇存槸瀹冧滑鐪熸鐨勫尯鍒?

銆銆 鎬諱箣錛屽鏋滀嬌鐢ㄤ笉鍚岀殑windows宸ュ叿鏉ュ疄鐜扮浉搴旂殑activex緇勪歡錛岄偅涔堢浉搴旂殑宸ョ▼綾誨瀷灝卞簲璇ユ湁鎵涓嶅悓銆備緥濡傦紝鑻ヤ嬌鐢╩ts錛屽垯搴斿垱寤篸ll宸ョ▼錛岃嫢浣跨敤dcom錛屽垯搴斿垱寤篹xe宸ョ▼銆傚綋鐒訛紝鍗充嬌鐜板湪涓嶇悊瑙h繖姝ょ緝鍐欏瓧姣嶇殑鍚箟錛屾垜浠篃涓嶅繀鎷呭績銆傚洜涓哄畠浠槸閽堝楂樼駭鐢ㄦ埛鐨勶紝騫剁敤浜巆om榪滅▼鐨勫伐鍏風粍浠躲備互鍚庢湁鏈轟細鍐嶆潵緇欏嚭鐩稿簲鐨勬暀紼嬨?

銆銆 榪欓噷鍐嶆潵鍒嗘瀽絎簩鐐圭殑鍖哄埆銆?

銆銆 濡傛灉鐜板湪闇瑕佸垱寤鴻繖鏍風殑涓涓▼搴忥紝瀹冧笉鏂湴媯嫻嬩竴涓暟鎹簱鏄惁鏈変粈涔堟敼鍙樸傞偅涔堟垜浠兂鍒扮殑鏄湪紼嬪簭涓嬌鐢ㄤ竴浜沑"timer\"(璁℃椂鍣?錛屾瘡闅?0鍒嗛挓嬋鍙戜竴嬈″茍媯嫻嬭鏁版嵁搴撱備絾闂鏉ヤ簡錛屽湪璇ヨ繘紼嬬┖闂寸殑鍏朵粬鎵鏈変唬鐮侀兘瑕佽鍋滄榪愯鐩磋嚦鏁版嵁搴撴嫻嬪畬姣曘?

銆銆 鑰宎ctivex exes浼熷ぇ涔嬪錛屽氨鍦ㄤ簬瀹冩湁鑷繁鐨勮繘紼嬬┖闂淬傛墍浠ュ湪鍏朵腑娣誨姞鐨勮鏃跺櫒涔熷彧浼氬伐浣滃湪鑷繁鐨勮繘紼嬬┖闂翠腑鑰屼笉浼氬獎鍝嶅叾浠栦嬌鐢ㄥ畠鐨勭▼搴忋備篃灝辨槸璇達紝瀵逛簬鍓嶉潰鐨勫伐紼嬫潵璇達紝鑻ヤ嬌鐢╝ctivex exe鏉ユ嫻嬫暟鎹簱錛屽垯涓嶄細鍋滄鍏朵粬浣跨敤瀹冪殑紼嬪簭鐨勮繍琛岋紱鍗充嬌闇瑕佷粠鍏朵粬紼嬪簭涓繑鍥炰竴涓秷鎭紝涔熷彲浠ラ氳繃鍏朵粬浜嬩歡鑰岃幏寰椼?

銆銆 闇瑕佽鏄庣殑鏄紝榪愯浠g爜榪滅姝h紼嬪簭鑰岄氳繃浜嬩歡涓庝嬌鐢ㄧ殑搴旂敤紼嬪簭浼氳瘽鐨勬柟娉曠О涓篭"寮傛澶勭悊\"銆傞氬父褰撻渶瑕佸e-mail鎴栨暟鎹簱浣滃畾鏈熸鏌ユ椂錛屾垨褰撹繍琛屼竴涓暱鐨勬姤琛ㄤ互鍙婅綆楀ぇ鐨勭粺璁℃暟鎹椂錛屾垜浠氨闇浣跨敤榪欑寮傛澶勭悊鏂瑰紡銆?

銆銆 涓嶆曚綘鎯婅鐨勮瘽錛屾垜浠彲浠ュ皢鍓嶉潰璁鴻堪鐨勫唴瀹規葷粨鎴愯繖鏍風殑涓鍙ヨ瘽錛?

銆銆 \"activex dlls鏄湪榪涚▼鍐呰繍琛岋紝鑰宎ctivex exes鏄湪榪涚▼澶栬繍琛孿"銆?

銆銆 濂戒簡錛屼笅涓鑺傚皢鍒涘緩騫舵祴璇曚竴涓嚜宸辯殑activex exe宸ョ▼錛屽茍浣跨敤澶у榪樹笉澶啛鎮夌殑\"寮傛澶勭悊\"鎶宸с傜劧鍚庯紝鎻愬嚭涓涓О涓篭"瀹炰緥\"鐨勬湁鎰忎箟鐨勬蹇碉紝鏈鍚庢寚鏄庢庢牱鑾峰緱鏇村鐨刢om鐭ヨ瘑浣胯嚜宸辮揪鍒頒竴涓柊鐨勬按騫熾?

澶ч笩 2008-12-09 13:23 鍙戣〃璇勮
]]>
VB璇誨啓鏂囨湰鏂囦歡http://m.tkk7.com/dunkbird/articles/195794.html澶ч笩澶ч笩Fri, 25 Apr 2008 01:02:00 GMThttp://m.tkk7.com/dunkbird/articles/195794.htmlhttp://m.tkk7.com/dunkbird/comments/195794.htmlhttp://m.tkk7.com/dunkbird/articles/195794.html#Feedback0http://m.tkk7.com/dunkbird/comments/commentRss/195794.htmlhttp://m.tkk7.com/dunkbird/services/trackbacks/195794.html闃呰鍏ㄦ枃

澶ч笩 2008-04-25 09:02 鍙戣〃璇勮
]]>
VBA DB 鎿嶄綔鎬葷粨綃囷紙浠g爜璋冭瘯OK錛?/title><link>http://m.tkk7.com/dunkbird/articles/195359.html</link><dc:creator>澶ч笩</dc:creator><author>澶ч笩</author><pubDate>Thu, 24 Apr 2008 00:44:00 GMT</pubDate><guid>http://m.tkk7.com/dunkbird/articles/195359.html</guid><wfw:comment>http://m.tkk7.com/dunkbird/comments/195359.html</wfw:comment><comments>http://m.tkk7.com/dunkbird/articles/195359.html#Feedback</comments><slash:comments>2</slash:comments><wfw:commentRss>http://m.tkk7.com/dunkbird/comments/commentRss/195359.html</wfw:commentRss><trackback:ping>http://m.tkk7.com/dunkbird/services/trackbacks/195359.html</trackback:ping><description><![CDATA[    鍙湁娉ㄥ唽鐢ㄦ埛鐧誨綍鍚庢墠鑳介槄璇昏鏂囥?a href='http://m.tkk7.com/dunkbird/articles/195359.html'>闃呰鍏ㄦ枃</a><img src ="http://m.tkk7.com/dunkbird/aggbug/195359.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://m.tkk7.com/dunkbird/" target="_blank">澶ч笩</a> 2008-04-24 08:44 <a href="http://m.tkk7.com/dunkbird/articles/195359.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item><item><title>SQLServer鍜孉ccess銆丒xcel鏁版嵁浼犺緭綆鍗曟葷粨http://m.tkk7.com/dunkbird/articles/195179.html澶ч笩澶ч笩Wed, 23 Apr 2008 09:31:00 GMThttp://m.tkk7.com/dunkbird/articles/195179.htmlhttp://m.tkk7.com/dunkbird/comments/195179.htmlhttp://m.tkk7.com/dunkbird/articles/195179.html#Feedback0http://m.tkk7.com/dunkbird/comments/commentRss/195179.htmlhttp://m.tkk7.com/dunkbird/services/trackbacks/195179.html鎵璋撶殑鏁版嵁浼犺緭錛屽叾瀹炴槸鎸嘢QLServer璁塊棶Access銆丒xcel闂寸殑鏁版嵁銆?/p>

涓轟粈涔堣鑰冭檻鍒拌繖涓棶棰樺憿錛?/p>

鐢變簬鍘嗗彶鐨勫師鍥狅紝瀹㈡埛浠ュ墠鐨勬暟鎹緢澶氶兘鏄湪瀛樺叆鍦ㄦ枃鏈暟鎹簱涓紝濡侫cess銆丒xcel銆丗oxpro銆傜幇鍦ㄧ郴緇熷崌綰у強鏁版嵁搴撴湇鍔″櫒濡係QLServer銆丱RACLE鍚庯紝緇忓父闇瑕佽闂枃鏈暟鎹簱涓殑鏁版嵁錛屾墍浠ュ氨浼氫駭鐢熻繖鏍風殑闇姹傘傚墠孌墊椂闂村嚭宸殑欏圭洰錛屽氨鏄潰涓磋繖鏍風殑涓涓棶棰橈細SQLServer鍜孷FP涔嬮棿鐨勬暟鎹氦鎹€?/p>

瑕佸畬鎴愭爣棰樼殑闇瑕侊紝鍦⊿QLServer涓槸涓浠墮潪甯哥畝鍗曠殑浜嬫儏銆?/p>

閫氬父鐨勫彲浠ユ湁3縐嶆柟寮忥細1銆丏TS宸ュ叿 2銆丅CP 3銆佸垎甯冨紡鏌ヨ

DTS灝變笉闇瑕佽浜嗭紝鍥犱負閭f槸鍥懼艦鍖栨搷浣滅晫闈紝寰堝鏄撲笂鎵嬨?/p>

榪欓噷涓昏璁蹭笅鍚庨潰涓や滑錛屽垎鍒互鏌ャ佸銆佸垹銆佹敼浣滀負綆鍗曠殑渚嬪瓙錛?/p>

涓嬮潰搴熻瘽灝變笉璇翠簡錛岀洿鎺ヤ互T-SQL鐨勫艦寮忚〃鐜板嚭鏉ャ?/p>


涓銆丼QLServer鍜孉ccess

1銆佹煡璇ccess涓暟鎹殑鏂規硶錛?/p>

select * from OpenRowSet('microsoft.jet.oledb.4.0',';database=c:\db2.mdb','select * from serv_user')

鎴?/p>

select * from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="c:\DB2.mdb";User ID=Admin;Password=')...serv_user

2銆佷粠SQLServer鍚慉ccess鍐欐暟鎹細

insert into OpenRowSet('microsoft.jet.oledb.4.0',';database=c:\db2.mdb','select * from Accee琛?)
select * from SQLServer琛?br /> 鎴栫敤BCP

master..xp_cmdshell'bcp "serv-htjs.dbo.serv_user" out  "c:\db3.mdb" -c -q -S"." -U"sa" -P"sa"'

涓婇潰鐨勫尯鍒富瑕佹槸錛歄penRowSet闇瑕乵db鍜岃〃瀛樺湪錛孊CP浼氬湪涓嶅瓨鍦ㄧ殑鏃跺欑敓鎴愯mdb

3銆佷粠Access鍚慡QLServer鍐欐暟鎹細鏈変簡涓婇潰鐨勫熀紜錛岃繖涓氨寰堢畝鍗曚簡

insert into SQLServer琛?select * from
OpenRowSet('microsoft.jet.oledb.4.0',';database=c:\db2.mdb','select * from Accee琛?)

鎴栫敤BCP

master..xp_cmdshell'bcp "serv-htjs.dbo.serv_user" in  "c:\db3.mdb" -c -q -S"." -U"sa" -P"sa"'

4銆佸垹闄ccess鏁版嵁錛?/p>

delete from OpenRowSet('microsoft.jet.oledb.4.0',';database=c:\db2.mdb','select * from serv_user')
where lock=0

5銆佷慨鏀笰ccess鏁版嵁錛?/p>

update OpenRowSet('microsoft.jet.oledb.4.0',';database=c:\db2.mdb','select * from serv_user')
set lock=1

SQLServer鍜孉ccess澶ц嚧灝辮繖涔堝銆?/p>


浜屻丼QLServer鍜孍xcel


1銆佸悜Excel鏌ヨ

select * from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\book1.xls;','select * from [Sheet1$]') where c like '%f%'

select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\book1.xls',[sheet1$])

1)hdr=yes鏃跺彲浠ユ妸xls鐨勭1琛屼綔涓哄瓧孌電湅寰咃紝濡傜1涓腑hdr=no鐨勮瘽錛寃here鏃跺氨浼氭姤閿?br /> 2)[]鍜岀編鍦?蹇呴』瑕侊紝鍚﹀垯M$鍙笉璁よ繖涓處

2銆佷慨鏀笶xecl

update OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;hdr=yes;database=c:\book1.xls;','select * from [Sheet1$]')
set a='erquan' where c like '%f%'

3銆佸鍏ュ鍑?/p>


insert into OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;hdr=yes;database=c:\book1.xls;','select * from [Sheet2$]')(id,name)
select id,name from serv_user

鎴朆CP

master..xp_cmdshell'bcp "serv-htjs.dbo.serv_user" out  "c:\book2.xls" -c -q -S"." -U"sa" -P"sa"'

浠嶦xcel鍚慡QLServer瀵煎叆錛?/p>

select * into serv_user_bak
from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\book1.xls;','select * from [Sheet1$]')

濡傛灉琛╯erv_user_bak涓嶅瓨鍦紝鍒欏垱寤?/p>

鏈夊叧BCP鍜屽垎甯冨紡鏌ヨ鐨勮緇嗚В絳旓紝灝辨煡SQLServer鑷甫鐨勫府鍔╁惂銆?br /> SQLServer鍜宼xt鏂囦歡銆丠TML鏂囦歡銆乂FP鏂囦歡鐨勬暟鎹氦鎹㈤兘鏄懼緱闈炲父瀹規槗浜嗐傘傘傘?/p>

鍏跺疄榪欎簺鍐呭鍦ㄥ府鍔╅噷閮芥湁錛屽伓鍙笉榪囨槸鎬葷粨浜嗕竴涓嬶紝鏂逛究澶у鍙傝冿紝鍛靛懙~~

浠ヤ笂鍐呭閮界粡榪囨祴璇晘~

杞嚜錛氬姩鎬佺綉鍒朵綔鎸囧崡 www.knowsky.com


澶ч笩 2008-04-23 17:31 鍙戣〃璇勮
]]>
主站蜘蛛池模板: 亚洲中文字幕无码mv| 国产成人综合亚洲亚洲国产第一页| 99re6热视频精品免费观看| 在线观看免费黄网站| 一个人免费观看视频在线中文| 黄色一级免费网站| 一本到卡二卡三卡免费高| 一级毛片在线免费视频| 国产精品无码免费专区午夜| 99麻豆久久久国产精品免费| 三级网站免费观看| 久久大香伊焦在人线免费| 毛片无码免费无码播放| 亚洲成人免费在线观看| 美女视频黄的全免费视频| 成年女人18级毛片毛片免费 | 国产精品无码亚洲一区二区三区| 亚洲日本在线电影| 亚洲AV无码AV日韩AV网站| 黄色一级毛片免费看| 中文字幕免费人成乱码中国| 黄网站免费在线观看| 久久不见久久见免费视频7 | 国产亚洲精品美女| 一级毛片在线播放免费| 老司机69精品成免费视频| 亚洲精品视频在线观看免费| 成年女人男人免费视频播放| 四虎永久精品免费观看| 一本色道久久综合亚洲精品| 日韩精品亚洲人成在线观看| 亚洲视频在线观看2018| 99亚洲乱人伦aⅴ精品| 97在线视频免费公开视频| 99久久99久久免费精品小说| 成年女人免费v片| 中文字幕亚洲一区二区三区| 久久精品国产亚洲AV麻豆网站| 中文字幕无码精品亚洲资源网久久| 免费播放美女一级毛片| 免费成人高清在线视频|