Abandoned [RELEASE] Trade Computer Extension

Status
Thread Closed: Not open for further replies.
Damn - first time I have used EliteOCR tonight and it's doing the "Image too small" thing with a blank screenshot :(

- - - Updated - - -

Restarted and same thing - not looking great

- - - Updated - - -

Restarted - same again

I'm going back to the test version you did for me yesterday
 
I started using this last week. I was spending far too much time with spreadsheets before I found this. I had some installation issues but was able to work through them with the FAQ. I had found a few bugs but 1.39 seems to have solved them. I must say the tool is almost perfect now and the updates you mention to capture more notes will be helpful (I do find myself noting in the system log where certain rare ships and equipment can be found, or good mineral deposits). I would love to see a trade route optimizer that could handle more than a single origin, destination pair. That would make it pretty much perfect for me.

I do really like that it doesn't crowd source since you have to put in all your own data manually or with EliteOCR. Since you aren't grabbing any of the data directly from ED people who complain about cheating must not actually understand how it works. Yes people do have to trust you aren't putting bad code in but they can look at it themselves or just not use it if they are worried.

I must say that this is an excellent tool. Eventure, you must have put a lot of time into this. Bravo. Amazing. We are fortunate you have done this. I can't believe you spent so much effort into this when you could have been playing.
 
small error, runtime 9 when entering notes for a system, going to next station, clicking station database again.

Found the issue, new update comes shortly.

I started using this last week. I was spending far too much time with spreadsheets before I found this. I had some installation issues but was able to work through them with the FAQ. I had found a few bugs but 1.39 seems to have solved them. I must say the tool is almost perfect now and the updates you mention to capture more notes will be helpful (I do find myself noting in the system log where certain rare ships and equipment can be found, or good mineral deposits). I would love to see a trade route optimizer that could handle more than a single origin, destination pair. That would make it pretty much perfect for me.

I do really like that it doesn't crowd source since you have to put in all your own data manually or with EliteOCR. Since you aren't grabbing any of the data directly from ED people who complain about cheating must not actually understand how it works. Yes people do have to trust you aren't putting bad code in but they can look at it themselves or just not use it if they are worried.

I must say that this is an excellent tool. Eventure, you must have put a lot of time into this. Bravo. Amazing. We are fortunate you have done this. I can't believe you spent so much effort into this when you could have been playing.

Thanks for your kind words. Nearly 7 months of development plus 2 month on open playtesting leads to this stage of features. I really like to see, when things fit together. ED and Excel are a good example for me. Because i like programming since my C64 in 1984 it is a hobby of me. ED and the community brings this to a new level.

Only using ED on main monitor. I have TCE on side monitor as I prefer to not clutter the main screen.
Definitely not spreading ED around monitors though
EliteOCR on its own works fine.

Try ED in windowed mode. At least that should work flawless.


Update (V1.39c) released:

Changelog:
- Bugfix at Station Database panel (Runtime 9)
- Bugfix in Trade panel (Notebox doesnt fit correctly)
- TCE_setup V1.03 (added UI settings with predefined x/y positions)
 
Last edited:
I always play in windowed mode anyway, so I guess that's not the answer.
I just played for about 3 hours with TCE and EliteOCR working fine. The only differences were that I had closed Firefox and disabled my third monitor.
Is there any way that Firefox could be causing the problem ?

- - - Updated - - -

I always play in windowed mode anyway, so I guess that's not the answer.
I just played for about 3 hours with TCE and EliteOCR working fine. The only differences were that I had closed Firefox and disabled my third monitor.
Is there any way that Firefox could be causing the problem ?

Actually - hang on. I always play in borderless Window mode - should I try normal Window mode ?
 
I always play in borderless Window mode - should I try normal Window mode ?

I used to play in Window and it worked fine and I have been playing in borderless for months now without any problems !

My bet would be more on not having the main panel on your main monitor.

As for Firefox, is quite possible, especially if you are running macros in it !
It's very easy to test,
just use Chrome (without any addon) for a while, at least when you are playing.
I have it open all the time and it has not cause any problem for me.
You will see pretty quickly if there is any improvement !
 
Last edited:
Please update your Office to the lastest service pack and install the Access runtine for your version.

LOL, I knew I was missing something obvious.. I had already installed the latest service pack but hadn't installed the access runtime.
Elite OCR is now working flawlessly with this and all is well. Thankyou!
 
I used to play in Window and it worked fine and I have been playing in borderless for months now without any problems !

My bet would be more on not having the main panel on your main monitor.

As for Firefox, is quite possible, especially if you are running macros in it !
It's very easy to test,
just use Chrome (without any addon) for a while, at least when you are playing.
I have it open all the time and it has not cause any problem for me.
You will see pretty quickly if there is any improvement !

Well I have been playing with the main panel on my main monitor for days and the problem occurred again when I returned to using 3 monitors with FireFox on the right hand one.
I am trying tonight with no FireFox and 2 monitors to see what happens.
 
Well I have been playing with the main panel on my main monitor for days and the problem occurred again when I returned to using 3 monitors with FireFox on the right hand one.
I am trying tonight with no FireFox and 2 monitors to see what happens.

do you have nvidia or ati/amd?
i have a radeon 7970, 3 monitors(different size, but sharing full hd resolution), set to 'one' display using eyefinity. i have tce running on the left panel, the scan commodities panel on the main, firefox often running in the background, elite set to borderless, using trackir5.
i'm having absolutely no problems running this setup. it has to be located elsewhere.
 
I have NVidea
I have been running 2 monitors all night with no FireFox and TCE/EliteOCR have been running without the normal issues that I see (blank screenshots & "Image Too Small" in the EliteOCR debug).
I have seen "Excel has stopped working" errors in Windows about 3 times in 3/4 hours.
Next time I am on I will bring back the third monitor and see what happens.
 
Sorry but we have a problem with the C upgrade.

TCE.xlsm will not compile under VBA v7.1 on Office 2013 64bit version.

The problem is with the new Screenshot method using the ptrsafe method whereas the old screenshot system worked flawlessly.
Maybe an option to use the new or old method or detect when using 64 bit Office.

Not sure what would be best for me to do. Go back to Office 2007 32 bit or try Office 2013 32 bit or carry on with Update B and hope you find a solution?

Cheers.
 
V1.39c

First run with v1.39c

Fist click on (Reset and) Scan

Compile error:
Type mismatch

Can't execute code in break mode

Option Explicit

' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005

#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If

'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters

strTitle As String 'INPUT
hWnd As Long 'OUTPUT

End Type


Public Function FnFindWindowLike(strWindowTitle As String) As Long


'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter


Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))

FnFindWindowLike = Parameters.hWnd

End Function


Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long

Dim strWindowTitle As String


strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator

If strWindowTitle Like lParam.strTitle Then

lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows

Else


EnumWindowProc = 1


End If

End Function


Private Function TrimNull(strNullTerminatedString As String)


Dim lngPos As Long


'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))

If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If

End Function


Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.

Tried fresh install in brand new folder with the same result.

Have to revert back to v1.39b until fix.
 
Last edited:
First run with v1.39c

Fist click on (Reset and) Scan

Compile error:
Type mismatch

Can't execute code in break mode

Option Explicit

' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005

#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If

'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters

strTitle As String 'INPUT
hWnd As Long 'OUTPUT

End Type


Public Function FnFindWindowLike(strWindowTitle As String) As Long


'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter


Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))

FnFindWindowLike = Parameters.hWnd

End Function


Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long

Dim strWindowTitle As String


strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator

If strWindowTitle Like lParam.strTitle Then

lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows

Else


EnumWindowProc = 1


End If

End Function


Private Function TrimNull(strNullTerminatedString As String)


Dim lngPos As Long


'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))

If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If

End Function


Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.

Tried fresh install in brand new folder with the same result.

Have to revert back to v1.39b until fix.

similarly
 
First run with v1.39c

Fist click on (Reset and) Scan

Compile error:
Type mismatch

Can't execute code in break mode

Option Explicit

' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005

#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If

'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters

strTitle As String 'INPUT
hWnd As Long 'OUTPUT

End Type


Public Function FnFindWindowLike(strWindowTitle As String) As Long


'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter


Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))

FnFindWindowLike = Parameters.hWnd

End Function


Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long

Dim strWindowTitle As String


strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator

If strWindowTitle Like lParam.strTitle Then

lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows

Else


EnumWindowProc = 1


End If

End Function


Private Function TrimNull(strNullTerminatedString As String)


Dim lngPos As Long


'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))

If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If

End Function


Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.

Tried fresh install in brand new folder with the same result.

Have to revert back to v1.39b until fix.

Exactly as my earlier post, will not run in 64 bit Office.
 
Sorry but we have a problem with the C upgrade.

TCE.xlsm will not compile under VBA v7.1 on Office 2013 64bit version.

The problem is with the new Screenshot method using the ptrsafe method whereas the old screenshot system worked flawlessly.
Maybe an option to use the new or old method or detect when using 64 bit Office.

Not sure what would be best for me to do. Go back to Office 2007 32 bit or try Office 2013 32 bit or carry on with Update B and hope you find a solution?

Cheers.

First run with v1.39c

Fist click on (Reset and) Scan

Compile error:
Type mismatch

Can't execute code in break mode

Option Explicit

' Module Name: ModFindWindowLike
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 02/06/2005

#If VBA7 Then
Private Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare PtrSafe Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If

'Custom structure for passing in the parameters in/out of the hook enumeration function
'Could use global variables instead, but this is nicer.
Private Type FindWindowParameters

strTitle As String 'INPUT
hWnd As Long 'OUTPUT

End Type


Public Function FnFindWindowLike(strWindowTitle As String) As Long


'We'll pass a custom structure in as the parameter to store our result...
Dim Parameters As FindWindowParameters
Parameters.strTitle = strWindowTitle ' Input parameter


Call EnumWindows(AddressOf EnumWindowProc, VarPtr(Parameters))

FnFindWindowLike = Parameters.hWnd

End Function


Private Function EnumWindowProc(ByVal hWnd As Long, _
lParam As FindWindowParameters) As Long

Dim strWindowTitle As String


strWindowTitle = Space(260)
Call GetWindowText(hWnd, strWindowTitle, 260)
strWindowTitle = TrimNull(strWindowTitle) ' Remove extra null terminator

If strWindowTitle Like lParam.strTitle Then

lParam.hWnd = hWnd 'Store the result for later.
EnumWindowProc = 0 'This will stop enumerating more windows

Else


EnumWindowProc = 1


End If

End Function


Private Function TrimNull(strNullTerminatedString As String)


Dim lngPos As Long


'Remove unnecessary null terminator
lngPos = InStr(strNullTerminatedString, Chr$(0))

If lngPos Then
TrimNull = Left$(strNullTerminatedString, lngPos - 1)
Else
TrimNull = strNullTerminatedString
End If

End Function


Tried a few times,
Getting the same error on UPDATE ONLY SCAN when clicking the SCAN button.

Tried fresh install in brand new folder with the same result.

Have to revert back to v1.39b until fix.

Working with 32bit Excel, so i miss the problem. Because i cant test 64bit, i will release a test-version for all 64bit users, that should fix the problem. If it goes well, i release the 1.39d version asap with this fix. Till the release i suggest using the 1.39b version.

Test-Version (1.39c 64bit) released:

Changelog:
- Should fix the compile error at the screencap routine for Excel 64bit.

Note: This release is only for Excel 64bit users. If you using Excel 32bit, you dont need to download it.
 
Last edited:
Status
Thread Closed: Not open for further replies.
Back
Top Bottom