GS-Zone

Anti-Robo Servidor Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

5
Este tema se encuentra cerrado.

Nota » 04 Feb 2011 01:11

Funciona para todas las versiones - testeado


Vamos al frmCargando del servidor y creamos un textbox con el nombre verificar y un Inet (el inet con el nombre Inet1).


Ahora al code:

En el Private Sub Form_Load() del frm cargando agregamos esto:

  1. '***********************************************
  2. '***********************************************
  3. '************Sagarius Verificacion**************
  4. '***********************************************
  5. '***********************************************
  6.  
  7.  
  8.  
  9.  Dim verificarv As String
  10.  verificarv = Inet1.OpenURL("www.tuweb.com/verificacion.txt")
  11.  verificar.Text = verificarv
  12.  
  13.  
  14.  
  15.  If Not verificar.Text = "1" Then ' 1 Es el texto que tiene que estar en el txt de la web.
  16.  End
  17.  End If


Code terriblemente simple jeje xD (¿) pero sirve (?)

Imagen
AOXtreme Staff
75
Newbie [2]
Registrado: Años de membresía
Mensajes: 34

Nota » 04 Feb 2011 01:21

http://www.gs-zone.org/ft5575_seguro_contra_robos_del_servidor.html

Ya estaba y mucho mejor hecho pero seguí así y aprende más!

El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
¡Libertad con responsabilidad!
728
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4945
Aportes: 39
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)

Nota » 04 Feb 2011 02:38

Disculpen no sabia que estaba.

Imagen
AOXtreme Staff
75
Newbie [2]
Registrado: Años de membresía
Mensajes: 34

Nota » 04 Feb 2011 03:10

Ademas con solo postearlo aca el codigo ya no sirve..
5
Newbie [2]
Registrado: Años de membresía
Mensajes: 36

Nota » 17 Mar 2011 18:27

Porque no comprobas directamente si la variable que le metes informacion es igual a 1 lo cierre?

En fin el codigo esta y mejor.

Cierro :D
Aguante River Plate ! ! !
872
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14409
Aportes: 304
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)

Este tema se encuentra cerrado.

Volver a Otras versiones

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados