[Addon] TRAX!! RELEASE [Trax Release]

[grongere]

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

[MentaL]

[werpo]

:o Very usefull thx

[grongere]

no thanks :)

[DjFiVe5]

thx but where have I to put this codes?

[grongere]

In your frmMain.frm under this script:

Case "@D" 'login
Hab_AtD NewInfo, Index

[DjFiVe5]

what's frmMain.frm?

[grongere]

a form?

[Coolister]

u have to have the source code and VB 6

[blade.tri]

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

EDIT:

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

[grongere]

Speak you netherlands? of english i speak self netherlands

[Jordi-Fun]

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 ^^

[Nero]

make a little source and rel it or a test server

[Jolly]

Good :)

[grongere]

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 :(

[weshabbo]

goed gedaan good work