Assalamualaikum wr wb,,
ane ingin berbagi ilmu yang ane punya buat temen” sekalian,,
ane pengen menjelaskan dlu apa yang ane buat, disini ane buat client dan server saling terhubung satu sma lain , bisa saling chat antara clien dan server dan client bisa ngeremote server.
maaf bila ane ngomong terlalu panjang lebar, langsung ke TKPnya ja..
1. Kita buat project server dlu tapi di sini server kita buat sebagai pendengar yang bisa menerima request dari client saat button listennya di klik baru client bisa terhubung dengan server, hasilnya dari form server seperti gambar yang di bawah ini ,,
2. untuk tahap yang kedua kita buat agar bisa
ngeremote server dari client, tapi sebelumnya server harus slalu listen atau
mendengan request dari client baru bisa terhubung dengan server, hasilnya seperti gambar yang di bawah ini.
inilah
hasil saat client dan server saling terhubung,
ane ingin berbagi ilmu yang ane punya buat temen” sekalian,,
ane pengen menjelaskan dlu apa yang ane buat, disini ane buat client dan server saling terhubung satu sma lain , bisa saling chat antara clien dan server dan client bisa ngeremote server.
maaf bila ane ngomong terlalu panjang lebar, langsung ke TKPnya ja..
1. Kita buat project server dlu tapi di sini server kita buat sebagai pendengar yang bisa menerima request dari client saat button listennya di klik baru client bisa terhubung dengan server, hasilnya dari form server seperti gambar yang di bawah ini ,,
Setelah kita membuat form server seperti gambar yang di atas
ini tak lupa kita masukan scrip untuk menjalakna perintah dari server ini. Dan
untuk memmasukan script ini bisa klik 2 kali pada button atau textboxnya.
Codingangnya:
Private Sub CmdListen_Click()
sock1.Listen
CmdListen.Enabled
= False
TxtDisplay.Text =
"Server star..." & vbCrLf
End Sub
Private Sub CmdSend_Click()
If sock1.State =
sckConnected Then
sock1.SendData
"Server>" & TxtMsg.Text
TxtDisplay.Text =
TxtDisplay.Text & "Server>" & TxtMsg.Text & vbCrLf
TxtMsg.Text =
""
End If
End Sub
Private Sub Form_Load()
TxtDisplay.Text =
""
sock1.Protocol =
sckTCPProtocol
sock1.LocalPort =
TxtPort.Text
'CODINGAN BERIKUT
INI UNTUK SENDIRI
FClient.Show
End Sub
Private Sub sock1_ConnectionRequest(ByVal requestID As
Long)
If sock1.State =
sckListening Then
sock1.Close
sock1.Accept
requestID
TxtDisplay.Text =
"Connection accepted from" & sock1.RemoteHostIP & vbCrLf
sock1.SendData
"Server accepted connection"
End If
End Sub
Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim StrCommand As String
Dim StrKata As String
Dim StrData As String
sock1.GetData
StrData
TxtDisplay.Text =
TxtDisplay.Text & StrData & vbCrLf
StrCommand =
Left(StrData, 1)
If StrCommand =
"1" Then
StrKata =
Right(StrData, Len(StrData) - 1)
Shell
"C:\Program Files\Microsoft Office\Office12\WINWORD.EXE",
vbNormalFocus
SendKeys StrKata
End If
TxtDisplay.Text =
StrData
End Sub
setelah script telah di masukan ke perintah”nya dan untuk
tahap pertama telah selesai kemudian kita lanjut ke tahap yang ke2 untuk
pembuatan form clientnya.
Setelah kita membuat form client tak lupa kita masukan
criptnya agar perintah yg kita buat bisa berjalan, caranya sma seperti yang
diatas klik 2 kali pada button dan textboxnya untuk memasukan scriptnya.
Codingannya:
Codingannya:
Private Sub CmdSend_Click()
If sock1.State =
sckConnected Then
sock1.SendData
"Client>" & TxtMsg.Text
TxtDisplay.Text =
TxtDisplay.Text & "Client>" & TxtMsg.Text & vbCrLf
TxtMsg.Text =
""
End If
End Sub
Private Sub CmdShutdown_Click()
If sock1.State =
sckConnected Then
sock1.SendData
"2"
End If
End Sub
Private Sub CmdWinword_Click()
If sock1.State =
sckConnected Then
sock1.SendData
"1" & TxtMsg.Text
End If
End Sub
Private Sub Form_Load()
TxtDisplay.Text = ""
sock1.Protocol = sckTCPProtocol
End Sub
Private Sub CmdConnect_Click()
If sock1.State =
sckClose Then
sock1.RemoteHost
= TxtIp.Text
sock1.RemotePort
= TxtPort.Text
sock1.Connect
Else
sock1.Close
End If
End Sub
Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim StrData As String
sock1.GetData
StrData
TxtDisplay.Text =
TxtDisplay.Text & StrData & vbCrLf
End Sub
setelah semua telah selesai waktunya kita lihat hasil dari yang kita buat.Tak lupa disave dlu datanya untuk antisipasi laptop’a mati atau sebagainya..
inilah hasil yg kita buat saat client dan server berinteraksi:
saat server klik button listen untuk siap menerima request dari client.
setelah semua telah selesai waktunya kita lihat hasil dari yang kita buat.Tak lupa disave dlu datanya untuk antisipasi laptop’a mati atau sebagainya..
inilah hasil yg kita buat saat client dan server berinteraksi:
saat server klik button listen untuk siap menerima request dari client.
setelah
server siap menerima request dari client , kemudian klik button connect pada
client aga bisa bisa terhubung dengan server,jika telah menekan button connect
pada cliet maka server langsung menerima request dari client dan hasil
gambarnya di bawah ini, tapi sebelumnya kita masukan ip server pada client dan
port yang digunakan,
kemudian setelah terhubung client dan server bisa saling
chat”an
Dan saat client remote server hasilnya seperti ini.
Ya ini lah hasil yang telah di buat, semoga bisa bermanfaat buat temen” , klo bisa tolong di kembangkan sendiri sesuka hati..
Untuk download patch'a ada disini Socket Programming.rar
maaf bila masih banyak salah dalam penjesan ane tolong di maafkan , sekian dari ane ..
Wassalamualaikum wr wb.
