1樓：網友
服務端可以這樣：
with listen
closelocalport = ' 根據text1中的數值來定監聽埠 ( 假如為：4567 )
listen
end with
客戶端可以這樣：
(text1為要連線的伺服器ip位址（服務端在本地可以為 ， text2為服務端監聽的埠 ( 4567 )
vb中使用winsock控制項
2樓：赫魄字千秋
都什麼年頭了還vb6
應該學學vb2005/2008了。
關於網路的名稱空間，winsock有的功能它都有---
winsock的功能主要在這個名稱空間裡。
從vb6到vb2005/2008應該不是很困難，但要有乙個適應期。
但vb2008真的挺好用的。
我這兒有幾個關於winsock的例程，給我郵箱我發給你，希望對你有所幫助。
vb6.0用winsock控制項不能鏈結區域網內的計算機。跪求大神指導。。。
3樓：vi六
伺服器不用設定ip預設就行了，還有伺服器不用設定客戶端的埠只要設定自己用來偵聽的埠就行了，還有你哪句if可以去掉，連線的速度沒那沒快，你要在伺服器下面的事件裡新增這個**，private sub winsock1_connectionrequest(byval requestid as long) 』當有客戶連線的時候出發事件。
關閉控制項，應為伺服器控制項拿來偵聽埠所以要先關閉。
requestid 『繫結客戶端資訊，之後就可以和客戶端傳送資料了，但是繫結之後就不能再用來偵聽埠了，你可以建立乙個控制項陣列，winsock1就轉們用來偵聽埠就可以不用關閉。
end sub
如果還有不懂的就加我。
vb6.0中使用winsock控制項的客戶端無法連線遠端伺服器什麼回事
4樓：36000天
問題多著了。。。
有兩種連線方法。
要建立目標位址然後偵聽。
這個還要看你是作伺服器還是客服端。
如果是客戶端叫偵聽。
如果是伺服器那叫連線。
指令不同。
vbwinsock控制項如何獲取對方的ip位址
5樓：網友
你在自己的部落格上發表乙個ip 然後客戶端連線的時候 先從你部落格上獲取ip進行連線。
你每次 ip 改變的時候 去部落格上改就行了。
6樓：帶翅膀的公羊
非常理解你的心情，每個剛接觸winsock的人幾乎都有這種想法，但是，winsock客戶端必須知道服務端的ip 才能連線的；qq也是知道伺服器的ip才能連線上的（可以理解為qq的服務端ip是固定的），如果沒有固定ip ，還想實現自動連線，只有通過某個網頁來做中介了。
用vb 6.0怎樣獲得本機ip位址?
7樓：網友
使用winsock控制項即可獲得，方法如下：
private sub command1_click()msgbox
end sub
注意：winsock控制項不是標準工具箱中的控制項，使用前要先在選單"工程-部件"中選擇，將"microsoft winsock control "選中就可以了。
8樓：在世貿天階灌籃的高飛燕草
private sub command1_click()dim aa as string
dim strlocalip as stringdim winip as object
aa = aa & "本機電腦名稱。
aa = aa & "本機使用者名稱稱。
set winip = createobject("")strlocalip =
msgbox aa & "本機ip:" & strlocalipend sub
9樓：網友
支援2樓那用這麼複雜啊~~~控制項就是用來用的~~~如果什麼都用**自己完成的話程式設計還有什麼集體可言啊。
vb6 0中已知三邊畫影象
if a b c and a c b and c b a then 能夠構成三角形 else 不能構成三角形 end if 繪圖，純數學計算，太較煩，自己算吧 先畫乙個水平線段a，再以a的兩個端點做圓，計算出兩個圓的交點，取其中乙個交點與線段a的兩個端點畫線，就成了三角形 因為南韓和朝鮮的延坪島事件...
VB6 0中，如何做到在單擊某個按鈕時執行批處理
只需一句 假設你要執行。shell cmd c start 就可以了。你可以將替換為任意可執行檔案路徑。vb中如何實現單擊乙個按鈕後程式重新執行?你好，你所說的 單擊乙個按鈕後程式重新執行 使用下列 就可以實現 窗體中有三個控制項，command1，command1，list1 private su...
VB6 0中如何使得字串中的某字元選中高亮並使這個字元字型變大
使用richtextbox控制項 private sub command1 click richtextbox1.selstart 3 要高亮的起始字元數 richtextbox1.sellength 5 要高亮的字元數 richtextbox1.selcolor vbred 顏色richtextb...