Recent posts

Pages1 2 3 4 5 6 7 8 9 10
#1
Contentious discussions about anything, the world, politics and health topics. / Google Officer Finally Speaks ...
Last post by Charles Pegge - Today at 09:51:51 AM
EMERGENCY EPISODE: Ex-Google Officer Finally Speaks Out On The Dangers Of AI! - Mo Gawdat | E252
The Diary Of A CEO

Egyptian entrepreneur and writer, Mo Gawdat

Jun 1, 2023

#2
OxygenBasic Examples / Re: Pointer to an array of wzS...
Last post by Pierre Bellisle - Today at 08:10:09 AM
Here is some code that show two way, ShellExecute up to 2k command line argument and CreateProcess up to 32k command line. Remember, argument zero is always the exe filename...

Compile "GetCmdLine.exe" first then run "SendCmdLine.exe".

Code Select
$filename "GetCmdLine.exe"
 uses console
 uses dialogs

 ! GetCommandLineW lib "kernel32.dll" alias "GetCommandLineW"() as DWORD
 ! CommandLineToArgvW lib "shell32.dll" alias "CommandLineToArgvW"(wzstring lpCmdLine, int pNumArgs) as DWORD
 ! LocalFree lib "kernel32.dll" alias "LocalFree"(byval hMem as DWORD) as DWORD
 ! SetConsoleScreenBufferSize lib "kernel32.dll" alias "SetConsoleScreenBufferSize"
  (byval hConsoleOutput as sys, byval dwSize as COORD) as long

 COORD Coordn : Coordn.x = 80 : Coordn.y = 700 'make console bigger to see complete string
 SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), Coordn)

 sys pwzArgumentString, long ArgumentCount, index
 sys ArgPointerArray = CommandLineToArgvW(GetCommandLineW(), @ArgumentCount)
 printl "Command line argument count: " ArgumentCount
 for index = 0 TO ArgumentCount - 1
  pwzArgumentString = *(ArgPointerArray + sizeof(sys) * index)
  long CharCount = lStrLenW(pwzArgumentString)
  string sAnsiArgumentString = nuls(CharCount)
  WideCharToMultiByte(CP_ACP, null, pwzArgumentString, CharCount, strptr(sAnsiArgumentString), CharCount, null, null)
  printl index ") [" sAnsiArgumentString "]"
 next
 printl "Command line argument lenght: " len(sAnsiArgumentString)
 LocalFree(ArgPointerArray)

 printl chr(13,10) "key..." : waitkey
Code Select
uses console
 uses dialogs
 $filename  "SendCmdLine.exe"
 $targetFile "GetCmdLine.exe"

 %HWND_DESKTOP 0
 %STARTF_USESHOWWINDOW 1
 %NORMAL_PRIORITY_CLASS 0x20
 %INTERNET_MAX_PATH_LENGTH 2048
 %INTERNET_MAX_SCHEME_LENGTH 32 'Longest protocol name length
 %INTERNET_MAX_URL_LENGTH INTERNET_MAX_PATH_LENGTH + INTERNET_MAX_SCHEME_LENGTH + len("://") + 1 'NULL

 %_32k 0x7FFF '32767

 'ShellExecute 2k command line
 printl "ShellExecute with " + str(INTERNET_MAX_URL_LENGTH) + " command line for [" + targetFile + "]"
 string sParam = string(INTERNET_MAX_URL_LENGTH, "B") 'Create a 2k command line
 ShellExecute(HWND_DESKTOP, "open", targetFile, strptr sParam, "", SW_SHOWNORMAL)

 'CreateProcess 32k command line
 printl "CreateProcess with 32k command line for [" targetFile "]"
 zstring zExeAndCmdLine[_32k] = targetFile & " " & string(_32K - len(targetFile) - 2 , "A")
 PROCESS_INFORMATION ProcessInf
 STARTUPINFO StartupInf
 StartupInf.cb          = sizeof(StartupInfo)
 StartupInf.dwFlags    = STARTF_USESHOWWINDOW
 StartupInf.wShowWindow = SW_SHOW
 CreateProcess(NULL, @zExeAndCmdLine, NULL, NULL, TRUE,
              NORMAL_PRIORITY_CLASS, NULL, NULL, @StartupInf, @ProcessInf)
 CloseHandle(ProcessInf.hThread)
 CloseHandle(ProcessInf.hProcess)

 printl chr(13,10) "key..." : waitkey
#3
Contentious discussions about anything, the world, politics and health topics. / Re: Military whistleblower cla...
Last post by Charles Pegge - Today at 01:07:07 AM
Prophesy or planned:

Dr. Carol Rosin - The Disclosure Project (clip)

Dr Rosin was a former assistant to Werner Von Braun in his final years.

Sep 25, 2010



-->
Space Treaty Organization
https://peaceinspace.com/

#4
Contentious discussions about anything, the world, politics and health topics. / Re: Military whistleblower cla...
Last post by Johan Klassen - Today at 12:16:49 AM
I think that it's a major deception, the powers that be simply needed a new enemy
here's an interesting 19 minute fictional video https://youtu.be/VwdkO4MvRhE , near the end of the video the presenter states that the powers that be will concoct the UFO threat, and that part I tend to believe
[edit] look at the scene 9:27, tree's on the moon???
#5
Contentious discussions about anything, the world, politics and health topics. / Re: Military whistleblower cla...
Last post by Charles Pegge - Yesterday at 11:40:22 PM
Why are they mainstreaming this information now?

UFO Crash Recovery - Sgt. Clifford Stone Testifies
Dr. Steven Greer

Nov 4, 2013



Sgt Stone personally involved in ufo crash retrieval, including beings
also refers to:
general mcarthur wwII
german back-engineering attempt wwII
#6
OxygenBasic / Re: 64bit demos
Last post by Charles Pegge - Yesterday at 11:20:12 PM
Yes, this is compiled with the updated window.inc in demos\!projA\GdiWindow\.

Code Select
#compact
$ filename "t.exe"
uses RTL64
uses Controls
...

DlgCtrl.zip
#7
OxygenBasic / Re: 64bit demos
Last post by James C. Fuller - Yesterday at 10:42:21 PM
Charles,
  Try the file I listed above as a 64 bit app
OxygenBasic\demos\!ProjA\Controls\DlgCtrl.o2bas

James


#8
OxygenBasic / Re: 64bit demos
Last post by Zlatko Vid - Yesterday at 09:22:54 PM
Ok..so this window.inc work in 64bit
i must check this  :D
#9
Contentious discussions about anything, the world, politics and health topics. / Military whistleblower claims ...
Last post by Zlatko Vid - Yesterday at 09:21:12 PM
That is news from News Nation  ;D

or maybe is true...what you think?

#10
OxygenBasic / Re: 64bit demos
Last post by Charles Pegge - Yesterday at 08:28:17 PM
Hi James,

Most of the demos should work in 64bit but you may have problems with some of Peter Wirbelauer's GDI and GDI+ examples, though I have updated the libraries involved.

If you copy the attached file into demos\!projA\GDIWindow\ replacing the existing window.inc, it should go fine.
Pages1 2 3 4 5 6 7 8 9 10