קצת חלוד ב-VB אז החלטתי להשתעשע קצת.
ניסיתי להשתמש בקריאות api דרך visual basic ל-ICQ.
עכשיו, הקריאות נעשות דרך הספרייה icqmapi.dll ומה שאני רוצה לעשות זה לשלוח הודעה למספר ICQ מסויים.
Dim x As Boolean
Private Declare Function SendMessage Lib "ICQMAPI.dll" Alias _
"ICQAPICall_SendMessage" (ByVal iUin As Long, _
ByVal pszMessage As String) As Boolean
x = SendMessage(text1.text, text2.text)
x מחזיר לי false.
ניסיתי להשתמש בקריאה SetLicenseKey
sName = "Visual Basic"
sPassword = "aaaaaaaa"
sLicense = "E94AD7C14D1DBAE8"
Rtn = SetLicenseKey(sName, sPassword, sLicense)
שאגב מחזירה true...אבל אין לי שמץ למה זה לא עובד, כי זה אמור לפתוח את החלון דיאלוג של ההודעה. יכול להיות קובץ ה-DLL או משהו שאני שם בקוד לא נכון? ד"א אני משתמש ב icq 5.1