Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbÉùÃ÷µ÷ÊÔ,Çë´ó¼Ò°ïæ


×î½üµ÷Ò»¸öÒ½±£½Ó¿Ú£¬¾ÍÒ»¸öÉùÃ÷ºÍµ÷ÓõÄÎÊÌâÉÏ¿¨ÁËÒ»¸öÐÇÆÚûÓнâ¾ö£¬ºÍ½Ó¿ÚÉÌÖ»Òªµ½ÁËÒ»¸ödephiµÄÉùÃ÷£¬¶øÎÒÓõÄÊÇVB£¬ÔõôÕû¶¼²»ÐУ¬Çë´ó¼Ò°ï°ïÎÒ°É£¬

ÎÒÒѾ­·¢Ò»¸öÌû×Ó[DephiÉùÃ÷ÈçºÎתVBÉùÃ÷],²»ÉÙÅóÓѸøÁËÎÒÈÈÐĵİïÖú£¬µ«ÊÇÌì²»°ïÎÒ£¬»¹Ã»µ÷ͨ.

ÏÖÔÚÎÒ°ÑÕû¸öµ÷ÊÔ»·¾³·¢¸ø´ó¼Ò,ÄÄλ²»Ã¦²»·Áµ÷µ÷
    ÄäÃûÌáÈ¡ÎļþÁ¬½Ó http://pickup.mofile.com/7587685010050640 
    »òµÇ¼Mofile£¬Ê¹ÓÃÌáÈ¡Âë 7587685010050640 ÌáÈ¡Îļþ

ÎÒÔÚ´ËÖÂÒÔ×î×î³ç¸ßµÄ¸Ðл!!!
ÏÂÔØ´íÎó

´úÂëÔÚÄÄÀ


¿ÉÄÜijЩ²ÎÊý²»Ò»¶¨¼æÈÝ VB µÄ API µ÷Óã¬Äã¿ÉÒÔÒªÇó¶Ô·½Ìṩһ¸ö C µÄµ÷ÓÃÀý×Ó£¬È»ºó¿´¿´ÄÜ·ñת³É VB¡£

ÒýÓÃ
ÏÂÔØ´íÎó

........

ÄÜÏÂÔØ°¡,´ò¿ªhttp://pickup.mofile.com/7587685010050640
,µã»÷[ÏÂÔØÎļþ(IEä¯ÀÀÆ÷)],²»ÄÜÏÂÔØ¿ÉÄÜÊÇÄãµÄIE»ò·À»ðǽ×èÖ¹ÁË°É
»òÕß´ò¿ªhttp://file.mofile.com,ÊäÈëÌáÈ¡Âë7587685010050640,È»ºó[ÌáÈ¡Îļþ]


ÏÂÔز»ÁË£¬Äã²»ÈçÉÏ´«µ½CSDN×ÊÔ´ÉÏ:http://u.download.csdn.net/upfile/

¸÷λ¸ßÊÖÅóÓÑ¿ÉÒÔ¿´Ò»ÏÂÂ¥Ö÷µÄÔ­ÌûÁ´½Ó¡£

VB code:
Public Declare Function checkuser Lib "zdtlmti.dll" _
(ByVal lpstrOperID As Long, ByVal lpstrReturnMessage As Long) As Long

Sub test()
Dim strOperId As String
Dim strMsg As String

'×Ö·û´®³õʼ»¯'
strOpe


Ïà¹ØÎÊ´ð£º

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb²åÈëÊý¾Ý¿âÖظ´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......

vb ÈçºÎ½«Ê®Áù½øÖÆUTF-8ת»»Îªºº×Ö

¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ