Try this:

Thanks Pitto for your reply.

Very interesting approachs. I like the idea with the two triangles. Thanks for sharing it. :-)

It's time that the FB GFX lib will be upgraded to a modern one...

ENABLE_MOUSE_INPUT may help, perhaps ENABLE_EXTENDED_FLAGS Or (cmode And (Not ENABLE_QUICK_EDIT_MODE Or Not ENABLE_MOUSE_INPUT))) Look at https://gist.github.com/rururutan/5998ad0a5bb02d7e2352b3974868fcc3 Unfortunately not - when I click on rmb the popup menu appears and when I paste the clipboard ...

I'm on this path: #Include "windows.bi" Sub SetConsoleSize(cols As Long, lines As Long) Shell "MODE CON: COLS=" + Str(cols) + "LINES=" + Str(lines) End Sub Dim Shared As HWINEVENTHOOK gHook Sub HandleWinEvent(hook As HWINEVENTHOOK, Event As DWORD, hwnd As HWND, idObject...

Thanks dodicat but it works a long as you don't have anything in the clipboard. After the code is started and you put something to the clipboard you can paste it again.
Further, I don't want to clear the clipboard because maybe the data is needed.

Any idea how to block the context menu when pressing the rmb on the console window? #Include "windows.bi" Sub SetConsoleSize(cols As Long, lines As Long) Shell "MODE CON: COLS=" + Str(cols) + "LINES=" + Str(lines) End Sub Dim As DWORD cmode Dim As HANDLE hInput = GetStd...

You can disable it e.g. this code: #Include "windows.bi" Dim As DWORD cmode Dim As HANDLE hInput = GetStdHandle(STD_INPUT_HANDLE) GetConsoleMode(hInput, @cmode) SetConsoleMode(hInput, ENABLE_EXTENDED_FLAGS Or (cmode And Not ENABLE_QUICK_EDIT_MODE)) ? "Press right mouse bottom" Di...

Oh my God, of course it pastes the stuff from the clipboard to the console.

I just wondered why it is different but it depends on what is in the clipboard.

Thx.

I'm on Win10 but it happens also on Win7.
I took this screenhot as GIF anim:



Sometimes alot of other chars will be printed.

This effect causes my Radio Station tool to drive crazy because of all the keystrokes. :-)

When you compile this code as console and press the right mouse bottom inside the console then Inkey starts to return plenty of keystrokes. Dim As Long iPosCursor = Csrlin Dim As String key Do Locate iPosCursor, 1, 0 key = Inkey() ? key Select Case key Case Chr(27), Chr(113) 'ESC or q to exit progra...

Update to v0.45: beside some internal changes I added the feature to download current song by pressing 'd' key.

Check out my 1st post for download / source code.

Copy and paste a page to get .txt and .html. (The default page is https://www.freebasic.net/forum/index.php) dim as string g g += "Const TriStateTrue = -1 ' forUnicode support"+chr(10) g += "URL = InputBox(""Enter (or paste) the URL to extract the Code ""&vbcr...

I don't know if you've managed to see the connection, but the reason your first post and SNC return 301 responses and JJs and the VBS work is because the site is redirecting non secure requests to HTTPS. Your code (and presumably SNC too) doesn't handle redirects and/or TLS, while those higher leve...

@Joshy: I tested SNC but somehow I didn't get it work to grab the source code of a web site. I know that SNC uses similar function, can you see the bug in the code I posted? Using your code ... ' test of a client connection const as string ServerName = "remix.kwed.org" const as string Serv...

I want to have an alternative to WinHTTP API to read out the source code of a web site. I tried to convert a C++ example from here to FB but it doesn't work properly. The reply from server is HTTP/1.1 301 Moved Permanently Server: nginx/1.18.0 (Ubuntu) Date: Thu, 18 Mar 2021 13:58:56 GMT Content-Typ...