求RM可用的HTTP GET

zh99998

所谓的HTTP GET就是访问一个网页并且读取内容

ruby里的http类需要加载socket.so，这个RM加载不了
我把从网游脚本里抠出来的socket类塞进来也不能用，看起来是执行gethostbyname那个API的时候失败(返回0)

求RM可用的HTTP GET

八云紫

用 WSAGetLastError 获取错误代码看看~~~

尘羽泯

1. class Get_Http_Info
   
2. 
   
3. AGENT = "RGSS PLAYER"
   
4. INTERNET_OPEN_TYPE_PRECONFIG = 0 # IEの設定を仕様
   
5. INTERNET_OPEN_TYPE_DIRECT = 1 # プロキシを使用しない
   
6. def Get_Http_Info.InternetOpen()
   
7. io = Win32API.new('wininet', 'InternetOpen', %(p, l, p, p, l), 'l')
   
8. hInternet = io.call(AGENT, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0)
   
9. return hInternet
   
10. end
    
11. 
    
12. def Get_Http_Info.InternetOpenUrl(hSession, url)
    
13. iou = Win32API.new('wininet', 'InternetOpenUrl', %(l, p, p, l, l, l), 'l')
    
14. hService = iou.call(hSession, url, nil, 0, 0, 0)
    
15. return hService
    
16. end
    
17. 
    
18. def Get_Http_Info.InternetReadFile(hService)
    
19. content = ""
    
20. read_size = 1024 # 一次读入文件的尺寸
    
21. irf = Win32API.new('wininet', 'InternetReadFile', %(l, p, i, p), 'i')
    
22. while(true)
    
23. buf = "\0" * read_size
    
24. red = [0].pack('L')
    
25. irf.call( hService, buf, read_size, red )
    
26. if(red.unpack('L') == [0])
    
27. #读到文件末端
    
28. break
    
29. end
    
30. buf.delete!("\0")
    
31. content += buf
    
32. end
    
33. 
    
34. return content
    
35. end
    
36. 
    
37. HTTP_QUERY_STATUS_CODE = 19
    
38. 
    
39. def Get_Http_Info.HttpQueryInfo(hService)
    
40. read_size = 1024
    
41. buf = "\0" * read_size
    
42. red = [read_size-1].pack('L')
    
43. hqi = Win32API.new('wininet', 'HttpQueryInfo', %(l, l, p, p, p), 'i')
    
44. isOk = hqi.call( hService, HTTP_QUERY_STATUS_CODE, buf, red, nil)
    
45. buf.delete!("\0")
    
46. return buf
    
47. end
    
48. 
    
49. def Get_Http_Info.InternetCloseHandle(hInternet)
    
50. ich = Win32API.new('winInet', 'InternetCloseHandle', %(l), 'i')
    
51. isOk = ich.call(hInternet)
    
52. return isOk
    
53. end
    
54. 
    
55. HTTP_CODE_OK = "200"
    
56. 
    
57. def Get_Http_Info.get_info(url)
    
58. info = nil
    
59. begin
    
60. hInternet = InternetOpen()
    
61. if(hInternet != 0)
    
62. hService = InternetOpenUrl(hInternet, url)
    
63. if(hService != 0)
    
64. status_code = HttpQueryInfo(hService)
    
65. if(status_code == HTTP_CODE_OK)
    
66. info = InternetReadFile(hService)
    
67. end
    
68. InternetCloseHandle(hService)
    
69. end
    
70. InternetCloseHandle(hInternet)
    
71. end
    
72. rescue
    
73. # 例外发生
    
74. return nil
    
75. end
    
76. 
    
77. ary = []
    
78. 
    
79. info.each_line do |line|
    
80. next if line.empty?
    
81. ary.push line
    
82. end
    
83. 
    
84. return ary[271].scan(/\w+<\/a>/)
    
85. 
    
86. end
    
87. 
    
88. 
    
89. def Get_Http_Info.get_html(url)
    
90. info = nil
    
91. begin
    
92. hInternet = InternetOpen()
    
93. if(hInternet != 0)
    
94. hService = InternetOpenUrl(hInternet, url)
    
95. if(hService != 0)
    
96. status_code = HttpQueryInfo(hService)
    
97. if(status_code == HTTP_CODE_OK)
    
98. info = InternetReadFile(hService)
    
99. end
    
100. InternetCloseHandle(hService)
     
101. end
     
102. InternetCloseHandle(hInternet)
     
103. end
     
104. rescue
     
105. # 例外发生
     
106. return nil
     
107. end
     
108. return info
     
109. end
     
110. end

复制代码

鄙视楼主这类的SSD！！哼！！

zh99998

回复 尘羽泯 的帖子


谢谢><

紫苏

RM 的 socket 用不了还有 Windows 的 socket
不过二楼给的那个脚本倒是足够了，叶子的《6R之眼》里用到过