亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用Winsock制作一套聊天室和對話系統

2019-11-18 17:27:48
字體：大 中 小
來源：轉載
供稿：網友
在一個單位內部或通過廣域協議（如X.25）互聯的行業內部都有幾十或上萬臺計算機互聯，用Intranet雖然可以建立聊天室，但實現點對點實時對話卻比較困難。本人用Winsock和VB自制了一套聊天室和對話系統，特拿來供同行們參考。

一·Winsock的主要屬性、事件和方法

Winsock是不可見控件，控件文件名是MSWINSCK.OCX，全稱為Mcirosoftwinsockcontrol，使用時要將此控件調入工具箱。

1·屬性：①PRotocol=0//使用TCP協議；

②RemoteHost//準備連接遠程機的
Else

Text2.Text=Text2.Text i

EndIf

Text2.SelStart=Len(Text2.Text)

Send.MousePointer=0

Combo1.Enabled=False

Comm2.Caption="斷開連接"

Text1.SetFocus

EndSub



PrivateSuba_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)

flag=False

Timer1.Enabled=False

Comm2.MousePointer=0

Form1.MousePointer=0

MsgBox"網絡連接失??！"

Label3.Caption="等待連接"

Combo1.Enabled=True

Combo1.SetFocus

a.Close

Comm2.Caption="連接"

EndSub



PrivateSubComm1_Click()

a.Close注釋：關閉連接

Form1.WindowState=1

EndSub



PrivateSubComm2_Click()

IfComm2.Caption="斷開連接"Then

a.Close

Comm2.Caption="連接"

Label3.Caption="等待連接"

Combo1.Enabled=True

Timer1.Enabled=False

Comm2.MousePointer=0

Form1.MousePointer=0

Else

Text2.Text=""

Label3.Caption="正在連接.."

Comm2.MousePointer=11

Form1.MousePointer=11

Timer1.Enabled=True

flag=False

a.Protocol=sckTCPProtocol

a.RemoteHost=Combo1.Text

a.RemotePort=3000

a.Connect

EndIf

EndSub



PrivateSubForm_DblClick()

IfMsgBox("關閉本聊天室!確認嗎？",36,"退出系統")=6Then

End

Else

Form1.WindowState=1

EndIf

EndSub



PrivateSubForm_Load()

IfApp.PrevInstanceThen

MsgBox"本系統已經加載，請看任務攔！",48,"提示"

End

EndIf

flag=False

LoadForm2‘讀入form2進入監聽

EndSub



PrivateSubSend_Click()

DimSAsString

OnErrorGoToffff‘防止鏈路中斷

Send.MousePointer=11

IfRight(Text1.Text,1)<>Chr(10)Then

S=Text1.Text Chr(13) Chr(10)

Else

S=Text1.Text

EndIf

IfflagThen

a.SendDataS

EndIf

ExitSub

ffff:

MsgBox"連接中斷!",48,"提示"

a.Close

Send.MousePointer=0

Comm2.Caption="連接"

Label3.Caption="等待連接"

Combo1.Enabled=True

Comm2.MousePointer=0

Form1.MousePointer=0

ExitSub

EndSub



PrivateSubTimer1_Timer()

flag=False

Timer1.Enabled=False

Comm2.MousePointer=0

Form1.MousePointer=0

MsgBox"網絡連接失敗(超時)！"

Label3.Caption="等待連接"

Combo1.Enabled=True

Combo1.SetFocus

a.Close

Comm2.Caption="連接"

EndSub



⑶在Form2的各控件事件中加入如下代碼:

Constmaxn=200‘最大同時連接本機的客戶數

Dimuser(maxn)AsBoolean



PrivateSubCommand1_Click()

Form2.Hide

EndSub



PrivateSubCommand2_Click()

LoadForm1

Form1.Show

EndSub



PrivateSubForm_Load()

Dimstr1AsString

Form2.Caption="雷萌通信軟件"

注釋：winsock控件a作為服務器程序監聽

a.LocalPort=3000

a.Listen

EndSub



PrivateSuba_ConnectionRequest(ByValrequestIDAsLong)

DimiAsLong

Fori=1Tomaxn‘當一客戶請求時給啟動一Winsock控件標志號

IfNotuser(i)Then

user(i)=True

ExitFor

EndIf

Nexti

Ifi>maxnThen

ExitSub

EndIf

Loadb(i)‘當一客戶請求時啟動一Winsock控件

b(i).AcceptrequestID注釋：實際建立連接

IfText1.Text=""Then注釋：發送數據

b(i).SendDataChr(0)

Else

b(i).SendDataText1.Text

EndIf

Form2.Show

EndSub



PrivateSubs_Close(IndexAsInteger)

b(Index).Close注釋：關閉連接

Unloadb(Index)注釋：卸載一個WinSock控件

user(Index)=False

EndSub



PrivateSubb_DataArrival(IndexAsInteger,ByValbytesTotalAsLong)

DimstrAsString

DimiAsLong

b(Index).GetDatastr

Text1.Text=Text1.Text str

Fori=1Tomaxn

Ifuser(i)Then

b(i).SendDatastr

EndIf

Nexti

EndSub

三·運行

本程序在VB6.0中編譯通過，運行后最小化到任務欄上，也可以用API的Shell_Notifyicon函數做入右下角的指示器欄中常駐內存。你可以在網絡中用一個固定的機器地址作為聊天討論室，其他用戶都選該機地址連接進入該室聊天或討論。各用戶也可選各自熟悉的地址進行連接對話,雙擊form1空白處從內存中撤出系統。根據同樣的原理可以制作電子郵件系統。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
在线观看成人黄色| 亚洲三级av在线| 97在线精品国自产拍中文| 美女av一区二区三区| 久久国产精品99国产精| 日韩毛片在线观看| 亚洲丝袜av一区| 精品国产依人香蕉在线精品| 亚洲xxx大片| 国产精品日韩欧美综合| 超碰97人人做人人爱少妇| 亚洲天堂免费在线| 国内精品视频一区| 亚洲一区二区三区四区视频| 不卡av日日日| 性色av一区二区三区免费| 成人xxxx视频| 亚洲精品久久7777777| 国产成人在线一区| 九九久久久久久久久激情| 亚洲精品久久7777777| 奇米四色中文综合久久| 有码中文亚洲精品| 亚洲欧美日韩国产成人| 国产精品久久久久久久久久三级| 欧美日韩国产一区中文午夜| 欧美日韩国产页| 亚洲欧美一区二区三区久久| 精品国产乱码久久久久久天美| 欧美大片va欧美在线播放| 日韩欧美在线中文字幕| 亚洲精品中文字幕av| 亚洲偷熟乱区亚洲香蕉av| **欧美日韩vr在线| 欧美成人久久久| 日韩高清免费观看| 伊人久久久久久久久久久| 国产精品偷伦免费视频观看的| 日韩激情av在线播放| 一区二区亚洲欧洲国产日韩| 亚洲黄色av网站| 午夜精品美女自拍福到在线| 日韩在线视频一区| 国产主播精品在线| 国产日韩欧美在线看| 久久久久久美女| 中文字幕亚洲无线码在线一区| 91精品久久久久久久久久入口| 中文字幕日韩在线播放| 欧美成人精品xxx| 精品少妇v888av| 日韩最新在线视频| 国产精品久久久久久久9999| 国产精品久久久久久久一区探花| 欧美激情一区二区三区在线视频观看| 高清一区二区三区日本久| 中国日韩欧美久久久久久久久| 亚洲专区在线视频| 国产精品国产三级国产aⅴ浪潮| 国产精品三级美女白浆呻吟| 亚洲综合中文字幕在线观看| 亚洲女成人图区| 最近2019好看的中文字幕免费| 奇米一区二区三区四区久久| 亚洲人成电影网站色…| 国产精品久久婷婷六月丁香| 国产精品激情av电影在线观看| 国产精品影片在线观看| 欧美性猛交xxxx富婆| 亚洲国产高潮在线观看| 性欧美长视频免费观看不卡| 隔壁老王国产在线精品| 国产精品视频区1| 欧洲美女7788成人免费视频| 国产亚洲欧美日韩一区二区| 亚洲精品中文字幕有码专区| 91成人免费观看网站| 国产成人一区二区三区小说| 欧美午夜性色大片在线观看| 欧美日韩在线观看视频小说| 亚洲国产欧美精品| 亚洲图片欧洲图片av| 国产香蕉精品视频一区二区三区| 国产精品网址在线| 亚洲国产91精品在线观看| 日韩电影中文字幕在线| 亚洲a在线播放| 亚洲精品视频免费| 国产精品丝袜高跟| 日韩欧美在线网址| 国模吧一区二区三区| 国产精品高清免费在线观看| 深夜成人在线观看| 日韩视频亚洲视频| 久久精品成人欧美大片| 在线精品91av| 色狠狠av一区二区三区香蕉蜜桃| 一区二区欧美在线| 欧美性videos高清精品| 国产精品免费视频xxxx| xxx欧美精品| 亚洲国产成人爱av在线播放| 日韩欧美国产激情| 国产精品电影观看| 日韩av高清不卡| 亚洲一区二区三区毛片| 亚洲欧美国产一本综合首页| 91欧美精品午夜性色福利在线| 中文字幕综合在线| 成人a级免费视频| 欧美国产高跟鞋裸体秀xxxhd| 成人黄色在线观看| 欧美放荡办公室videos4k| 国产一区视频在线| 日韩欧美综合在线视频| 精品视频在线播放| 国产精品自产拍在线观看| 97视频在线观看视频免费视频| 久久久久久久国产| 97色在线观看免费视频| 欧美伊久线香蕉线新在线| 国产91免费观看| 日韩在线视频免费观看| 秋霞av国产精品一区| 国产精品福利在线观看| 亚洲精品福利免费在线观看| 九九综合九九综合| 日韩女优人人人人射在线视频| 在线丨暗呦小u女国产精品| 久久国产精品久久久久久久久久| 亚洲欧美国内爽妇网| 亚洲欧美制服第一页| 国产精品美女无圣光视频| 永久免费精品影视网站| 日韩免费av在线| 国产精品丝袜久久久久久高清| 亚洲一区二区三区乱码aⅴ蜜桃女| 91综合免费在线| 亚洲最大福利视频网站| 亚洲第一色中文字幕| 亚洲精品影视在线观看| 国产精品成人一区二区| 亚洲久久久久久久久久久| 在线性视频日韩欧美| 精品福利在线视频| 久久全球大尺度高清视频| 欧美伦理91i| 久久久久免费精品国产| 91精品久久久久久久久久久久久| 欧美人在线观看| 欧美乱大交xxxxx另类电影| 国产亚洲视频在线| 欧美日本高清视频| 国内精品久久久久久中文字幕| 亚洲自拍偷拍在线| 亚洲一区二区中文字幕| 国产剧情久久久久久| 欧美老女人性生活| 久久琪琪电影院| 国产精品视频专区| 91九色精品视频| 色噜噜狠狠狠综合曰曰曰| 欧美小视频在线| 日韩最新在线视频|