1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#muuid {0324785E-74CE-4600-B781-851773B3EFC5}
;langpack template for Contacts
;file E:\Sources\myranda\plugins\ContactsPlus\res\contacts.rc
[&A]
[6]
[&D]
[&H]
[Choose contacts to be send:]
[&Send]
[Cancel]
[&Select All]
[Add to &group:]
[&Add]
[&Details]
[Close]
[An error has occured. The protocol reported the following error:]
[Try again]
[Popup]
[Add to List]
[User Details]
[Send Message]
;file E:\Sources\myranda\plugins\ContactsPlus\src\main.cpp
[Contacts received from", tmp), (TCHAR*)GetContactDisplayNameT(hContact));\r\n\r\n cle.ptszTooltip = caToolTip;\r\n if (g_UnicodeCore)\r\n cle.flags |= CLEF_UNICODE;\r\n CallService(MS_CLIST_ADDEVENT, 0, (LPARAM)&cle);\r\n }\r\n return 0; //continue processing by other hooks\r\n}\r\n\r\n\r\nstatic void ProcessUnreadEvents(void)\r\n{\r\n DBEVENTINFO dbei = {0};\r\n HANDLE hDbEvent,hContact;\r\n\r\n dbei.cbSize = sizeof(dbei);\r\n\r\n hContact = SRCFindFirstContact();\r\n while (hContact)\r\n {\r\n hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDFIRSTUNREAD,(WPARAM)hContact,0);\r\n\r\n while (hDbEvent)\r\n {\r\n dbei.cbBlob=0;\r\n CallService(MS_DB_EVENT_GET,(WPARAM)hDbEvent,(LPARAM)&dbei);\r\n if (!(dbei.flags&(DBEF_SENT|DBEF_READ)) && dbei.eventType==EVENTTYPE_CONTACTS)\r\n { //process the event\r\n HookDBEventAdded((WPARAM)hContact, (LPARAM)hDbEvent);\r\n }\r\n hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDNEXT,(WPARAM)hDbEvent,0);\r\n }\r\n hContact = SRCFindNextContact(hContact);\r\n }\r\n}\r\n\r\n\r\nstatic bool CheckContactsServiceSupport(const char* szProto)\r\n{\r\n if (g_NewProtoAPI)\r\n { // there is no way to determine if the service exists (only proto_interface call is supported by 0.8+)\r\n if (CallProtoService(szProto, PS_GETCAPS, PFLAGNUM_1, 0) & PF1_CONTACTSEND)\r\n return true;\r\n }\r\n else\r\n { // check the real send service (only 0.7.x and older)\r\n char serstr[MAX_PATH+30];\r\n\r\n strcpy(serstr, szProto);\r\n strcat(serstr, PSS_CONTACTS);\r\n if (ServiceExists(serstr))\r\n return true;\r\n }\r\n return false;\r\n}\r\n\r\n\r\nstatic int HookPreBuildContactMenu(WPARAM wParam, LPARAM lParam)\r\n{\r\n HANDLE hContact = (HANDLE)wParam;\r\n char* szProto = GetContactProto(hContact);\r\n int bVisible = FALSE;\r\n\r\n if (szProto && CheckContactsServiceSupport(szProto))\r\n { // known protocol, protocol supports contacts sending\r\n // check the selected contact if it supports contacts receive\r\n if (CallProtoService(szProto, PS_GETCAPS, PFLAG_MAXCONTACTSPERPACKET, (LPARAM)hContact))\r\n bVisible = TRUE;\r\n }\r\n\r\n { // update contact menu item's visibility\r\n CLISTMENUITEM mi = {0};\r\n\r\n mi.cbSize = sizeof(mi);\r\n if (bVisible)\r\n mi.flags = CMIM_FLAGS;\r\n else\r\n mi.flags = CMIM_FLAGS | CMIF_HIDDEN;\r\n\r\n CallService(MS_CLIST_MODIFYMENUITEM, (WPARAM)hContactMenuItem, (LPARAM)&mi);\r\n }\r\n\r\n return 0;\r\n}\r\n\r\n\r\nstatic int HookModulesLoaded(WPARAM wParam, LPARAM lParam)\r\n{\r\n char* modules[2] = {0};\r\n WCHAR tmp[MAX_PATH];\r\n\r\n modules[0] = MODULENAME;\r\n CallService("DBEditorpp/RegisterModule",(WPARAM)modules,(LPARAM)1);\r\n\r\n CLISTMENUITEM mi = {0};\r\n mi.cbSize = sizeof(mi);\r\n mi.ptszName = SRCTranslateT("Contacts", tmp);\r\n mi.position = -2000009990; //position in menu\r\n mi.flags = CMIF_KEEPUNTRANSLATED;\r\n if (g_UnicodeCore)\r\n mi.flags |= CMIF_UNICODE;\r\n mi.pszService = MS_CONTACTS_SEND;\r\n mi.hIcon = LoadIcon(hInst, MAKEINTRESOURCE(IDI_CONTACTS));\r\n hContactMenuItem = Menu_AddContactMenuItem(&mi);\r\n\r\n hHookPreBuildContactMenu = HookEvent(ME_CLIST_PREBUILDCONTACTMENU, HookPreBuildContactMenu);\r\n\r\n ghSendWindowList = (HANDLE)CallService(MS_UTILS_ALLOCWINDOWLIST, 0, 0); // no need to destroy this\r\n ghRecvWindowList = (HANDLE)CallService(MS_UTILS_ALLOCWINDOWLIST, 0, 0); // no need to destroy this\r\n\r\n\r\n ProcessUnreadEvents();\r\n return 0;\r\n}\r\n\r\n\r\nstatic int HookContactSettingChanged(WPARAM wParam, LPARAM lParam)\r\n{\r\n DBCONTACTWRITESETTING *cws = (DBCONTACTWRITESETTING*)lParam;\r\n char *szProto = GetContactProto((HANDLE)wParam);\r\n\r\n if (strcmpnull(cws->szModule,"CList]
[Incoming Contacts]
[Outgoing Contacts]
|
