And after some searching on how to code etc. etc. I have came up with the following idea.
Obviously it aint fully developed yet as it is just a script and no real program. So any advice on how to improve is still welcome.
If you have used it ^^ Let me know your experiences as well =) As what would you like to see added for example.
What is required:
- Have a shared online folder (I used Dropbox)
- Have a script that opens the CD Tray (Added one simple .vbs script)
- Provide the controller / Master / Mistress with 3 file names for Reward, Punishment and Release. (These can be pictures for example as Reward.jpg Punishment.jpg and Release.jpg)
What does the Dominant have to do?
The Dominant in this case only has to make sure that the submissive and Dominant share one folder with dropbox for example. The Dominant can now determine on basis of webcam streaming for example if the submissive performs his/her actions correctly. In the case of a reward the Dominant simply copy paste the reward file into the shared folder and the submissive will be bound for 10minuts less. In the case of a punishment the Dominant simply copy paste the punishment file into the shared folder and the submissive will be another 10 minuts longer in bondage. IF required the Dominant can also provide the submissive with an instant release with the Release file being placed within the shared folder. This will open the CD drive on the computer of the submissive. (Please keep in mind that the maximum punishment number is 25, to prevent the Submissive to be endlessly bound!)
What does the submissive / Selfbondage practicer have to do?
The person in bondage have to do several setups for the script:
- Make sure he/she shared a folder with the Dominant person.
- Make sure he/she has setup the correct time in hours. Including minimum and maximum!
- Make sure that the script has to correct paths.
- Release/Punishment/Reward: C:\Users\XXXX\Dropbox\Public\Release.jpg
- Destination: C:\Users\XXXX\Desktop\Selfbondage
- ReleaseScript: C:\Users\XXXX\Desktop\Selfbondage\ReleaseScript.vbs
- Make sure that the CD Tray release system is tested at least a couple of times by yourself.
- Setup your bondage scenario and put your faith in the Dominant person for their mercy
Matlab code (Save within a matlab script file)
Code: Select all
clc
clear
%Time Variables
EndTimeHours=0.5; %Initial Ending Time in hours
MaxEndTimeHours=2*EndTimeHours; %Maximum Ending Time in hours
MinEndTimeHours=0.5*EndTimeHours; %Minumum Ending Time in hours
Seconds=1; %Interval checking
Timer=0; %Starting Time / Set to zero!
%File Locations
Release = 'C:\XXXX.jpg';
Punishment = 'C:\XXXX.jpg';
Reward = 'C:\XXXX.jpg';
Destination = 'C:\XXXX';
ReleaseScript='C:\XXXXs';
%Fixed Values
EndTime=EndTimeHours*3600; %Initial Ending Time in seconds
MaxEndTime=MaxEndTimeHours*3600; %Maximum Ending Time in seconds
MinEndTime=MinEndTimeHours*3600; %Minimum Ending Time in seconds
%Reward Settings
NrRewards=0;
RewardTime=600; %10 minuts rewards
%Punishment Settings
NrPunishments=0;
PunishmentTime=600; %10 minuts punishment
while Timer<EndTime
tic
if rem(Timer,1) < 0.001
clc
display(['You are now tied for: ',num2str(round(Timer))])
display(['You are release after: ',num2str(round(EndTime-Timer))])
display(['You have received: ',num2str(NrRewards),' Rewards'])
display(['You have received: ',num2str(NrPunishments),' Punishment'])
%Punishment Part
if exist(Punishment, 'file')
if NrPunishments<25; %Restrict the ammount of punishment to prevent endless being tied up!
NrPunishments=NrPunishments+1;
NewPunishment=(['Punishment',num2str(NrPunishments),'.jpg']);
movefile(Punishment,NewPunishment)
movefile(NewPunishment,Destination)
EndTime=EndTime+PunishmentTime; %Add another 10 minuts
if EndTime>MaxEndTime
EndTime=MaxEndTime;
end
end
end
%Reward Part
if exist(Reward, 'file')
NrRewards=NrRewards+1;
NewReward=(['Reward',num2str(NrRewards),'.jpg']);
movefile(Reward,NewReward)
movefile(NewReward,Destination)
EndTime=EndTime-RewardTime; %Removed another 10 minuts
if EndTime<MinEndTime
EndTime=MinEndTime;
end
end
%Release Part
if exist(Release, 'file')
movefile(Release,Destination)
Timer=EndTime;
end
end
while toc<Seconds
end
Timer=Timer+toc;
end
%Execution of the ReleaseScript / CD Tray opener
system(ReleaseScript);
CD Tray opener script in vbs. (Save as .vbs)
Code: Select all
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
Major credits to Rubberthing for making this:
rubberthing wrote:This is the first Alpha Version auf CD Tray Online. Please do not use this Program under any selfbondage scenario right now, as this is not the finished and tested Version.
Although i would appreciate it very much, if you test it and give me your feedback.
If someone is interested in the sourcecode i can post it here too.
Manual:
There are 2 folders in the Zipfile. One for the master(cd-Dom-exe) and one for the slave(cd-Sub-exe). Each folder contains an exefile (cdSub.exe and cdDom.exe) to start the program. If the program has started you have to select a Dropbox folder which is editable by Master and Slave.
Slave:
There are 2 Buttons to open and close the CD Tray. At first the slave can test the 2 buttons to be sure that the CD Tray is working correct.
After that the slave can set the prefered Locking time and click the "lock" button. From now on the Slave cannot open or close the CD-Tray( with this program). As time has went to zero or the master has clicked the "open CD" button, the CD Tray will open automatically and the program will exit.
Master/Miss:
As soon as the slave has locked the program, the Master/Miss can control the CD-Tray. The master can Add or reduce the locking time of the slave in 10 Minute steps. The Button "open CD" immediately opens the CD-Tray of the Slave and ends the locking session. The slave-program will then exit and close.
Download:
https://www.dropbox.com/s/76hm1jfoufg5f ... e.zip?dl=0
Join our skype group for all the fun if you want:
https://join.skype.com/bPCcYfNfeKXg