VBµôÓÃC++дµÄDLL³öÏÖµÄÎÊÌ⣬´ó¼ÒÌÖÂÛÌÖÂÛ
vbµôÓÃCЩµÄSOCKETͨÐÅDLL
ÏÈÌùCÖк¯ÊýÉùÃ÷´úÂë
extern "C" int PASCAL EXPORT Commit(
char * serverAddr, //·þÎñÆ÷IPµØÖ· in
int serverPort, //·þÎñÆ÷¶Ë¿ÚºÅ in
char * sndBuf, //·¢ËÍ»º³åÇø in
int sndDataLen, //·¢ËÍ»º³åÇøÖÐÊý¾ÝµÄ³¤¶È in
char * rcvBuf, //½ÓÊÕ»º³åÇø out
int rcvBufLen, //½ÓÊÕ»º³åÇøµÄ´óС in
LPINT rcvDataLen, //½ÓÊÕ»º³åÇøÖÐÊý¾ÝµÄ³¤¶È out
int conTimeout = 5, //Á¬½Ó³¬Ê±Ê±¼ä Ãë in
int sndTimeout = 5, //·¢Ëͳ¬Ê±Ê±¼ä Ãë in
int rcvTimeout = 10 //½ÓÊÕ³¬Ê±Ê±¼ä Ãë in
)
ÏÂÃæÊÇvbÖеÄÉùÃ÷´úÂë
Private Declare Function Commit Lib "mmsCrypto.dll" ( _
ByVal serverAddr As String, _
ByVal serverPort As Integer, _
ByRef sndBuf As Byte, _
ByVal sndDataLen As Integer, _
ByRef rcvBuf As Byte, _
ByVal RcvBu
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
´ó¼ÒºÃ£º
ÎÒÏëʵÏÖ¼ì²âµ½²åÈëSD¿¨ºó×Ô¶¯½«SD¿¨¸ñʽ»¯µÄ¹¦ÄÜ£¬²»ÖªC/C++ÖÐÓÐûÓиñʽ»¯UÅ̵ĺ¯Êý£¿
ÁíÍ⣬ÎÒ²»ÏëʹÓÃSHFormatDrive£¬ÒòΪÕâ¸öº¯Êý»áµ¯³öÊÇ·ñÒª¸ñʽ»¯µÄÌáʾ¿ò£¬ÎÒÐèÒªµÄÊÇϵͳ×Ô¶¯¸ñʽ»¯£¬¶ø²Ù×÷Õß² ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......