shirin71
08-06-2011, 06:58 PM
ابتدا ويژوال بيسيک را باز کنيد سپس کنترلر های زير را روی فرم قرار دهيد
تکست باکس ۱ : تکست باکس
تکست باکس ۲ : تکست باکس
وين سوک ۱ : وين سوک
وين سوک ۲ : وين سوک
حالا روی فرم دو بار کليک کرده و در رويداد لود فرم کدهای زير را وارد کنيد
Text1.Text = Winsock1.LocalIP
Text2.Text = Winsock2.LocalHostName
برنامه را اجرا کنيد . اين برنامه آی پی و پورت سيستم ميزبان را در اختيار شما قرار ميدهد
تکست باکس ۱ : تکست باکس
تکست باکس ۲ : تکست باکس
وين سوک ۱ : وين سوک
وين سوک ۲ : وين سوک
حالا روی فرم دو بار کليک کرده و در رويداد لود فرم کدهای زير را وارد کنيد
Text1.Text = Winsock1.LocalIP
Text2.Text = Winsock2.LocalHostName
برنامه را اجرا کنيد . اين برنامه آی پی و پورت سيستم ميزبان را در اختيار شما قرار ميدهد