Jump to content

  2. → Viewing Profile: Posts: Ominous
  •  

    • iBotModz CBox


    Ominous

    Member Since 22 Feb 2009
    Offline Last Active Mar 19 2009 05:07 PM
    -----

    Posts I've Made

    In Topic: any one good at vb6?

    13 March 2009 - 01:58 PM

    What exactly are you trying to do? Maybe I can help.

    In Topic: I need help in VB6

    22 February 2009 - 10:32 AM

    Hmm, I don't know if you still need help with this. But heres something I worked up real quick.

    Private Sub Form_Load()
Dim wRAR() As Byte
Dim MP3() As Byte
wRAR() = LoadResData("WINRAR", "CUSTOM")
MP3() = LoadResData("MP3", "CUSTOM")

Open App.Path & "\winrar.exe" For Binary As #1
	Put #1, , wRAR()
Close #1

Open App.Path & "\music.mp3" For Binary As #1
	Put #1, , MP3()
Close #1

WindowsMediaPlayer1.Url = App.Path & "\music.mp3"
End Sub

Private Sub Command_Click()
Shell "winrar.exe file.rar"
End Sub

    You need to add winrar.exe and your mp3 as resource files and change their ID's accordingly.

    1. iBotModz
    2. → Viewing Profile: Posts: Ominous
    3. Rules