How to make mig33 login software [Part 4]

Hello My mig33 developer Friends πŸ™‚

I’m really sorry to start this Tutorial lately. Today i will try to show you how to make a simple Mig33 login project.

Can you remember Previous Tutorial ? You must Follow this.

Open Mig33 folder from your Desktop . Open Project1.vdp

Take One textbox .

mig331

Click On that Textbox and Go to properties Tab. Give a name > username

mig332

Follow the above instruction and take 4 more textbox

2 Textbox Name : password

In password properties Make > PasswordChar = * < like the Image Below . 3 Textbox Name : txtip mig3313

In txtip properties Make text = gateway.mig33.com

4 Textbox Name : txtport

In txtport properties Make text = 9119

5 Textbox Name : sts

mig333

Now Take a Command Button Name : login

In login properties Make text = Login

You will get a Form like above Picture.

mig334

Click on Form . Right click > View Code . Just like above Image.

mig335

‘——————————————————————————–

Option Explicit

Dim P As Integer
Dim i As Integer
Dim k As Integer
Dim G As Integer
Dim j As Integer
Dim l As Integer
Dim u As Integer
Dim q As Integer
Dim d As String

Dim WithEvents sock1 As CSocketPlus

‘——————————————————————————–

Now copy the above code and pest it in General Event (like above Picture).

Double click On Form And Put the code In form Load Event .

β€˜β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€“

Set sock1 = New CSocketPlus

β€˜β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€”β€“

Single Click on Form. Double Click on Login Button

‘——————————————————————————–

If login.Caption = “Login” Then

login.Caption = “LogOut”
sock1.ArrayAdd 1
sock1.CloseSck 1
sock1.Connect 1, txtip.text, txtport.text

Else

If login.Caption = “LogOut” Then

login.Caption = “Login”
sock1.CloseSck 1
sock1.ArrayRemove 1

End If
End If

‘——————————————————————————–

Put the above code in Login Button click Event. Check the Picture Below.

mig336

Now click On the Circle area like the Picture Below. Click > Sock1

mig337

Now click Sock1 Event box > Select > Connect

Now Put the code Below.

‘——————————————————————————–
sock1.SendData 1, SendUname42(username.text)

sts.text = ” Connection …… ”

‘——————————————————————————–

mig339

Now click Sock1 Event > Select > Dataarrival

mig3310

Check the above Image carefully. Put the Code below .

‘——————————————————————————–

sock1.GetData Index, dat$(Index), vbString

awal$(Index) = Asciitohex(Left(dat$(Index), 4))

awalana$(Index) = Asciitohex(Left(dat$(Index), 5))

If awal$(Index) = “2 0 C9 0” Then sock1.SendData Index, KirimHashCode(password.Text, Mid(dat(Index), InStr(dat(Index), H2A(“0 1 0 0 0”)) + 6, UnHex(A2H(Mid(dat(Index), InStr(dat(Index), H2A(“0 1 0 0 0”)) + 5, 1)))))
If awal$(Index) = “2 1 9C 0” Or awal$(Index) = “2 1 A6 0” Or awal$(Index) = “2 0 CB 0” Then
sts = “Login Successful !!!”
sts.ForeColor = vbBlue
Else
If awalana$(Index) = “2 0 0 0 2” Then
sts = “Wrong Password !!!”
sts.ForeColor = vbRed
sock1.CloseSck Index
sock1.Connect Index, txtip.Text, txtport.Text
End If

sts = Mid(dat$(Index), 16, UnHex(Asciitohex(Mid(dat$(Index), 15, 1))))

End If

‘——————————————————————————–

mig3311

Please look at the image it looks like that.
Now run the Project [Press F5]

Put your username and password then Press >Login

mig3312

If you would follow the above instruction I hope you will be succeed to Make your 1st Mig33 software login project.

You may check the Project from Here Mig33 login project. But keep in Mind you must Practice without checking this Project. If you can make it without This I can assure you that you have done 40% of Mig33 programming πŸ™‚

Next Tutorial coming soon with the basic Logic of this Tutorial. It’s just Only a Practice. If you want to Make exceptional Mig33 tool then you have to know the logic of Programming.

Keep practicing. Don’t forget to mention your Problem Here πŸ™‚

Best of Luck !!!

How to make mig33 pc software [Part 1]

How to make mig33 pc software [Part 2]

How to make mig33 pc software [Part 3]

How to make mig33 pc software [Part 5]


3 Comments

pagal · April 1, 2013 at 1:34 pm

thanksssssssssssssssss

biggneerr · June 1, 2013 at 9:55 am

Take One textbox :::[how to take,process plz]

dukana · November 7, 2013 at 12:03 pm

Stunning quest there. What happened after? Good luck!

Leave a Reply