[EO] Delete Account

por Sαkurαy Sáb 05 maio 2012, 09:46

O Tutorial se passa no Client.vbp, nada de Server!

Client (frmMenu)

Picture Box

Código:: Name = picDelAccount Back Colour = &H00000000& Height = 210 W idth = 442 Left = 37 Top = 44

2 Labels para indicar o Úsuário, e Senha da conta.

2 Textbox para escrever o Úsuário e senha da conta.

Código:: Name = lblDAccept Caption = Accept

Agora adicione uma label em baixo das textbox chamada "lblDel" e com a caption:
"Delete account"

Agora de 2 clicks na "lbldel" e adicione o codico:

Código:: If Not picDelAccount.Visible Then ' destroy socket, change visiblity DestroyTCP picDelAccount.Visible = True picCredits.Visible = False picLogin.Visible = False picRegister.Visible = False picCharacter.Visible = False picMain.Visible = False ' play sound PlaySound Sound_ButtonClick End If

Agora, na sub:

Código:: Private Sub imgButton_Click(Index As Integer)

Acima de 'play sound adicione:

Código:: picDelAccount.Visible = False

Em seguinda, adicione no "lblDAccept" e coloque o códico:

Código:: ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If isLoginLegal(txtDUser.text, txtDPass.text) Then Call MenuState(MENU_STATE_DELACCOUNT) End If errorhandler: HandleError "lblDAccept_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub

Agora na Sub

Código:: Public Sub MenuState(ByVal state As Long)

Na modGeneral

Substitua o códico:

Código:: Select Case state Case MENU_STATE_ADDCHAR frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, sending character addition data...") If frmMenu.optMale.Value Then Call SendAddChar(frmMenu.txtCName, SEX_MALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite) Else Call SendAddChar(frmMenu.txtCName, SEX_FEMALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite) End If End If Case MENU_STATE_NEWACCOUNT frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, sending new account information...") Call SendNewAccount(frmMenu.txtRUser.text, frmMenu.txtRPass.text) End If Case MENU_STATE_LOGIN frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, sending login information...") Call SendLogin(frmMenu.txtLUser.text, frmMenu.txtLPass.text) Exit Sub End If End Select

Por este:

Código:: Select Case state Case MENU_STATE_ADDCHAR frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, sending character addition data...") If frmMenu.optMale.Value Then Call SendAddChar(frmMenu.txtCName, SEX_MALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite) Else Call SendAddChar(frmMenu.txtCName, SEX_FEMALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite) End If End If Case MENU_STATE_NEWACCOUNT frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, sending new account information...") Call SendNewAccount(frmMenu.txtRUser.text, frmMenu.txtRPass.text) End If Case MENU_STATE_LOGIN frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, sending login information...") Call SendLogin(frmMenu.txtLUser.text, frmMenu.txtLPass.text) End If Case MENU_STATE_DELACCOUNT frmMenu.Visible = False frmMenu.picCredits.Visible = False frmMenu.picLogin.Visible = False frmMenu.picCharacter.Visible = False frmMenu.picRegister.Visible = False frmMenu.picDelAccount.Visible = False If ConnectToServer(1) Then Call SetStatus("Connected, Deleting account...") Call SendDelAccount(frmMenu.txtDUser.text, frmMenu.txtDPass.text) End If Exit Sub End Select

Créditos:
- Sakuray por postar
- Robin pela engine
- abhi2011 por fazer

por Eduardo Sáb 05 maio 2012, 15:11

Uou boa Ctrl Cctrl V sakuray vlw por trazer os tutoriais de la parta ca continui assim +1

por Sαkurαy Dom 06 maio 2012, 10:51

É, por que nem pra isso vocês prestam

por Eduardo Dom 06 maio 2012, 13:37

esse sitema tem bugs pois quando se deleta uma conta outro jogador cria uma outra conta com o mesmo nome ele pega tudo q tinha na mesma conta antes entao nao aconselho usar ele ......... EdU

por Conteúdo patrocinado

[EO] Delete Account

[EO] Delete Account

Re: [EO] Delete Account

Re: [EO] Delete Account

Re: [EO] Delete Account

Re: [EO] Delete Account