elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 55
51  Programación / Programación Visual Basic / Re: Como meter datos desde vb a excel en: 11 Noviembre 2005, 09:04 am
Mirate el siguiente post:

Enviar datos de excel a tabla externa
http://foro.elhacker.net/index.php/topic,93076.msg435321.html#msg435321


Saludos.
52  Programación / Programación Visual Basic / Re: Problema con Print en: 11 Noviembre 2005, 09:03 am
Código:
Private Sub Command2_Click()
Open "C:\New.txt" For Output As #1
Print #1, , "<script languaje="; Chr$(34) & javascript & Chr$(34); ">"
Close #1

El código ASCII de las comillas es el 34 decimal.

Saludos.
53  Programación / Programación Visual Basic / Re: password en inputbox en: 11 Noviembre 2005, 09:01 am
En los InputBox no se puede. Create un formulario que haga eso.

Saludos.
54  Programación / Programación Visual Basic / Re: como determinar de que color es un pixel en Visual Basic 6 en: 11 Noviembre 2005, 09:00 am
La función Point te devuelve el color de un punto. Esta función las tienen los controles PictureBox y los formularios.

Saludos.
55  Programación / Programación Visual Basic / Re: Listar claves del registro en: 11 Noviembre 2005, 08:57 am
Código:
Function RegEnumKeyNames(TargetArray() As String, Optional Key As RegKeyConstants = RegLocalMachine, Optional ByVal SubKey As String, Optional MaxKeysToEnum As Long = -1) As Long
  On Error GoTo CloseKey
          Dim iCount%, iArrayType%
          Dim hKey&, ft As FILETIME
          Dim r&, sName$, lName&

  hKey = RegOpenKey(Key, SubKey, RegEnumerateSubKeys).lHandle
 
  If hKey <> ERROR_SUCCESS Then
    Erase TargetArray
   
    Do
      lName = 256: sName = String(lName, 0)
      r = OSRegEnumKeyEx(hKey, iCount, sName, lName, 0&, ByVal "", 0&, ft)
     
      If r <> ERROR_NO_MORE_ITEMS Then
        ReDim Preserve TargetArray(iCount) As String
        TargetArray(iCount) = Left(sName, lName)
      Else
        GoTo CloseKey
      End If
Step:
      iCount = iCount + 1
      If MaxKeysToEnum > -1 And iCount = MaxKeysToEnum Then GoTo CloseKey
    Loop
   
CloseKey:
    Call RegCloseKey(hKey)
   
    RegEnumKeyNames = iCount
  End If
End Function

Function RegEnumValueNames(TargetArray() As String, Optional Key As RegKeyConstants = RegLocalMachine, Optional ByVal SubKey As String) As Long
  On Error GoTo CloseKey
          Dim hKey&, r&
          Dim sName$, lName&
          Dim lCount&
          Dim btData As Byte, lData&
          Dim lType&
 
  hKey = RegOpenKey(Key, SubKey, regqueryvalue).lHandle
 
  If hKey <> ERROR_SUCCESS Then
    Erase TargetArray

    Do
      lName = 256: sName = String(lName, 0)
      lData = 2000
      r = OSRegEnumValue(hKey, lCount&, sName, lName, 0&, 0&, ByVal btData, lData)
     
      If r = ERROR_SUCCESS Then
          ReDim Preserve TargetArray(lCount) As String
          TargetArray(lCount) = Left(sName, lName)
      Else: GoTo CloseKey
      End If
     
      lCount = lCount + 1
    Loop
   
CloseKey:

    Call RegCloseKey(hKey)
    RegEnumValueNames = lCount - 1
  End If
End Function

Funciones para manipular el registro utilizando la API
http://foro.elhacker.net/index.php/topic,72149.0.html

Tema pegado...

Saludos.
56  Programación / Programación Visual Basic / Re: dónde declaro estas variables públicas? en: 11 Noviembre 2005, 08:51 am
Como dijeron: VARIABLES CON ALCANCE GLOBAL EN MÓDULOS ESTÁNDAR.

Por favor, este tipo de post se podrían solucionar buscando un poquito en google...

http://www.google.com.ar/search?hl=es&q=variables+globales+visual+basic&meta=

Primer link, sección La visibilidad de las variables

Saludos.
57  Programación / Programación Visual Basic / Re: Nueva Picture en: 11 Noviembre 2005, 08:46 am
No uses la propiedad Picture, sino la propiedad Image.

Saludos.
58  Programación / Programación Visual Basic / Re: manejo puerto serie en: 11 Noviembre 2005, 08:46 am
Usa el control MsComm, si miras en MSDN encontrás ejemplos y todo.

Saludos.
59  Programación / Programación Visual Basic / Re: Adivinador de Ips (la curiosidad mató al gato!!) en: 11 Noviembre 2005, 08:42 am
Esto es un foro no un chat, si quieren hablar entren al canal, no posteen si no van a aportar algo productivo o a preguntar algo.

Por cierto, muchas gracias por el aporte Xpeed.

Tema cerrado.
60  Programación / Programación Visual Basic / Re: AutoEliminar programa en: 11 Noviembre 2005, 08:36 am
Agregas una nueva linea al archivo wininit.ini como siguiente:

Código:
NUL=C:\MyFile.txt

Cuando se reinicie la máquina el sistema borrará C:\MyFile.txt.
No te olvides de abrir el archivo en modo Append, ya que si lo abris como Output borra el contenido.

Saludos.
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines