visualbasic700e
12-09-2000, 05:49 AM
Help
'----- Created By Xinon Visual Basic API Spy Code Generator -----
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'Begin Codng Engine - Searching For Button
'---- Object Stats ----
'Object hWnd #:2116
'Object Class: Button
'Object Text: OK
'Win 0: 2116
'Win 1: 1400
'Win 2: 2372
Function Find_Button_X1()
'----- Created By Xinon Visual Basic API Spy Code Generator -----
Win_Buff2 = FindWindow ("IEFrame", "MSN Chat - Microsoft Internet Explorer") ' First Attempt To Find Main Window
If Win_Buff2 = 0 Then Win_Buff2 = FindWindow ( "IEFrame", vbNullString) ' Seccond Attempt To Find Main Window
'[Real Time Code Test] First Code Works For Win_Buff2
'[Real Time Code Test] Seccond Code Works For Win_Buff2
'!!-[Real Time Code Test] --->> ErrChk1 = 2372 - ErrChk2 = 2372 - Target Win = 2372 - Parent Win = 0
Win_Buff1 = FindChildByClass (Win_Buff2, "#32770")
If Win_Buff1 = 0 Then Win_Buff1 = FindChildByTitle (Win_Buff2, "Custom Kick/Ban")
'!!-[Real Time Code Test] Trying Alternatives ^|^KEEP ALL ABOVE CODE^|^
'!!-[Real Time Code Test] --->> ErrChk1 = 0 - ErrChk2 = 0 - Target Win = 1400 - Parent Win = 2372
''***********************************************************''
' The Coding Engine Couldent Find This Window With GetWindow...
' ** You Will Have To Find The Code Manually **
''***********************************************************''
'!!-[Real Time Code Test] --->> ErrChk1 = 0 - ErrChk2 = 0 - Target Win = 1400 - Parent Win = 2372
Win_Buff0 = FindChildByTitle (Win_Buff1, "OK")
If Win_Buff0 = 0 Then Win_Buff0 = FindChildByClass (Win_Buff1, "Button")
'[Real Time Code Test] First Code Works For Win_Buff0
'[Real Time Code Test] Seccond Code Does NOT Work For Win_Buff0
'!!-[Real Time Code Test] --->> ErrChk1 = 2116 - ErrChk2 = 2112 - Target Win = 2116 - Parent Win = 1400
Find_Button_X1 = Win_Buff0
' Code Done - <<-- Test Code To Make Sure It Works -->> [Code Created In: 31.47 sec]
End Function
<P ID="edit"><FONT SIZE=-1><EM>Edited by visualbasic700e on 12/09/00 06:51 AM (server time).</EM></FONT></P>
'----- Created By Xinon Visual Basic API Spy Code Generator -----
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'Begin Codng Engine - Searching For Button
'---- Object Stats ----
'Object hWnd #:2116
'Object Class: Button
'Object Text: OK
'Win 0: 2116
'Win 1: 1400
'Win 2: 2372
Function Find_Button_X1()
'----- Created By Xinon Visual Basic API Spy Code Generator -----
Win_Buff2 = FindWindow ("IEFrame", "MSN Chat - Microsoft Internet Explorer") ' First Attempt To Find Main Window
If Win_Buff2 = 0 Then Win_Buff2 = FindWindow ( "IEFrame", vbNullString) ' Seccond Attempt To Find Main Window
'[Real Time Code Test] First Code Works For Win_Buff2
'[Real Time Code Test] Seccond Code Works For Win_Buff2
'!!-[Real Time Code Test] --->> ErrChk1 = 2372 - ErrChk2 = 2372 - Target Win = 2372 - Parent Win = 0
Win_Buff1 = FindChildByClass (Win_Buff2, "#32770")
If Win_Buff1 = 0 Then Win_Buff1 = FindChildByTitle (Win_Buff2, "Custom Kick/Ban")
'!!-[Real Time Code Test] Trying Alternatives ^|^KEEP ALL ABOVE CODE^|^
'!!-[Real Time Code Test] --->> ErrChk1 = 0 - ErrChk2 = 0 - Target Win = 1400 - Parent Win = 2372
''***********************************************************''
' The Coding Engine Couldent Find This Window With GetWindow...
' ** You Will Have To Find The Code Manually **
''***********************************************************''
'!!-[Real Time Code Test] --->> ErrChk1 = 0 - ErrChk2 = 0 - Target Win = 1400 - Parent Win = 2372
Win_Buff0 = FindChildByTitle (Win_Buff1, "OK")
If Win_Buff0 = 0 Then Win_Buff0 = FindChildByClass (Win_Buff1, "Button")
'[Real Time Code Test] First Code Works For Win_Buff0
'[Real Time Code Test] Seccond Code Does NOT Work For Win_Buff0
'!!-[Real Time Code Test] --->> ErrChk1 = 2116 - ErrChk2 = 2112 - Target Win = 2116 - Parent Win = 1400
Find_Button_X1 = Win_Buff0
' Code Done - <<-- Test Code To Make Sure It Works -->> [Code Created In: 31.47 sec]
End Function
<P ID="edit"><FONT SIZE=-1><EM>Edited by visualbasic700e on 12/09/00 06:51 AM (server time).</EM></FONT></P>