Temas

qué formas hay de que se inicie una aplicación o librería en modo a prueba de errores??

como algunas versiones del virus de la policía???

muchas gracias

buenas,
se me ha ocurrido consultar un problema que tengo en el centro de trabajo, y que nos está volviendo locos a mis compañeros y a mi. Sé que no es exáctamente un problema electrónico, pero creo que va mejor aquí que en el foro libre 

la cuestión es que tenemos un motor de 150 cv que se alimenta desde un cuadro eléctrico a unos 200 m, protegido por un magnetotérmico de 250A (nuevo).

La sección de los cables del motor es menor a la sección del cable que llega a los cuadros, sin embargo, en carga, los cables del motor (del fabricante) y la acometida hasta el cuadro, está a una Tª "normal", pero una vez la manguera entra por debajo del cuadro, se conecta  a unas bornas, y después hasta el interruptor. Y en ese tramo de las bornas al interruptor la Tª aumenta mucho (de 50º hasta >100º), siendo la sección de este cable aún mayor 


Hemos probado ha cambiar el diferencial, las bornas y el último tramo de manguera dentro del cuadro..... pero dura 3 días  .  La manguera (3fases) de las bornas al diferencial es de 1,5 m y mientras a la salida de bornas anda templadito.... cuando entra al interruptor las fases arden.... y de vez en cuando el diferencial salta (al menos es regulable  y podemos jugar)

hemos consultado con una ingeniería eléctrica..... que nos ha hablado de los armónicos provocados por los variadores  que hay en los cuadros......   (no recuerdo muy bien eso de los armónicos) pero la impresión es que solo nos quieren vender unos filtros...... y me da que el problema va a ser mucho más sencillito

cualquier idea será bienvenida...... y que conste que esta consulta no la meto como horas extra 

hola,
me gustaría hacer una aplicación para windows,
para poder copiar las fotos de una cámara al disco cuando conecte la cámara por usb. En las cámaras antiguas, no tenía problemas, ya que eran reconocidas como una unidad de almacenamiento, y windows les asignaba una unidad (g: por ejemplo) y con CopyFile me valía, pero las cámaras nuevas aparecen como "cámaras y escáners" y no se les asigna una letra, por lo que no puedo listar los archivos, copiarlos.....

he estado (continuo) leyendo la msdn, pero no consigo encontrar como trabajar con devices que no sean unidades...... si alguien puede aclarar que apis tengo que mirar o pasar algún code del que guiarme..... muy agradecido 

saludos.

Un reportaje emitido en Octubre por La 2 de la televisión pública española sobre las amenazas en internet. Vi la reposición el otro día y me pareció interesante  .

Ataques contra redes informáticas gubernamentales o infraestructuras críticas para el funcionamiento de naciones, robo de datos bancarios... Expertos informáticos organizados y trabajando para los estados...Las guerras del mundo real ya se libran también en el ciberespacio. En Portada aborda estas amenazas con expertos en seguridad informática, asesores militares, responsables de nuevos desafíos en organizaciones como la OTAN o expertos en ciberguerra. En un momento en el que no podemos ni queremos prescindir de los ordenadores, los móviles o internet...la única alternativa es conseguir un cibermundo más seguro. "AMENAZAcyber" se estrena el jueves 4 de octubre a las 23.00 h en La 2 de TVE.

http://www.rtve.es/alacarta/videos/en-portada/portada-amenaza-cyber/1543800


Saludos.

Saludos a todos 
Tengo un problemón con un disco duro SATA y agradecería consejo.

El disco en cuestión es un Hitachi HDT721032SLA380. Estaba conectado en un pc de sobremesa y funcionaba perfectamente hasta que debido a una mudanza, sufrió una caida de una altura de 3m  .

Tras el accidente, intenté arrancar el pc (con windows xp instalado) y todo correcto.... bueno, casi todo, porque algunos programas como el Microsoft Outlook se quedaban a veces colgados.
Tras varios reinicios, 2 ó 3 días después, la bios me informó de que el disco fallaba "S.M.A.R.T. Status BAD, Backup and Replace". Tonto de mí, no hice caso al momento, y le hice un chkdsk /f para intentar repararlo..... esa fue la última vez que arrancó.

He podido salvar la mayoría de datos conectando el disco como secundario, pero no me deja acceder a algunos archivos (me da Error de redundancia cíclica al intentar copiarlos).
Le he pasado el HDD Regenerator (2 días enteros  para completarlo) y aunque me dice que ha regenerado muchos sectores, otros muchos han quedado en BAD.

El disco en sí no me importa mucho y la mayoría de los datos los había grabado, pero hay un programa del que no tengo instalador ni licencia que me es de vital importancia.

He leido en este paper que si el fallo es electrónico, podría cambiar la placa electrónica por la de otro disco idéntico y así salvar todo.... pero no tengo nada claro que el problema solo sea electrónico (ya dije que el golpe fue bueno). El disco gira y no hace ruidos extraños.

He visto un modelo igual en Ebay, pero de comprar algo buscaría algo mejor si no me va a funcionar lo de cambiar la placa.... ¿qué opinan?

Saludos y disculpas por todo el rollo

Buenas,
trato de hacer un cliente FTP usando el API wininet y me he quedado un poco atascado...
En un form tengo 4 textbox para introducir el server, el puerto, el user y el pass, un botón para conectar al server y un listbox para listar los archivos y carpetas que contiene.
Cuando conecto, me lista correctamente los archivos y carpetas que contiene el server FTP en la carpeta principal, pero cuando intento abrir una de estas carpetas y listar su contenido (haciendo doble click sobre ella) me devuelve 0, como si estuviese vacía, cuando no lo está.
Dejo el código que tengo y si alguno me pudiese orientar le estaría muy agradecido.

Código [Seleccionar] Expandir



Option Explicit

Private Declare Function InternetOpen Lib "wininet.dll" 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 InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
     lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long

Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
   (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_SERVICE_FTP = 1
Public Const INTERNET_FLAG_PASSIVE = &H8000000

Dim hOpen As Long
Dim hConnection As Long
Dim server As String
Dim port As Integer
Dim user As String
Dim pass As String
Dim first_file As Long
Dim next_file As Long
Dim datos As WIN32_FIND_DATA


Private Sub Command1_Click()

hOpen = InternetOpen("MiFTP", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents

server = ftp_server.Text
port = CInt(ftp_port.Text)
user = ftp_user.Text
pass = ftp_pass.Text

hConnection = InternetConnect(hOpen, server, port, user, pass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
DoEvents

first_file = FtpFindFirstFile(hConnection, vbNullString, datos, 0, 0)
If first_file <> 0 Then
   List1.AddItem datos.cFileName
   next_file = InternetFindNextFile(first_file, datos)
   Do While next_file <> 0
       List1.AddItem datos.cFileName
       next_file = InternetFindNextFile(first_file, datos)
       DoEvents
   Loop
End If
End Sub



Private Sub List1_DblClick()

Label6.Caption = Label6.Caption & "/" & List1.List(List1.ListIndex)
List1.Clear
If FtpSetCurrentDirectory(hConnection, Label6.Caption & "/") <> False Then

   first_file = FtpFindFirstFile(hConnection, vbNullString, datos, 0, 0)
   If first_file <> 0 Then
       List1.AddItem datos.cFileName
       next_file = InternetFindNextFile(first_file, datos)
       Do While next_file <> 0
           List1.AddItem datos.cFileName
           next_file = InternetFindNextFile(first_file, datos)
           DoEvents
       Loop
   End If
End If
End Sub



hola,
había hecho un troyano multiconexión usando el control winsock y ahora estoy tratando de usar el módulo csocketplus.
La cuestión es que con el winsock, para detectar cuando un server se desconectaba, usaba en el cliente el
Private Sub winsock_Close(Index As Integer) ,
pero con el csocket plus,
el Private Sub csocket_CloseSck(ByVal Index As Variant),
no me da ninguna respuesta.

No sé si funciona de forma distinta que en el winsock ¿?

Por otra parte, haciendo pruebas he visto que cuando un server se cierra, sí que se detecta con
Private Sub csocket_Error(ByVal Index As Variant, ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

dándome un error con nº 0
¿es ésta la forma de detectar que un server ha cerrado la conexión? o se trata de un error genérico?

Muchas gracias de antemano