• Domingo 11 de Mayo de 2025, 19:26

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - sircuit

Páginas: [1]
1
PHP / Fsockopen.
« en: Viernes 21 de Abril de 2006, 00:13 »
Buenas.
Estoy creando una página en PHP donde quiero mostrar el estado de un computador (dirección ip), es decir conectado o no. El problema es que el tiempo que se demora es demasiado para comprobar la conexión.
Lo hago de la sgte. manera:
Código: Text
  1. $conex = @fsockopen($IP, $PORT, &$errno, &$errstr, 10);
  2.  
OJO :blink: EL 10 se refiere al tiempo de espera para la lectura y escritura UNA VEZ CONECTADO, no el tiempo para la conexión.

Alguna idea?

Gracias.

2
Visual Basic 6.0 e inferiores / Ocultar Proceso
« en: Domingo 30 de Octubre de 2005, 04:17 »
Buenas
saben que estoy creando un proyecto y me vi en la necesidad de hacerlo mas seguro.
el punto esta en que nesecito ocultar el proceso (no la aplicacion con App.TaskVisible = False) en sistemas NT ya que en win9x no hay problema.
ojala me puedan ayudar.
gracias.

3
Visual Basic 6.0 e inferiores / Como Crear Un Archivo ?
« en: Miércoles 9 de Febrero de 2005, 21:30 »
Buenas
saben que me ha surgido otro rollo
como les contaba a alguno estaba creando una mini agenda y ya solucione el apartado para buscar una ficha pero ahora tengo otro para añadir una ficha
consiste en que, inicualemente se añadia una ficha sin ningun problema sin comprobar si el archivo existia y ademas si la ficha tb existia

para hacerla mas completa estube tratando de buscar la forma que me leyera la base de datos de manera que si las variables leidas son igual a los textos apareciera un msg mencionando que esa ficha ya existe

el problema surge que tengo como primero que me abra el archivo en modo INPUT... pero QUE VA A LEER SI ES PRIMERA VEZ QUE EJECUTO EL PROGRAMA....

ENTONCES
Como pueo allar la forma de que primero cree el archivo y de ahi me lea las variables, que si es igual al primer textbox, que aparesca el msgbox, de lo contrario que abra el archivo en modo APPEND para poder escribirlo...

osea algo asi

me cree el archivo ya sea . dat o txt
hasta que no llegue al final de archivo
que me lea todas las variables como cuantos text allan dentro del form
si el text1 es igual a la primera variable me salga el msgbox
de lo contrario
que me abra el MISMO ARCHIVO en modo append para que pueda escribir en el todo los text que allan dentro del form
end

4
Visual Basic 6.0 e inferiores / Archivos Secuenciales
« en: Domingo 6 de Febrero de 2005, 17:44 »
Si yo de nuevo :D hehe
saben que estaba aprendiendo a como hacer una mini agenda de manera que lea, escriba y borre (traspase) datos...
en fin... todo bien salvo la parte de lea o buscar datos por que al principio no hubo problema pero quise ponerle unos msgox para que se vea mejor que creo que tengo un problema con la estruccturacion de codigo ya que despues de leer los datos, si el text correspondiente a buscar es igual aa la variable que me ponga los datos, de lo contrario que me salga otro msgbox que me diga que no fueron encontrado... resulta que, apesar de que los encontro igual me tira la estrucctura del else lo cual no debiera ocurrir
miren:

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3. Dim conf As Integer
  4. Open App.Path & "\datos.dat" For Input As 1
  5. Do While Not EOF(1)
  6. Input #1, namec
  7. Input #1, direc
  8. Input #1, telc
  9. Input #1, emc
  10. Input #1, comc
  11. If Text6.Text = namec Then
  12. Text1.Text = namec
  13. Text2.Text = direc
  14. Text3.Text = telc
  15. Text4.Text = emc
  16. Text5.Text = comc
  17. MsgBox "La ficha de " & Text6.Text & " ha sido encontrada", vbInformation + vbOKOnly, "Información"
  18. Else
  19. Call huhu
  20. End If
  21. Loop
  22. Close #1
  23. End Sub
  24.  
  25. Private Sub huhu()
  26. conf = MsgBox("La ficha de " & Text6.Text & " no ha sido encontrada." + vbCrLf + "Desea realizar una nueva busqueda ?", vbQuestion + vbYesNo, "Información")
  27. If conf = vbYes Then
  28. Text6.Text = ""
  29. Text6.SetFocus
  30. End If
  31. End Sub
  32.  
  33.  

espero que me puedan ayudar a identificar la parte erronea.
salu2

5
Visual Basic 6.0 e inferiores / Seleccionar Todos
« en: Miércoles 2 de Febrero de 2005, 22:56 »
Buenas
saben que tengo DOS dudaS

1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box...

pd: si no entiendieron muy bien mi idea solo expliquen como seleccionar varios objetos para realizar alguna accion determinada :lol:

2.- hay un label - tengo una palabra dentro de una variable - y que en el, al presionar un boton, me aparesca algun caracter de la cadena de la variable ... algo asi como un ahorcado y si la letra se repite que aparesca la cantidad de veces que se hace presente en el lugar correspondiente del label...

salu2

6
Visual Basic 6.0 e inferiores / Show Verification
« en: Sábado 29 de Enero de 2005, 18:19 »
Buenas
saben que he estado haciendo algunos ejemplos de programas y ya he aprendido hacer una mini agenda :o pero ahora nesecito la forma de mostrar un msgbox cuando un dato es correctamente añadido a la base de datos (.dat o .txt hehe)
por ejemplo un form con 5 textbox y con tres botones.... uno de ellos añadir... si todos los datos fueron agregados que aparesca un msgox diciendo "si fueron correctamente añadidos... en fin" y si falta rellenar algun textbox que salte otro msgbox haciendo un setfocus en el textbox que falta....

bueno espero no molestar :rolleyes:

salu2

7
Visual Basic 6.0 e inferiores / Aclarenme Porfa
« en: Domingo 16 de Enero de 2005, 00:41 »
Código: Text
  1.  Select Case
  2.  
  3. Su nombre casi nos define lo que es: Selecciona, dependiendo del caso, un determinado juego de instrucciones:
  4.  
  5. Select Case variable ' variable es una variable que puede tomar los valores (p.e.) de 1 a 4
  6.  
  7. Case 1
  8.  
  9. Instrucciones a ejecutar en caso de que variable = 1
  10.  
  11. Case 2
  12.  
  13. Instrucciones a ejecutar en caso de que variable = 2
  14.  
  15. Case 3
  16.  
  17. Instrucciones a ejecutar en caso de que variable = 3
  18.  
  19. Case 4
  20.  
  21. Instrucciones a ejecutar en caso de que variable = 4
  22.  
  23. End Select
  24.  

esa es parte de un manual pero estuve intentando hacer algunos ejemplos pero no me salio

la primera linea, por ejemplo puse:
Citar
Private Sub Form_Load()
Select Case Text1
Case Is = "hola"
Shell "notepad.exe"
End Select
End Sub

pero no pasa nada...

help

8
Visual Basic 6.0 e inferiores / Bucles Help
« en: Miércoles 12 de Enero de 2005, 16:10 »
Buenas
saben que me estaba lellendo unos manuales de vb y me quede en los bucles...
hice algunos ejemplos pero me dan error al compilar...

por ejemplo
Código: Text
  1.  Private Sub Command1_Click()
  2.  
  3. For N=65 To 90
  4.  
  5. Label1.caption = Chr ( N )
  6.  
  7. Label1.RefreshN
  8.  
  9. X = 0
  10.  
  11. Do While X < 1000
  12.  
  13. X = X + 1
  14.  
  15. Loop
  16.  
  17. Next N
  18.  
  19. End Sub
  20.  

luego de salir el error me sale marcada la sentencia .RefreshN

que es lo que esta mal ???

9
Visual Basic 6.0 e inferiores / Error Instalar Vb6 Pro
« en: Martes 11 de Enero de 2005, 22:52 »
Buenas
todo bien ?
miren, me baje la version pro del vb6 en español pero durante la instalacion me decia que habia otra version de un dll con soporte para el idioma español y me pregunto si queria remplazarlo y le di que si... resulta que parece que meti la pata por que ahora cada vez que abro la setup despues de unos cuantos next me da un error que no es posible abrir el archivo de la ruta que extrai el zip en .\SHARED\OLEDB\MSDASC.CNT

revise esa ruta pero en la carpeta shared no hay ningun subcarpeta que sea oledb... y despues de darle omitir me salen unos cuantos archivos mas que no se pueden abrir....

que tengo que hacer para que la instalacion sea correcta ???

10
Visual Basic 6.0 e inferiores / Error Instalar Vb6 Pro
« en: Martes 11 de Enero de 2005, 19:31 »
Buenas
todo bien ?
miren, me baje la version pro del vb6 en español pero durante la instalacion me decia que habia otra version de un dll con soporte para el idioma español y me pregunto si queria remplazarlo y le di que si... resulta que parece que meti la pata por que ahora cada vez que abro la setup despues de unos cuantos next me da un error que no es posible abrir el archivo de la ruta que extrai el zip en .\SHARED\OLEDB\MSDASC.CNT

revise esa ruta pero en la carpeta shared no hay ningun subcarpeta que sea oledb... y despues de darle omitir me salen unos cuantos archivos mas que no se pueden abrir....

que tengo que hacer para que la instalacion sea correcta ???

11
Visual Basic 6.0 e inferiores / Aprendiendo
« en: Viernes 7 de Enero de 2005, 03:22 »
Buenas
saben que quiero aprender este lenguaje de programacion... pero quiero saber de donde puedo descargar esta app ya que me baje uno que pesaba 70 mb y que venia sin el help ni otras cosas...

y estube viendo un manual que decia aprenda visual basic como si estuviera en primero pero no hay otro por casualidad que sea bueno ?

gracias y saludos

Páginas: [1]