KeyGen Hilfe

  • VB

  • GTA-R
  • 1444 Aufrufe 6 Antworten

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • KeyGen Hilfe

    Also ich Wollt mal Fragen wie man Musik in einen Vb KeyGen einfügt
    ohne außendatei , also nur in einer EXE Datei. KeyGen hab ich ja schon mal
    und auf der Seite german Reversing newbies war ich , di geht bei mir nicht.

    Weiß jemand eine andere Lösung?

    Brauch dringend Hilfe:confused: :confused: :confused: :confused:

  • ich weiß es nicht genau bzw kann es nicht selbst,aber du musst in dein vb app einen player für diese sog. chiptunes einbauen, dafür gibt es die bassmod.dll (google mal danach, da gibts bestimmt auch tuts)

    chiptunes gibts auf vielen seite, auch mal googlen
    ein format dafür is zB .mod

  • Ich habs Raus wie man's mit VB 6 oder .NET macht der Code:

    Modul1.bas------->
    Option Explicit
    Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
    Private Const SND_SYNC = &H0 ' Play synchronously (default).
    Private Const SND_NODEFAULT = &H2 ' Do not use default sound.
    Private Const SND_MEMORY = &H4
    Private Const SND_LOOP = &H8 ' Loop the sound until next
    Private Const SND_NOSTOP = &H10 ' Do not stop any currently
    Private Const SND_ASYNC = &H1 ' play asynchronously
    Private bytSound() As Byte ' Always store binary data in byte arrays!
    Public Enum SoundFlags
    soundSYNC = SND_SYNC
    soundNO_DEFAULT = SND_NODEFAULT
    soundMEMORY = SND_MEMORY
    soundLOOP = SND_LOOP
    soundNO_STOP = SND_NOSTOP
    soundASYNC = SND_ASYNC
    End Enum

    Public Enum AppSounds
    appsoundNT_LOGON_WAVE = 100
    End Enum
    Public Sub PlayWaveRes(vntResourceID As AppSounds, Optional vntFlags As SoundFlags = soundASYNC)
    bytSound = LoadResData(vntResourceID, "WAVE")
    If IsMissing(vntFlags) Then
    vntFlags = SND_NODEFAULT Or SND_SYNC Or SND_MEMORY
    End If
    If (vntFlags And SND_MEMORY) = 0 Then
    vntFlags = vntFlags Or SND_MEMORY
    End If
    sndPlaySound bytSound(0), vntFlags
    End Sub

    ----------------------FORM-CODE---------------------------
    Private Sub Command1_Click()
    On Error Resume Next
    PlayWaveRes appsoundNT_LOGON_WAVE, soundASYNC
    End Sub

    Info: Füge noch eine Res datei mit dem Namen music.res zu deinem Projekt und in der Res soltte die Musik Res mit der Value 100 Importiert werden Fertig.
    Nur noch Compilieren und den Button Klicken oder den Code in den Form Load Code Einfügen. Kacke is nur dass die Exe meist sehr groß is aber ich kürz die Lieder immer.:)