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

VB×Ö·û´®×ªXMLÎļþ

¿ª·¢¹¤¾ß£ºVB6.0
ÏÖÓÐÈçÏ´úÂ룬Çë¸÷·¸ßÊִͽ̣¡Ð¡µÜ²»Ê¤¸Ð¼¤~~ÈçÓÐÔ´Âë¸üºÃ£¡

Private Sub Command1_Click()
    Dim xmlStr As String
    xmlStr = getXML
    'ÇëÎÊÈçºÎ°ÑxmlStrת³ÉÒ»¸öxmlÎĵµ?
End Sub

Public Function getXML() As String
    Dim xml As String
        xml = xml + " <?xml version='1.0' encoding='UTF-8'?>"
        xml = xml + " <FREIGHTCPIC>"
        xml = xml + "  <HEADER>"
        xml = xml + "    <TYPE>IN </TYPE>"
        xml = xml + "    <WORKTYPE>0 </WORKTYPE>"
        xml = xml + "    <CLASSESTYPE>1 </CLASSESTYPE>"
        xml = xml + "    <LOGINUSERNAME>ayyt </LOGINUSERNAME>"
        xml = xml + "    <LOGINPASSWORD>ayyt </LOGINPASSWORD>"
        xml = xml + "  </HEADER>"
        xml = xml + " </FREIGHTCPIC>"
        getXML = xml
End Function
´ú¿ª¸÷ÐÐÒµ¡¾増Ö±/鐠ͨ¡¿


Ïà¹ØÎÊ´ð£º

ÈçºÎÓÃASP¶ÁÈ¡ XML - Web ¿ª·¢ / ASP

<?xml version="1.0"?>
<root>
<status>433</status>
<msg>Õâ¸öÊǺº×Ö</msg>
<serialno>123</serialno>
</root>
ÈçºÎÓÃASP¶ÁÈ¡ statusÖµ ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ