vb×Ö·û´®ÔÚÄÚ´æÖеķֲ¼£¿
¾Ý˵vb6ÖÐ,×Ö ·û´®ÒÔÒÔUNICODE·½Ê½´æ´¢£¬ËùÒÔ
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .strM3 = "Ò»¶þÈýËÄÎåÁùÆß°Ë¾Åʮһ¶þÈýËÄÎåÁùÆß°Ë"
.strM3 = "Ò»¶þÈýËÄÎåÁùÆß°Ë¾Å"
' .strM3 = "ABCD"
.strM4 = "²âÊÔABC"
.lngM5 = 5
End With
Dim bytBuf() As Byte
ReDim bytBuf(Len(tmp) - 1)
CopyMemory bytBuf(0), tmp, Len(tmp)
Winsock1.SendData bytBuf
End Sub
vc6Öж¨ÒåÏà¶ÔÓ¦µÄ½á¹¹Ì壺
typedef struct{
long lM1;
long lM2;
char szM3[18];
char szM4[8];
long lM5;
}UDT;
//¡£¡£¡£¡£¡£¡££¨Ê¡ÂÔ²¿·Ö´úÂ룩
char recvBuf[128];
UDT t;
while(true)
{
memset(&t,0,sizeof(t));
memset(recvBuf,0,sizeof(recvBuf));
//½ÓÊÕÊý¾Ý
int recvlen=recvfrom(svr,recvBuf,128,0,(sockaddr*)&addrClient,&len);
::CopyMemory(&t,recvBuf,128);
}
//¡£¡£¡£¡£¡£¡£¡£
ͨ¹ýsocket´«µ½vcÀï½øÐе÷ÊÔÈçÏ£º
¶þ¡¢µ± vbÖе÷Õû´úÂëΪ£¨.strM3 £©
ÏÔÈ»£¬²»ÊÇUNICODEµÄ±íʾ·½·¨
ÁíÈËÓôÃÆ£¿£¿£¿£¿£¿£¿
----------------------------------------------------------
Ìí¼Ó tmp.strM3 = StrConv(tmp.strM3, vbUnicode)£º
Ïà¹ØÎĵµ£º
Óɵ×ÖÁÉÏÊÇ£º
• ÍйÜ×ÊÔ´
• WMI »ù´¡½á¹¹
• ʹÓÃÕß
ÍйÜ×ÊÔ´
ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµ ......
VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
//VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒÆ¶¯
void CAppNonameDlg::OnMouseMov ......
'´óСд×Öĸת»»Æ÷vb
'½çÃæ°üÀ¨ command¡¢command1¡¢command2¡¢command3 ºÍÒ»¸ö text Îı¾¿ò
'command Ϊ“»¥×ª”°´Å¥£¬command1 Ϊ“ת´ó”°´Å¥£¬command2 Ϊ“תС”°´Å¥£¬command3 Ϊ“Çå³ý”°´Å¥
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As S ......
VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î´úÂë:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgB ......