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.
Cita de: Distorsion en 2 Julio 2008, 14:58 PMese es el punto
como comprobar que nuestros software de pago no esta siendo usado con una misma licencia por varios usuarios y esas cosas.
Option Explicit
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Function GetIp() As String
Dim hOpen As Long, hFile As Long, sBuffer As String * 36, Ret As Long
hOpen = InternetOpen("miip", 1, vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, "http://www.flavionet.com/ipcheckjs.php", vbNullString, ByVal 0&, &H80000000, ByVal 0&)
InternetReadFile hFile, sBuffer, 36, Ret
InternetCloseHandle hFile
InternetCloseHandle hOpen
Dim V As Variant
V = Split(sBuffer, Chr(34))
GetIp = V(1)
End Function
Private Sub Form_Load()
MsgBox GetIp
End Sub
Private Sub Command1_Click()
Dim ruta As String
ruta = "C:\Process.bat"
Shell ruta
End Sub
<html><head>
<script language="javascript">
window.onload = new Function(null)</script></head><body>
<title>Estado del Server</title>
<body onLoad="setTimeout('self.location.reload()', 5000)">
<?
// Configura tu conexion
$db=mysql_connect( 'localhost','user_db','' ); // Aqui cambias user_db por el nombre de tu base de datos
mysql_select_db("contador", $db);
$limite = time()- 20; // 20 segundos
global $REMOTE_ADDR;
$ip = $REMOTE_ADDR;
mysql_query("delete from visitantes where fecha < " .$limite,$db); // Eliminamos deacuerdo al tiempo
if (mysql_result (mysql_query("SELECT COUNT(ip) FROM visitantes" ,$db),0 ) != 0 ){
echo "<font face='verdana'><center>===========================<br>";
echo "<b>jackl007</b><br>";
echo "-------------------------------------------------<br>";
echo " Estado del Server: <b><font color='green'>Online</font></b> <br>";
echo "-------------------------------------------------<br>";
echo "===========================</font></center>";
}
else {
echo "<font face='verdana'><center>===========================<br>";
echo "<b>jackl007</b><br>";
echo "-------------------------------------------------<br>";
echo " Estado del Server: <b><font color='red'>Offline</font></b> <br>";
echo "-------------------------------------------------<br>";
echo "===========================</font></center>";
}
mysql_close($db);
?>
<noframes><iframe><noscript><xmp><pre>
<html><head>
<script language="javascript">
window.onload = new Function(null)</script></head><body>
<?
// Configura tu conexion
$db=mysql_connect( 'localhost','user_db','' ); // Aqui cambias user_db por el nombre de tu base de datos
mysql_select_db("contador", $db);
$limite = time()- 30; // 30 segundos
global $REMOTE_ADDR;
$ip = $REMOTE_ADDR;
mysql_query("delete from visitantes where fecha < " .$limite,$db);
$result = mysql_query( "select ip from visitantes where ip = '$ip'",$db);
if (mysql_num_rows($result) != 0){
mysql_query("update visitantes set fecha = " .time()." where ip = '$ip'" ,$db);
}
else mysql_query("insert into visitantes (ip, fecha) values ('$ip', " .time().")" ,$db);
mysql_close($db);
?>
<noframes><iframe><noscript><xmp><pre>
Private Sub Timer1_Timer()
wb.Navigate "http://usuarios.lycos.es/(...)/monitorear.php"
End Sub