|
|
WhoIs Control - Samples(Using with VB)
Description: Sample program using WhoIs control
Minimum requirements: Visual Basic 4
Download: source code
Screenshot:
Project: Standard EXE
ActiveX Controls/Objects: WhoIs.ocx
Controls: WhoIs1(WhoIs), txtQuery(TextBox), txtResult(TextBox), cmdRun(CommandButton), txtServer(TextBox), Label2(Label), Label1(Label)
Code:
Option Explicit
Private Sub cmdRun_Click()
With WhoIs1
.Server = txtServer
.Query = txtQuery
.Connect
End With
End Sub
Private Sub WhoIs1_CloseWhoIs()
txtResult = UNIXtoDOS(WhoIs1.Result)
End Sub
Private Function UNIXtoDOS(ByVal s As String) As String
UNIXtoDOS = Replace(s, Chr(10), Chr(13) & Chr(10))
End Function
|
|
