- ©«¤l
- 4
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- Office 2003 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-9-8
- ³Ì«áµn¿ý
- 2021-6-27
|
[µo°Ý] ½Ð°Ý©I¥s¨ç¦¡«áIJµoªº¨Æ¥ó¸ê°T¦^¶Ç
¦U¦ì¦n
¦]¬°¸s¯q´Á³fªñ¤én§ó´«¤U³æ¤¸¥ó¡A¥Ø«e¬Ý¸Ó¦p¦óÂà´«
¥H«e¦³½d¨Òµ{¦¡ÁÙº¡¦n§ïªº¡A¦Ó·sªº¤¸¥ó°£¤F¨Ï¥Îªº¨ç¼Æ»¡©ú
³Ñ¤Un¨Ï¥ÎªÌ¦Û¤v§Ë¤F¡C- Dim SKord As SKOrderLib
- Sub SK_Ord_Int()
- Dim Status As Variant
- Set SKord = New SKOrderLib
-
- Status = SKord.SKOrderLib_Initialize '¤U³æ¤¸¥óªì©l
- Status = Status + SKord.GetUserAccount '¨ú±o¨Ï¥ÎªÌ±b¸¹¸ê°T
- '?? ¤£ª¾¸Ó¦p¦óIJµoOnAccount ±o¨ì¦^¶Ç¸ê®Æ
- If Status = 0 Then
- OTS.Cells(1, 2) = "µn¤J¦¨¥\"
- Else
- OTS.Cells(1, 2) = Status
- Status = 0
- End If
-
- Status = SKord.ReadCertByID("A*********") '¥æ©ö¤H¨¥÷±b¸¹
-
- If Status = 0 Then
- OTS.Cells(1, 3) = "Ū¨ú¾ÌÃÒ¦¨¥\"
- Else
- OTS.Cells(1, 3) = Status
- End If
-
- 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Á½Ѧì«ü¾É ÁÂÁ |
|