200精币VC代码求翻译

阿斯顿⊙马丁

bool NetCheck()//网络验证
{
DWORD lpdwNumberOfBytesRead = 0;
HINTERNET hInternetSession = NULL,hOpenUrl = NULL ;
char lpBuffer[64]={0};
char context[64]={0};
char *szpUrl="http://www.baidu.com/验证.txt";
hInternetSession =InternetOpen("1",INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL,0);
if (hInternetSession==NULL)
{
  InternetCloseHandle(hInternetSession);
  return false;
}
hOpenUrl=InternetOpenUrl(hInternetSession, szpUrl, NULL, 0, INTERNET_FLAG_RAW_DATA, 0);
if (hOpenUrl==NULL)
{
  InternetCloseHandle(hOpenUrl);
  return false;
}
do
{
  if (InternetReadFile(hOpenUrl,lpBuffer,64,&lpdwNumberOfBytesRead)==TRUE)
  {
   memcpy(context,lpBuffer,64);
  }
} while (lpdwNumberOfBytesRead!=0);
int i=atoi(context);
if (i==1)
{
  return true;
}
return true;
}
-----------------------------------------------------------------------------------------------------------
if (NetCheck()==FALSE)
{
  MessageBoxA(NULL,"暂时无法使用!","XXX",MB_OK);
  ExitProcess(0);
  ShellExecute(NULL, "open", "http://www.baidu.com/1.html", NULL, NULL, SW_SHOWNORMAL);
}


求翻译  求加注释。

萧阳天

表示不是太懂，勉强翻译；未验证；

1. .版本 2
   
2. .支持库 const
   
3. .支持库 eAPI
   
4. 
   
5. .子程序 NetCheck, 逻辑型, , 网络验证
   
6. .局部变量 lpdwNumberOfBytesRead
   
7. .局部变量 hInternetSession
   
8. .局部变量 hOpenUrl
   
9. .局部变量 lpBuffer, 字节型, , "64"
   
10. .局部变量 context, 字节型, , "64"
    
11. .局部变量 szpUrl, 文本型
    
12. .局部变量 i
    
13. 
    
14. szpUrl ＝ “http://www.baidu.com/验证.txt”
    
15. hInternetSession ＝ 打开Internet_ (“1”, #INTERNET_OPEN_TYPE_PRECONFIG, 字符 (0), 字符 (0), 0)
    
16. .如果真 (hInternetSession ＝ 0)
    
17.     关闭Internet句柄_ (hInternetSession)
    
18.     返回 (假)
    
19. .如果真结束
    
20. hOpenUrl ＝ 打开Internet地址_ (hInternetSession, szpUrl, 字符 (0), 0, #INTERNET_FLAG_RAW_DATA, 0)
    
21. .如果真 (hOpenUrl ＝ 0)
    
22.     关闭Internet句柄_ (hOpenUrl)
    
23.     返回 (假)
    
24. .如果真结束
    
25. .循环判断首 ()
    
26.     .如果真 (读Internet文件_ (hOpenUrl, lpBuffer, 64, lpdwNumberOfBytesRead) ≠ 0)
    
27.         拷贝内存_ (context, lpBuffer, 64)
    
28.     .如果真结束
    
29. 
    
30. .循环判断尾 (lpdwNumberOfBytesRead ＝ 0)
    
31. i ＝ 取文本长度 (到文本 (context))
    
32. .如果 (i ≥ 1)
    
33.     返回 (真)
    
34. .否则
    
35.     信息框 (“暂时无法使用!”, 0, )
    
36.     打开指定网址 (“http://www.baidu.com/1.html”)
    
37. .如果结束
    
38. 返回 (真)
    

复制代码

1. .版本 2
   
2. 
   
3. .DLL命令 打开Internet_, 整数型, "wininet.dll", "InternetOpenA"
   
4.     .参数 代理商名称, 文本型, , sAgent
   
5.     .参数 存取类型, 整数型, , lAccessType
   
6.     .参数 代理名称, 文本型, , sProxyName
   
7.     .参数 代理地址, 文本型, , sProxyBypass
   
8.     .参数 标志, 整数型, , lFlags
   
9. 
   
10. .DLL命令 关闭Internet句柄_, 整数型, "wininet.dll", "InternetCloseHandle"
    
11.     .参数 Internet句柄, 整数型, , hInet
    
12. 
    
13. .DLL命令 打开Internet地址_, 整数型, "wininet.dll", "InternetOpenUrlA", , InternetOpenUrl*
    
14.     .参数 Internet句柄, 整数型, , hInternetSession
    
15.     .参数 Url地址, 文本型, , lpszUrl
    
16.     .参数 头文本, 文本型, , lpszHeaders
    
17.     .参数 头文本长度, 整数型, , dwHeadersLength
    
18.     .参数 标志, 整数型, , dwFlags
    
19.     .参数 定义值, 整数型, , dwContext
    
20. 
    
21. .DLL命令 读Internet文件_, 整数型, "wininet.dll", "InternetReadFile", , InternetReadFile*
    
22.     .参数 Internet地址句柄, 整数型, , hFile
    
23.     .参数 数据缓冲区, 字节型, 数组, sBuffer
    
24.     .参数 读取大小, 整数型, , lNumBytesToRead
    
25.     .参数 读取首地址, 整数型, 传址, lNumberOfBytesRead
    
26. 
    
27. .DLL命令 拷贝内存_, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    
28.     .参数 目标数据地址, 字节型, 数组, lpvDest
    
29.     .参数 源数据, 字节型, 数组, lpvSource
    
30.     .参数 尺寸, 整数型, , cbCopy
    

复制代码

fsjoe

这个代码应该是通过读取百度某页面都测试网络是否可用。
如不可用则提示
这个用精易模块可以轻易实现啊

系统_是否已联网 ()
系统_取网络连接状态 ()

fsjoe

老实说吧，这样的伸手党就更加要加以惩罚
如果只是简单移动帖子的话，对回答的我也不公平。对吧？
建议对这样的人加重处罚，但对回答的朋友应该继续奖励，@紅顏じ亦沉淪ジ

fsjoe

唉，我只是想给论坛一点建议，我说这又不为自己。
@紅顏じ亦沉淪ジ