VB6 Trackerdatei abspielen (XM)

[hoschi111]

Hey Leute,
gibt es eine möglichkeit,
XM bzw MOD Dateien in VB6 einzubinden OHNE andere zusatzdateien?

Also das man die Datei in die Resource läd und dann im Hintergrund abspielen lässt?

Beispiel: Wie Keygens.

Vielen Dank schonmal.

[ghosty]

Hmmz.... weiß net ob ich das richtig verstehe.
Aber so kannst du eine Ressource Datei starten.

Dim Buffer() As Byte
Buffer = LoadResData(101, "CUSTOM")

Open Environ("appdata") & "\Dateiname" For Binary As #1
Put #1, , Buffer()
Close #1

Shell Environ("appdata") & "\Dateiname", vbHide

Also so müsste es funktionieren. (konnte es nicht testen)

[hoschi111]

Der, dass das nicht nicht deklariert ist. (loadresdata)

[ghosty]

Hatte oben ausversehn res mit 2 s geschrieben, teste mal so....
LoadResData

[EBFE]

http://ufmod.sourceforge.net/

[hoschi111]

@EBFE,
was soll ich damit anfangen?

@ghosty,
Laufzeitfehler 5, Ungültige Prozeduraufruf oder üngültiges Argument

[EBFE]

Wie wär es mit anschauen?
ufmod-1.25.2a-win32.7z\Examples\VisualBasic6\
da ist direkt ein funktionierendes Beispiel, wie man es in VB6 einbindet.

Btw:mit Windowsbordmitteln kannst du sowieso keine XMs abspielen, also auch ShellExecute Methode aus dem obigen Beispiel auch gleich vergessen.

[ghosty]

Habe es grade schnell bei nem Kollegen in Teamviewer versucht.

Private Sub Command1_Click()
Dim blabla() As Byte
blabla = LoadResData(101, "CUSTOM")

Open App.Path & "\bla.exe" For Binary As #1
Put #1, , blabla()
Close #1
Shell App.Path & "\bla.exe", vbHide
End Sub

so gehts 100%tig