Hi,
in this minimal example, we can see that thinBasic crash at the end of script. At first I thought it is because some variable was not destroyed before the end, but thinDebug shows that it isn't the case.
123456789101112131415161718192021222324252627282930313233343536373839uses
"console"
string
strComputer =
"."
iDispatch
objWMIService =
GetObject
(
"winmgmts:{impersonationLevel=impersonate}!\\"
& strComputer &
"\root\cimv2"
)
if
IsComObject
(objWMIService)
Then
iDispatch
colItems = objWMIService.ExecQuery(
"SELECT * FROM Win32_Volume"
)
if
IsComObject
(colItems)
Then
iDispatch
objItem
For
nItem
as
long
= 1
to
colItems.Count
objItem = colItems.ItemIndex(nItem - 1)
'---First item in collectins starts at 0
printl
$
tab
,
"Name..............: "
, objItem.
Name
objItem =
Nothing
Next
colItems =
Nothing
Else
end
If
objWMIService =
Nothing
Else
end
If
Printl
"Press a key to end."
WaitKey
ThinBasic 1.11.6.0 ALPHA - Windows 8.1 x64
Ciao,
yes I confirm it crashed at the end.
I think it is something related to OLE32 de-initialize
Will check
Thanks for reporting
Eros
12345678910111213141516171819202122232425262728293031323334
<Provider
Name
=
"Application Error"
/>
<EventID Qualifiers=
"0"
>1000</EventID>
<Version>0</Version>
<Level>2</Level>
<Task>100</Task>
<Opcode>0</Opcode>
<Keywords>0x80000000000000</Keywords>
<TimeCreated SystemTime=
"2020-01-25T10:41:44.9695929Z"
/>
<EventRecordID>24657</EventRecordID>
<Correlation />
<Execution ProcessID=
"0"
ThreadID=
"0"
/>
<Channel>Application</Channel>
<Computer>EOlmi-HPEB8540W</Computer>
<Security />
</System>
<EventData>
<Data>thinBasic.exe</Data>
<Data>1.11.3.0</Data>
<Data>00003039</Data>
<Data>OLEAUT32.dll</Data>
<Data>10.0.19041.1</Data>
<Data>d273657c</Data>
<Data>c0000005</Data>
<Data>0001eae4</Data>
<Data>1874</Data>
<Data>01d5d36c0691fb7b</Data>
<Data>C:\thinBasic\thinBasic.exe</Data>
<Data>C:\WINDOWS\System32\OLEAUT32.dll</Data>
<Data>4e8fd6b1-e8ef-47eb-89f4-443540c8ce3d</Data>
<Data />
<Data />
</EventData>
</Event>
www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000
Bookmarks