elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 ... 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 [39] 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 ... 59
381  Programación / Programación Visual Basic / Re: IsVirtualPCPresent (no WMI) [Source] en: 3 Julio 2008, 02:29 am
y esto no hace lo mismo?
http://foro.elhacker.net/programacion_vb/source_isvirtualpcpresent_sistema_antivirtualpc-t218845.0.html;msg1037935#msg1037935
o depende de algo para funcionar?


382  Programación / Programación Visual Basic / Re: Probema al ejecutar un .bat con shell en: 3 Julio 2008, 02:27 am
prueba todos los scripts en otro ordenador con VB 6.0 vale?
383  Programación / Programación Visual Basic / Re: Source OnlineChecker [PHP & VB] en: 2 Julio 2008, 19:16 pm
como comprobar que nuestros software de pago no esta siendo usado con una misma licencia por varios usuarios y esas cosas.
ese es el punto ;D ;D ;D ;D ;D ;D


de paso pueden aprender un poco de mysql para solventar ciertos problemas de otro modo.
 :D
384  Programación / Programación Visual Basic / Re: Crea tu propio Ip-Checker [VB+PHP] en: 2 Julio 2008, 19:09 pm
Este codigo hace lo mismo, pero mas simple, se usa un php que ya lo ha subido alguien...
esto me lo paso leandroA hace un tiempo atras ....

Código
  1.  
  2. Option Explicit
  3. 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
  4. Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
  5. Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
  6. 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
  7.  
  8. Private Function GetIp() As String
  9. Dim hOpen As Long, hFile As Long, sBuffer As String * 36, Ret As Long
  10.    hOpen = InternetOpen("miip", 1, vbNullString, vbNullString, 0)
  11.    hFile = InternetOpenUrl(hOpen, "http://www.flavionet.com/ipcheckjs.php", vbNullString, ByVal 0&, &H80000000, ByVal 0&)
  12.    InternetReadFile hFile, sBuffer, 36, Ret
  13.    InternetCloseHandle hFile
  14.    InternetCloseHandle hOpen
  15.    Dim V As Variant
  16.    V = Split(sBuffer, Chr(34))
  17.    GetIp = V(1)
  18. End Function
  19.  
  20. Private Sub Form_Load()
  21. MsgBox GetIp
  22. End Sub
  23.  
385  Programación / Programación Visual Basic / Re: Probema al ejecutar un .bat con shell en: 2 Julio 2008, 01:47 am
el codigo que te puse (el ultimo) funciona bien, nose porque a ti no te va.
386  Programación / Programación Visual Basic / Re: Source OnlineChecker [PHP & VB] en: 2 Julio 2008, 00:25 am
Podrias saber si tu pc esta encendida o no, desde tu movil, (si es que el programa arranca junto con windows).
y muchas de cosas mas.  ::) ::)
387  Programación / Programación Visual Basic / Re: Probema al ejecutar un .bat con shell en: 2 Julio 2008, 00:23 am
esto funciona:
Código
  1. Private Sub Command1_Click()
  2. Dim ruta As String
  3. ruta = "C:\Process.bat"
  4. Shell ruta
  5. End Sub

verifica la ruta correcta.
388  Programación / Programación Visual Basic / Re: Source OnlineChecker [PHP & VB] en: 1 Julio 2008, 22:37 pm
Claro, es una de las muchas maneras de hacerlo, pero las BD fueron diseñadas para no usar ficheros txt para almacenar info, por eso lo coloque asi.
389  Programación / Programación Visual Basic / Source OnlineChecker [PHP & VB] en: 1 Julio 2008, 22:25 pm
El sistema permite saber desde una pagina web si el programa esta corriendo (online), o no (offline).

Incluso se puede implementar para saber las estadisticas de nuestros programas.

Hace tiempo tube la necesidad de que un programita tuviera esta funcion, de tal modo para yo saber si el programa estaba abierto o cerrado; asi qe me puse a pensar como hacerlo y me surgio la idea de los contadores de visitantes activos usados en programacion de paginas webs, asi que me puse a estudiar un poco de php y saber la forma de poderlo relacionar con VB.
Se me vino la idea de los browsers; asi que invesitigue un poco y pude terminar el subprograma.

para ello necesitamos una BD (base de datos: mysql) para almacenar la informacion,  un script que nos muestre el resultado (state.php), otro script que informe a la BD su estado; y un codigo que ejecute la pagina web en el programa.

Debemos poseer una Base de Datos del tipo mysql para poder usar adecuadamente nuestro script.
Usare tripod.lycos.es para nuestra BD y alojar nuestros dos ficheros.
Te creas una cuenta en tripod.lycos.es y activas esta herramienta: PHP4U
la cual servira para la BD, luego abres la pagina de PHP4U que alli mismo encuentras y ahora veras una opcion de "Crear nueva tabla en base de datos" y pones nombre: visitantes, y en el numero de campos: 2
Necesitamos crear una base de datos llamada 'visitantes' con estos campos:

'ip' VARCHAR( 16 ) NOT NULL
'fecha' INT( 11 ) NOT NULL
 y tendras algo como esto:


Dejo aqui dos enlaces para poder entender el codigo de los scripts:
Conexion a la BD: http://www.programacionweb.net/articulos/articulo/?num=51
Visitantes Activos: http://www.programacionweb.net/articulos/articulo/?num=135


state.php
Código
  1. <html><head>
  2. <script language="javascript">
  3. window.onload = new Function(null)</script></head><body>
  4. <title>Estado del Server</title>
  5. <body onLoad="setTimeout('self.location.reload()', 5000)">
  6. <?
  7. // Configura tu conexion
  8. $db=mysql_connect( 'localhost','user_db','' ); // Aqui cambias user_db por el nombre de tu base de datos
  9. mysql_select_db("contador", $db);
  10. $limite = time()- 20; // 20 segundos
  11. global $REMOTE_ADDR;
  12. $ip = $REMOTE_ADDR;
  13. mysql_query("delete from visitantes where fecha < " .$limite,$db); // Eliminamos deacuerdo al tiempo
  14.  
  15.  
  16. if (mysql_result (mysql_query("SELECT COUNT(ip) FROM visitantes" ,$db),0 ) != 0 ){
  17. echo "<font face='verdana'><center>===========================<br>";
  18. echo "<b>jackl007</b><br>";
  19. echo "-------------------------------------------------<br>";
  20. echo " Estado del Server: <b><font color='green'>Online</font></b>  <br>";
  21.  
  22. echo "-------------------------------------------------<br>";
  23. echo "===========================</font></center>";
  24. }
  25. else {
  26. echo "<font face='verdana'><center>===========================<br>";
  27. echo "<b>jackl007</b><br>";
  28. echo "-------------------------------------------------<br>";
  29. echo " Estado del Server: <b><font color='red'>Offline</font></b>  <br>";
  30. echo "-------------------------------------------------<br>";
  31. echo "===========================</font></center>";
  32. }
  33.  
  34. ?>
  35. <noframes><iframe><noscript><xmp><pre>

monitorear.php
Código
  1. <html><head>
  2. <script language="javascript">
  3. window.onload = new Function(null)</script></head><body>
  4. <?
  5. // Configura tu conexion
  6. $db=mysql_connect( 'localhost','user_db','' ); // Aqui cambias user_db por el nombre de tu base de datos
  7. mysql_select_db("contador", $db);
  8. $limite = time()- 30; // 30 segundos
  9. global $REMOTE_ADDR;
  10. $ip = $REMOTE_ADDR;
  11. mysql_query("delete from visitantes where fecha < " .$limite,$db);
  12. $result = mysql_query( "select ip from visitantes where ip = '$ip'",$db);
  13. if (mysql_num_rows($result) !=  0){
  14.  mysql_query("update visitantes set fecha = " .time()." where ip = '$ip'" ,$db);
  15. }
  16. else mysql_query("insert into visitantes (ip, fecha) values ('$ip', " .time().")" ,$db);
  17.  
  18. ?>
  19.  
  20. <noframes><iframe><noscript><xmp><pre>
  21.  

Ahora en nuestro proyecto de VB agregamos el control: Microsoft Internet Controls (para el webbrowser) y agregamos un control del mismo tipo al que llamaremos wb.
agregamos un Timer con Interval = 10000
y este trocito de codigo
Código
  1. Private Sub Timer1_Timer()
  2. wb.Navigate "http://usuarios.lycos.es/(...)/monitorear.php"
  3. End Sub
donde (...) es el nombre de usuario tuyo que has creado en tu cuenta de tripod.lycos.es

Tambien se puede usar el contro Inet, pero el control que puse siempre esta en los ordenadores, porlo que ya no necesitamos llevar el dll del control para poder usarlo, lo que hace nuestro programa potable.


Saludos
390  Programación / Programación Visual Basic / Re: Probema al ejecutar un .bat con shell en: 1 Julio 2008, 21:05 pm
variable = C:\Archivos de programa

sin comillas?
prueba con esto:
Shell (variable & "\archivo.bat ")
(hay un espacio).

y dime te funciona esto:
Shell ("C:\Archivos de programa\archivo.bat ") ??
Páginas: 1 ... 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 [39] 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 ... 59
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines