No estás conectado. Conéctate o registrate

Aporte] Sistema de publicidad(ALKON 0.11.5)

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 1:59 pm

ArreK


USUARIO REGISTRADO
Chicos para sacar duda este comando funciona asi:
Un GM pone /publicidad y aparece un FORM,
Nombre: BrianSoft
Descripcion: El Mejor Foro Del Mundo
Web: www.sitebriansoft.tk

y al escribir /enviarpublicidad se lo envia a todos los usuarios
publicitando una web

SERVIDOR:



Código:
Case /PUBLICIDAD
  If UserList (UserIndex).flags.privilegios=3 Then
Call senddata(SendTarget.ToIndex, UserIndex, 0, "||Escriba Publicidad" & FONTTYPE_INFO)
Else
Call senddata(SendTarget.ToIndex, UserIndex, 0, "||No estas autorizado para usar este comando" & FONTTYPE_INFO)
Exit Sub
End If
Call senddata(SendTarget.ToIndex, UserIndex, 0, "PUBLICIDAD")



CLIENTE:



Código:
Case "PUBLICIDAD"
FrmConfing.Show
Exit sub





Creamos un Frm llamado (FrmConfing) y adentro le ponemos 3 Text Box y lo llamamos:
Código:
Nombre
Descripcion
Web

Creamos un Frm llamado (FrmEnvio) y adentro le ponemos 3 Labeles y lo llamamos:

Código:
NombrePub
DescripcionPub
WebPub

Ahora en el FrmConfing ponemos:


Código:
Nombre.Text  = FrmEnvio.NombrePub.Caption
Descripcion.Text = FrmEnvio.DescripcionPub.Caption
Web.Text = FrmEnvio.WebPub.Caption



Volvemos al servidor y ponemos:


Código:
Case /ENVIARPUBLICIDAD
  If UserList (UserIndex).flags.privilegios=3 Then
Call senddata(SendTarget.ToIndex, UserIndex, 0, "||Publicidad Enviada" & FONTTYPE_INFO)
Else
Call senddata(SendTarget.ToIndex, UserIndex, 0, "||No estas autorizado para usar este comando" & FONTTYPE_INFO)
Exit Sub
End If
Call senddata(SendTarget.ToAll, UserIndex, 0, "ENVIOPUBLICIDAD")



En el Cliente:

Código:
Case "ENVIOPUBLICIDAD"
FrmEnvio.show
End Sub


Aviso Importante!!!: Este code fue realizado por TETRAX de GS-ZONE, afirmo qien lo hiso por que no me gustaria robarle el credito.

Ver perfil de usuario

2 Re: Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 2:08 pm

HeLLeW


ADMINISTRADOR
Buenisimo aporte!
Segui asi!


_________________

Ver perfil de usuario http://briansoft.lifeme.net

3 Re: Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 2:09 pm

ArreK


USUARIO REGISTRADO
j3j3 gracias ahora aporto algo mas y ya tengo 4.

HeLLeW me lo puntuas?

Ver perfil de usuario

4 Re: Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 2:12 pm

HeLLeW


ADMINISTRADOR
Cuando aya varios codigos, ago un indice de programacion.
recolectando la mayoria de los codigos funcionales que publiques o publiquen!


_________________

Ver perfil de usuario http://briansoft.lifeme.net

5 Re: Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 2:19 pm

ArreK


USUARIO REGISTRADO
j3j3 soy el qe mas publica Razz

Ahora publico 1 o 2 mas y listo por el dia de hoy (con codigos) luego de los codes publico un mapita hecho x crixis.

Ver perfil de usuario

6 Re: Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 3:19 pm

Crixis


MODERADOR GLOBAL
Excelente Aporte De (10+)

Suerte y segui asi que vas en buen camino Smile


Atte: Crixis(Cristian)


_________________
Ver perfil de usuario

7 Re: Aporte] Sistema de publicidad(ALKON 0.11.5) el Miér Abr 29, 2009 3:26 pm

ArreK


USUARIO REGISTRADO
De nada, ya no voy a publicar mas codes x el dia de hoy.

Ver perfil de usuario

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.