TITIK TERANG

Setelah  3 minggu kami berjuang mengerjakan project ini dan selalu berganti-ganti tampilang dan coding akhirnya kami mendapat titik terang. Tepatnya tadi pagi kami mendapat sebuah coding yang dapat digunakan sesusai goal yang kami harapkan. Inilah hasilnya,
1. Tampilan awal client:

dan ini adalah coding-nya:

Private Sub Command1_Click(index As Integer)

If Winsock1.State = sckConnected Then
  data = "login," & Text1.Text & "," & Text2.Text
  Winsock1.SendData data
End If
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = Text3.Text
.RemotePort = 70
.Connect
End With
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State Then Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim ar() As String
Dim proto() As String
Dim ar2() As String

Call Winsock1.GetData(data)
proto = Split(data, ";")
ar = Split(proto(0), ",")
ar2 = Split(proto(1), ",")

If ar(0) = "login" And ar(1) = "ok" Then

  MsgBox "Monggo " & Text1.Text, vbOKOnly, ""
  Form4.Show
  Form1.Hide
  Form4.List2.AddItem ar2(0)
  Form4.List2.AddItem ar2(1)
  Form4.List2.AddItem ar2(2)
  Form4.List2.AddItem ar2(3)
  Form4.List2.AddItem ar2(4)
  Form4.List2.AddItem ar2(5)
  Form4.List2.AddItem ar2(6)
  Form4.List2.AddItem ar2(7)
  Form4.List2.AddItem ar2(8)
  Form4.List2.AddItem ar2(9)
  Form4.List2.AddItem ar2(10)
Else
  MsgBox "Nama atau Password kamu salah"
  'Winsock1.Close
  Text1.SetFocus

End If
End Sub

Nah sekarang kita akan ke form selanjutnya, beginilah bentuknya:
2. Tampilan form chatting

dan inilah coding-nya:


Private Sub Command2_Click()
Dim intResponse As Integer

intResponse = MsgBox("Are you sure you want to quit?", _
vbYesNo + vbQuestion, _
"Quit")

If intResponse = vbYes Then
End
End If
End Sub

Private Sub List2_Click()
Text1.SetFocus
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Form1.Winsock1.State Then Form1.Winsock1.Close
Form1.Winsock1.Accept requestID
End Sub

Private Sub Command1_Click()
If Winsock1.State = sckConnected Then
    i = Text1.Text
    Winsock1.SendData "chat," & Form1.Text1.Text & "," & Form4.List2 & "," & i
End If
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = Form1.Text3.Text
.RemotePort = 80
.Connect
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim i As String

Form1.Winsock1.GetData data, vbString
List2.AddItem data

Winsock1.GetData i, vbString
List1.AddItem i

End Sub

Alhamdulillah yah.....hehehe, oke job selanjutnya adalah: privat chat!!
semangka!! eh,, semangat!!!

HARI KESEMBILAN

Setelah beberapa hari ini, ternyata kami menemukan kesalahan yang sangat fatal. Jadi untuk beberapa hari ini kami tidak melakukan posting untuk laporan.
Setelah kami diskusikan dengan pembimbing kami, kami memutuskan untuk membuat ulang protocol kami mulai dari 0. Oke sekarang akan saya sampaikan protocol kedua yang telah kami sepakati. Daftar anggota sudah ada di database.

1. server Sudah Memiliki data base anggota chat, contoh:

 (NamaPasword)

2. Untuk login adalah

LOGIN(iko1234)

  * If   'NO'   tidak akan diproses (Nama Or Pasword salah)

  * If   'Yes'   Data akan diproses (Nama Or Pasword Benar)

  

3. Setelah login,

     Server menampilkan nama-nama teman yang online.

        * (Anggota online ada namanya di list)

                          ( Text Nama)

        *  (Anggota off line, tidak ada nama di list) 

                                  (Text " ")

4. Request Connect (masukkan Port yang tersedia)

       (Port, Connect)

5. Chatting (Permintaan Chat)

      

       chating ke id fah adalah

CHAT.fah

kemudian id fah menyetujui dengan protocol

CONNECT.iko      

jika yang ingin chat dengan fah adalah iko.

6.  Komunikasi Data 

Protocol untuk mengirim pesan adalah:

SEND (TEXT.fah "Hello")

dan penerima akan mendapat protocol:

ARRIVED (TEXT.fah "Hello")

4. Keluar sistem:

LOGOUT 

semoga tidak ada lagi protocol-protocol yang lain lagii,,
SALAM KOMPAK SELALU

HARI KEENAM

Sampai saat kami telah menyelesaikan suatu program Multichating,, yaitu program yang memungkinkan kita berkomunikasi dengan orang lebih dari satu dalam satu forum, namun program ini masih sangat sederhana. Dan program ini juga masih dalam masa percobaan, kemungkinan akan mendapat banyak perubahan.


Inilah tampilan Programnya:

dan inilah coding programnya:

Option Explicit
Dim blnClientConnected(7) As Boolean
Private Sub Cmd_connect_Click()
If OptServer.Value = True Then
Dim i As Integer
For i = 0 To 7
Wnsck(i).LocalPort = Txt_port.Text + i
Wnsck(i).Listen
lstconversation.AddItem "listening on port" & Txt_port.Text + i
Next i
Else
WnsckConnect.RemoteHost = Txt_id.Text
WnsckConnect.RemotePort = Txt_port.Text
WnsckConnect.Connect
End If
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub Cmdsend_Click()
Dim tempMessage As String
Dim i As Integer
tempMessage = Txt_name.Text & ": " & Txt_msg.Text
If OptServer.Value = True Then
For i = 0 To 7
If blnClientConnected(i) = True Then
 Wnsck(i).SendData tempMessage

End If
Next i
Else
WnsckConnect.SendData tempMessage
End If
Txt_msg.Text = ""
Txt_msg.SetFocus
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 7
blnClientConnected(i) = False
Next i
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)
End Sub
Private Sub Wnsck_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Wnsck(Index).State <> sckClosed Then
Wnsck(Index).Close
End If
Wnsck(Index).Accept requestID
lstconversation.AddItem "user connected"
blnClientConnected(Index) = True
Dim i As Integer
For i = 0 To 7
If blnClientConnected(i) = True Then
Wnsck(i).SendData "User Connected"
End If
Next i

End Sub
Private Sub Wnsck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim receivedData As String
Wnsck(Index).GetData receivedData, vbString
lstconversation.AddItem receivedData, 0
Dim i As Integer
For i = 0 To 7
If blnClientConnected(i) = True Then
Wnsck(i).SendData receivedData
End If
Next
End Sub

Private Sub Wnsck_Error(Index As Integer, 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)
MsgBox ("Eror!" & vbCrLf & Description)
End Sub
Private Sub WnsckConnect_ConnectionRequest(ByVal requestID As Long)
If WnsckConnect.State <> sckClosed Then
 WnsckConnect.Close
 End If
 WnsckConnect.Accept requestID
 
End Sub
Private Sub WnsckConnect_DataArrival(ByVal bytesTotal As Long)
Dim receivedData As String
WnsckConnect.GetData receivedData, vbString
lstconversation.AddItem receivedData, 0
End Sub

program ini dapat dimainkan sampai dengan 7 user. Oke bray!!!! bye
salam

HARI KELIMA

Di hari yang kelima ini saya sudah dapat membuat aplikasi login dan daftar. Namun sayab sadari ini belum begitu sempurna, masih banyak hal-hal yang harus diperbaikik lagi. Oke sekarang mari kita lihat hasilnya.

Ini adalah tampilan login untuk pertama kalinya

Dan ini adalah coding programnya:

Private Sub Command1_Click() 'tombol login
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
Winsock1.SendData Text2.Text
End If

'untuk mengirim data nama dan pasword ke server

If Text1.Text = "" And Text2.Text = "" Then
MsgBox "isi dulu donk!"
Text1.SetFocus
Else
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "isi semua donk!"
Text1.Text = ""

 Text1.SetFocus




Else


MsgBox "wellcome " + Text1.Text





End If
End If

Form3.Show
Form1.Hide



End Sub

'untuk mengetahui bahwa client benar-benar terdaftar pada server

Private Sub Command2_Click() 'tombol Daftar
Form2.Show
Form1.Hide
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "172.16.16.20"
.RemotePort = 70
.Connect
End With
End Sub

'untuk menentukan alamat yang ingin dituju pada server

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State Then Winsock1.Close
Winsock1.Accept requestID
End Sub

'jika telah mengirim sinyal/koneksi maka akan diterima oleh server

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
MsgBox ("Data Tersimpan")


End Sub

'untuk mendaftar atau mengirim data pada server agar disimpan di server
 

Oke, sekarang kita bahas tampilan mendaftar

Dan ini adalah coding programnya:

Private Sub Command1_Click() 'tombol Daftar
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
Winsock1.SendData Text2.Text
End If
 

'untuk mengkoneksikan client pada server serta mengirim data ke server dan selanjutnya akan disimpan oleh server

If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
MsgBox "isi dulu donk!"
Else
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "isi semua donk!"
Else
If Text2.Text <> Text3.Text Then
MsgBox "paswordnya harus sama donk!"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Else
Form4.Show
Form2.Hide
End If
End If
End If

'untuk memastikan bahwa nama dan pasword tersebut dikenali oleh server

End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "172.16.16.20"
.RemotePort = 80
.Connect
End With

'untuk menentukan alamat IPaddress  pada server 

End Sub

 

Nah, kawan-kawan coding program di atas belum sempurnya. Maka saya akan berusaha menyempurnakannya menjadi lebih baik. Saya rasa cukup untuk laporan ini. Bye

SALAM KOMPAK SELALU

HARI KEEMPAT

Di hari yang keempat ini kami baru dapat membuat 2 program dari keseluruhan program yang kami ingin buat, untuk itu kami mengharapkan kami dapat melanjutkannya dengan baik dan lancar. Namun untuk sementara tidak akan saya posting hasil kerja kami di sini, dikarenakan beberapa alasan. Alasan yang terpenting adalah: Mungkin akan ada banyak perubahan pada desainnya, so karena itu tidak akan saya tampilkan coding maupun tampilannya. Sekian dan Terima kasih
SEMANGAT!!

HARI KETIGA: the project (a simple chat)

Di hari yang ketiga ini kami ditantang untuk membuat suatu aplikasi chating sederhana, walaupun sederhana menurut kami ini lumayan rumit. 


So, sekarang kami akan posting PROTOCOL nya dulu... 
Dan di bawa ini adalah protocol yang sudah disepakati bersama


1. Untuk mendaftar aplikasi, contoh:

SAVE (id,iko) (pasword,1234)

2. Setelah terdaftar protocol untuk login adalah

LOGIN(iko,1234)

3. Setelah login akan ada tampilan nama-nama teman yang sedang online. Untuk melakukan chat dengan salah satunya adalah dengan mengklik nama tersebut. Dan contoh protocol-nya adalah:

chating ke id fah adalah

CHAT.fah

kemudian id fah menyetujui dengan protocol

CONNECT.iko      

jika yang ingin chat dengan fah adalah iko.

sedangkan protocol untuk mengirim pesan adalah:

SENDTEXT.fah "Hello"

dan sang penerima akan mendapat protocol:

ARRIVEDTEXT.fah "Hello"

4. Keluar sistem:

LOGOUT 

Ini adalaha protocol yang sudah kami sepakati. Untuk kedapannya kami akan mulai membuat program ini.


SALAM!!

 

 

 

 

HARI KEDUA

Oke teman-teman, di hari kedua ini saya akan membuat sebuah aplikasi server-client. Apa itu server-client, server-client adalah aplikasi untuk berkomunikasi atau chating. So kita akan membuat client-server sederhana.


Oke, mari kita mulai...
untuk itu kita akan menggunakan aplikasi VB 6.0


Membuat project1


1. klik tombol start lalu klik aplikasi VB di komputer
2. setelah muncul pilihan seperti ini :

pilihlah standart EXE

3. setelah itu kita harus mengaktivkan aplikasi Microsoft Winsock Control 6.0 dengan cara klik menu Project lalu klik Components atau agar lebih mudah tekan tombol ctrl + T, maka akan muncul jendela seperti ini :

pilihlah Microsoft Winsock Control 6.0 klik Apply

4.  buatlah 1 Winsock dan letakkan di dalam form1 


5.  buatlah 3 buah TextBox dalam form1, text1 berfungsi untuk conecting text2 berfungsi untuk membuka program exe seperti notepad, sedangkan text3 berfungsi untuk menulis pesan yang akan kita kirim


6. buat juga 3 CommandButton di samping masing-masing text. Command1 untuk Text1, Command2 untuk text2 dan Command3 untuk text3. Kemudian ubahlah Caption masing-masing Command tersebut dengan nama: Command1=Connect, Command2=Open dan Command3=Send. Kemudian aturlah layout form dengan baik sesuai yang diinginkan, contohnya seperti ini:

7.  klik ganda pada Conect lalu ketik program ini:

 Private Sub Command1_Click()

 On Error Resume Next 

  Winsock1.Connect Text1.Text, 1234

End Sub

8. klik ganda pada icon winsock lalu ketik program ini:

Private Sub Winsock1_Connect()
Form1.Caption = "connected!"
End Sub 

9. klik ganda pada Command2 yaitu open lalu ketik program ini:

Private Sub Command2_Click()
On Error Resume Next
Winsock1.SendData "cmd|" & Text2.Text
End Sub 

10. klik ganda pada Command3 atau send lalu ketik program ini:

Private Sub Command3_Click()
On Error Resume Next
Winsock1.SendData "message|" & Text3.Text
End Sub

 setelah semua langkah di atas sudah dikerjakan, selanjutnya kita akan mengerjakan project2


Membuat Project2
Untuk form yang ini kita hanya akan menggunakan 1 icon saja, yaitu icon Winsock
Setelah diletakan pada form lalu klik ganda pada icon tersebut, dan ketiklah program berikut. Harap perhatikan dengan seksama, karena programnya lumayan banyak. Ketik program berikut :

Private Sub Form_Load()Winsock1.CloseWinsock1.LocalPort = "1234"Winsock1.ListenEnd Sub

ganti form_Load() menjadi Winsock1_Close() pada menu yang ada di atasnya. kemudian ketik program ini:

Private Sub Winsock1_Close()Winsock1.CloseWinsock1.ListenEnd Sub

Ganti  Winsock1_Close() dengan Winsock1_ConnectionRequest(ByVal requestID As Long), Lalu ketik program berikut:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)Winsock1.CloseWinsock1.Accept requestIDEnd Sub

ganti lagi menjadi Winsock1_DataArrival(ByVal bytesTotal As Long),lalu ketik program ini:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim data As StringDim vector() As StringWinsock1.GetData data, vbStringvector() = Split(data, "|")If vector(0) = "cmd" ThenShell vector(1)ElseIf vector(0) = "message" ThenMsgBox vector(1)End IfEnd Sub

dan terakhir ganti dengan 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), lalu ketik program berikut:

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)Winsock1.CloseWinsock1.ListenEnd Sub

Setelah semua selesai maka save kedua project ke dalam format exe, lalu jalankan. maka akan muncul aplikasi seperti ini:

setelah ada 2 jendela tersebut, jalankan dengan mengetikan kolom conect dengan 127.0.0.1 lalu tekan tombol conect tunggu sampai judul jendela tersebut berubah menjadi connected!. 
Kemudian isi kolom kedua dengan notepad lalu tekan Open, ini berfungsi untuk membuka aplikasi Notepad.
Terakhir isi kolom ketiga dengan pesan yang anda inginkan, jika selesai tekan Send. maka pesan anda akan terkirin ke server lalu ditampilkan pada messageBox. Contohnya saya akan mengatik pesan "Haaaaaaiiiiiii", maka messageBox akan menampilkan:

nah, kita telah menyelesaikan suatu alat chating sederhana... dengan metode Server-Client.


oke, sampai jumpa besok.

PENGUMUMAN

Blog ini dibuat khusus untuk laporan gw selama PKL, so apa-apa yang gw kerjain bakalan gw tulis disinii.....so lu-lu orang tungguin aje posting-postingan gw!! .. okee

HARI PERTAMA PKL

Hari pertama kami PKL di Telkom adalah mengulas tentang ngrep.Apa itu NGREP??


Ngrep adalah aplikasi untuk menampilkan semua data yang masuk dan keluar pada wifi.Atau bisa juga dikatakan ngrep adalah aplikasi untuk menampilakan semua data yang diproses dalam wifi.


Untuk menjalankannya pertama adalah kita harus menaruh ngrep yang sudah kita unduh di folder System32 pada folder Windows. Setelah itu kita harus menginstal WinPcap yang tentu saja sudah kita unduh.


Untuk memulai membuat aplikasi browser sederhana kita akan menggunakan VB. Hal pertama yang harus kita lakukan adalah memastikan bahwa VB tersebut sudah mengaktivkan Winstock,jika Winstock blm aktiv, kita harus mengaktivkannya dengan cara:
klik menu Project lalu Components, makan akan terlihat jendela seperti di bawah ini:

setelah itu pilih Microsoft winsock 6.0


klik OK, maka icon Winsock akan muncul icon-nya seperti ini:

Lalu kita mulai membuat Form-nya. dalam form tersebut masukan Text, Command dan Winsock. atur sedemikian rupa untuk dapat kita gunakan dengan baik, lihat contoh form berikut:

Sekarang kita akan mulai membuat programmnya, pertama klik ganda pada icon Command1. lalu tulis program ini :

Private Sub Command1_Click()
Winsock1.RemoteHost = "www.google.com"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub

lalu klik ganda pada icon Winsock1, dan tulis program berikut:

Private Sub Winsock(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)
End Sub

lalu tulis program ini:

Private Sub Winsock1_Connect()
Winsock1.SendData "GET / HTTP/1.1" & vbCrLf & vbCrLf
End Sub

setelah itu ketik pula program ini:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
''
Dim strData As String
Winsock1.GetData strData, vbString
Text1 = strData & vbCrLf
End Sub

setelah semua selesai kita dapat menjalankan aplikasi ini,..