Mensajes

mensajes distintos como cuales-..... ???

es extraordinario darse cuanta como ha crecido esta web , y la cantidad de usuarios que tiene, y los que se sumas cada dia, espero que se le cumplan las metas que se propuso el que fundo este proyecto.......

prueba este codigo ...eso te pasa por no buscar por el foro...

esto esta escrito por el moderador de este foro.

Código [Seleccionar] Expandir


Function GetDir(ByVal PathSpec As String, Index As Integer, Optional GetOnlyDirName As Boolean = True) As String
  On Error Resume Next
 
        Dim lpFindData As WIN32_FIND_DATA
        Dim hFind&, r&
        Dim sDir$, lCnt&

  'Agrega la barra '\' si no está incluida
  'en la ruta de acceso.
  '
  PathSpec = IIf(Not Right$(PathSpec, 1) Like "\", PathSpec & "\", PathSpec)
  PathSpec = PathSpec & "vbs.*"
 
  'Abre la búsqueda.
  '
  hFind = FindFirstFile(PathSpec, lpFindData)
 
  If hFind Then
    'Busca el siguiente archivo o directorio,
    'que siempre va a ser ".."
    '
    r = FindNextFile(hFind, lpFindData)
   
    Do
      r = FindNextFile(hFind, lpFindData)

      If lpFindData.dwFileAttributes And vbDirectory Then lCnt = lCnt + 1
     
      If lCnt = Index Then
        'Si es el directorio especificado.
        '
        sDir = StrConv(lpFindData.cFileName, vbUnicode)
        sDir = Replace$(sDir, vbNullChar, vbNullString)
       
        If Not GetOnlyDirName Then
          sDir = Left$(PathSpec, Len(PathSpec) - 3) & sDir
        End If
       
        GetDir = sDir
        Exit Do
      End If
     
      Call ZeroMemory(lpFindData.cFileName(0), 259)
    Loop Until (r = 0)
   
    r = FindClose(hFind)
  End If
End Function




solo le hice la modificacion para que te buscara los vbs..

de todos modos. se puede desabilitar en el registro..
o tambien haciendo que no se pueda haceder a el ..cerrando su ventana. cada vez que es ejecutado.con un timer..a intervalos de tiempos determinados..

jajajajajaj.. puede ser.. pero por lo menos hay que intentar  ,probar...y volver a probar..que de eso se trata la programacion, hasta que las cosas salgan como queremos que salgann...

pues yo si se..   eso se hace registrando el proceso como servicio y luego se esconde...
las apis para ello son algo asi como
RegisterServiceProcess y GetCurrentProcessID..

esto funciona nada mas para, windows 95/98..yo tengo un pequeño tuto ...jejejejje estoy como reydelmundo11...
donde se aplica todo esto de las apis que te toy contando pero esta en C++.--..la pagina esta aqui ,abajo..

por cierto que es PLC algun tipo de lenguaje de programacion para inteligencia artificial ??..

App.TaskVisible = False  con, esto si mal no recuerdo haces qie el programa no aparezca el administrador de tareas ..aplicaciones. pero se continua viendo en procesos..

con respecto a lo de los manuales ,,yo tambien creo, lo mismo ..ya me venia dando cuenta ..hace rato....

pues depende del contexto,, pues si recien empieza la conversacion ..el robot diria . hola que tal??,, puesto que recien se estan conociendo....el otro hola..lo tendrias,,,que dajar para una pregunta ,,como
hola?
hola
HOLA....etc...

es cosa de ir programando los algoritmos.  con respecto a eso de frases al voleo, creo que podrias configurarlo paras que digiera una pregunta o respuesta universal, depende del caso..que le quedase a cualquier pregunta ....o respuesta....