SAMPLE LOGIN

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 migcyber33 As CSocketPlus

 isi Form Load

Set migcyber33 = New CSocketPlus

migcyber33.ArrayAdd (0)

 isi migcyber33_CloseSck

status.Text = "Close"

 isi migcyber33_Connect

migcyber33.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 migcyber33_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

migcyber33.GetData (0), DatIn, vbString


a = Left(DatIn, 4)

a = A2H(a)

If a = "0200C900" Then

   migcyber33.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

migcyber33.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://migcyber33.blogspot.com



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