ڤیسوال به‌یسك كارئاسانی زۆری كردوه‌، یه‌كێك له‌و كارانه‌ وه‌رگرتنی IP ئه‌درێسه‌ به‌هۆی Winsocket ه‌وه.
ئه‌توانین IP ئه‌درێسی خۆمان local host وه هه‌ر URL بزانین گه‌ر بمانه‌وێت..

1. winsock-control زیاد بكه‌ بۆ پرۆژه‌كه‌ت. ناوی بنێ Winsock1
هه‌روه‌ها دوگمه‌یه‌ك button زیاد بكه ناوی بنێ command1
هه‌روه‌ها دوو تێكست بۆكس Edit control زیاد بكه ناویان بنێ Text1, Text2
-> یه‌كه‌میان بۆ پێدانی URL ه‌كه. دووه‌میان بۆ وه‌رگرتنی ئای پی ئه‌درێسه‌كه.

2. بۆ زانینی IP ئه‌درێسی خۆمان local host
Winsock1.LocalHostName
Winsock1.LocalIP

3. ئه‌مه‌ش بنووسه:
پاش كرته‌ كردن له‌سه‌ر دوگمه‌كه:
Private Sub Command1_Click()
Winsock1.Connect Text1, 80
End Sub
'********************************************
بۆ وه‌رگرتنی وه‌ڵام:
Private Sub Winsock1_Connect()
Text2 = Winsock1.RemoteHostIP
End Sub
'********************************************
یان:
Winsock1.Connect "www.kurditgroup.com, 80

لێره‌ پرۆگرامه‌كه به‌ كۆد و exe. فایله‌وه دابگره:

سڵاوم.
ئاراس.