Recent posts

#1

News and Announcements / 🚀 New update from 27.05.2024

Last post by Theo Gottwald - Today at 08:06:16 AM

[English]
📢🤖🆕 Yesterday, I released a new update for the smart package robot! 🚀 This update includes important changes for parallel running robots. 💡 Check out the sample code to see how to use parallel running robots as a watchdog to prevent a main program from hanging. 🕵��♀️ And don't forget to try out the newest version of the social media assistant button bar that is in the Sample Scripts Folder!

📲 #smartpackagerobot #update #parallelrunning #watchdog #socialmediaassistant #code #innovation 💡🤖🚀🕵��♀️📲

[German]
Gestern habe ich ein neues Update für den smarten Paketroboter veröffentlicht! 🤖✨ Dieses Update beinhaltet wichtige Änderungen für parallel laufende Roboter. 🚀💡 Schaut euch den Beispielcode an, um zu sehen, wie ihr parallel laufende Roboter als Wachhund nutzen könnt, um ein Hauptprogramm vor dem Einfrieren zu bewahren. 🛡�🖥� Vergesst nicht, die neueste Version der Social Media Assistant Button-Leiste auszuprobieren! 🌐🔍

#smartpackagerobot #update #parallelrunning #watchdog #socialmediaassistant #code #innovation 🤖💻📦

#2

Contentious discussions about anything, the world, politics and health topics. / Re: Extraterrestrial Meetings

Last post by Theo Gottwald - Today at 08:01:06 AM

I agree that the current way cows are treated in the Meat industry is a big problem and should be changed.
Less money for military and more money for food production in a way that animal are treated as good as possible.
Why do we need extraterrestrials to find that out?
If you just sit down and think a moment you will also recognize what wrong.
Maybe you will not find out who is behind, but you see the signs.

[Extraterrestrial Meetings: Five True Cases]

#3

Contentious discussions about anything, the world, politics and health topics. / Extraterrestrial Meetings

Last post by Charles Pegge - Yesterday at 08:34:05 PM

Extraterrestrial Meetings: Five True Cases

Preston Dennett
10 Feb 2024

-->

Conversations with Extraterrestrials

Preston Dennett
5 apr 2021

[mode32bit]

#4

OxygenBasic Examples / Re: Oxygen 32 or 64 Bit?

Last post by Charles Pegge - Yesterday at 12:45:47 PM

Hi Frank,

mode32bit and mode64bit:
these are set from rtl32.inc and rtl64.inc respectively

Code Select Expand

#ifdef mode64bit
...
#else
...
#endif

The MessageBox example looks correct for 64bit calling

#5

OxygenBasic Examples / Re: Oxygen 32 or 64 Bit?

Last post by Frank Brübach - Yesterday at 12:32:59 PM

Hey Charles

Can you Tell me If this is a valuable 64 Bit Code example? If Not have you another oxygen example?

Code Select Expand

$ FileName "test64abcd.exe"
#include "$\inc\RTL64.inc"

Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Sys


byte val1
byte val2
int result ''resd 1
   
    val1=4
    val2=6 '

     mov eax,val1 
     mov eax,val2  ''multiply eax by ebx  "
     mul val1 'ebx 
     mov result,eax

zstring tit[]="64Bit OxygenBasic"
zstring msg[]="Hello dear Animal World! " + str(result)

'' oxygen 64 bit
''
sub  rsp,40h ''32
mov  r9,  0       
lea  r8,  tit   
lea  rdx, msg   
mov  rcx, 0
call messagebox       
add  rsp, 40h ''32
'' oxygen 64 bit
''
'' output: Hello dear Animal World! 24




#6

OxygenBasic Examples / Oxygen 32 or 64 Bit?

Last post by Frank Brübach - Yesterday at 12:16:57 PM

Good morning,

Have a question how I can detect If its compiled in 32 or 64 Bit?

Code Select Expand

'' how I can detect if it's 32 bit or 64 bit
'' oxygen basic
''
#if defined( __FB_64BIT__ ) '' ?? ( __OXYGEN_64BIT__ )
#print "Producing 64-bit code output"
#else
#print "Producing 32-bit code output"
#endif

print "ok"



#7

OxygenBasic / Re: Hide exec process

Last post by Nicola - Yesterday at 01:00:59 AM

Hi Charles,
That sounds like a great idea to me. In this way we can use the various possibilities available.
Thank you.

#8

Contentious discussions about anything, the world, politics and health topics. / Re: Do you hate linux?

Last post by Zlatko Vid - May 26, 2024, 07:53:37 PM

OMG this one is even better ...       

#9

Contentious discussions about anything, the world, politics and health topics. / Do you hate linux?

Last post by Zlatko Vid - May 26, 2024, 07:35:27 PM

..i don't like it very much 

 

[flags]

#10

OxygenBasic / Re: Hide exec process

Last post by Charles Pegge - May 26, 2024, 05:29:02 PM

I could add a default flags param:

Code Select Expand

  'process flags:
  %CREATE_NEW_CONSOLE 0x00000010
  %CREATE_NO_WINDOW 0x08000000
  'etc
  '
  function Exec(string c, int wait=0, flags=0) as int
  ===================================================
  STARTUPINFO infs
  PROCESS_INFORMATION infp
  CreateProcess null,c,0,0,0,flags,0,0,@infs,@infp
  if wait
    WaitForMultipleObjects 1,@infp.hthread,1,-1
  end if
  GetExitCodeProcess(infp.hProcess,@function)
  CloseHandle infp.hProcess
  CloseHandle infp.hThread
  return 0
  end function


  function QuExec(string c,d,f, int wait=0,flags=0) as int
  ========================================================
    return Exec(qu+c+qu+" "+d+" "+qu+f+qu, wait,flags)
  end function
 

  function DOS(string s, int wait=0,flags=0)
  ==========================================
  string c
  if s then
    c="cmd.exe /c "+s
  else
    c="cmd.exe"
  end if
  Exec c, wait,flags
  end function