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

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

用VB實現聊天討論室和點對點會話

2019-11-18 17:35:58
字體：大 中 小
來源：轉載
供稿：網友
在一個單位內部或通過廣域協議（如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
欧美日韩中文在线| 日韩动漫免费观看电视剧高清| 欧美在线视频一区| 欧美乱大交做爰xxxⅹ性3| 国产免费一区二区三区在线能观看| 日韩av在线一区二区| 免费av在线一区| 国产精品一区久久久| 8090成年在线看片午夜| 国产精品美女久久久久av超清| 久久好看免费视频| 97视频在线观看免费高清完整版在线观看| 欧美日韩国产中文精品字幕自在自线| 九九久久国产精品| 日韩欧美亚洲国产一区| 欧美一区二区三区艳史| 国产日韩一区在线| 九九视频直播综合网| 美女啪啪无遮挡免费久久网站| 精品一区电影国产| 亚洲人成欧美中文字幕| 欧美久久久精品| 欧美在线一级va免费观看| 欧美成人免费全部观看天天性色| 欧美性少妇18aaaa视频| 97视频在线观看亚洲| 国产97在线|日韩| 久久国产精品影片| 久久综合伊人77777| 欧美日韩国产综合视频在线观看中文| 欧美激情网站在线观看| 亚州av一区二区| 日韩中文在线观看| 国产91热爆ts人妖在线| 国产乱人伦真实精品视频| 久久全国免费视频| 国产精品人成电影| 精品亚洲夜色av98在线观看| 日韩中文字幕在线| 亚洲精品视频网上网址在线观看| 日韩av在线一区二区| 欧美怡春院一区二区三区| 日韩欧美999| 91麻豆国产语对白在线观看| 欧美成人精品xxx| 日韩精品视频三区| 亚洲www视频| 亚洲网站在线看| 欧美丰满少妇xxxxx做受| 国产+人+亚洲| 在线观看欧美日韩| 欧美精品制服第一页| 91免费欧美精品| 黄色成人在线免费| 91精品国产自产在线| 国产精品免费久久久久久| 日韩高清欧美高清| 亚洲级视频在线观看免费1级| 久久久久久久影视| 成年无码av片在线| 日本19禁啪啪免费观看www| 在线观看视频亚洲| 中文字幕亚洲综合久久筱田步美| 久久免费观看视频| 亚洲精品综合久久中文字幕| 亚洲成年人影院在线| 国产精品嫩草视频| 8x拔播拔播x8国产精品| 九九热视频这里只有精品| 亚洲欧美一区二区三区情侣bbw| 亚洲欧美精品suv| 久久免费高清视频| 欧美大片网站在线观看| 欧美激情精品久久久久久变态| 这里只有精品视频在线| 亚洲国产高清高潮精品美女| 91黑丝在线观看| 91精品在线看| 欧美另类第一页| 欧美日韩一区免费| 久久影院资源网| 国产日产久久高清欧美一区| 久久久国产精彩视频美女艺术照福利| 国产精品电影久久久久电影网| 国产亚洲精品综合一区91| 亚洲国产精品久久久| xxxx欧美18另类的高清| 欧美中文字幕在线播放| 亚洲综合在线中文字幕| 九九综合九九综合| 国产99久久精品一区二区 夜夜躁日日躁| 亚洲精品国偷自产在线99热| 欧美成人高清视频| 欧美精品第一页在线播放| 亚洲视频在线免费观看| 色综合久久88色综合天天看泰| 国产精品久久一区主播| 国产成人精品久久二区二区91| 国产精品狠色婷| 欧美精品福利视频| 日韩中文字幕免费视频| 国产女同一区二区| 亚洲电影免费观看高清完整版在线观看| 国产一区二区在线免费| 久久精品美女视频网站| 日韩黄色在线免费观看| 欧美黑人巨大xxx极品| 亚洲精品中文字| 国产亚洲欧美日韩一区二区| 成人福利网站在线观看11| 国产欧美日韩中文| 亚洲色图激情小说| 欧美日韩一区二区三区在线免费观看| 亚洲精品999| 国产精品久久久久久久9999| 伊是香蕉大人久久| 亚洲白拍色综合图区| 中国日韩欧美久久久久久久久| 97精品视频在线播放| 久久精品国产成人| 日韩中文第一页| 九九热最新视频//这里只有精品| 日韩av在线影视| 国产一区二区三区三区在线观看| 久久国产精品影视| 欧美在线影院在线视频| 国产精品电影观看| 欧美电影免费观看电视剧大全| 欧美性猛交xxx| 国产亚洲综合久久| 国产一区二区久久精品| 欧美精品18videos性欧美| 日韩精品在线视频美女| 精品中文字幕在线2019| 97国产精品视频人人做人人爱| 热99精品只有里视频精品| 在线视频一区二区| 91国产中文字幕| 成人午夜一级二级三级| 日韩欧美国产黄色| 亚洲色图综合网| 亚洲欧美精品在线| 日韩精品视频在线播放| 国产精品一区二区久久精品| 欧美福利视频在线观看| 亚洲人成电影在线播放| 国产精品在线看| 欧美性xxxx极品hd满灌| 久久成人国产精品| 日韩女优人人人人射在线视频| 亚洲激情视频在线观看| 日韩av电影手机在线观看| 久久五月天色综合| 成人网中文字幕| 欧美成年人视频| 亚洲日本成人网| 欧美国产亚洲精品久久久8v| 久久精品一区中文字幕| 久久久精品影院| 日韩有码在线电影| 亚洲国产精品yw在线观看| 中文亚洲视频在线| 亚洲女同精品视频| 欧美日韩国产精品一区二区三区四区|