Wednesday, June 04, 2003

ڤی���� ��ی�� ��������ی �ۆ�ی ����坡 ی��ێ� ��� ������ ��ѐ���ی 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. ��ی���� ��Ȑ��:
��ۆ�������

�ڵ���.
�����.