有没有大神帮忙帮我把这段代码转成C++哇【c++吧】

Private Sub AQ637XTEST()
Dim intData As Integer
Dim dblMeanWL As Double
Dim dblSpecWd As Double
Dim strData As String
' === Connect ===
Winsock1.RemoteHost = "192.168.1.100"
Winsock1.RemotePort = 10001
Winsock1.Connect
' === Wait to connect complete ===
While (Winsock1.State <> sckConnected)
DoEvents
Wend
' === Authentication by OPEN Command ===
SendLan "open ""anonymous"""
ReceiveLan strData
SendLan " "
ReceiveLan strData
If (Left(strData, 5) <> "ready") Then
MsgBox "User authentication error."
Exit Sub
End If
' === Set the measurement parameter ===
SendLan "*RST"
SendLan "CFORM1"
SendLan ":sens:wav:cent 1550nm"
SendLan ":sens:wav:span 10nm"
SendLan ":sens:sens mid"
SendLan ":sens:sweep:points:auto on"
' === Sweep execute ===
SendLan ":init:smode 1"
SendLan "*CLS"
SendLan ":init"
' === Wait for sweep complete ===
Do
SendLan ":stat:oper:even?"
ReceiveLan strData
intData = Val(strData)
Loop While ((intData And 1) <> 1)
' === Analysis ===
SendLan ":calc:category swth"
SendLan ":calc"
SendLan ":calc:data?"
ReceiveLan strData
' === Capture analytical results ===
dblMeanWL = Val(Left(strData, 16))
dblSpecWd = Val(Mid(strData, 18, 16))
' === Output the result to the screen ===
MsgBox ("MEAN WL: " & dblMeanWL * 1000000000# & " nm" & vbCrLf & _
"SPEC WD: " & dblSpecWd * 1000000000# & " nm")
' === Disconnect ===
Winsock1.Close
While (Winsock1.State <> sckClosed)
DoEvents
Wend
End Sub
'==================================================
' Sub routine
' Send Remote Command
'==================================================
Sub SendLan(strData As String)
Winsock1.SendData strData & vbCrLf' 命令后面跟换行符
DoEvents
End Sub
'==================================================
' Sub routine
' Receive query data

'==================================================
Sub ReceiveLan(strData As String)
Dim strData2 As String
strData = ""
Do
Winsock1.GetData strData2, vbString
strData = strData + strData2
DoEvents
' vbLf换行
Loop While (Right(strData, 1) <> vbLf)
End Sub

有大神没？

我改的C++代码有问题啊，不知道哪里出问题了！！

#include "StdAfx.h"
#include "Winsocket.h"
#include <stdlib.h>
#include <stdio.h>
/*
V1.0
Scope: My Winsocket class
Author: F1316165
Update date: 2013/10/25
*/
#define DATA_BUFSIZE 4096
char buffer[DATA_BUFSIZE];
CWinsocket::CWinsocket(void)
{
AcceptSocket = INVALID_SOCKET;
sprintf_s(strIPAddr,sizeof(strIPAddr),"10.157.21.18");
iSocketPort=80;
}
CWinsocket::~CWinsocket(void)
{
if (AcceptSocket != INVALID_SOCKET)
{
::closesocket(AcceptSocket);
// Release WS2_32 lib
::WSACleanup();
}
}
bool CWinsocket::InitWinSock(void)
{
if(AcceptSocket != INVALID_SOCKET)
{
return true;
}
BOOL iSocketStatus = SOCKET_ERROR;
//----------------------
// Initialize Winsock
WSADATA wsaData;
WORD sockVersion = MAKEWORD(2, 2);//MAKEWORD(2, 0);
iSocketStatus = ::WSAStartup(sockVersion, &wsaData);
if (NO_ERROR != iSocketStatus)
{
printf("Error at WSAStartup()\n");
return false;
}
//----------------------
// TCP is Create a SOCKET for connecting to server, UDP is Create a socket for sending data
AcceptSocket = ::socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);//UDP is SOCK_DGRAM,IPPROTO_UDP
if (AcceptSocket == INVALID_SOCKET)
{
char szErrMsg[200] = "";
sprintf_s(szErrMsg,200,"Error at socket(): %ld\n",WSAGetLastError());
printf(szErrMsg);
WSACleanup();
return false;
}
// 也可以在这里调用bind函数绑定一个本地地址,否则系统将会自动安排
// Assign strIPAddr as IP address
ULONG uAddr = ::inet_addr((const char *)strIPAddr);
if(uAddr == INADDR_NONE)
{
// If not IP address，consider it is a host name
hostent* pHost = ::gethostbyname(strIPAddr);
if(pHost == NULL)
{
::closesocket(AcceptSocket);
return false;
}
// 得到以网络字节顺序排列的IP地址
uAddr = ((struct in_addr*)*(pHost->h_addr_list))->s_addr;
}
//----------------------
// The sockaddr_in structure specifies the address family,
// IP address, and port of the server to be connected to.
sockaddr_in servAddr;
servAddr.sin_family = AF_INET;
servAddr.sin_port = htons(iSocketPort);

servAddr.sin_addr.S_un.S_addr = inet_addr(strIPAddr);
// Connect to remote machine
iSocketStatus = ::connect(AcceptSocket, (sockaddr*)&servAddr, sizeof(servAddr));
if (NO_ERROR != iSocketStatus)
{
char szErrMsg[200] = "";
sprintf_s(szErrMsg,200,"Failed to connect %s.\n",strIPAddr);
printf(szErrMsg);
AcceptSocket = INVALID_SOCKET;
return false;
}
return true;
}

bool CWinsocket::SendTCPData(const char* strCommand,ULONG lCommandLen)
{
ULONG iCommandLen = !lCommandLen ? (ULONG)strlen(strCommand) : lCommandLen;
int ibytesSent = ::send(AcceptSocket, strCommand, iCommandLen, 0);// 发送数据到远程机
if (ibytesSent == iCommandLen)
{
return true;
}
AcceptSocket = INVALID_SOCKET;
return false;
}

bool CWinsocket::RecvTCPData(char * Buffer,ULONG iBufferLen)
{
int bytesRecv = SOCKET_ERROR;
while ((bytesRecv != iBufferLen) && (bytesRecv != 512))
{
bytesRecv = ::recv( AcceptSocket, Buffer, (0 == iBufferLen) ? 512 : iBufferLen, 0 );
if(bytesRecv == 0 || bytesRecv == WSAECONNRESET)
{
printf("Connection Closed.");
AcceptSocket = INVALID_SOCKET;
return false;
}
if ((bytesRecv != iBufferLen) && (bytesRecv != 512))
{
printf("Connection Closed.");
AcceptSocket = INVALID_SOCKET;
return false;
}
}
Buffer[bytesRecv] = '\0';
return true;
}

然后我调用我的Send函数并没有起到和VB一样的效果啊，VB的GetData和C++的recv有啥区别啊！！！

嗯，好吧！貌似大神都忙啊

日	一	二	三	四	五	六

有没有大神帮忙帮我把这段代码转成C++哇

扫二维码下载贴吧客户端