Problem with Wait Statements -for Childwindow and for Acc

[lXlXlXlXlXlXl]

it works for qm forum this is full code maybe the site is slow to load.
Function Dialog3

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "5 8 10"
str ax3SHD e5 e8
ax3SHD="http://www.quickmacros.com/forum/ucp.php?mode=login"
if(!ShowDialog("Dialog3" &Dialog3 &controls)) ret
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x0 0 0 222 135 "Dialog"
;1 Button 0x54030000 0x0 0 0 48 14 "a"
;2 Button 0x54032000 0x0 48 0 54 14 "b"
;3 Button 0x54032000 0x0 102 0 72 14 "Scan Name"
;4 Button 0x54032000 0x0 174 0 48 14 "STOP"
;5 ActiveX 0x54030000 0x0 0 0 2 4 "SHDocVw.WebBrowser"
;6 Static 0x54000000 0x0 6 30 212 22 "Please type your log in info, and then click log-in."
;7 Edit 0x54030080 0x200 12 68 190 14 ""
;8 Static 0x54000000 0x0 82 54 48 10 "Username"
;9 Static 0x54000000 0x0 88 86 36 12 "Password"
;10 Edit 0x54030020 0x200 12 100 192 14 ""
;11 Button 0x54032000 0x0 84 116 48 14 "Login"
;END DIALOG
;DIALOG EDITOR: "" 0x2030208 "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_TIMER
,sel 1
,,case 1
,,RECT r;int hwnd0 hwnd1
,,GetWindowRect(hDlg &r)
,,int x y cx cy
,,GetWinXY hDlg x y cx cy
,,MoveWindow id(5 hDlg) x-x y-y r.right-r.left r.bottom-r.top 1
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,ret
,case 3
,_s="http://www.quickmacros.com/forum/index.php"
,_s.setwintext(id(5 hDlg))
,mac "ScanName" hDlg
,case 11
,Acc a
,opt err 1
,0.5
,_s.getwintext(id(7 hDlg))
,a=acc("Username:" "TEXT" hDlg "Internet Explorer_Server" "" 0x1811 0x0 0x20000040)
,a.SetValue(_s)
,_s.getwintext(id(10 hDlg))
,a=acc("Password:" "TEXT" hDlg "Internet Explorer_Server" "" 0x1811 0x20000000 0x20000040)
,a.SetValue(_s)
,0.1
,a=acc("Login" "PUSHBUTTON" hDlg "Internet Explorer_Server" "" 0x1011)
,a.DoDefaultAction
,opt err 0
,SetTimer hDlg 1 700 0
,case IDCANCEL
ret 1

Function ScanName

Code:

Copy      Help

int hwnd=val(_command)
str name1 listofnames="Board index[]Untitled[]QM and Forum Info"

;start
Acc a

foreach name1 listofnames
,a=acc(name1 "LINK" hwnd "Internet Explorer_Server" "" 0x1010); err
,str name=a.Name
,if matchw(name name1)
,,out name
,out "1"