TOTALLY EVILINSIDEZZ...
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

  how to make a 'RESOLVE IP' program for any server..

Go down 
AuthorMessage
Admin
Admin
Admin
avatar

Posts : 44
Join date : 2010-09-20
Age : 28
Location : mumbai

PostSubject: how to make a 'RESOLVE IP' program for any server..   Tue Sep 21, 2010 1:48 pm

Hello friends,
here i am sharing the code for resolving the current and fastest IP of the targetted server...Wink
here for example i considered the server IP and PORT of mig33.com, u can use any server IP and PORT, code is as follows Twisted Evil
=============================================================================================
CONTROLS REQUIRED :-
text1 [textbox]
winsock1 [winsock]
=============================================================================================

CODE :-

Private Sub Form_Load()
On Error Resume Next
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.text = "Resolving"
End Sub

Private Sub Winsock1_Connect()
On Error Resume Next
Text1.text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub

Private Sub Winsock1_Close()
On Error Resume Next
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next
Winsock1.Close
End Sub
============================================================================================
be regular on forum i will share more amazing tricks and code;)
ENJOY...Wink
EVILSOFTS RULZZZ... Twisted Evil
Back to top Go down
View user profile http://evilsofts.forum777.com
 
how to make a 'RESOLVE IP' program for any server..
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
EVILSOFTS... :: TUTORIALS-
Jump to: