Mensajes

Editor hexadecimal (WinHex), buscas la cadena en Unicode y la cambias. Nunca va a poder ser mayor que la que ya existe sino vas a tener que modificar el código y es más dificil.

Saludos.

El siguiente código tiene 3 modalidades de ordenar las letras, ascendente, descendente y aleatorio.

Código [Seleccionar] Expandir


Option Explicit
Option Base 1

Const SORT_ASC = 1
Const SORT_DES = 2
Const SORT_RAND = 3

Function SortAbc(SortMode As Integer) As String
        Dim iChar() As Byte
        Dim bExist  As Boolean
        Dim i%, ind%, iRnd%
        Dim sData$

  ReDim Preserve iChar(0 To (vbKeyZ - vbKeyA)) As Byte

  Call Randomize(vbKeyZ)

  For i = vbKeyA To vbKeyZ
    Select Case SortMode
      Case SORT_DES
        sData = sData & Chr$((vbKeyZ - i) + vbKeyA)
      Case SORT_ASC
        sData = sData & Chr$(i)
      Case SORT_RAND
NewNum:
        iRnd = Rnd * vbKeyZ
       
        If iRnd < vbKeyA Then GoTo NewNum
       
        For ind = 1 To (vbKeyZ - vbKeyA)
          If iChar(ind) = iRnd Then
            bExist = True
            Exit For
          End If
        Next
       
        If ind >= 25 Then bExist = False
       
        If bExist Then GoTo NewNum
       
        iChar(i - vbKeyA) = iRnd
        sData = sData & Chr$(iChar(i - vbKeyA))
       
    End Select
  Next

  SortAbc = sData
End Function


Saludos.

EDIT: Sólo funciona en VB6 porque .NET no acepta los GoTo.

[Duda con forms.]

Duda con forms.
Fondo transparente

Saludos.

Código [Seleccionar] Expandir


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = vbShiftMask Then
    'Si está presionada la tecla shift.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  Else
    'Lo que haría con la misma tecla si Shift no está presionado.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  End If


Saludos.

Código [Seleccionar] Expandir


Function MakeName() As String
  MakeName = "TM" & Hex$(Timer) & ".TMP"
End Function


Saludos.

mi pc->panel de control->agregar o quitar programas->emule
luego boton "agregar o quitar"->"siguiente, siguiente, finalizar"

espero que te sirva , saludos.

Se supone que este foro es Programación...

Vb no tiene limitaciones, a no ser que sea algu muy bajo a nivel sistema como parámetros de memoria, manipular exe, cluseter etc...
Para todo lo demás están las apis de widnows 

Eso si se puede hacer y sin mucho lío, es más fácil que usar el USB porque DeviceIoControl se comunica directamente con los controladores.

pedronets: hay formas y formas de preguntar las cosas, luego si no te responden no te quejes.

Hay que infectar las tablas ARP... no es imposible pero tampoco tan fácil. Si miras el código de Nemesis te va a ayudar mucho, pero sabiendo sólo VB no creo que puedas hacer mucho, necesitas saber C y sobre el encaminamiento IP.

Saludos.

[Listar procesos, subprocesos y ventanas]

Una función que monitoree los procesos y tenga los nombres de los procesos restringidos, cuando se ejecute el proceso lo eliminas con TerminateProcess.

Puse un ejemplo de esto en el foro, mira la recopilación de post interesantes: Listar procesos, subprocesos y ventanas

Saludos.

Código [Seleccionar] Expandir


Call AppActivate("Título de la ventana")


AppActivate lo que hace es activar un programa mediante el título de su ventana principal.

No es muy recomendable, mejor es usar la función FindWindow y luego ShowWindow.

Saludos.