Getting the ball rolling. Which VB6 projects are you working on?

You can add some command line parameters, such as stop the hardware of a certain ID or uninstall, ordinary people do not have the ability to modify your source code, but you can call it directly from the command line, which is also very convenient. The reason why windows console programs have been popular for so many years is that they support many parameters.

Make a tool that can manage the system, and all kinds of settings are also useful.

putobject,getobject Can be accessed directly, listing all hardware ids.
It is to encapsulate some functions, and we can set them directly with code.
All hardware ids can be read into our variables.

dde,sendmessage,winsock,There are many ways to communicate.

Sure that's possible... but where would you get the device ids without going through this program or the system version?

Can an open source VB6 project make money?
rc6.dll,oleexp.tlb

The project has been downloaded 9 billion times! Developers are down and out: in prison, online violence.. Denis Pushkarev is the author of core-js, a modular standard library for JavaScript. Core-js has been downloaded tens of millions of times a week, and has now been downloaded more than 9 billion times. Survival is the first, I wish you find a decent good job! Thanks for sharing the story, man. I'll send you $100. It is understood that after the post was published, Denis Pushkarev's Bitcoin account received three 1 BTC donations and several small BTC donations, worth about 70000 dollars.

When all my programs are published I hope to receive donations of 60, 70, 80, possibly as much as a pound/dollar (select your own currency).

Let's get this thread back on track please, a deviation is fine but removing the rails entirely and converting to a canal is not.

I am slowly getting my head back into action after Christmas debauchery (if only).

Working on the ability to reset the stopwatch, rotating the hands back to the original start position. Kludging it at first, then doing it properly.

https://www.vbforums.com/images/ieimages/2024/01/2.png

Konfabulator widget at right, Xwidget at top, VB6 left.

I wanted to give another update to my VB6 project XamlIslands. 80 XAML classes have now become 220 classes. The Windows.UI.Xaml.Controls.Grid can already be created. The Windows.UI.Xaml.Controls.ContentControl has also just been finished. But there are no events yet. I just had the ContentControl class analyzed with the “Aivosto Project Analyzer” program so that you can get a brief overview of how many properties and procedures there are in this class alone.

PROCEDURES
~~~~~~~~~~


Total procedures 569
Source procedures 569
Binary procedures 0


Source procedures 569
Sub 2
Function 186
Property accessor 381


Source procedures 569
Public 566
Private 3


Properties 271
Read/Write 110
Read only 161
Write only 0


Property accessors 381
Get 271
Let 110

My goal at the moment is the XAML button. https://learn.microsoft.com/en-us/uw...ew=winrt-22621 The XAML Button class will therefore have even more properties and procedures than the ContentControl class. :D

Brilliant! Keep us updated, pictures as well if possible, they tell a story.

I am working on my first VB6 sysmetric gauge, a visual duplicate of the my older Konfabulator/Xwidget CPU desktop gauges.

https://www.vbforums.com/images/ieimages/2024/01/5.png

The older Konfabulator CPU widget is on the left, slightly blurry on a 4K monitor. The VB6 version is on the right next to the recent VB6 stopwatch and 'Just Clock' 'widgets'.

Quote:

---

Originally Posted by yereverluvinuncleber

Brilliant! Keep us updated, pictures as well if possible, they tell a story.

---

It will take some time until there are new pictures. Of the 3 ways I know of to create XAML controls in VB6, 2 ways already work (via XAML string and via COM interface XamlDirect). There are still no events, but that's coming. The third option is very time-consuming to write because a XAML control consists of several XAML classes. A class, in turn, consists of several XAML COM interfaces.

I'm working on a new Painter effect for the program PhotoModularFX

Almost done, I'd say.
https://www.youtube.com/watch?v=o2-wODsmKo8


https://www.vbforums.com/showthread....=1#post5628092

Here is a small update to my VB6 XAML Islands project with an image. You can see the XAML RatingControl -> https://learn.microsoft.com/en-us/wi...view=winui-2.8 The following XAML controls can already be created in VB6: Panel, Grid, Button, Image, ToggleSwitch, RatingControl

Here is a brief overview of how many XAML COM interfaces a XAML class, in this case the class Windows.UI.Xaml.Controls.Control, contains.

Code:

---

Option Explicit

' Inheritance
' Object -> DependencyObject -> UIElement -> FrameworkElement -> Control

' Inherit: FrameworkElement


' ----==== Const ====----
Private Const Windows_UI_Xaml_Controls_Control As String = "Windows.UI.Xaml.Controls.Control"
Private Const IID_IControl As String = "{a8912263-2951-4f58-a9c5-5a134eaa7f07}"
Private Const IID_IControl2 As String = "{43e0fe10-14ec-427e-8c57-dee60df60aa8}"
Private Const IID_IControl3 As String = "{077b29e4-dade-4f55-9b96-09e21b28eb1c}"
Private Const IID_IControl4 As String = "{0e18aeee-5f2e-44ea-8513-d3875c0a7513}"
Private Const IID_IControl5 As String = "{5ebb51d5-9e58-49b7-bc2d-0155ff118664}"
Private Const IID_IControl7 As String = "{3550dbe1-e561-5934-a3ef-7db8bf6e3b45}"
Private Const IID_IControlOverrides As String = "{a09691df-9824-41fe-b530-b0d8990e64c1}"
Private Const IID_IControlOverrides6 As String = "{e194c96a-d8cc-4339-a0e1-2e9c420879ec}"
Private Const IID_IControlProtected As String = "{1791587a-2a7c-4981-a2d8-ab99fffc65b9}"
Private Const IID_IControlStatics As String = "{473b305b-877d-4c35-8fca-46a05f96607a}"
Private Const IID_IControlStatics2 As String = "{32233e36-ab74-4a25-a556-45293135b2c5}"
Private Const IID_IControlStatics3 As String = "{aad15e61-e4b9-4d72-b653-934149aa5003}"
Private Const IID_IControlStatics4 As String = "{59fda728-c05a-4ec2-8a4b-06ad69b66e15}"
Private Const IID_IControlStatics5 As String = "{f635b5a3-ef8e-404f-877b-5580473710a6}"
Private Const IID_IControlStatics7 As String = "{aee1ca45-c910-5dab-a266-fdf50c0bedd2}"
Private Const IID_IControlFactory As String = "{b12b1d5a-6419-4e16-b212-a45336b75778}"
Private Const IID_IFrameworkElement As String = "{a391d09b-4a99-4b7c-9d8d-6fa5d01f6fbf}"

---

It is impressive, keep us posted as regularly as you like.

https://www.vbforums.com/images/ieimages/2024/01/7.jpg

Creating one sysmetric gauge per day. So far, RAM, drive storage and combined CPU gauges. Next, the wireless signal gauge.

Very good widgets.
I would change the background a little, they are all very similar and I think it is difficult to distinguish one from the other.

the current project is a tool that creates bitmap-fonts of any font selected in a list.
the bitmap-fonts will be used in my other projects.

Quote:

---

Originally Posted by yokesee

Very good widgets.
I would change the background a little, they are all very similar and I think it is difficult to distinguish one from the other.

---

The widgets are a part of a set, they are designed to look very similar as if they are all from the same plane/tank &c. There will be other styles (already created) that they can assume if required so users can mix or match if they want. A little PSD skill and they can alter the design as they choose.

Quote:

---

Originally Posted by baka

the current project is a tool that creates bitmap-fonts of any font selected in a list.
the bitmap-fonts will be used in my other projects.

---

Baka Can we see a picture?

Converting the Open Hardware Monitor temperature Gauge. Obtains motherboard and CPU sensor values using WMI queries to extract current OHM data from WMI repository.

https://www.vbforums.com/images/ieimages/2024/01/7.png

Used the method posted here to extract the temperatures: https://www.vbforums.com/showthread....=1#post5629011

Feeling pleased with myself today, making progress.

https://www.vbforums.com/images/ieimages/2024/01/8.png

Anyone else? Let's hear about your progress. Every day I make some progress with different VB6 programs (to prevent me becoming bored). Seeing what others are doing in VB6/TB64 is both inspiring and interesting.

On my side, nothing too much visual.
Just implementing IA to enhance the OCR module of my applications.
IA will also anwser to questions and help users based on all the data within the apps (PDF, XLS, data from DB...)

Can someone please give me a reputation point or two? I am stuck on 665.9999999 points and that number always gives me the "heebie-jeebies".

Done. :bigyello:

Quote:

---

Originally Posted by Erwin69

Done. :bigyello:

---

Here ... done ...

Thankyou everyone! Appreciated. You can tell, I am slightly superstitious.

This evening, to get that out of my mind, I created a battery gauge VB6 /RC desktop 'widget to replace the old Konfabulator version.

My development system is a desktop (no battery) so it reads 0 percent as you'd expect. Apart from that it works very well! Testing on laptop tomorrow, it uses a straightforward API so it should just work out of the box.

https://www.vbforums.com/images/ieimages/2024/01/9.jpg

Quote:

---

Originally Posted by yereverluvinuncleber

My development system is a desktop (no battery) so it reads 0 percent as you'd expect. Apart from that it works very well!

---

Looks great! Might be cool if the light flashed the red light on/off and the hand swept quickly back and forth in the nether region between 100 and 0 to indicate that it is a useless/nonsensical widget when used on a battery-less machine.

Quote:

---

Originally Posted by jpbro

Looks great! Might be cool if the light flashed the red light on/off and the hand swept quickly back and forth in the nether region between 100 and 0 to indicate that it is a useless/nonsensical widget when used on a battery-less machine.

---

That is certainly an idea! I was going to just pop up a msgbox...

https://www.vbforums.com/images/ieimages/2024/01/10.png

Starting building the temperature gauge as part of a group of some weather gauges, first gauge is underway.

I'm getting there! Several gauges built now. Smooth animation added to the pointers. Need to test and implement multi-monitor handling, need to unpack my other monitors from over 100 boxes (just moved house).

Just started working on a network bandwidth gauge and number two of the five weather gauges.

https://www.vbforums.com/images/ieimages/2024/03/5.png

What are you up to ? Please update.

Mine is very poor, I have nothing to boast about. I am from Argentina, and I did not learn the English language, so I started participating here with a translator. I didn't study programming. Do not participate in any community or Help Forum. It is very difficult for me to understand what they write in this Forum. I'm not a programmer. I earn my money to live from a place that sells cleaning supplies. I have little time available for VB6. I'm almost 60 years old and my head doesn't respond like it used to, it's very hard. I could cite more problems and errors..

I only taught myself some things about VB6 and Access 2003 and its Jet Engine, I think about 18 years ago, to make a commercial application for my business. There are still parts to be done, but it is still operational, and is carrying out the management of my premises.

About 16 years passed without me playing a VB6 line. I returned 1 ago to see what I had done and relearn the little I knew, and complete my business application.

I'm almost embarrassed to write here, in a thread where wonderful things appear, made by people who really know. But I do it to give myself encouragement and not give up.

I can cite nothing. Maybe just an automated FlexGrid Control filling technique. I upload only one image, where you can see the construction of the Query that will fill the Control, and the parameters that define its behavior.

I hope that the little time I can dedicate to this has some fruit. Sorry for the audacity of writing here, without anything to contribute. Greetings and success to all.

Attachment 190658

That is great. Each VB6 creation is just as valid as another. My creations look great at least, to me - but not to others!

Your software is doing a REAL task which mine are not. Mine are just stocking fillers, eye candy. Keep posting and enjoy your return to VB6. I am also 60, in fact slightly more! VB6 keeps your brain going.

You are very kind thank you so much!

I abandoned VB6 some years ago and start to coding under .net but recently I've put my hands again in VB6 and it was like coming home for christmas.

I'm working in a few projects at same time, the first will be finished in a few days is a program that controls an automated production line for the automotive market, mainly it communicates with a Siemens PLC (read/write data inside its DBs), show some graphics in real time about the production, the data of every piece assembled, store it in a DB, interacts with SAP B1+BEAS (read work orders, structures and routes and declare good issues).

VB6 still rocks!

After many years of supporting my now-retired VB Obfuscator (2001-2023), I had a fresh look at the code and came up with something vastly improved.

https://obfuscator-executive.com

Please give it a try, and feel free to leave me feedback including your suggestions for improvement.

Quote:

---

Originally Posted by jay55

. . . had a fresh look at the code and came up with something vastly improved.

---

New prices?

cheers,
</wqw>

Quote:

---

Originally Posted by wqweto

New prices?

cheers,
</wqw>

---

Yes, I've transitioned to a pricing model to ensure continued development and support for the new version. Let me know if you'd like to know more.

Wouldn't it be easier to obfuscate the symbols in the source files before compilation?

Quote:

---

Originally Posted by VanGoghGaming

Wouldn't it be easier to obfuscate the symbols in the source files before compilation?

---

Indeed, Abronsius is a one option to assist with VB source obfuscation. Thanks for sharing!

https://www.daniweb.com/programming/...ode-obfuscator

Quote:

---

Originally Posted by zx81sp

I abandoned VB6 some years ago and start to coding under .net but recently I've put my hands again in VB6 and it was like coming home for christmas.

I'm working in a few projects at same time, the first will be finished in a few days is a program that controls an automated production line for the automotive market, mainly it communicates with a Siemens PLC (read/write data inside its DBs), show some graphics in real time about the production, the data of every piece assembled, store it in a DB, interacts with SAP B1+BEAS (read work orders, structures and routes and declare good issues).

VB6 still rocks!

---

Good to hear that! I created thomething thimilar for Mars Chocolate, taking data from a PLC controlled by a PDP11 and then formatting the data realtime, to show actual production levels graphically, so that 20 lines could start to shutdown when the actuals had reached the scheduled production levels.

I have just moved into a new home and so my work rate in code has drastically reduced. Despite this I am managing to do a little every day.

My weather gauges are moving ahead, the single master gauge receives and calculates the weather more or less properly. Displaying via an analogue pointer, the temperature. A balloon tooltip displays a summary on mouseOver.

https://www.vbforums.com/images/ieimages/2024/03/3.jpeg

It is starting to look useful.

I've recently created a UserControl/ActiveX control that wraps INamespaceTreeExplorer in twinBASIC; I wanted to try out some recent improvements in tB's ability to create ocxs.

ucExplorerTree v1.0.1

Attachment 190855


So far, it works flawless when compiled to a 32bit OCX for VB6:

Attachment 190856

And also 64bit VBA:

Attachment 190857


and even in a C# WinForms application!

Attachment 190858


Control generation is getting a lot better in tB; before the recent improvements many crashed in compiled VB6 exes, or crashed when closing the UserForm in VBA. But this has been stable in all of them. I think a strong use case for tB is that 64bit Office is taking over, and there's no other way to make controls in the same language. So now it's feasible to have a single twinBASIC codebase that can target 32bit VB6/VBA, and 64bit VBA. As well as 32/64bit .NET.

Today I finally finished a project I started to make a Control Panel Applet.

Since tB supports x64 and standard DLLs natively I did it in that, but it's entirely possible to do this in VB6 if you use one of the techniques to make a standard DLL. It will be marked as "AppletName (32-bit)" but runs on Win11.


Attachment 190864

Attachment 190865