wininet примеры работы на асме

выложите плиз ссылки или исходники...

 

да вы совсем афигели. что значит примеры работы на асме? ты что ф-ции вызывать из асма не умеешь? про вининет в гугле набери и попадешь на мсдн по первой ссылке.

 

Код (Text):

1. format PE GUI 4.0
2. entry start
3. include 'win32a.inc'
4. b equ byte
5. section '.code' code readable executable
6. start:
7.   invoke  InternetOpen,szAgent,0,0,0,0
8.         test    eax,eax
9.      jz      error1
10.       mov     [InternetHandle],eax
11.        
12.     invoke  InternetOpenUrl,eax,szURL,0,0,0,0
13.    test    eax,eax
14.      jz      error2
15.       mov     [FileHandle],eax
16.     invoke  InternetReadFile,eax,FileBuffer,1023,BytesRead
17.       test    eax,eax
18.      jz      error3
19.       mov     eax,[BytesRead]
20.      mov     b[FileBuffer+eax],0
21.  invoke  MessageBox,0,FileBuffer,szAgent,0
22. error3:
23.     invoke  InternetCloseHandle,[FileHandle]
24. error2:
25.      invoke  InternetCloseHandle,[InternetHandle]
26. error1:
27.  invoke  ExitProcess,0
28.  
29.  
30. section '.data' data readable writeable
31.  
32. szAgent       db 'FASM',0
33. szURL          db 'http://www.google.com/',0
34. szHeader      db 'Host: www.google.com',0
35.  
36. InternetHandle dd ?
37. FileHandle      dd ?
38. BytesRead       dd ?
39. FileBuffer      rb 1024
40.  
41. section '.idata' import data readable writeable
42.  
43. library kernel32,'KERNEL32.DLL',\
44.         wininet,'WININET.DLL',\
45.   user32,'USER32.DLL'
46.  
47. import     kernel32,\
48.  ExitProcess,'ExitProcess'
49.  
50. import       user32,\
51.    MessageBox,'MessageBoxA'
52.  
53. import        wininet,\
54.   InternetOpen,'InternetOpenA',\
55.    InternetReadFile,'InternetReadFile',\
56.     InternetOpenUrl,'InternetOpenUrlA',\
57.      InternetCloseHandle,'InternetCloseHandle'