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. 😞


Anmelden zum Antworten