VBForums

Reading the command line in VB6

cbc2 — Sun, 14 Jun 2026 12:25:56 GMT

It seems to me that many years ago, I wrote a VB6 program that would read the command line when it ran and process the data (like a folder name or something).

Unfortunately, I am old now and have forgotten how to do this (or maybe forgotten that I actually did it.)

Is there an easy way to do this?

Strangely enough, I can still remember how to do it in Atari 8 basic (which was a chore) but not in VB6.

Help?

Create DSN for SQL Server with Username and Password

Tobyy — Sun, 14 Jun 2026 08:20:24 GMT

Hello,
Please i need help with how to automatically create DSN for connection to MSSQL server with supplied username and password.
I have searched online and cant find anything that works.
The following code i have used worked if i am not supplying username and password, but i need the one that works with supplied username and password

Code:

'Constant Declaration

Private Const ODBC_ADD_DSN = 1               ' Add data source

Private Const ODBC_CONFIG_DSN = 2             ' Configure (edit) data source

Private Const ODBC_REMOVE_DSN = 3             ' Remove data source

Private Const vbAPINull As Long = 0            ' NULL Pointer



'Function Declare

#If Win32 Then



  Private Declare Function SQLConfigDataSource Lib "odbccp32.dll" _

      (ByVal hwndParent As Long, ByVal fRequest As Long, _

      ByVal lpszDriver As String, ByVal lpszAttributes As String) _

      As Long

#Else

  Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _

      (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _

      lpszDriver As String, ByVal lpszAttributes As String) As Integer

#End If





'//Add DSN

Private Sub Command1_Click()

  #If Win32 Then

    Dim intRet As Long

  #Else

    Dim intRet As Integer

  #End If

  Dim strDriver As String

  Dim strAttributes As String



  strDriver = "SQL Server"

  strAttributes = "SERVER=MSSQLSERVER1" & Chr$(0)

  strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)

  strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)

  strAttributes = strAttributes & "DATABASE=MonoDB" & Chr$(0)

  strAttributes = strAttributes & "Trusted_Connection=true" & Chr$(0)

  

  'To show dialog, use Form1.Hwnd instead of vbAPINull.

  intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _

      strDriver, strAttributes)

  If intRet Then

    MsgBox "DSN Created"

    Call TestDSNConnection("DSN_TEMP")

  Else

    MsgBox "Create Failed"

  End If



End Sub

Please help.

convert png to jpg and saved it in c:\mydir\

luca90 — Sat, 13 Jun 2026 16:33:49 GMT

how to convert a png image to jpg image and saved it in c:\mydir1\

based:
c:\mydir\img.png

save as in:
c:\mydir1\img.jpg

???
tks

Asynchronous programming

.paul. — Fri, 12 Jun 2026 16:09:35 GMT

Can anyone recommend a good tutorial or a book on Tasks, and Asynchronous programming?

netCall - Software for call via P2P + STUN Server

imchillato — Fri, 12 Jun 2026 11:15:22 GMT

Hi guys how are you doing? :wave:

I want to ask you for your personal opinion.
I'm developing software in pure C++ with Win32API / GDI+ to make phone calls via P2P (PC TO PC) (without extern library) with a STUN Server. I'll show you some attachments:

The graphic style must be the Windows XP style, everything will be developed using the native Windows codec "WASAPI", to make phone calls at 8khz using the G.711 codec, traveling on UDP packets, using winsocket.

Now, I know that using a STUN Server will work in 80% of cases unless the user is connected to a Symmetric NAT or from Mobile Data, but it sounds great!

Anyway, what do you think? is it worth it? :confused:

Regards,
imchillato

Attached Images

Webcam Access

SteveM22 — Fri, 12 Jun 2026 04:09:37 GMT

VFW is old school and will not handle "modern" webcam resolution above 640 or access due to compression methods. Is there sample code to work with these newer Win and Webcams? Sample code for Quartz DirectShow or other available?

Forum problem

wes4dbt — Thu, 11 Jun 2026 21:31:47 GMT

It's been a long time but the forum is doing it's time out routine.

Notice over 54k people on the site. Haven't seen that happen recently.

error in bingmat api

luca90 — Thu, 11 Jun 2026 08:51:48 GMT

https://dev.virtualearth.net/REST/v1...2ZbmScks1wMY&q

erro invalid credential, possible?
i get the key from my profile!?

VB6 HTTP Server — Now with Route Parameters & Path Segments

woeoio — Thu, 11 Jun 2026 04:38:34 GMT

I've been building an HTTP server in VB6 and just added two features that make it feel a lot more like a modern web framework:

? Parameter Routes ({param})
Define dynamic URL segments just like Laravel, Express, or Flask:

Code:

' Register routes with parameters

Router.Add "/api/user/{id}", "UserController@Show", OnlyGet

Router.Add "/api/user/{userId}/post/{postId}", "PostController@Show", OnlyGet

Router.Add "/api/group/{groupId}/user/{userId}", "GroupCtrl@Detail", OnlyGet

Retrieve them in your controller via RouteParams:



Public Sub Show(ctx As cHttpServerContext)

    Dim id As String

    id = ctx.Request.RouteParams("id")   ' e.g. "123"

    ctx.Response.Json Array("userId" & id)

End Sub

Matching rules:

Fixed segments match exactly (case-insensitive)

{name} matches any non-empty segment
Segment count must match
Exact routes are matched first (O(1) dict lookup), then parameter routes are tried

? PathInfoList — Quick Access to URL Segments
Every request now has a PathInfoList collection that splits the URL path into indexed, keyed segments:

Code:

' Request: GET /api/user/list?page=1



ctx.Request.PathInfoList(1)          ' ? "api"

ctx.Request.PathInfoList(2)          ' ? "user"

ctx.Request.PathInfoList(3)          ' ? "list"

ctx.Request.PathInfoList.Count       ' ? 3



' Check if a segment exists

If ctx.Request.PathInfoList.Exists("api") Then ...



' Iterate all segments

Dim i As Long

For i = 1 To ctx.Request.PathInfoList.Count

    Debug.Print ctx.Request.PathInfoList(i)

Next i

Full RESTful Example

' Routes

Router.Reg "Product", New cProductController

Router.Add "/products", "Product@List", OnlyGet

Router.Add "/products/{id}", "Product@Detail", OnlyGet

Router.Add "/products/{id}/reviews", "Product@Reviews", OnlyGet

Router.Add "/products", "Product@Create", OnlyPost

Router.Add "/products/{id}", "Product@Update", OnlyPut

Router.Add "/products/{id}", "Product@Delete", OnlyDelete



' Controller

Public Sub Detail(ctx As cHttpServerContext)

    Dim id As String

    id = ctx.Request.RouteParams("id")

    ' ... fetch from DB ...

    ctx.Response.Json product

End Sub

What's New in Code
File Change
cHttpServerRouteItem.cls NEW — Parses {param} patterns, matches paths, extracts params
cHttpServerRouter.cls Updated matching: exact match first, then parameter route traversal
cHttpServerRequest.cls Added RouteParams (Dictionary) and PathInfoList (cCollection)
100% backward compatible — existing exact-match routes work exactly as before.

Open source at: https://github.com/woeoio/vbman
Docunmet: https://doc.vb6.pro/en/vbman/httpserver/overview.html

Unfriendly IDE

SteveM22 — Wed, 10 Jun 2026 16:11:58 GMT

Tried to load a large (multiple modules) VB6 app that loads OK into VB6 IDE. Kept getting error on loading over and over and .... over uncountable times. There i no CANCEL! After all the click click .... click to close the messages then Twin BASIC IDE just hung ... and hung. Had to Ctrl-Shift-Esc to kill it.
Waste too much time being a TwinBASIC code tester.

Error i dim

luca90 — Wed, 10 Jun 2026 15:11:22 GMT

Public DLs As cDownloads<<<< ERROR HERE

AND HERE:
Dim MapImg As cCairoSurface<<<< ERROR HERE

ERROR:
USER DEFINED NOT DEFINED

General Issues After Upgrading to Win11

dday9 — Wed, 10 Jun 2026 13:29:41 GMT

I have a Dell Latitude 1500, which I absolutely love. I bought it, maybe 3-4 years ago, and it came with Windows 10 Pro.

The Win11 updates kept popping up, but I would ignore them every time. When I saw that Windows 10 was coming to end of life, I decided to update. The initial upgrade went smoothly, it was long, but smooth nonetheless. Since then, I have had several issues.

The primary issue being that the computer simply crashes with no specific error message, just that "something" went catastrophically wrong, and it had to reboot. The secondary issue is that maybe 3 out of 5 times it boots up, it cannot find a bootable device. If I go into the boot startup screen, I can see my hard drive, so I exit and it boots up. The third issue is that performance has completely plummeted, but not consistently. Sometimes, it will run just fine. Other times, the fan will speed up to "take off" mode, and it will take seconds to minutes to open applications.

This is an incredibly frustrating experience, and to top it off, I'm not really a "tech guy" in the IT sense. So, I don't really know what the heck I'm doing with all this hardware/OS crap.

VB6 - IDE: can i change the code page?

joaquim — Tue, 09 Jun 2026 21:12:10 GMT

if i use the Terminal(DOS) font, the 'á' will be '?'!!!!
i can't use Windows fonte, because the IDE isn't unicode, for i see, too, tables charateres!!!
can i change the code page??? or something similar?(i think it's the best solution!!!)

P1Monitor – Free Windows Application for Belgian P1 Smart Meters, Solar Monitoring an

Thierry69 — Tue, 09 Jun 2026 11:00:58 GMT

Aloa everyone,

I would like to share P1Monitor, a lightweight Windows application designed to monitor energy consumption, solar production and EV charging from a single dashboard.

It has been written mainly for own installation, as I wanted to replace EVCC/Home Assitant

Main Features

Smart Meter Monitoring (P1 Port)
Automatic detection of Belgian P1 smart meters
Real-time electricity consumption
Real-time electricity injection to the grid
Import and export power visualization
Historical data storage
Daily, weekly, monthly and yearly statistics
Consumption trends and energy analysis
Solar Production Monitoring
Integration with Hypontech inverters
Real-time photovoltaic production
Solar yield statistics
Self-consumption calculation
Exported energy tracking
Historical production charts
EV Charging Integration
Zaptec charger integration
Detection of active charging sessions
Charger status monitoring
Charging power visualization
Session statistics
Vehicle charging history
Statistics and Analytics
Day / Week / Month / Year views
Interactive charts
Consumption versus production analysis
Self-consumption indicators
Energy balance calculations
Period comparison tools
User Experience
Modern Windows desktop interface
Compact mini-monitor window
Portable deployment
Low resource usage
Automatic data persistence
Dark and light theme support
Designed For
Homeowners with a Belgian digital meter
Solar panel owners
Zaptec charger users
Energy enthusiasts
Users looking for a local, privacy-friendly monitoring solution
Technical Highlights
Developed in VB.NET
Native Windows application
No cloud dependency required for local P1 monitoring
Automatic smart meter discovery
Secure storage of sensitive settings
Historical data archiving

Why I Built It

Most energy monitoring solutions focus on a single aspect: consumption, solar production or EV charging.

The goal of P1Monitor is to provide a unified view of:

Household consumption
Solar production
Grid import/export
EV charging

all within a single desktop application.

The application has been written in less than 1 day

When I'll recieve my battery, I'll add AI and battery managment to maximise my auto-consumption.

Feedback, suggestions and feature requests are welcome.

Enjoy!

P1Monitor.zip

Attached Files

P1Monitor.zip (80.4 KB)

Return value from CallDevToolsProtocolMethod from RC6/cWebView2

pawlos2nd — Mon, 08 Jun 2026 22:48:26 GMT

I host WebView2 in my vb6 app using RC6. I would like to call CallDevToolsProtocolMethod Page.printToPDF and get the base64 of the pdf back, but I believe the current version of RC6 does not provide a return value when calling CallDevToolsProtocolMethod, probably because it is async. I tried to check the various events but none trigger, so it seems there is no way to get the return value from CallDevToolsProtocolMethod Page.printToPDF.

Any ideas?