Mensajes

Hace un tiempo postee un ejemplo en el foro:

Código [Seleccionar] Expandir


'**************************************************
'
'Autor: Slasher
'
'Descripción: Este procedimiento genera claves alfabéticas
'que se pueden usar ya sea para crear un diccionario de claves
'o para crackear algo, da lo mismo. La idea es mostrar un
'algoritmo básico que genera cualquier clave alfabética de
'cualquier cantidad de dígitos.
'
'Con un par de lineas más de puede hacer que genere claves
'alfanuméricas, pero les dejo eso para que usen un poco de
'su imaginación ;)
'
'**************************************************

Option Explicit
Option Base 1

Sub KeyGen(NumChar As Integer, Optional StartData As String)
          Dim btChar() As Byte
          Dim iCnt%
          Dim sKey$
          Dim i%

  ReDim btChar(NumChar) As Byte

  For i = 1 To NumChar
    If Len(StartData) >= NumChar Then
      'Establece la clave inicial.
      '
      btChar(i) = Asc(Mid$(StartData, i, 1))
    Else
      'Comienza desde la A hasta la Z
      '
      btChar(i) = vbKeyA
    End If
  Next

  Do
    'Incrementa el último caracter.
    '
    btChar(NumChar) = btChar(NumChar) + 1

    'Copia la clave a un string.
    '
    For i = NumChar To 1 Step -1
      sKey = Chr$(btChar(i)) & sKey
    Next

    If btChar(NumChar) = vbKeyZ Then

      'Si el último caracter llega a la Z el programa
      'aumenta en uno el anterior. Y asi con todos
      'los caracteres de la clave.
      '
      For i = NumChar To 1 Step -1
        If btChar(i) = vbKeyZ Then
          If i > 1 Then
            btChar(i - 1) = btChar(i - 1) + 1
          End If
         
          iCnt = iCnt + 1
         
          btChar(i) = vbKeyA
        End If
      Next
     
    End If
   
    'Realizar tareas con la clave generada.
    '
    '
    '

   
    If iCnt = NumChar Then Exit Do
   
    sKey = vbNullString
    iCnt = 0
  Loop

End Sub


Usa la función Format para eso.

Código [Seleccionar] Expandir


            Dim dResult#, dNumber#
            Dim dPercent#

  dNumber = 1000 'Número ingresado.
  dPercent = 15 '15% (quince por ciento)
  dResult = (dPercent*dNumber)/100

  txtPercent.Text = FormatPercent$(dResult, 3)


Saludos.

Se puede utilizando la función GetWindowText. Primero se busca en hWnd de la ventana (la lista desplegable) utilizando FindWindow y especificando el nombre de clase (no recuerdo bien cual era el nombre de la clase de la ventana).

Utiliza un visor de recursos para ver cual es el nombre de la clase de la ventana y asi poder utilizar este nombre en la llamada a FindWindow.

Saludos.

Gracias BADBYTE-K, yo no lo querìa instalar por eso y aunque no me gusta .NET ya me bajè el còdigo .

Saludos.

Si usas CreateFileMapping y MapViewOfFile para inyectar código en asm en la memoria compartida y luego le pasas a la función SetTimer el puntero al código se quedará ejecutando aunque el proceso haya terminado, en VB todavía no consigo controlar las exepciones pero funciona.

El problema es que las excepciones se las pasa al sistema operativo y kernel32 produce un error y se cierra 

Saludos.

[Generar números pseudo-aleatorios]

Generar números pseudo-aleatorios

http://docs.python.org/lib/module-random.html

Conjunto de caracteres

La mayoría de funciones que usan cadenas en Windows NT/2000/XP se suministran en dos versiones: una para caracteres ANSI y otra para caracteres Unicode. Las funciones para ANSI tienen el sufijo "A", mientras que las funciones para Unicode tienen el sufijo "W". Podemos resolver este problema de dos maneras:

    * Declarar el nombre de la función con un sufijo.
    * Usar el parámetro CharSet en el atributo DllImport, una salida más elegante.

Veamos cómo quedan las declaraciones ahora:

[DllImport("Advapi32.dll", EntryPoint="GetUserName", CharSet=CharSet.Unicode)]

unsafe private static extern bool GetUserNameW(char * lpBuffer, int * nSize);
[DllImport("Advapi32.dll", EntryPoint="GetUserName", CharSet=CharSet.Ansi)]

unsafe private static extern bool GetUserNameA(sbyte * lpBuffer, int * nSize);

Observe que los tipos entregados varían según se use la versión para ANSI o Unicode:

    * "sbyte *" en las versiones para ANSI
    * "char *" en las versiones para Unicode

Fuente: MSDN Library
http://www.microsoft.com/spanish/msdn/comunidad/mtj.net/voices/art77.asp

Eso es problema de la conexión, es probable que hayas intentado abrir una conexión con el método Open que todavía no está cerrada usando el método Close del WinSock.

Saludos.

Si estás usando funciones de la API fijate que le pasas bien los argumentos y sobre todo en el caso que sean Strings, no creo que sea problema del compilador sino de programación.

Cuando pases los strings a las funciones de la API SIEMPRE pasalos como ByVal a menos que sea un caso especial, porque las variables de tipo String de VB utilizan un tipo de datos de automatización denominados BSTR y las funciones de la API trabajan con LPSTR.

Las Variables BSTR en realidad son un puntero a una cadena Unicode terminada en dos caracteres nulos, cuyos 4 bytes anteriores al inicio de la cadena indican la longitud de la cadena unicode.

En el caso de los LPSTR es simplemente una cadena ANSI terminada en un caracter nulo.

Cuando pasas una cadena como ByVal VB lo que pasa es el valor y no el puntero, es decir que va a ser una cadena terminada en nulo y por lo tanto van a ser compatibles los dos tipos, pero si la pasas mal o no te das cuenta vas a sobreescribir el puntero a la cadena y anda a saber qué memoria modificas, por eso se cierra el VB.


En todo caso si sigue dando problemas y no es por llamadas a la API (que es muy probable) reinstala VB.

Saludos.

shutdown sólo funciona en WinXp, usa la función SHExitWindows o ExitWindowsEx de la API.

Saludos.