ICQ: Von VBasic nach C; WINApi
-
Hi,
ich hab damals VB programmiert. Heute kann ich es nicht mehr.
Trotzdem brauch ich dringent diesen Code in WinAPI:Function GetOnlineList() As Long Dim iCount as long, pPointer As Long, Lrtn as long Dim x As Integer Lrtn = ICQAPICall_GetOnlineListDetails(iCount, p2p) If iCount > 0 Then CopyMemory UserPointers(1), ByVal p2p, iCount * 4 For x = 1 To iCount pPointer = UserPointers(x) CopyMemory IcqUser.m_iUIN, ByVal pPointer, Len(IcqUser) Lrtn = ICQAPICall_GetFullUserData(IcqUser, lVersion) ' After this call all you need to do is store the user's variables into ' your own array type of the users information... ' Example: ' UserIDs.No(x).State = IcqUser.m_iStateFlags ' UserIDs.No(x).Gender = Int(IcqUser.m_bGender) ' UserIDs.No(x).Uin = IcqUser.m_iUIN ' UserIDs.No(x).Nick = IcqUser.m_szNickname ' UserIDs.No(x).IpAddress = IcqUser.m_iIP Next End If ICQAPIUtil_FreeUsers iCount, p2p ' free up ICQ's Memory GetOnlineList = iCount End Function
Wer wäre so freundlich und würde mir beim übersetzen helfen??
Achja:
ICQAPICall_GetFullUserData BOOL WINAPI ICQAPICall_GetFullUserData(BSICQAPI_User *pUser, int iVersion); • In (Arguments): pUser , iVersion • pUser - a pointer to a user struct (BSICQAPI_USER) with the m_iUIN field set to the user ICQ#. • iVersion - the ICQ API version the caller application expect to work with. • Out (Returns): pUser • pUser - the struct is filled with the user’s data • Description: the function fills the given user structure with the user’s details. ICQAPICall_GetOnlineListDetails BOOL WINAPI ICQAPICall_GetOnlineListDetails(int &iCount, BPSICQAPI_User **ppUsers); • In (Arguments): None • Out (Returns): iCount, ppUsers • iCount - the number of Users to follow • ppUsers - a pointer to the users’ array. • Description: The data returned is in the order of the online list, top to bottom. The users array is initialized with the user’s ICQ# (m_iUIN field) and the Window Handle (m_hFloatWindow) if the user is “floating”. The users array should be freed by calling ICQAPIUtil_FreeUsers to free each user structure and the array itself.
danke!
cu para
-
Hat sich erledigt. Hab nochmal in ein paar alten VB-Büchern nachgeschlagen und es doch noch zusammen bekommen.
-
sehr komisch...
-
hey, das wirst du ja wohl noch alleine hinbekommen, zumal du schon früher vb programmiert hast. das ist doch alles eigentlich ziemlich logisch. und wenn du was nicht kapierst schau doch wirklich mal in einem buch oder tutorial nach. :p
-
fang wenigstens schonmal ein bisschen selber an. du kannst mir nicht sagen, das du keine einzige zeile davon übersetzen kannst.