UC知道请人帮我把vb代码转译成vc++代码
来源：百度知道 编辑：UC知道 时间：2024/07/08 14:01:48
以下的代码请转成 vc6 可编译通过的代码.谢谢 最好不用MFC
Private Sub Command1_Click()
Dim xml
Set xml = CreateObject("WinHttp.WinHttpRequest.5.1")
xml.Option(6) = 0
xml.SetTimeouts 5000, 5000, 30000, 5000
xml.Open "GET", Text1.Text, False
xml.send
Text2.Text = xml.getResponseHeader("Location")
End Sub
已经自己解决...
楼下的自己去Google研究吧... 原来这么简单...还百行千行的 浪费分了...
Private Sub Command1_Click()
Dim xml
Set xml = CreateObject("WinHttp.WinHttpRequest.5.1")
xml.Option(6) = 0
xml.SetTimeouts 5000, 5000, 30000, 5000
xml.Open "GET", Text1.Text, False
xml.send
Text2.Text = xml.getResponseHeader("Location")
End Sub
已经自己解决...
楼下的自己去Google研究吧... 原来这么简单...还百行千行的 浪费分了...
我说,不用MFC,你去翻译吧..这么短短几句VB, 翻译成VC++的,不用MFC, 起码要几百上千行...
就算用MFC也要上百行
泠月冰辰,我看是你技术不行,帮就帮,不帮就不帮,你这个回复真让我不爽.
#import "msxml.dll"
#import "msxml2.dll"
using namespace MSXML2;
int main(int argc, char* argv[])
{
printf("Test of XMLHTTP by masterz!\n");
CoInitialize(NULL);
try
{
IXMLHTTPRequestPtr xmlrequest;
xmlrequest.CreateInstance("Msxml2.XMLHTTP");
_variant_t varp(false);
xmlrequest->open(_bstr_t("GET"),_bstr_t("http://www.baidu.com"),varp);
.............
你写下去看看...
上100行了 那就证明你的技术还不能回答这个问题.