Yahooooo

[Snikers]

Ok so i'm trying to get " Id's " from Yahoo Instant Messenger into my combo box! Like that actual email address it self!

Like when i open yahoo im window and when i click on the combo box, the " id " should be in there! but it's not.. ?!

I've made the code and worked with it and no matter what i try to do, i can not get the yahoo ' Id ' on the combo box!

I've posted the code so you can see it and please tell me what im doing wrong!

Function YahooCombo

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "3"
str cb3
if(!ShowDialog("YahooCombo" &YahooCombo &controls)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 152 78 "Yahoo! Combo"
;1 Button 0x54030001 0x4 14 48 48 14 "OK"
;2 Button 0x54030000 0x4 88 48 48 14 "Cancel"
;3 ComboBox 0x54230243 0x0 12 12 126 213 ""
;END DIALOG
;DIALOG EDITOR: "" 0x203000D "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case CBN_SELENDOK<<16|3
,_i=CB_SelectedItem(lParam)
,case CBN_DROPDOWN<<16|3
,,ARRAY(int) a; int i; str sc sn Final
,,Final=""
,,win("" "" "YAHOOMESSENGER" 0 0 0 a)
,,for(i 0 a.len)
,,,sn.getwintext(a[i])
,,,if(sn != "Yahoo! Messenger")
,,,,if(Final != "")
,,,,,Final+"[]"
,,,,,Final+sn
,,,,else
,,,,,Final+sn
,,if(Final = "")
,,,Final = "(No Yahoo Window Is Open)"
,,ARRAY(str) b=Final    
,,b.sort(2)
,,Final=b
,,TO_CBFill(lParam Final)
,case IDOK
,case IDCANCEL
ret 1

[Gintaras]

The code is without tabs. To post QM code with tabs, copy it using menu Edit -> Other formats.

[Snikers]

I just added the tabs. I posted wrong

[Snikers]

Hello! Is there anyone out there!

I REPOSTED my macro above correctly this time!

Someone please tell me what im doing wrong on my macro above to why it

will not work when i try to use yahoo messenger with it !

[Gintaras]

I don't have YM. Tested with notepad. Adds all that are not "Untitled - Notepad"

Function YahooCombo

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "3"
str cb3
if(!ShowDialog("YahooCombo" &YahooCombo &controls)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 152 78 "Yahoo! Combo"
;1 Button 0x54030001 0x4 14 48 48 14 "OK"
;2 Button 0x54030000 0x4 88 48 48 14 "Cancel"
;3 ComboBox 0x54230243 0x0 12 12 126 213 ""
;END DIALOG
;DIALOG EDITOR: "" 0x203000D "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case CBN_SELENDOK<<16|3
,_i=CB_SelectedItem(lParam)
,case CBN_DROPDOWN<<16|3
,,ARRAY(int) a; int i; str sc sn Final
,,Final=""
,,win("" "" "NOTEPAD" 0 0 0 a)
,,for(i 0 a.len)
,,,sn.getwintext(a[i])
,,,out sn
,,,if(sn != "Untitled - Notepad")
,,,,if(Final != "")
,,,,,Final+"[]"
,,,,,Final+sn
,,,,else
,,,,,Final+sn
,,if(Final = "")
,,,Final = "(No Yahoo Window Is Open)"
,,ARRAY(str) b=Final
,,b.sort(2)
,,Final=b
,,TO_CBFill(lParam Final)
,case IDOK
,case IDCANCEL
ret 1

[crip]

Well the code works I tested with yahoo it will not work on a conf but thats a very easy fix. You may have to update your yahoo version I tested on yahoo version 9.0.0.2162