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

Çë½Ì£ºVBµ÷ÓÃVC dll ±¨´í - .NET¼¼Êõ / VB.NET

VCÖеĵ¼³öµÄº¯ÊýÊÇÕâÑùµÄ£º

extern "C" __declspec(dllexport)
HRESULT Connect(LPCSTR IpAddr, CHAR* pcUserName = NULL, CHAR* pcPassword = NULL)//·µ»Ø0±íʾÁ¬½Ó³É¹¦£¬·Ç0Ôòʧ°Ü
{
  ...
}

ÎÒÔÚVBÖÐÉùÃ÷ÈçÏ£º

Declare Function Connect Lib "C:\example.dll" (ByVal IpAddr As String, ByVal UserName As String, ByVal Passwd As String) As Integer

ͬʱ£¬ÎÒ¶¨Òå

Const NULL = 0

È»ºóµ÷Óãº

Dim result As Integer

result = Connect("138.139.0.230", NULL, NULL)

If result <> 0 Then

  MsgBox("error_connect")

  Return

End If

½á¹û×ÜÊDZ¨´í£¬ÇëÎÊÄÄÀï²»¶ÔÄØ£¿


Const NULL = Nothing

±¨´íÐÅÏ¢ÊÇʲô£¿

¿´Ï£º
result = Connect("138.139.0.230", nothing, nothing)


result = Connect("138.139.0.230", String.Empty, String.Empty)£¿

ÓÃnothingÊÔ¹ýÁË£¬»¹ÊDz»ÐУ¬±¨´í¾ÍÊÇ˵ result ²»µÈÓÚ0

½øÈëµ½ MsgBox("error_connect")


String.EmptyÒ²ÊÔ¹ýÁË£¬·µ»ØÖµÒ²·Ç0¡£

°ÑºóÁ½¸ö²ÎÊýµÄByVal¸Ä³ÉByRefÒ²²»ÐС£¡£¡£

result = Connect("138.139.0.230", NULL, NULL)
-----------
Ä㿴һϣ¬Ëü·µ»ØµÄ²»ÊÇ0£¬·µ»ØµÄ¾ßÌåÊǸöʲô¶«Î÷£¿µ÷ÊÔһϻòÕßÖ±½Ó°É½á¹ûMsgBox³öÀ´

·µ»ØµÄ¾ÍÊÇÒ»¸ö¸ºÖµ£º-1071579135

ÎÒÓÃVCдµÄ³ÌÐòµ÷ÓÃÕâ¸öConnectº¯Êý£º

HRESULT result


Ïà¹ØÎÊ´ð£º

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ