ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý©I¥s¨ç¦¡«áIJµoªº¨Æ¥ó¸ê°T¦^¶Ç

[µo°Ý] ½Ð°Ý©I¥s¨ç¦¡«áIJµoªº¨Æ¥ó¸ê°T¦^¶Ç

¦U¦ì¦n
   ¦]¬°¸s¯q´Á³fªñ¤é­n§ó´«¤U³æ¤¸¥ó¡A¥Ø«e¬Ý¸Ó¦p¦óÂà´«
   ¥H«e¦³½d¨Òµ{¦¡ÁÙº¡¦n§ïªº¡A¦Ó·sªº¤¸¥ó°£¤F¨Ï¥Îªº¨ç¼Æ»¡©ú
   ³Ñ¤U­n¨Ï¥ÎªÌ¦Û¤v§Ë¤F¡C
  1. Dim SKord As SKOrderLib

  2. Sub SK_Ord_Int()
  3.   Dim Status As Variant
  4.   Set SKord = New SKOrderLib
  5.   
  6.   Status = SKord.SKOrderLib_Initialize           '¤U³æ¤¸¥óªì©l
  7.   Status = Status + SKord.GetUserAccount  '¨ú±o¨Ï¥ÎªÌ±b¸¹¸ê°T
  8.       '?? ¤£ª¾¸Ó¦p¦óIJµoOnAccount  ±o¨ì¦^¶Ç¸ê®Æ
  9.   If Status = 0 Then
  10.      OTS.Cells(1, 2) = "µn¤J¦¨¥\"
  11.     Else
  12.      OTS.Cells(1, 2) = Status
  13.      Status = 0
  14.   End If
  15.   
  16.   Status = SKord.ReadCertByID("A*********")  '¥æ©ö¤H¨­¥÷±b¸¹
  17.   
  18.   If Status = 0 Then
  19.      OTS.Cells(1, 3) = "Ū¨ú¾ÌÃÒ¦¨¥\"
  20.     Else
  21.      OTS.Cells(1, 3) = Status
  22.   End If
  23.   
  24. End Sub
½Æ»s¥N½X
¨ä¤¤
1.GetUserAccount
   ¨ú¦^¥Ø«e¥i¥æ©öªº©Ò¦³±b¸¹¡C¸ê®Æ¥ÑOnAccount¨Æ¥ó¦^¶Ç¡C

2.OnAccount
    ±b¸¹¸ê°T¡C³z¹L©I¥sGetUserAccount«á¡A±b¸¹¸ê°T¥Ñ¸Ó¨Æ¥ó¦^¶Ç¡C
«Å§i        void OnAccount([in] BSTR bstrLogInID, [in] BSTR bstrAccountData  );
°Ñ¼Æ        bstrLogInID        µn¤JID
                bstrAccountData          ±b¸¹¸ê°T¡C¥H³rÂI¤À¹j¨C¤@­ÓÄæ¦ì¡AÄæ¦ì¨Ì§Ç¬°¡G
                     ¡y¥«³õ,¤À¤½¥q,¤À¤½¥q¥N¸¹,±b¸¹,¨­¥÷ÃÒ¦r¸¹,©m¦W¡z

ª«¥óÂsÄý¾¹µøµ¡


»¡©ú¤å¥ó
µ¦²¤¤ýCOM¤¸¥ó¨Ï¥Î»¡©ú.zip (380.65 KB)

·PÁ½Ѧì«ü¾É ÁÂÁÂ
Big Tom

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD