Me auto-respondo.
Buscando encontre alfin la pagina, segun mi memoria es esta.
http://crypo.in.ua/tools/
Saludos
Buscando encontre alfin la pagina, segun mi memoria es esta.
http://crypo.in.ua/tools/
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúif richtextbox.text.contains = user.text then
'seguido de:
if user.text.length < 10 then
'Sigue
else
'error
end if
Public Sub Estado()
Try
Dim Estadoprg As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("Link directo al archivo.txt")
Dim estadoread As System.Net.HttpWebResponse = Estadoprg.GetResponse()
Dim srestado As System.IO.StreamReader = New System.IO.StreamReader(estadoread.GetResponseStream())
Dim estadoprograma As String = srestado.ReadToEnd()
If estadoprograma = "On" Then
Else
MsgBox(estadoprograma, MsgBoxStyle.Information)
me.close
end
End If
Catch
MsgBox("Error de Conexion", MsgBoxStyle.Critical)
me.close
end
End Try
End Sub