http://www.purebasic.com
https://www.purebasic.fr/english/
Thanks.ts-soft wrote:Thx for bugreport. Download the fixed version in first post!
I had a program that called the following public procedures:ts-soft wrote:PS: AW_FindWindow is not a public function
Code: Select all
AW_ChangeMatchMode(#AW_MatchParaIsHwnd)
AW_WinWaitClose(Str(hWnd))Hits-soft wrote:The code compiles fine with 5.31, as include. I can't find any error.
Code: Select all
EnableExplicit
Define.s Title
RunProgram("notepad")
Select GetUserDefaultLCID_()
Case 1031; german
Title = "Unbenannt"
Default
Title = "Untitled"
EndSelect
If AW_WinWait(Title, 10)
AW_WinActivate(Title)
AW_SendKeys("Feel the ..Pure.. Power{ENTER}{ENTER}of PureBasic.")
Delay(3000)
AW_WinActivate(Title)
AW_SendKeys("{ALTDOWN}{F4}{ALTUP}")
Delay(3000)
If AW_WinExists(Title)
AW_WinKill(Title)
EndIf
EndIf
/code]( And improving the readability by putting the code in proper [ code ] tags will help others to help you. )ts-soft wrote:To compile as tailbites userlib (not recommend), you have to use a compatible
version of tailbite.
Hi IdeasVacuumIdeasVacuum wrote:Well, the error message says it can't find the Misc lib, which suggests that the AutoWin lib includes a procedure found in Misc?
Is that an issue caused by using TailBite? I seem to recall that from way back when.
ly47, if you are using TailBite, try an XIncludeFile of AutoWin_Include.pbi instead.
Code: Select all
Define.s Title, myTitle
Define.i dly = 1111
RunProgram("notepad")
Define.i lcid
; lcid = GetUserDefaultLCID_()
; Debug Str(lcid)
Select GetUserDefaultLCID_()
Case 1031; german
Title = "Unbenannt"
Default
Title = "Untitled - Notepad"
EndSelect
; If AW_WinWait(Title,10)
; AW_WinActivate(Title)
; myTitle = AW_WinGetTitle2(Title)
; Debug myTitle
Delay(dly)
; AW_WinMove(Title, 10, 10)
Delay(dly)
AW_SendKeys("Feel the ..Pure.. Power{ENTER}{ENTER}of PureBasic.")
Delay(dly)
; AW_WinActivate(Title)
; Delay(dly)
AW_SendKeys("{ALTDOWN}{F4}{ALTUP}")
Delay(dly)
AW_SendKeys("{TAB}")
Delay(dly)
AW_SendKeys("{ENTER}")
; If AW_WinExists(Title)
; AW_WinKill(Title)
; EndIf
; EndIf
Code: Select all
Macro AW_ControlClick(title, controlID, Button = #PB_Button_Left, clicks = 1, x = -1, y = -1)
AW_ControlClick3(title, controlID, Button, clicks, x, y)
EndMacro
Macro MAKELPARAM(x, y)
(y<<16) | x
EndMacro
ProcedureDLL AW_ControlClick3(title.s, controlID.s, Button, clicks, x, y)
Protected i
Protected *param.AW_WinParameter
*param = AW_FindWindow(title)
If *param\hWnd
*param = AW_FindControl(*param\hWnd, controlID.s)
If *param\hWnd
Select Button
Case #PB_Button_Left
For i = 1 To clicks
If x > -1 And y > -1
PostMessage_(*param\hWnd, #WM_LBUTTONDOWN, 0, MAKELPARAM(x, y))
PostMessage_(*param\hWnd, #WM_LBUTTONUP, 0, MAKELPARAM(x, y))
Else
PostMessage_(*param\hWnd, #WM_LBUTTONDOWN, 0, 0)
PostMessage_(*param\hWnd, #WM_LBUTTONUP, 0, 0)
EndIf
If i < clicks
Delay(GetDoubleClickTime_())
EndIf
Next
ProcedureReturn #True
Case #PB_Button_Right
For i = 1 To clicks
If x > -1 And y > -1
PostMessage_(*param\hWnd, #WM_RBUTTONDOWN, 0, MAKELPARAM(x, y))
PostMessage_(*param\hWnd, #WM_RBUTTONUP, 0, MAKELPARAM(x, y))
Else
PostMessage_(*param\hWnd, #WM_RBUTTONDOWN, 0, 0)
PostMessage_(*param\hWnd, #WM_RBUTTONUP, 0, 0)
EndIf
If i < clicks
Delay(GetDoubleClickTime_())
EndIf
Next
ProcedureReturn #True
EndSelect
EndIf
EndIf
EndProcedure(asking ts-soft for creating an AutoWin userlib that is compatible with the current PB version)Pasch3 wrote:Hallo Thomas alias TS-Soft,
besteht die Möglichkeit, dass Du für AutoWin eine UserLibrary erstellst, die mit der aktuellen Purebasic -Version arbeitet?
Not recommending this is a good advice.ts-soft wrote:compile as tailbites userlib (not recommend)