| 发表于：2007-03-13 22:17:54 楼主 |
客户端：
dim port as integer
private sub command1_click（)
if winsock1.state = 7 then
'winsock1.connect
dim send as string
send = text2.text
winsock1.senddata send
end if
end sub
private sub form_load（)
winsock1.protocol = scktcpprotocol
winsock1.localport = 10
winsock1.remotehost = "192.168.1.6 "
winsock1.remoteport = 10
winsock1.connect
end sub
private sub winsock1_dataarrival（byval bytestotal as long)
dim s as string
winsock1.getdata s
text1.text = s
end sub
private sub form_unload（cancel as integer)
winsock1.close
end sub
private sub winsk_connectionrequest（index as integer, byval requestid as long)
dim str as string
dim i as integer
msgbox "aaa "
if index = 0 then
for i = 0 to max_sessions
with winsock1
if .state = sckclosed then
.accept requestid
exit for
end if
end with
next
end if
end sub
______________________________________________________________________________________
服务端
private sub form_load（)
winsock1.protocol = scktcpprotocol
winsock1.localport = 10
winsock1.listen
end sub
private sub winsock1_dataarrival（byval bytestotal as long) '取得数据时发生
dim tmp as string
winsock1.getdata tmp, vbstring '取得数据
tmp = "对方位址: " + winsock1.remotehostip + "发言内容为--> " + tmp
txtmess.text = tmp + chr$（13) + chr$（10) + txtmess.text
end sub
private sub command1_click（)
msgbox winsock1.state '发送信息
if winsock1.state = 7 then
winsock1.senddata txtsend.text
end if
end sub
|
|
|
|
|
