[ALL]Salve Automatico

por Cris~ Sáb 04 Set 2010, 12:27

esse salve é tipo o do Eclipse XSTROND vc clica no command button ele salva ou vc seleciona a check ela da o autosav eheh ^^...
primeiro de tudo, faça um BACKUP do seu projeto.
GOGo.
Serve Side~~
na FrmServer Crie Uma Timer Com o Interval:600
Depois Crie uma command button Na FrmServer Com a Caption Salvar ou qual quer uma... e Adicione:

Código:: Dim i For i = 1 To MAX_PLAYERS If IsPlaying(i) Then Call SavePlayer(i) Call TextAdd(txtText(0), "Saved Player!", True) End If Next

Depois Crie Uma CheckBox No FrmServer Com a Caption AutoSav e Adicione:

Código:: If Check2.Value = Checked Then If frmServer.Text1 > 599 Then frmServer.Timer1.Interval = frmServer.Text1 frmServer.Timer1.Enabled = True Else frmServer.Timer1.Interval = 600 frmServer.Timer1.Enabled = False End If Else frmServer.Text1 = 600 End If

Depois Crie Uma TextBox e Deixei a Text: 600 e cabo X-X....
Axo Que Naum Me Esqueci De Nada e-e ^^...

Creditos:
*Supremo~
*MMORPGBR