Google -> "WinHTTP"

那个兄弟可以把winhttp.inc和lib打个包给我？不想去下PlatformSDK太大了啊。。。谢谢

先用wininet试了下

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

mov uc.dwStructSize,sizeof uc lea eax,host mov uc.lpszHostName,eax mov uc.dwHostNameLength,sizeof host lea eax,path mov uc.lpszUrlPath,eax mov uc.dwUrlPathLength,sizeof path lea eax,extra mov uc.lpszExtraInfo,eax mov uc.dwExtraInfoLength,sizeof extra invoke  InternetCrackUrl,addr Url, 0, ICU_ESCAPE, addr uc invoke  InternetOpen,CTXT("TEST"),INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL,0 mov hSession,eax invoke  gethostbyname,addr host mov eax,[eax+12] mov eax,[eax] mov eax,[eax] invoke  inet_ntoa,eax invoke  InternetConnect,hSession,eax, addr uc.nPort, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 0 mov hConnect,eax mov flags,0 invoke  HttpOpenRequest,hConnect,CTXT("POST"), addr path, NULL, NULL, NULL, flags, 0 mov hRequest,eax invoke  lstrlen,addr strHeader invoke  HttpAddRequestHeaders,hRequest,addr strHeader, eax, HTTP_ADDREQ_FLAG_ADD invoke  lstrlen,addr strPostData invoke  HttpSendRequest,hRequest, 0, 0,addr strPostData, eax

现在就是一到 HttpSendRequest 就无响应了,(好像很久才有反应)前面都正常，谁能说说是怎么回事？

自己构造http包 然后send吧

你的意思难道是这种方式不行？

;        Post Data to URL
proc  PostData lpszHeader, szMethod, lpszFromData, szHostName, szFormAction
                       
                        pushad
                       
                        i                InternetOpen, esi, esi, esi, esi, esi = 0
                       
                        test        eax, eax
                       
                        je                .OverSession
                       
                        xchg        eax, ebx                                 ;ebx = hSession
                       
                        i                InternetConnect, ebx, [szHostName], INTERNET_DEFAULT_HTTP_PORT, esi, esi, INTERNET_SERVICE_HTTP, esi, esi
                       
                        xchg        eax, edi
                       
                        test        edi, edi
                       
                        je                .Over                                         ;edi = hConnect
                       
                        i                HttpOpenRequest, edi, [szMethod],         [szFormAction], 'HTTP/1.1', esi, esi, esi, esi
                       
                        test        eax, eax
                       
                        je                .Over
                       
                        xchg        eax, esi
                       
                        i                lstrlen, [lpszFromData]       
                       
                        i                HttpSendRequest, esi, [lpszHeader], -1, [lpszFromData], eax
                               
                .Over:
                       
                        i                InternetCloseHandle, edi
               
                .OverSession:
               
                        i                InternetCloseHandle, ebx
                       
                        popad
                       
                        ret
        endp

自己解决了，还是我那个代码不过有个地方写错了改成这样就可以了

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

invoke  InternetOpen,CTXT("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"),INTERNET_OPEN_TYPE_PRECONFIG,NULL,INTERNET_INVALID_PORT_NUMBER,0 mov hSession,eax invoke  InternetConnect,hSession,addr host, INTERNET_INVALID_PORT_NUMBER, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 0 mov hConnect,eax mov flags,0 invoke  HttpOpenRequest,hConnect,CTXT("POST"), addr fpath, NULL, NULL, NULL, flags, 0 mov hRequest,eax lea ebx,strHeader $ahloop: invoke  lstrlen,ebx invoke  HttpAddRequestHeaders,hRequest,ebx, eax, HTTP_ADDREQ_FLAG_ADD .if eax     invoke  lstrlen,ebx     add ebx,eax     inc ebx     jmp $ahloop .endif invoke  lstrlen,addr strPostData invoke  HttpSendRequest,hRequest, 0, 0,addr strPostData, eax invoke  MessageBox,NULL,CTXT("test"),NULL,MB_OK

我的精华文章里面有关于这个的
(*^__^*) 嘻嘻……