1樓：
tcpserver(0).localport = 5000 '設定埠
tcpserver(0).listen 偵聽tcpserver(index).getdata sdata 獲取資料
tcpserver(i).close 關閉tcpserver(index).senddata "伺服器接受請求成功！" + vbcrlf 傳送資料
屬性state值
常數 值 描述
sckclosed 0 關閉狀態
sckopen 1 開啟狀態
scklistening 2 偵聽狀態
sckconnectionpending 3 連線掛起sckresolvinghost 4 解析網域名稱sckhostresolved 5 已識別主機sckconnecting 6 正在連線
sckconnected 7 已連線
sckclosing 8 同級人員正在關閉連線sckerror 9
vb如何使用winsock進行1對多通訊
2樓：
01.建立幾個連線就需要幾個winsock,並且最好使用winsock陣列
winsock陣列就是form中畫乙個winsock,把index屬性設定成0
private sub form_load()
winsock(0).localport=5555 '伺服器端口
winsock(0).listen
end sub
'重要: 當connectionrequest時,載入乙個winsock,用新的winsock響應,新的winsock會繼承新的winsock(0)的埠屬性
private sub winsock1_connectionrequest(index as integer, byval requestid as long)
load winsock1(winsock1.ubound+1)
winsock1(winsock1.ubound).accept requestid
end sub
'這樣就可以了
02:同下
03:伺服器比普通計算機效能好,不過假如通訊規模小,普通計算機就行了,再去設定一下"tcp併發連線數",具體通訊**和伺服器是 一樣的.
3樓：匿名使用者
vb可通過通過建立winsock控制項陣列，使用乙個控制項winsock也可以同時接受多個連線請求。不需要關閉連線，而只需建立新的控制項例項（通過設定其索引屬性），然後在新的例項上呼叫 accept 方法。
提供了訪問 tcp 和 udp 網路服務的方便途徑。microsoft access、visual basic、visual c++ 或 visual foxpro 的開發人員都可使用它。為編寫客戶或伺服器應用程式，不必了解 tcp 的細節或呼叫低階的 winsock apis。
通過設定控制項的屬性並呼叫其方法就可輕易連線到一台遠端機器上去，並且還可雙向交換資料。
**例項：
下面的**假定名為 sckserver 的窗體上有乙個 winsock 控制項，它的 index 屬性被設定為0；因此控制項是控制項陣列的一部分。在宣告部分，宣告了乙個模組級的變數 intmax。在窗體的 load 事件中，intmax 被設定為 0，陣列中第乙個控制項的
localport 屬性被設定為 1001。然後呼叫控制項的 listen 方法，使之成為「監聽」控制項。在連線請求到達時，**將檢測 index 是否為 0（「監聽」控制項的值）。
如果為 0，監聽控制項將增加 intmax 的值，並使用該號碼來建立新的控制項例項。然後，使用新的控制項例項接受連線請求
option explicit
private intmax as long
private sub form_load()
intmax = 0
sckserver(0).localport = 1001
sckserver(0).listen
end sub
private sub sckserver_connectionrequest _
(index as integer, byval requestid as long)
if index = 0 then
intmax = intmax + 1
load sckserver(intmax)
sckserver(intmax).localport = 0
sckserver(intmax).accept requestid
load txtdata(intmax)
end if
end sub
4樓：上海長英
你看看有關vbwinsock的書籍吧，上面講的比較全面
vb語句解釋，詳細點哦，VB的語句解釋
private sub command1 click 定義過程 if trim txtoldpwd.text strmm and txtnewpwd1.text txtnewpwd2.text then txtoldpwd.text是輸入舊密碼，trim函式表示去除前後空格，並且格式成字串格式 co...
關於VB的題
樓上的回答有很多錯誤的 選擇題1 d 2 b3 bcd 4 d5 b 6 d7 a 8 b9 a 10 c 填空題 1 x 0 and x 100 and x int x 2 012,345.68 3 shanghai 4 3.96551724137931 3 5 5 4567 4567 6 5 y...
關於vb的問題
僅供參考 private sub command1 click dim warning as string dim sql as string warning 輸入有效性判斷。if textuser then warning warning 使用者名稱 if textpassword then wa...