Program gayet basıttır. Text1 e wep Sitenin İsmini yazn Ve "ip yi Bul" Butonuna basmanız yeterlidir bastkdan sonra İp Karsındadır http://www.upload.gen.tr/d. php/s3/h6mk0dzz/Yeni_Klas r. rar.html Bi Tşk yeter Ayrıca Ben cmd den yaparım dıyen olursa Bişi Yazmassa Kulakları çınlamaz İstek olursa kaynak kodlarına paylasırım Private mbInitialized As Boolean Const WSADescription_Len = 256 Const WSASYS_Status_Len = 128 Const AF_INET = 4& Private Type HOSTENT hName As Long hAliases As Long hAddrType As Integer hLength As Integer hAddrList As Long End Type Private Type WSADATA wversion As Integer wHighVersion As Integer szDescription(0 To WSADescription_Len) As Byte szSystemStatus(0 To WSASYS_Status_Len) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpszVendorInfo As Long End Type Private Declare Function WSAStartup Lib "wsock32" As Long Private Declare Function WSACleanup Lib "wsock32" As Long Private Declare Function WSAGetLastError Lib "wsock32" As Long Private Declare Function gethostbyaddr Lib "wsock32" As Long Private Declare Function gethostbyname _ Lib "wsock32" _ _ As Long Private Declare Sub RtlMoveMemory _ Lib "kernel32" _ Dim cn As New ADODB. Connection Private Sub Command1_Click Dim hostent_addr As Long Dim host As HOSTENT Dim hostip_addr As Long Dim temp_ip_address As Byte Dim i As Integer Dim ip_address As String hostent_addr = gethostbyname(Text1) If hostent_addr = 0 Then MsgBox "Can't resolve name." Exit Sub End If RtlMoveMemory host, hostent_addr, LenB RtlMoveMemory hostip_addr, host. hAddrList, 4 ReDim temp_ip_address(1 To host. hLength) RtlMoveMemory temp_ip_address(1), hostip_addr, host. hLength For i = 1 To host. hLength ip_address = ip_address & temp_ip_address & "." Next ip_address = Mid$(ip_address, 1, Len - 1) label. Caption = ip_address End Sub -