11-05-2009, 11:48 PM
Now the code i have below, works perfectly fine for Windows Vista! Now, i use, Windows XP, and it was working perfectly fine the other day, but now, its not gathering the date of the IM Windows and putting them inside the Combo-box how i made it.
The exe name for YM 9 is, YAHOOM~1 , and the class is, ALT007CO7F0
The intial name is, " Yahoo! Messenger "
The code i have below is stubborn and works when it feels like it ? Why is this so ? I've worked and tryed many possible solutions, but the one you see below, is the only one that i can create that works, but has a mind of its own! Like i said, it works fine for, Windows Vista, and works when it wants for for Windows XP ?
Do you know why this code does not work 100 % like im trying to get it ....
Function Yahoo
The exe name for YM 9 is, YAHOOM~1 , and the class is, ALT007CO7F0
The intial name is, " Yahoo! Messenger "
The code i have below is stubborn and works when it feels like it ? Why is this so ? I've worked and tryed many possible solutions, but the one you see below, is the only one that i can create that works, but has a mind of its own! Like i said, it works fine for, Windows Vista, and works when it wants for for Windows XP ?
Do you know why this code does not work 100 % like im trying to get it ....
Function Yahoo
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str YM=
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 153 78 "Dialog"
;1 Button 0x54030001 0x4 12 46 48 14 "OK"
;2 Button 0x54030000 0x4 92 46 48 14 "Cancel"
;3 ComboBox 0x54230243 0x0 12 18 130 213 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2030109 "" "" ""
str controls = "3"
str cb3
if(!ShowDialog(YM &Yahoo &controls)) ret
ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case CBN_DROPDOWN<<16|3
,ARRAY(int) IDS; int i; str sc sn Final
,Final=""
,win("" "" "YAHOOMESSENGER" 0 0 0 IDS)
,for(i 0 IDS.len)
,,sn.getwintext(IDS[i])
,,if(sn != "Yahoo! Messenger")
,,,if(Final != "")
,,,,Final+"[]"
,,,,Final+sn
,,,else
,,,,Final+sn
,if(Final = "")
,,Final = "(No Yahoo's are Open)"
,ARRAY(str) b=Final
,b.sort(2)
,Final=b
,/Final.replacerx(" - Instant Message")
,TO_CBFill(lParam Final)
,case IDOK
,case IDCANCEL
ret 1