تبلیغات
دنیای برق و کامپیوتر - Get IP a Site


امروز :

javahermarket



View مرتبه

در این پست با گرفتن آی پی سایت در ویژوال بیسیک آشنا خواهید شد!
آی پی از مشخصات مهم و ثابت یک سایت به شمار می رود که با پیدا کردن آن امکانات مختلفی از جمله تلنت و ... بدست می آید. البته این کار با دستور Ping در محیط داس ویندوز (CMD)  نیز انجام پذیر است.

اما من قصد دارم این آی پی رو در برنامه ی خودم بگیرم و با اون کارهایی دارم مثلا آدرس یاب و ... 

برای شروع لازمه کامپوننت Microsoft Winsock Control 6.0 رو به پروژتون اضافه کنید.
بعد یه تکست باکس و یه دکمه و یه لیبل برای نشون دادن آی پی به فرمتون اضافه کنید و کدهای زیر رو به پرژتون اضافه کنید:

Private Sub Winsock_Connect()
If Winsock.State <> 9 Then
    Lable.Caption = Winsock.RemoteHostIP
    Beep
    Winsock.Close
Else
    Lable.Caption = "Connect Failed!"
    Me.Caption = "Connect Failed!"
End If
End Sub

Private Sub Command1_Click()
    Lable.Caption = "Connecting..."
    Winsock.Close
    Winsock.Connect
End Sub


 دریافت برنامه نمونه:

  دانلود: GetIP.exe 232 KB





category  طبقه بندی: ترفند،  اینترنت،  ویژوال بیسیک،  نرم افزار، 
tags    برچسب ها: ویژوال بیسیک،
Date تاریخ بروز رسانی مطلب: جمعه 6 اردیبهشت 1392

ارسال توسط علی دمیرچی