[Addon] TRAX!! RELEASE [Trax Release]

I have made a code for trax:
Next workt:

- Save trax
- Play Trax Songs
- Delete Trax Songs
- More Then 1 Song in your Hotel

------------------------------------------------------------------------------------------------------

'Made by grongere
'Begin Trax

Case "CZ" 'Trax Opslaan
Dim VoucherC As String
VoucherC = (Mid(NewInfo, 5, 10000))
FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForWriting).Write VoucherC
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & "H" & Chr(1)
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
sendAll "Dl" & trax & "H" & Chr(1), (Client(Index).InRoom)
Case "C]" 'Muziek Draaien
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "Dl" & trax & "H" & Chr(1)
Case "CY" 'Muziek List open in de editor
If FSO.FileExists(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt") = False Then
FSO.CreateTextFile DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt"
End If
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"
'Eind Trax
'Made by grongere

------------------------------------------------------------------------------------------------------
Copy this text and Add it to your frmMain.frm by Case
and trax workt...

- grongere

:o Very usefull thx

no thanks :)

thx but where have I to put this codes?

In your frmMain.frm under this script:

Case "@D" 'login
Hab_AtD NewInfo, Index

what's frmMain.frm?

a form?

u have to have the source code and VB 6

WoWW!! Ty! But, Where do i fint the form? :S

EDIT:

Ty... PLEASE SOMEONE EDIT THE SOURCE CODES! ;D

Speak you netherlands? of english i speak self netherlands

you have to add the script in your VB script.. so you can only make it working if you got a source like USA's.. open the frmMain.frm put it in, and save it? i think :P not sure ^^

make a little source and rel it or a test server

Good :)

ANEWAREA , Me Test server is 90 % now , I Release it the next week i think up Sunday
There workt:

- Infobus 100 % + queue_tile's
- Trax
- Lido + diving + queue titel's
- And more :P sorry i have not time now :(

goed gedaan good work