Remover VIP - WebMorpheus - Outras Teams

[Denis Alves]

Olá gente!

Venho postar essa JOB que possa ser útil para alguns. Ela retira o VIP das contas de quem utiliza a Web Morpheus postada, só que em plataformas diferentes do MuEMU que não utilizem o sistema de verificação de contas como tem na mesma.

Acredito que tenham outros métodos mais fáceis, eu admito, mas esse funciona. Resumindo o que acontece, a cada 7 minutos ela faz verificação no banco de dados para ver quais as contas que já passaram do prazo do VIP acabar e retorna para FREE (Default 0).

USE [msdb]
GO


/****** Object: Job [Vip system] Script Date: 12/01/2019 11:32:52 ******/
BEGIN TRANSACTION
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
/****** Object: JobCategory [[Uncategorized (Local)]]] Script Date: 12/01/2019 11:32:52 ******/
IF NOT EXISTS (SELECT name FROM msdb.dbo.syscategories WHERE name=N'[Uncategorized (Local)]' AND category_class=1)
BEGIN
EXEC @ReturnCode = msdb.dbo.sp_add_category @class=N'JOB', @type=N'LOCAL', @name=N'[Uncategorized (Local)]'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback


END


DECLARE @jobId BINARY(16)
EXEC @ReturnCode = msdb.dbo.sp_add_job @job_name=N'Vip system',
@enabled=1,
@notify_level_eventlog=0,
@notify_level_email=0,
@notify_level_netsend=0,
@notify_level_page=0,
@delete_level=0,
@description=N'Monitoring vip in accounts',
@category_name=N'[Uncategorized (Local)]',
@owner_login_name=N'WIN-LCN52VGK3K5\Administrador', @job_id = @jobId OUTPUT
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
/****** Object: Step [Vip System] Script Date: 12/01/2019 11:32:53 ******/
EXEC @ReturnCode = msdb.dbo.sp_add_jobstep @job_id=@jobId, @step_name=N'Vip System',
@step_id=1,
@cmdexec_success_code=0,
@on_success_action=1,
@on_success_step_id=0,
@on_fail_action=2,
@on_fail_step_id=0,
@retry_attempts=0,
@retry_interval=0,
@os_run_priority=0, @subsystem=N'TSQL',
@command=N'update MEMB_INFO set Vip = 0 where AccountExpireDate < GETDATE()',
@database_name=N'MuOnline',
@flags=0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_update_job @job_id = @jobId, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id=@jobId, @name=N'System Vip',
@enabled=1,
@freq_type=4,
@freq_interval=1,
@freq_subday_type=4,
@freq_subday_interval=15,
@freq_relative_interval=0,
@freq_recurrence_factor=0,
@active_start_date=20191201,
@active_end_date=99991231,
@active_start_time=0,
@active_end_time=235959,
@schedule_uid=N'29c2f0b9-4169-4483-8ee0-6eba3e289b67'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXEC @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @jobId, @server_name = N'(local)'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave:


GO

Obs.: Aonde está em destaque mude para o caminho do seu usuário administrativo e banco de dados utilizado para criar a JOB automaticamente.

Creditos: Denis

[godmorais]

Funciona em musite ?

[Denis Alves]

Funciona em musite ?

Hipoteticamente sim. Pois esse sistema ele vai retirar o vip da conta fazendo verificação diretamente na tabela do SQL. Ou seja, ele fará uma análise da data do plano vip adicionado, se passou um dia, uma hora ou um minuto do prazo ele retira. E, no musite, que tem o plugin para trabalhar com tabelas similares ao sistema de vip da Morpheus, então é bem capaz que sim

[admmu]

vc poderia montar uma Pra min usando o server IGC ele usa essa tabela






USE [MuOnline]GO


/****** Object: Table [dbo].[T_VIPList] Script Date: 07/12/2020 23:30:13 ******/
DROP TABLE [dbo].[T_VIPList]
GO


/****** Object: Table [dbo].[T_VIPList] Script Date: 07/12/2020 23:30:13 ******/
SET ANSI_NULLS ON
GO


SET QUOTED_IDENTIFIER ON
GO


SET ANSI_PADDING ON
GO


CREATE TABLE [dbo].[T_VIPList](
[AccountID] [varchar](10) NOT NULL,
[Date] [smalldatetime] NULL,
[Type] [tinyint] NULL,
CONSTRAINT [PK_T_VIPList] PRIMARY KEY CLUSTERED
(
[AccountID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]


GO


SET ANSI_PADDING OFF
GO