Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Temas - hunter18

#46
1ero para que una empresa utilize el "EAN 13" necesita estar registrado en alguna entidad?

Una vez generado el codigo de barra como las imprimo en que papel o acaso mediante una imprenta por que por ahi leí que ofrecian  por la compra de un lector de codigo de barras un software para crear e imprimir etiquetas(osea hacerlo uno mismo).

Por otro lado donde descargo el codigo fuente de "code 128" para vb6.0
#47
Quisiera saber el pais desde donde me han enviado un correo hotmail, como puedo saber este dato, seguro que por medio de la ip en tal como veo la ip y como lo relaciono con el pais de procedencia, es urgente, espero que se pueda.

#48
Quisiera saber el pais desde donde me han enviado un correo hotmail, como puedo saber este dato, seguro que por medio de la ip en tal como veo la ip y como lo relaciono con el pais de procedencia, es urgente, espero que se pueda, saludos
#49
Hace años que no toco javascript ni php y necesito algo pequeño y me falta validar mi form.

Quiero que si tiene menos de 8 caracteres diga "error,menor a 8"
Si esta en blanco diga "Ingrese su codigo"
Que solo acepte numeros

Tampoco recuerdo como hacer para que no vaya a insertar_datos.php cuando salgan los errores, espero su ayuda.


<html>
<head></head>
<body>
<script language="javascript" type="text/javascript">
function valida_envia(){
   //valido el nombre
   if (document.form1.titulo.value.length==0){
      alert("Tiene que escribir su codigo")
      document.form1.titulo.focus()
      return 0;
   }

}
</script>
<form name="form1" action="insertar_datos.php">
codigo:<br><input type="text" name="titulo" maxlength="8"><br>
<input type="submit" value="Enviar" onclick="valida_envia()">
</form>

</body>
</html>
#50
He probado varias versiones de Hiren's BootCD y nunca funcioan todos los programas a veces dice que no encuentra una dll como comctl32 o simplemente me manda algun error de los propios programas incluidos, he perdido varios CD's y nunca me funciona al 100% al menos en windowsXP sp2 que es donde los he probado.

A que se debe esto?
#51
Es posible hacerlo o no?, de esta forma no funciona.

WebBrowser1.Navigate = "d:\pagina.html"
#52
Existe algun programa que me diga el nombre de una cancion que suene por los parlantes ya sea del winamp, reproductor windows, lectora, etc, etc.
#53
Como ver los temas que he empezado y reposdido en foro.elhacker.net
#54
Software / Cambiar theme en Officce 2007
12 Septiembre 2010, 03:29 AM
Tengo el Office 2007 y todos los programas word, excel, powerpoint, etc me salen con el tema celeste el cual me molesta bastante la vista como hago para cambiarlo a negro, plomo u otro por que ese de color celeste me limita bastante.
#55
Como veo la marca, version, nombre, etc de la tarjeta de sonido
#56
Hardware / Saber el nombre de una tarjeta de sonido
9 Septiembre 2010, 07:09 AM
Tengo que reparar una pc que perdio el sonido al parecer le borraron el codec de sonido ya que aparece con signo de interogacion amarillo en el admin. de dispositivos.

Ahora como veo la marca de la tarjeta de sonido de dicha pc para buscarle su codec.


[color=red]Por otro lado no doy con el nombre exacto y modelo de mi propia tarjeta de sonido:[/color]
1.-Al colocar dxdiag en ejecutar me dice que es Audio WDM de Crystal
2.-Desde speccy1.03 me dice Tarjeta de sonido:Códec de audio Crystal WDM
3.-Con everest en Multimedia/Audio PCI|PnP dice Crystal PnP Audio System CODEC,Crystal PnP Audio System Control Registers,Crystal PnP Audio System Joystick,Crystal PnP Audio System MPU-401.

[color=red]Cual es el nombre de la tarjeta por que estoy hecho bolas[/color]

#57
Ha tiempo utilizaba save flash pero utilizaba ie6, ahora tengo opera10.61 y no encuentro algun plugin.

Hay algun programa que grabe los archivos .swf de internet pero desde el escritorio pasando la url o algo por estilo.
#58
Hola al empaquetar mi aplicacion con el paquete del mismo vb6.0 solo toma los runtime de vb6.0 y no la dll del webbrowser que estoy utilizando es decir el shdocvw.dll, acaso no es necesario que se incluya en el paquete de instalacion?, aparte de esa dll debo empaquetar otra que tenga dependencia con el shdocvw.dll y no tiene dependencia con otras dll.
#59
Cuando ingreso a windows y pide password para ingresar como usuario aparece un lista de los correos hotmail que se han abierto en el equipo y la cantidad de mensajes de cada cuenta hotmail es decir en algun lugar se que guardada dicha informacion.

Como accedo a esa informacion para visualizarla y modificarla o eliminarla.

Tambien como hago para quitar dicha pantalla ya que solo tengo un solo usuario "yo" e ingresar directamente.
#60
Dejo una imagen, he probado con ie6 y se ve bien.
#61
Quiero mostrar una pagina en un webbrowser y desde un boton llamar a un link que se encuentra en dicha web.
#62
He buscado y solo encuentro ejemplos donde me dan la ip de la red local por ejemplo el 192.168.1.35 y yo quiero saber la ip con la que me conecto a internet las que salen p.e 190.232.8.41 igual a como lo hace http://midireccionip.com/
#63
Tengo un codigo en la cual le coloco las coordenas x e y pero toma toda la pantalla para posicionar el puntero, como podria hacer para que tome las coordenadas pero del formulario y no de toda la pantalla.

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
SetCursorPos 100, 150
End Sub

#64
Asumo que estoy dentro de una red local ya que la señal a internet llega a un router(no se la marca pero debe ser zyxel).
Ahora desde dicho router se envian la conexion a internet a 4 computadores, existe posibilidad de que accedan a los archivos de mi computador, esa es toda la info que tengo.

Por ultimo se considera a esto una red local?

Muevan el mensaje al foro de redes por favor.
#65
Quisiera autoclickear desde un boton en un punto especifico de un webborser por ejemplo top=120 left=240, despues de hacerlo desde un boton puedo hacerlo mediante un timer para automatizar el proceso y no depender del boton.

#66
Siempre he instalado mi CD de windowsXP sp2 y nunca he hecho actualizaciones por que cuando lo hacia la makina me quedaba lenta y nunca se actualiza.

Ahora he bajado un cd de internet y quiero saber como funciona eso de los seriales de oro y que pasa si mi serial es normal y no de oro.

Acaso al actualizar xp sp2 windows hace algun tipo de identificacion de serial y bloquea el s.o o simplemente te envia mensajes a cada rato, como es este asunto, asumo que en xp sp3 si ocurre lo que menciono ya que viene actualizado, para evitar esto es el serial de oro?
#67
He probado enviando a d.o.s el comando ipconfig /release con la funcion shell y funciona pero desde el messenger con la opcion reparar se vuelve a conectar la señal, asi que no funciona del todo.

Quiero hacer lo mismo que en la imagen pero desde vb6 ó D.O.S es decir activar o desactivar la conexion, es la unica forma que me sirve al 100% pero no se como lograrlo, he probado un par de codigos y no me han funcionado
#68
Con programas de inspeccion como speccy, hwinfo, no recuerdo si probe con everest me dan los datos internos como el modelo de la placa, cpu, etc pero no el modelo del computador por ejemplo
"Compaq Presario CQ5500F Desktop PC"
#69
Necesito los driver para Placa base Compaq 07E8h (XU1 PROCESSOR) ya que tengo una pc que no tiene internet y segun vi falta el driver de "controladora ethernet" por que esta amarillo y con signo de interrogacion, abri el case y esta integrado en la placa.

Especificaciones:
Placa base
   Fabricante   Compaq
   Modelo   07E8h
   Proveedor del chipset   Intel
   Modelo del chipset   i845G
   Revisión del chipset   A1
   Proveedor del southbridge   Intel
   Modelo del southbridge   82801DB (ICH4)
   Revisión del southbridge   01
   BIOS
   Marca   Compaq
   Versión   686O2 v2.14
   Fecha   08/15/2002

#70
Tengo el cd de windows XP sp2 y creo que este no reconoce conectores SATA, que puedo hacer con respecto a esto ya que solo tengo los driver de video, placa
#71
No soy tecnico asi que tengan paciencia.

Tengo que areglar una pc malograma por virus(fotmatiar e instalar), pero no se que version de windows tenia dicha computadora si XP, vista o seven, como hago para saber eso si no puedo ingresar de ninguna manera al sistema.

Tengo el HirenBootCD10.6 no se si con eso se podria saber lo que necesito, aunque al correr el MINIxp siempre me va a decir que tiene instalado el windowsXP.

Logicamente tengo que instalar el mismo sistema operativo que tenia antes y el dueño no sabe.

saludos
#72
Foro Libre / Recuperar login de red social
5 Agosto 2010, 04:11 AM
Hace tiempo tenia una cuenta hi5 "Juan Perez 01" la cual queria eliminar y como no pude cree un correo hotmail que no recuerdo y se lo asigne a dicho hi5 para que ya no aparezca mi direccion de correo en hi5.

Ahora quiero recuperar esa cuenta hi5 la cual no esta eliminada y se la contraseña pero no recuerdo el nombre del correo ya que lo cree hace tiempo y no lo recuerdo, es posible hacer algo?

Nota, mi hermano me tiene como amigo en dicho hi5 y puede enviarle mensajes y todo lo demas(logicamente nadie va a responder por que soy el dueño) pero el hecho es que aparece como "Juan Perez 01", es posible desde esta cuenta ver el correo?
#73
Hace timepo vi una clase o un modulo no recuerdo bien pero lo que quiero es guardar la imagen de un picture en un archivo jpg ya que estos pesan menos que los bmp.

SavePicture Picture1.Picture, "C:\imagen.bmp"
#74
Quiero capturar la imagen de la pantalla como si presionara la tecla "ImpPant" pero a diferencia de esta me capture la imagen de video ya sea de reproductor de windows, de algun video de youtube o camara web y no me muestre un cuadro negro.

He probado varios ejemplos y links que me han dado pero no he podido hacerlo, haber si alguien puede ayudarme, saludos
#75
Al descargar HirenBootCD 10.5 o 10.6 el NOD32 me detecta el mencionado virus saben algo al respecto.
http://www.hirensbootcd.net/download.html?ver=10.5

#76
Que se debe hacer cuando windows no inicia por ningun motivo y si lo hace se cuelga o se apaga despues de unos segundos, como recuperar los drivers ya sea en xp, vista y/o seven?
#77
Por ejemplo el color de la flecha para desplegar la lista de un Datacombo es negro con fondo crema(&HD8E9EC) se puede cambiar esos colores con algun  programa ya se la flecha que creo es una imagen o el fondo, algo asi como el reshacker
#78
Tenia un keylogger compilado desde hace tiempo y ahora los antivirus lo detectan como virus, troyano o lo que fuese.

Ahora le he cambiado los nombres internos de .exe y al compilarlo desde visual basic, empieza a generar el .exe y luego desaparece sin dejar rastro a pesar de que tengo desactivado el antivirus y que tambien le he cambiado el nombre antes de realizar la compilacion a que se debe esto.

Tengo el NOD32 actualizado y desactivado, supongo que los demas antivirus ya lo detectan tambien.
#79
He utilizado diferentes contraseñas con simbolos numero letras y el "Advanced office password recovery" siempre encuentra la contraseña en segundos.

Existe alguna manera de proteger un archivo mdb sin comprimirlo con winrar?
#80
Tengo una placa PCCHIPS M756 LMRT y al buscar los drivers me dice que falta dicho controlador y creo que por ahi no va el tema sino que hay que configurar algo.

Segun veo con el siv necesito esto PCI to Host bridge ó SIS630 CPU to PCI bridge, espero puedan ayudar ya que debido a eso no tengo conexion a internet, he buscado por todos lados y encontrado un par de soluciones pero no sirvieron, a es una P3
#81
En algunas computadoras no siempre utilizan la unidad C:/ para instalar windows que funcion o api de vb6 me puede ayudar a detectar en que unidad se encuetra el sistema operativo.
#82
He buscado por el foro pero no encuentro nada concreto o no he sabido buscar, alguien puede darme unos link's donde se haya tratado este tema, gracias.
#83
Acabo de conocer el foro y estan interesantes todos los temas y el contenido en general.
Como se lee el codigo nativo por ejemplo de un programa clásico desarrollado con vb6 y decompilado con vbDecompiler?

Soy novato y me gustaria aprender algunas cosas.

#84
Encontre un codigo que funciona bien pero cuando la sentencia SQL del recordset esta agrupado son SHAPE, APPEND y RELATE no funciona y solo exporta los encabezados, he probado de varias formas pero no doy con la solucion!!


Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection

Private Sub Command1_Click()

sSQL = "SHAPE {SELECT codcat,nomcat FROM categoria} AS CABECERA " & _
"APPEND ({SELECT codprod,nomprod,codcat FROM producto} AS DETALLE " & _
"RELATE codcat TO codcat) AS DETALLE"

rs.StayInSync = False
cn.Open "Provider=MSDataShape.1;Extended Properties=Jet OLEDB:Database Password=;Persist Security Info=False;Data Source=" & App.Path & "\bd_01.mdb;Data Provider=MICROSOFT.JET.OLEDB.4.0"
     
rs.Open sSQL, cn

Set MSHFlexGrid1.DataSource = rs

End Sub

Private Sub Command2_Click()
Call Exportar_Excel(rs)
End Sub



Public Function Exportar_Excel(rec As Recordset) As Boolean
    On Error GoTo errSub
    Dim Excel       As Object
    Dim Libro       As Object
    Dim Hoja        As Object
    Dim arrData     As Variant
    Dim iRec        As Long
    Dim iCol        As Integer
    Dim iRow        As Integer
       
    'Me.Enabled = False
    Screen.MousePointer = 11
    ' -- Crear los objetos para utilizar el Excel
    Set Excel = CreateObject("Excel.Application")
    Set Libro = Excel.Workbooks.Add
       
    ' -- Hacer referencia a la hoja
    Set Hoja = Libro.Worksheets(1)
       
    Excel.Visible = True: Excel.UserControl = True
    iCol = rec.Fields.Count
    For iCol = 1 To rec.Fields.Count
        Hoja.Cells(1, iCol).Value = rec.Fields(iCol - 1).Name
    Next
       
    If Val(Mid(Excel.Version, 1, InStr(1, Excel.Version, ".") - 1)) > 8 Then
        Hoja.Cells(2, 1).CopyFromRecordset rec
    Else
 
        arrData = rec.GetRows
 
        iRec = UBound(arrData, 2) + 1
           
        For iCol = 0 To rec.Fields.Count - 1
            For iRow = 0 To iRec - 1
 
                If IsDate(arrData(iCol, iRow)) Then
                    arrData(iCol, iRow) = Format(arrData(iCol, iRow))
 
                ElseIf IsArray(arrData(iCol, iRow)) Then
                    arrData(iCol, iRow) = "Array Field"
                End If
            Next iRow
        Next iCol
               
        ' -- Traspasa los datos a la hoja de Excel
        Hoja.Cells(2, 1).Resize(iRec, rec.Fields.Count).Value = GetData(arrData)
    End If
    Excel.Selection.CurrentRegion.Columns.AutoFit
    Excel.Selection.CurrentRegion.Rows.AutoFit
   
    'Hoja.Name = ""
    'Libro.saveAs App.Path & "\libro"
    'Libro.Close
    ' -- Elimina las referencias xls
    Set Hoja = Nothing
    Set Libro = Nothing
    'Excel.quit
    Set Excel = Nothing
       
    Exportar_Excel = True
    'Me.Enabled = True
    Screen.MousePointer = 0
    Exit Function
errSub:
    MsgBox Err.Description, vbCritical, "Error"
    Exportar_Excel = False
    'Me.Enabled = True
    Screen.MousePointer = 0
End Function
 
Private Function GetData(vValue As Variant) As Variant
    Dim X As Long, Y As Long, xMax As Long, yMax As Long, T As Variant
       
    xMax = UBound(vValue, 2): yMax = UBound(vValue, 1)
       
    ReDim T(xMax, yMax)
    For X = 0 To xMax
        For Y = 0 To yMax
            T(X, Y) = vValue(Y, X)
        Next Y
    Next X
       
    GetData = T
End Function



Adjunto el proyecto
http://www.megaupload.com/?d=03AHEE2U
#85
Tengo un codigo y funciona bien pero cuando el MSHFlexgrid1 tiene agrupaciones como en la imagen solo me imprime los encabezados Procesadores, Monitores, Televisores que pertenecen a la tabla categoria.




Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection

Private Sub Command1_Click()

sSQL = "SHAPE {SELECT codcat,nomcat FROM categoria} AS CABECERA " & _
"APPEND ({SELECT codprod,nomprod,codcat FROM producto} AS DETALLE " & _
"RELATE codcat TO codcat) AS DETALLE"

rs.StayInSync = False
'cn.Open "Provider=MSDataShape.1;Extended Properties=Jet OLEDB:Database Password=;Persist Security Info=False;Data Source=c:\bd_01.mdb;Data Provider=MICROSOFT.JET.OLEDB.4.0"
cn.Open "Provider=MSDataShape.1;Extended Properties=Jet OLEDB:Database Password=;Persist Security Info=False;Data Source=" & App.Path & "\bd_01.mdb;Data Provider=MICROSOFT.JET.OLEDB.4.0"
   
rs.Open sSQL, cn

Set MSHFlexGrid1.DataSource = rs

End Sub



Private Sub Command2_Click()
Call Exportar_HFlexgrid(App.Path & "\excel1.xls", MSHFlexGrid1)
End Sub


' -------------------------------------------------------------------------------------------
' \\ -- Función para crear un nuevo libro con el contenido del Grid
' -------------------------------------------------------------------------------------------
Public Function Exportar_HFlexgrid(sOutputPath As String, FlexGrid As Object) As Boolean
 
   On Error GoTo Error_Handler
 
   Dim o_Excel     As Object
   Dim o_Libro     As Object
   Dim o_Hoja      As Object
   Dim Fila        As Long
   Dim Columna     As Long
     
   ' -- Crea el objeto Excel, el objeto workBook y el objeto sheet
   Set o_Excel = CreateObject("Excel.Application")
   Set o_Libro = o_Excel.Workbooks.Add
   Set o_Hoja = o_Libro.Worksheets.Add
     
   ' -- Bucle para Exportar los datos
   With FlexGrid
       For Fila = 1 To .Rows - 1
           For Columna = 0 To .Cols - 1
               o_Hoja.Cells(Fila, Columna + 1).Value = .TextMatrix(Fila, Columna)
           Next
       Next
   End With
   o_Libro.Close True, sOutputPath
   ' -- Cerrar Excel
   o_Excel.Quit
   ' -- Terminar instancias
   Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
   Exportar_HFlexgrid = True
Exit Function
 
' -- Controlador de Errores
Error_Handler:
   ' -- Cierra la hoja y el la aplicación Excel
   If Not o_Libro Is Nothing Then: o_Libro.Close False
   If Not o_Excel Is Nothing Then: o_Excel.Quit
   Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
   If Err.Number <> 1004 Then MsgBox Err.Description, vbCritical
End Function
' -------------------------------------------------------------------
' \\ -- Eliminar objetos para liberar recursos
' -------------------------------------------------------------------
Private Sub ReleaseObjects(o_Excel As Object, o_Libro As Object, o_Hoja As Object)
   If Not o_Excel Is Nothing Then Set o_Excel = Nothing
   If Not o_Libro Is Nothing Then Set o_Libro = Nothing
   If Not o_Hoja Is Nothing Then Set o_Hoja = Nothing
End Sub