Teknik di bawah ini adalah untuk mengecek IP address dari sebuah komputer:

code dibuat sangat sederhana, sehingga mudah dipelajari khususnya bagi yang baru belajar dari NOL.

Tambahkan winsock:

Add Microsoft Winsock Control 6.0 component
Insert 1 Textbox
Insert 2 Command Buttons Rename Caption as Display and Clear


Private Sub Command1_Click() 'command button
If Text1.Text = "" Then
Command1.Enabled = False
Text1.Text = Winsock1.LocalIP
Else
Command1.Enabled = True
End If
End Sub 'end command

Private Sub Command2_Click() 'comamnd
Text1.Text = ""
If Text1.Text = "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub 'end command

Private Sub Form_Load()
Text1.Text = ""
If Text1.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
Text1.Text = Winsock1.LocalIP
End Sub


Ilmu Visual Basic

(catatan :bukan isi sebenarnya)



masuk kesini

Categories: , ,