Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 22481 - USAR API PARA MANEJAR PUERTO SERIE |
| Autor: | Serafín Orillán Chaparro |
| Hola.
Necesito enviar a través del puerto serie tramas de datos orientadas al byte, y para ello necesito manejar el puerto serie al nivel más bajo posible. El control MSComm de VB no me sirve porque lo que transmite son cadenas de caracteres en Unicode, en donde cada carácter son 2 bytes. Si alguien conoce de alguna API de windows que manipule el puerto serie a bajo nivel y me puede decir cómo manejarla, le estaría agradecido. Gracias de antemano | |
| Respuesta: | Fredy Ramirez |
| Hola,
Con el control MSComm tambien puedes enviar datos en forma de matrices de bytes. sólo debes colocar la propiedad del control asi: control.InputMode = comInputModeBinary Luego declaras una variable como matriz de bytes Dim Variable ( ) as Byte La llenas y luego la envias con el metodo output Espero que esto te sirva de algo | |
| Pregunta: | 22487 - LEER CON VB, EL DESTINO DE LOS ACCESOS DIRECTOS .LNK |
| Autor: | Nashuald Strignard |
| ¿Cómo puedo leer un archivo de extensión lnk, de tal manera de poder saber a qué archivo realiza su función? | |
| Respuesta: | Dark_MAC |
| Eso es bastante facil, solo empiezas a leer tu archivo LNK como si fuera un archivo de texto, pero lo lees a partir del ultimo caracter guardado hacia atras, hasta que encuentres un espacio, ya que al final del archivo es donde guarda la ruta completa de ejecucion. | |
| Pregunta: | 22502 - BORRAR UNA CLAVE DEL REGISTRO |
| Autor: | Marceliano Crespo Bordonaba |
| Hola, Me gustaría poder usar la función de API RegDeleteKey() para poder borrar una clave desde Visual basic, distinta de las permitidas por el comando DeleteSetting. Muchas gracias. | |
| Respuesta: | SuNcO |
| No especificas si por API solamente o tambien por OCX. Entra a www.chakasteam.n3.net/winsock.html para que bajes un ejemplo de como editar el registro pero desde un OCX (agregado al ejemplo obviamente) | |
| Pregunta: | 22507 - ¿COMO IMPLEMENTAR UN TIMER EN EXCEL 97, MEDIANTE UNA MACRO.? |
| Autor: | Claudio Reinoso Fuentes |
| Necesito insertar un "timer" (igual que en visual basic) en excel 97. Esto con el fin de calcular unos valores según el tiempo que se indique(20 seg , 30 seg,etc) y para actualizar los datos de la planilla de cálculo.
De antemano muchas gracias | |
| Respuesta: | Luis Miguel Mora. |
| Saludos, creo que este es el Codigo.
Sub Form_Load() On Error Resume Next 'ignorar errores Me.TimerInterval = 100 ' Intervalo del Timer (1000 = 1 seg.) End Sub Sub Form_Timer() 'nota: esta linea se ejecuta cada un(1) seg. por 'tanto aqui debe ir el cod para actualizar Para cualquier cosa me escribes... | |
| Pregunta: | 22510 - CERRAR SESIóN DE NT |
| Autor: | Eduardo |
| Hola a Todos,
Mi consulta es la siguiente: Cómo puedo cerrar una sesión de windows nt, al terminar de ejecutar una aplicación desarrollada en Visual Basic. Desde ya, muchas gracias | |
| Respuesta: | Yazooo |
| 'Con este peaso de codigo puedes cerrar o rearrancar windowsNT
Private Type LUID UsedPart As Long IgnoredForNowHigh32BitPart As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long TheLuid As LUID Attributes As Long End Type Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_FORCE As Long = 4 Private Const EWX_REBOOT = 2 Private Declare Function ExitWindowsEx Lib "user32" (ByVal _ dwOptions As Long, ByVal dwReserved As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" (ByVal _ ProcessHandle As Long, _ ByVal DesiredAccess As Long, TokenHandle As Long) As Long Private Declare Function LookupPrivilegeValue Lib "advapi32" _ Alias "LookupPrivilegeValueA" _ (ByVal lpSystemName As String, ByVal lpName As String, lpLuid _ As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32" _ (ByVal TokenHandle As Long, _ ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES _ , ByVal BufferLength As Long, _ PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long Private Sub AdjustToken() Const TOKEN_ADJUST_PRIVILEGES = &H20 Const TOKEN_QUERY = &H8 Const SE_PRIVILEGE_ENABLED = &H2 Dim hdlProcessHandle As Long Dim hdlTokenHandle As Long Dim tmpLuid As LUID Dim tkp As TOKEN_PRIVILEGES Dim tkpNewButIgnored As TOKEN_PRIVILEGES Dim lBufferNeeded As Long hdlProcessHandle = GetCurrentProcess() OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _ TOKEN_QUERY), hdlTokenHandle LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid tkp.PrivilegeCount = 1 ' One privilege to set tkp.TheLuid = tmpLuid tkp.Attributes = SE_PRIVILEGE_ENABLED AdjustTokenPrivileges hdlTokenHandle, False, _ tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded End Sub Public Sub ShutDown() AdjustToken ExitWindowsEx (EWX_SHUTDOWN), &HFFFF End Sub Public Sub ReStart() AdjustToken ExitWindowsEx (EWX_FORCE), &HFFFF End Sub Public Sub ReBooT() AdjustToken ExitWindowsEx (EWX_REBOOT), &HFFFF End Sub | |
| Pregunta: | 22530 - ERROR 713 EN TIEMPO DE EJECUCIóN |
| Autor: | Bernardo Angulo |
| Hola, tengo un gran problema, resulta que hice una aplicación, y ya que la instalo y la corro, me aparece un error como el siguiente:
Error 713 en tiempo de ejecución: Clase no registrada. Buscando objeto con CLSID:{00000010-0000-0010-8000-00AA006D2EA4} Este es un error muy parecido al que indican en la pregunta no. 3068, pero en este caso no me indicaan el nombre del archivo que no está registrado, agradecería michísimo si me pudieran ayudar. ...Ottra cosa, es que en algunas computadoras no me marca nada y funciona perfectamente la aplicación. Gracias nuevamente. | |
| Respuesta: | Marcos Rodriguez |
| hola bernardo.
seguro que hay alguna dll que no está registrada. has utilizado alguna llamada al crystal report? has probado a volver a compilar el programa? mira que aplicaciones tienen instaladas los equipos en los que te corre bien y mira cuales tienes en los que no te corre, puede ser una solución. Hasta pronto | |
| Respuesta: | Mario Campos |
| Es muy posible que al momento de la instalación no se pueda registrar esa dll o el control ocx si es que los tiene, lo que podés hacer es tratar de averiguar cuál es al dll y registrarla "manualmente" | |
| Pregunta: | 22600 - EJECUTAR ACCESO DIRECTO |
| Autor: | Norberto Soler |
| Como se hace para ejecutar desde VB un acceso directo | |
| Respuesta: | Dan Jared Gonzalez Simon |
| Para ejecutar accesos directos .lnk puedes utilizar el star.
Private Sub Ejecutar (Archivo as String) dim a as long a = Shell("Start" & Archivo) End Sub Nota. El archivo debe estar en formato corto ya sabes (C:\Archiv~1\mi.lnk y no C:\Archivos de Programas\mi.lnk) y lo bueno del Star es que puedes ejecutar cualquier otro tipo de archivos, ya que el Star se encarga de buscar el programa encargado de abrirlo. | |
| Pregunta: | 22664 - COMO CAPTURAR DATOS DE UNA CONEXION ACTIVA |
| Autor: | Gustavo Fierro |
| Hola amigos
Quisiera ver si alguno me pudiera tender una mano, estoy queriendo ver los datos que intercambian un puerto de mi maquina con otro puerto de una maquina x. El tema es que he tratado usando el winsock con VB5, pero claro el problema se presenta cuando lo tengo que abrir, ya que el puerto que yo quiero escuchar ya se encuentra abierto, ( es la conexion que mencione en un principio ). El tema es saber como puedo capturar los datos que entran y salen de un puerto especifico de mi maquina que ya se encuentra abierto. Para mas datos, estoy trabajando con VB5 Desde ya agradezco su tiempo | |
| Respuesta: | SuNcO |
| Esta pregunta es algo vieja aqui y tambien algo dificil. La solucion es Sublcasificar el Winsock que es de las cosas mas dificiles de hacer, especialmente con VB
Checate esta pagina http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=49879&lngWId=1 Y te repito.. es de las cosas mas dificiles de hacer en VB.. de hecho yo no trato de entender el codigo, solo lo utilizo y algunos cambios que le pude hacer | |
| Pregunta: | 22705 - MOVENEXT, PROBLEMA AL MOVER AL ULTIMO REGISTRO |
| Autor: | Oscar Fernandez |
| Entorno NT 4(Service pack6) V isual Basic 6(Version empresarial)
En un programa con 2 control data, enlazados a 2 tablas(dynaset) de una base de datos, fusiono datos (relacionados por un campo).Problema en el siguiente bucle: While not data1.recordset.eof \' Suma del valor del campo importe sum=data1.recordset.fields(\"CAMPO\").value suma=sum + suma data1.recordset.movenext wend El Error aparece al moverse al siguiente registro, cuando ha llegado al ultimo registro ERROR:\"La propiedad text es de solo lectura\" Espero me podais dar alguna pista, gracias por tu interes. Un saludo. | |
| Respuesta: | Agustín Dávila |
| Porque no pruebas de hacerlo de esta forma, para ver si es por el Movenext:
do \' Suma del valor del campo importe sum=data1.recordset.fields(\"CAMPO\").value suma=sum + suma data1.recordset.movenext if data1.recordset.EOF=true then exit do loop | |
| Pregunta: | 22711 - SABER EL TIEMPO DE MáQUINAS CONECTADAS A INTERNET |
| Autor: | Williams Laverde |
| Hola.
Quisiera saber como se puede controlar el tiempo de uso de Internet explorer para un ciber cafe | |
| Respuesta: | Ruben Robles |
| debes tomar la hora del servidor al cual se conectan y luego cuando se desconectan esto se hace con el winsock marcas cuando se establece la coneccion con la ip y luego la terminas cuando se corta la coneccion conla ip. | |
| |< << 182 183 184 185 186 187 188 189 190 191 192 >> >| |
