Printable View
Dear VBForumers,
I have been able to write a VB6 Director dialect using Visual Basic. Please look over, compile and then test for me to beta test the proceedings of my newest product, even. Thanks for the input you can put on the comments section of this Thread of mine...
!! Thanks in advance !!
When opening Director.vbp, the following prompts appear:
CustomDialog.ocx could not be loaded
ScrollBars.ocx could not be loaded
UserFormSX.ocx could not be loaded
MSDN.ocx could not be loaded
QuickDirector.ocx could not be loaded
hold on I will fix that right now, before work starts for the next day, even
Here is the updated version. you have to build the files, to the according ocx file, that it asks for...
Is this about the dead product Adobe Director or something else?
@ ThEiMp
Before zip your source code, please check it in a clean OS, with a fresh installation of VB6. You can discover many problems, you have to fix it, and then make a readme and write the recipe for building.
So sorry, I had a rush job to do before hand
The question is after OP does all these chores what do you expect to find in the zip -- Adobe Director clone or VB vNext IDE?Quote:
Originally Posted by georgekar
On cursory glance there is some kind of auto-complete with Winsock/App/Form/Physics?/Html? classes hard-coded, each with a sequence of AddItem's to a listbox like this:
thinBasic Code:
Apparently on this poll only user ThEiMp has voted with "good" yet. . .
cheers,
</wqw>
Personally I did not bother, looks like a lot of effort to test this program for the OP and he does not even describe what it is or what it does, seems like a waste of time.
Your loss. It has a 100% approval rating according to the poll....Quote:
Originally Posted by DataMiser
so then how do you guys like it, please tell me in this thread, even
It sounds to me like people want you to provide a bit more explanation of what it is and what it does before they consider trying it out.
It's a computer programming language that is a dialect of the dead language Director. Which is that of what I have brought back to life, even. please use all of the commands, to string an App together, so that I am able to test out the syntax engine, for all of the commands!!
PS: I have heard that my CustomDialog ActiveX had been used to hack Austal, so that they could zip about 75Gb of data into one file, and then compress, encrypt and then cloak the file so that it could leave their data centre, even. that is the pitts, because what on earth is wrong with my programming language, etc to do such a thing, even.
Also: Please read the MSDN that comes with the QuickDirector SX IDE, because that would then give you a better idea on the syntax of the commands, there is also source code snippets, that you can use to make blocks of source code, with.
I walked through your code of the CustomDialog, but there is nothing in it which compresses data.Quote:
PS: I have heard that my CustomDialog ActiveX had been used to hack Austal, so that they could zip about 75Gb of data into one file, and then compress, encrypt and then cloak the file so that it could leave their data centre, even. that is the pitts, because what on earth is wrong with my programming language, etc to do such a thing, even.
Let alone compresses 75GB of data in a single file.
And who used your ActiveX control? Did you publish it somewhere before posting it on VBForums?
And how do you backup your claim that your component (which doesn't do anything except some basic hardcoded encryption) is used for the hack of Austal??
My CustomDialogBox ActiveX Control Object, is able to in this process -> Compress, Encrypt and then Cloak a single file, in order to compress multiple files, you have to make a ZIP or RAR file, I use Zip file inside WinRAR, because they are smaller when I use that app. Plus I bought it, even...
I downloaded the custom dialog project and there is only a basic encryption in it.
No compressing, no archiving and no cloaking.
open the data file you make into textpad/notepad/wordpad, and then you shall see, even
I downloaded the project, read the source code and there is no compression or whatsoever, only basic encryption.
The encryption is a one-to-one copy of this old thread where you were asking for encryption source samples:
http://www.vbforums.com/showthread.p...=1#post3825485
This code is 4 of the 5 forms.Code:Option Explicit
Private baLUT(255) As Byte, backLUT(255) As Byte '0 to 255, aka ANSI/ASCII
Private Sub InitLUT()
Dim X As Long, Y As Long, bChr As Byte
'initialize LUT array with unique values
For X = 0 To 255
baLUT(X) = X
Next X
'randomly shuffle array
Rnd -1 'reset the rnd generator
Randomize 1234 'use a number here for the random seed, ensuring repeatable output
'these two random calls ensure that the follow sequence of RNDs will be the same
For X = 1 To 255
Y = Int(X * Rnd)
If X <> Y Then
bChr = baLUT(X)
baLUT(X) = baLUT(Y)
baLUT(Y) = bChr
End If
Next X
For X = 0 To 255
backLUT(baLUT(X)) = X
Next X
End Sub
Private Sub FXInCipher(strIn As String, bOutString() As Byte)
Dim X As Long
Dim bString() As Byte
bString = strIn
ReDim bOutString(UBound(bString))
For X = 0 To UBound(bString)
bOutString(X) = baLUT(bString(X))
Debug.Print bString(X) & ">" & bOutString(X) & ",";
Next X
End Sub
Private Function FXDeCipher(strIn() As Byte) As String
Dim X As Long
Dim bString() As Byte
Dim bOutString() As Byte
bString = strIn
ReDim bOutString(UBound(bString))
For X = 0 To UBound(bString)
bOutString(X) = backLUT(bString(X))
Debug.Print bString(X) & "<" & bOutString(X) & ",";
Next X
FXDeCipher = bOutString
End Function
Well then how do you associate the large amount of encryption from an example of 75Gb to 10 Bytes
Thats called a one way hash.
One way because the generated sequence can not be used to recreate the original data
But then you aren't allowed to work back to the old data, because of the old data is quite old and then cannot then be considered to be used on a 40Mb EIDE Internal 3.5" HDD, in which I am looking to have them reinstated, along with 1.7Mb 3.5" Internal Floppy Disk Drives, also to have special 100Mb 3.5" Backup Disks, evenQuote:
Originally Posted by Arnoutdv
I have no idea what you are saying there, do you?Quote:
Originally Posted by ThEiMp
How to compile it?Quote:
Addons.zip
IDE.zip
Quote:
Line 22: Class CustomDialogBox1.CustomDialog of control CustomDialog1 was not a loaded control class.
Line 439: Class VisualUserFormSX.UserForm of control UserForm was not a loaded control class.
"Unable to set version compatible component..."
... and so on, for each control.
I'm bringing back old tech back from the dead zone and then back into the light of the world. so far as disk drive space for desktop client personal computersQuote:
Originally Posted by DataMiser
Compile as Binary Project with the filename of CustomDialog.ocx, then add components to the VBP Project as CustomDialog.ocx, to all of the Projects, except UserFormSX and ScrollBars, evenQuote:
Originally Posted by Dragokas
Here is the Builds for the end product, hey dudes...
The post I quoted was talking about floppy disks, zip disks and 40mb hdd and something about old data. I doubt anyone really wants any of those anymore. I've got a bunch of zip disks and 3.5 floppy disks. I think the last time one was actually used was about 20 years ago. I don't think I have ever owned an hdd that small. Any data that was on those old disks that was worth keeping got moved to CD or DVD a long long time ago.Quote:
Originally Posted by ThEiMp
And what has it to do with compressing and/or hashing of data? (75GB -> 10 bytes)
This thread is almost as entertaining as the Battle Programming thread... Almost.
-tg
this thread makes no sence, even
That's good, because it's definitely odd.Quote:
Originally Posted by ChrisE
believe it or not but gathered some old Hard/Software back in 2005Quote:
Originally Posted by DataMiser
a 286;386 and a 486 Pc with Software
my wife had a Fit when I opend those packages (still got the stuff):blush:
well tg is right, it is entertainingQuote:
Originally Posted by Shaggy Hiker
@TheImP
sorry don't mean to be rude
Well I didn't think this up very well doing this thread, and then looking back on it, I should of used better tactic of getting it out on the open marker, even. so then here I got the product out on the open internet, in which was my first goal, when I first did the programming of it, at that
Here is my application thus far, so then guys...
Saw this code all over the place in the Form_Resize events:
Code checks out.Code:With Panel
FormLeft = .Left
FormTop = .Top
.Left = FormLeft
.Top = FormTop
Goodness sure is. Because i wouldn't have used it, otherwise so
PS: Here is the ActiveX Control Objects that you need to work with the App, QuickDirector SX v1.00.00...
You realize that at least those last two lines do nothing at all besides waste a tiny bit of cpu time.Quote:
Originally Posted by ThEiMp
Well i was trying to tie up the line of processing, because it's so small app, i wanted to make it some how be able to slow down and make the users wonder how it was written to have such a long loading time. like check out the splash screen for instance, even so