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.
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.
In case of fire: 1. git commit, 2. git push, 3. git out!
Hmmz.... weiß net ob ich das richtig verstehe.
Aber so kannst du eine Ressource Datei starten.
Also so müsste es funktionieren. (konnte es nicht testen)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
Geändert von ghosty (08.06.2009 um 15:09 Uhr)
Der, dass das nicht nicht deklariert ist. (loadresdata)
In case of fire: 1. git commit, 2. git push, 3. git out!
Hatte oben ausversehn res mit 2 s geschrieben, teste mal so....
LoadResData
@EBFE,
was soll ich damit anfangen?
@ghosty,
Laufzeitfehler 5, Ungültige Prozeduraufruf oder üngültiges Argument
In case of fire: 1. git commit, 2. git push, 3. git out!
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.
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