Sample Login

Mig33Kertasemaya - Bukan bermaksud sok pintar atau sok jago, karena saya sendiri masih dalam tahap belajar dalam pembuatan aplikasi mig33.
Namun karena ada teman saya yang meminta untuk di buatkan tutorial login mig33 maka postingan ini saya buat.
Ok pertama - tama kamu harus mempunya software Microsoft Visual Basic ( VB6 ) , jika kamu belum mempunyai software tersebut, kamu bisa download dan mencarinya di google dengan format pencarian VB6 dan jika sudah di download maka install lah ke komputer kamu.
kedua kamu download Module dan Class Module nya biar kamu tidak usah cape cape menulis Download
Langsung ke TKP..................
Silakan buka Microsoft Visual Basic , gambar di bawah ini adalah tampilan jika kamu baru membuka Microsoft Visual Basic

Pilihlah Standartd EXE lalu Open seperti gambar diatas
setelah itu akan muncul Form kosong ( project kosong ) , lalu klick kanan pada pojok kanan atas > Add > Module  seperti gambar di bawah ini

setelah itu maka akan tampil sebuah pilihan, geserlah yang tadinya ada di posisi New ke posisi Existing lalu pilih Module Agori yang sudah kamu download tadi, seperti yang terlihat pada gambar di bawah ini

setelah itu lakukan kembali proses di atas namun sekarang yang kamu pilih bukanlah Agori melainkan ModSocketPlus
jika Agori dan ModSocketPlus sudah di masukan ke project maka kamu tinggal memasukan Class Module dengan cara klick kanan pada pojok kanan atas seperti waktu kamu mau add Module namun sekarang yang kamu pilih adalah Class Module seperti yang terlihat pada gambar di bawah ini

setelah itu akan muncul tampilan dan geserlah yang tadinya ada di posisi New ke posisi Existing seperti yang kamu lakukan di atas dan pilihlan CSocketPlus yang kamu download tadi.
Ok...sekarang kita masuk ke proses pembuatan, silakan kamu pilih TextBox yang ada di samping kiri lalu masukan ke form seperti gambar di bawah ini

perhatikan yang di lingkari dengan warna merah.
kamu liat di samping kanan,disitu ada properties yang harus kamu ubah sebagai berikut :
Name        = user
Alignment  = 2-Cente

lalu add lah TextBox lagi dengan properties
Name       = password
Alignment = 2-Center
Text         = (kosongkan saja)

kemudian add Command dengan properties
Name      = (tidak usah di ubah)
Caption   = Login

add Command lagi seperti tadi tapi dengan properties
Name     = (tidak usah di ubah)
Caption  = Logout

kemudian add TextBox dengan properties
Name       = status
Alignment = 2-Center
Text         = (kosongkan saja)

add TextBox lagi kaya di atas namun dengan properties
Name       = server
Alignment = 2-Center
Text         = (kosongkan saja)

dan hasilnya seperti gambar di bawah ini

Sekarang kita masuk ke tahap pemasukan coding
klick lah pada code yang ada di pojok kanan atas atau kamu juga bisa men klick form dan sebagainya, lalu masukan coding di bawah ini pada (General)(Declarations)
Option Explicit
Dim DatIn As String
Dim DatOut As String
Dim WithEvents Kertasemaya As CSocketPlus
 isi Form Load
Set Kertasemaya = New CSocketPlus
Kertasemaya.ArrayAdd (0)
 isi Kertasemaya_CloseSck
status.Text = "Close"
 isi Kertasemaya_Connect
Kertasemaya.SendData Index, H2A("0200C80001" & Army(Len(H2A("0013000000010000100000000400000015000F00000005656E2D5553000D00000004000000A9000C00000004000000AA000B000000040000000E000900000001630008000000046A326D6500070000000D4A324D4576342E32302E3239300005" & Army(Len(User.Text)) & A2H(User.Text) & "00030000000201A4000200000001020001000000020001"))) & "0013000000010000100000000400000015000F00000005656E2D5553000D00000004000000A9000C00000004000000AA000B000000040000000E000900000001630008000000046A326D6500070000000D4A324D4576342E32302E3239300005" & Army(Len(User.Text)) & A2H(User.Text) & "00030000000201A4000200000001020001000000020001")
status.Text = "Connected"
 isi Kertasemaya_DataArrival
Dim a As String
Dim b As String
Dim c As String
Dim f As String
Dim DatTemp As String
On Error GoTo eX
Kertasemaya.GetData (0), DatIn, vbString
a = Left(DatIn, 4)
a = A2H(a)
If a = "0200C900" Then
   Kertasemaya.SendData 0, HashPassword(password.Text, Right(DatIn, UnHex(A2H(Mid$(DatIn, (UnHex(A2H(Mid$(DatIn, 15, 1))) + 21), 1)))))
      status.Text = "Send Hash"
End If

If a = "0200CB00" Then
 status.Text = " Sukses "
End If

 If a = "02000000" Then
    status.Text = "Failed"
End If


Server.Text = Mid(DatIn, 16, UnHex(A2H(Mid(DatIn, 12, 4))))
Exit Sub

eX:
Server.Text = Replace(DatIn, vbNullChar, ".") & vbCrLf
 isi Kertasemaya_Error
status.Text = "Error"
Kertasemaya.CloseSck 0
 isi Command1 <ini adalah Command Login
Kertasemaya.Connect 0, "gateway.mig33.com", "9119"
status.Text = "Connected"
 isi Command2 <ini adalah Command Logout
Kertasemaya.CloseSck (0)
status.Text = "Close"
Server.Text = ""
 Setelah semua sudah di masukan maka save lah project tersebut di folder yang kamu mau, lalu cobalah play (start) dan kamu bisa mengetesnya dengan id apa saja yang penting bisa login.
Jika sudah berhasil maka kamu tinggal membuat project itu menjadi aplikasi.exe dengan cara klick file yang ada di pojok kiri atas > Make > OK

Akhirnya selesai juga ni tutorial, ni saya juga sediakan sample project nya dan tinggal kamu download biar bisa buat panduan

Download Sample Login ]
pw rar: http://mig33kertasemaya.blogspot.com

Selamat Mencobaaaaaaaaaaaaaaaaaaaaa....................

Artikel Yang Berhubungan:

1 komentar:

akaz online mengatakan...

kerenz brot

Informasi Umum - Kumpulan Artikel Bebas Baca © 2009 - Bookmarking