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:
- '***********************************************
- '***********************************************
- '************Sagarius Verificacion**************
- '***********************************************
- '***********************************************
- Dim verificarv As String
- verificarv = Inet1.OpenURL("www.tuweb.com/verificacion.txt")
- verificar.Text = verificarv
- If Not verificar.Text = "1" Then ' 1 Es el texto que tiene que estar en el txt de la web.
- End
- End If
Code terriblemente simple jeje




75![Newbie [2] Newbie [2]](./images/ranks/Rango1.gif)


