Bajo la regla de que dos apps no pueden usar el mismo puerto al mismo momento se me ocurre algo muuuuuuy bol** pero que capas que anda.

pon algo a andar en el puerto que quieras
un winsock que se mande 1 de data para aca y para alla

ocupa el puerto y clin caja.

Los lectores de codigo de barras usan un barrido laser medio raro

Puede ser cualquier papel mientras que no sea ojo o amarillo.

 

Al fin me sirvio de algo prestar atencion en la esc

dejame ver si entiendo.

Supongamos que de las 13 variable son del
Variable (0)
Variable (1)
....
Variable (12)
(el 0 cuenta y son 13)

Dim Variable () as string
Dim Numero as integer
 
Numero = (12 - 0 + 1) * Rnd + 0
' Si mal no recuerdo era el mayor - el menor + uno * RND + el menor.
 
txtMuestroresultado.text = Variable(Numero)

Puede tener algun error de sintaxis porque lo escribi aca directamente y no en el visual basic >.<

Hola
Este es un tutorial para que aprendan como corno hacer andar musica .XM en VB6.0

Despues de comerme el coco buscando encontre algo.
Aca lo plasmo.

Primero.
Que corno es musica Xm, musica de trackers o chiptunes?

Ok esto en español significa la musiquita que sonaba en los jueguitos de family.

Cual es la ventaja de esta musica?
mientras que un mp3 de 5 min te puede pesar un par de megas aca podes poner 20 minutos de musica y pesa medio mega, ademas podes ponerlo en ciclo y escucharlo 500 veces y ni te das cuenta.

Donde encuentro musica asi?
Suele estar en los keygens pero como aca somos toodos legales      nunca vimos un keygen.
Podes bajarte las canciones de aca: http://www.keygenmusic.net/?lang=es

Ok. Empezemos.

Nos descargamos lo siguiente:
uFMOD --> http://ufmod.sourceforge.net/
Resource Hacker --> http://www.angusj.com/resourcehacker/
Una cancion .xm (Esta me gusto a mi, sino busquen mas en keygenmusic.net) http://www.keygenmusic.net/music/at4re/AT4RE-MultiPasswordRecovery1.0.5crk.rar

Descomprimimos uFMOD y vamos a ver multitud de cosas >.<
En la carpeta VisualBasic6.0 va a haber otra carpeta llamada Readme y adentro de esa otra mas llamada VB98
Copiamos el LINK.exe de esa carpeta (si la tienen clara en C pueden leer el codigo fuente que viene incluido)

Nos vamos a la carpeta adonde esta instalado visual basic 6.0 (en mi caso: C:\Program Files\Microsoft Visual Studio\VB98)
Buscamos el archivo LINK.exe original Y LE CAMBIAMOS EL NOMBRE A LNK.EXE (IMPORTANTISIMO ESTE PASO O CAGAN TODO VB!)
Una vez renombrado lnk.exe pegamos el nuevo LINK.exe

Creamos un nuevo proyecto en Visual basic.
Si no lo hicimos nunca en nuestra vida tenemos que agregar el componente de editor de recursos vb
Esto esta en Complementos -> Aministrador de complementos ( En ingles: Add-Ins > Add-In Manager.). Ahi buscamos "VB Resource Editor" y marcamos las casillas que dicen "Cargado/Descargado" y "Cargar al Iniciar"

ES NECESARIO REINICIAR VISUAL BASIC DESPUES DE ESTO!

Ahora creamos un nuevo archivo .res
(ni idea como se hace esto, yo cree un documento txt y le cambie la extensión a res >.<)

Lo abrimos con el Resource Hacker.
Vamos a Action-> Add a new resource y abrimos el tema xm que quisieramos.
En las opciones ponemos 10 en la primera y en la segunda lo que queramos (En este ejemplo voy a usar 101)
Guardamos y salimos.

Ahora vamos a la carpeta adonde tenemos el proyecto de visual basic y copiamos:
--> El archivo Res que acabamos de crear.
--> El Archivo .xm de la musica
Los siguientes archivos estan en el archivo rar uFMOD en la carpeta VisualBasic6/WINMM o Visualbasic6/DirectX Segun corresponda
--> Los archivos uF_vb.bas (para WINMM) o  DSuF_vb.bas (DirectX)
--> Los archivos ufmod.lib   (para  WINMM)  o   dsufmod.lib  (DirectX)

MUY IMPORTANTE QUE NO CAMBIEMOS NAAAAAADA DE ESTOS ARCHIVOS. NI SIQUIERA EL NOMBRE

Abrimos nuestro proyecto en visual basic y añadimos uF_vb.bas o DSuF_vb.bas (segun corresponda) y nuestro archivo RES.

Ahora los codigos:
Para que empieze a sonar es esto:

uFMOD_PlaySong 101, 0, XM_RESOURCE

101 Es el nombre del recurso que dije mas arriba

y para que pare es asi:

uFMOD_PlaySong 0, 0, 0

Ya le diste al f5??
JAJAJA
No funciona adentro del IDE de visual basic.
Compilalo a CODIGO NATIVO (EN P-CODE NO FUNCIONA)
ahora si probalo.

COSA MUUUY IMPORTANTE
Al compilar el proyecto en la carpeta del proyecto tienen que estar si o si el modulo del uFMOD, el archivo LIB del uFMOD, el chiptune EN .XM! y el archivo res para que compile correctamente.

Espero que les salga todo bien ^^


Fuente:

Hola.
Necesito hacerle un hook al mouse para invertir los ejes Y ; X

Tengo idea de como hacer el codigo (mas o menos)
Pero no encuentro ningun tutorial donde me explique algo de ganchos o hooks.

Saben de algun lugar adonde pueda entrar en el tema?

Muchas gracias.

yo al nod y el registro lo saltie usando un objeto como shell.script

Busca el programa "Elemental Unlocker"

tiene que estar por aca y ahi uso eso para cambiar el registro.

escribilo asi.
usa el comando split con | como separador y usa trim para sacarle los espacios.

Entendes?

ahora si necesitas que sea maximizable pero que no lo puedas cambiar de tamaño
en el evento Form rezise pones algo asi

on error resume next
me.height = X
me.width = Y

X e Y son el alto y ancho respectivamente

El stealer una vez creado si funciona.
Fijate que hayas puesto todas las direcciones bien y no "infecta" la maquina, no me gustan los stealers que se instalan porque te llenan la casilla con mensajes repetidos.

ah, me olvidaba, el stub es un exe que le cambie la extensión a DLL. Eso lo especifique en el codigo si no me equivoco  es para que al compilarlo sea mas fácil distinguir cual es cual, ademas le da un toque mas de profesionalismo

PD: Ya se que mi ortografía es patética

encontre el codigo de leandrito.

Option Explicit
'Autor: Leandro Ascierto
'Web:   www.leandroascierto .com.ar
'Date:  28/12/2009
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SetProp Lib "user32.dll" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)
 
Dim hWinStatic As Long
Dim AppPath As String
Dim LastError As Long
 
Private Function CallSomeFunction()
    'No borrar esta linea
End Function
 
Public Sub StarProtect()
    hWinStatic = CreateWindowEx(0, "Static", "WindowControlerCras h", 0, 0, 0, 0, 0, 0, 0, 0, 0&)
    AppPath = GetAppPath
    SetTimer hWinStatic, 0, 100, AddressOf TimerProc
End Sub
 
Public Sub EndProtect()
    KillTimer hWinStatic, 0
    DestroyWindow hWinStatic
End Sub
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Dim Ret As String
 
    If Err.Number = 40040 Then
        ShellExecute hWinStatic, vbNullString, AppPath, LastError, vbNullString, 1
        FatalExit 1
    Else
        LastError = Err.Number
        Ret = CallSomeFunction
    End If
 
End Sub
 
Private Function GetAppPath() As String
    Dim ModuleName As String
    Dim Ret As Long
    ModuleName = String$(255, Chr$(0))
    Ret = GetModuleFileName(App.hInstance, ModuleName, 255)
    GetAppPath = Left$(ModuleName, Ret)
End Function

para probarlo armate un form con tres botones y codealo asi:

Option Explicit
 
Private Sub Form_Load()
    If Command$ <> "" Then Me.Caption = "Aplicación Reinciada por error: " & Command$
    StarProtect 'comienza la protección
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    EndProtect 'Detiene la protección
End Sub
 
 
Private Sub Command1_Click()
    MsgBox 1 / 0 'Error Divición por cero
End Sub
 
Private Sub Command2_Click()
    Dim i As Integer
    i = 8000000000000# 'Error Desvordamiento
End Sub
 
Private Sub Command3_Click()
    Dim c As Date
    c = "hola" 'Error no coinciden los tipos
End Sub

si queres que sea un boton, o modificas el codigo o metes la pata aproposito en el boton para que se reinicie