RMB求救！清风的常规库 多线程 时间一长就出现未知错误！

awlbm

在第14行和347行！

1. namespace winhttp
   
2. //通过post向网站提交数据
   
3. //参数1:提交的模式
   
4. //参数2:要提交的网页地址
   
5. //参数3:要提交的数据
   
6. //参数4:返回的网页数据的编码
   
7. function openUrl(type,weburl,send="",Cset="utf-8")
   
8.     //http=com("MSXML2.ServerXMLHTTP.3.0")
   
9.    
   
10.     traceprint(":传到常规库的网址为" & weburl&"---" & 日期时间.当前日期())
    
11.    
    
12.     traceprint(":创建xmlhttp---"&日期时间.当前日期())
    
13.     //http=com("microsoft.xmlhttp")                        //报错  未知错误
    
14.     http=com("MSXML2.xmlhttp")                        //报错  未知错误
    
15.     //traceprint(http)
    
16.     traceprint(":创建xmlhttp("&类型.转字符型(http)&":"&类型.获得类型(http)&")完成---"&日期时间.当前日期())
    
17.     traceprint(":创建xmlhttp("&类型.转整型(http)&":"&类型.获得类型(http)&")完成---"&日期时间.当前日期())
    
18.     traceprint(":创建xmlhttp("&type.cdouble(http)&":"&类型.获得类型(http)&")完成---"&日期时间.当前日期())
    
19.     traceprint(":创建xmlhttp("&类型.转浮点型(http)&":"&类型.获得类型(http)&")完成---"&日期时间.当前日期())
    
20.    
    
21.     如果(http==""||http==null)
    
22.         
    
23.         辅助.消息框("创建http失败!")
    
24.         矿机监控.线程开关信号=假
    
25.         //线程.关闭()
    
26.         //矿机监控.监控线程
    
27.     如果结束
    
28.    
    
29.    
    
30.     if(str.strlowercase(type)=="post")
    
31.         traceprint(":open---"&日期时间.当前日期())
    
32.         http.Open("post", weburl, false)
    
33.         traceprint(":open完成---"&日期时间.当前日期())
    
34.         http.setRequestHeader("Cache-Control","no-cache")
    
35.         http.setRequestHeader("Accept", "*/*")
    
36.         http.setRequestHeader("UserAgent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E")
    
37.         http.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
    
38.     else
    
39.         traceprint(":open---"&日期时间.当前日期())
    
40.         http.Open("get", weburl, false)
    
41.         traceprint(":open完成---"&日期时间.当前日期())
    
42.         http.setRequestHeader("Accept", "*/*")
    
43.         http.setRequestHeader("UserAgent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E")
    
44.         http.setRequestHeader("Cache-Control","no-cache")
    
45.     endif
    
46.     traceprint(":send---"&日期时间.当前日期())
    
47.     http.send(send)
    
48.     traceprint(":send完成---"&日期时间.当前日期())
    
49.     //times=0
    
50.     //while(http.status != 200||times==3000)
    
51.     //help.sleep(1)
    
52.     //times=times+1
    
53.     //endwhile
    
54.    
    
55.     //help.sleep(3000)
    
56.    
    
57.     //stime =日期时间.当前日期()        //获取当前时间
    
58.     //        //        //traceprint("前时间:"&stime)
    
59.     //        //traceprint("ReadyState:"&http.ReadyState)
    
60.     //循环(http.ReadyState!=4||http.status!=200)
    
61.     //        //        //traceprint("ReadyState:"&http.ReadyState)
    
62.     //ntime =日期时间.当前日期()        //获取循环时间
    
63.     //        //        //traceprint("后时间:"&ntime)
    
64.     //时间差=日期时间.日期间隔("s",stime,ntime)
    
65.     //如果(时间差>15)
    
66.     //        //traceprint("时间差:"&时间差)
    
67.     //跳出         //判断满足条件者跳出循环
    
68.     //如果结束
    
69.    
    
70.     //循环结束
    
71.     //自修改代码部分开始
    
72.     stime=1
    
73.     //traceprint(":ReadyState="&http.ReadyState&"|status="&http.status&"---"&日期时间.当前日期())
    
74.     //----------------------
    
75.     //while(http.ReadyState!=4||http.status!=200)
    
76.    
    
77.     //if(stime>4)
    
78.     //traceprint(":打开网页超过5秒结束---"&日期时间.当前日期())
    
79.     //http=null
    
80.     //ret =""
    
81.     //return ret
    
82.     ////break         //判断满足条件者跳出循环
    
83.     //endif
    
84.     //stime++
    
85.     //help.sleep(500)
    
86.     //endwhile
    
87.     //traceprint(":循环"&stime&"次结束---"&日期时间.当前日期())
    
88.     //-----------------
    
89.    
    
90.     //======================
    
91.     t=system.gettickcount()
    
92.     while(http.ReadyState != 4)
    
93.         help.sleep(100)
    
94.         if((system.gettickcount()-t)>5000)
    
95.             traceprint(":打开网页超过5秒结束---"&日期时间.当前日期())
    
96.             http=null
    
97.             ret =""
    
98.             return ret
    
99.             //return false
    
100.         endif
     
101.     endwhile
     
102.     //=======================
     
103.    
     
104.     //help.sleep(1000)
     
105.     //自修改代码部分结束
     
106.     //网络借鉴
     
107.    
     
108.     //网络借鉴
     
109.     traceprint(":开始BytesToBstr---"&日期时间.当前日期())
     
110.     ret = winhttp.BytesToBstr(http.Resp**eBody,Cset)
     
111.     traceprint(":BytesToBstr完成---"&日期时间.当前日期())
     
112.     header=http.GetAllResp**eHeaders()
     
113.     traceprint(":GetAllResp**eHeaders完成---"&日期时间.当前日期())
     
114.     http=null
     
115.     traceprint(":释放http("&http&":"&类型.获得类型(http)&")完成---"&日期时间.当前日期())
     
116.     //traceprint(":释放http完成---"&日期时间.当前日期())
     
117.     return ret
     
118. endfunction
     
119. //自动识别编码
     
120. function openUrlExAutoCset(type,weburl,send="",setcookie="",&header="",Cset="utf-8")
     
121.     http=com("WinHttp.WinHttpRequest.5.1")
     
122.     //http=com("MSXML2.ServerXMLHTTP.6.0")
     
123.     if(str.strlowercase(type)=="post")
     
124.         http.Open("post", weburl, false)
     
125.         //http.setRequestHeader("Cache-Control","no-cache")
     
126.         http.setRequestHeader("If-Modified-Since","0")
     
127.         http.setRequestHeader("Accept", "*/*")
     
128.         http.setRequestHeader("Connection","Keep-Alive")
     
129.         http.setRequestHeader("Accept-Language","zh-CN")
     
130.         http.setRequestHeader("Content-Length",str.strleng(send))
     
131.         http.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
     
132.         http.setRequestHeader("UserAgent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E")
     
133.         if(setcookie!="")
     
134.             http.setRequestHeader("Cookie",setcookie)
     
135.         endif
     
136.         http.setRequestHeader("Referer",weburl)
     
137.         
     
138.     else
     
139.         http.Open("get", weburl, false)
     
140.         http.setRequestHeader("If-Modified-Since","0")        //
     
141.         http.setRequestHeader("Accept", "*/*")
     
142.         http.setRequestHeader("Connection","Keep-Alive")
     
143.         http.setRequestHeader("Accept-Language","zh-CN")
     
144.         http.setRequestHeader("UserAgent","Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E")
     
145.         if(setcookie!="")
     
146.             http.setRequestHeader("Cookie",setcookie)
     
147.         endif
     
148.         http.setRequestHeader("Referer",weburl)
     
149.     endif
     
150.     http.send(send)
     
151.     http.WaitForResp**e(5000)
     
152.     status=http.status
     
153.     header=http.GetAllResp**eHeaders()
     
154.     retcset=http.getResp**eHeader("Content-Type")
     
155.     cset=StrEx.mid(retcset,"charset=")
     
156.     if(cset=="")
     
157.         cset=Cset
     
158.     endif
     
159.     ret = winhttp.BytesToBstr(http.Resp**eBody,cset)
     
160.     http=null
     
161.     return ret
     
162. endfunction
     
163. 
     
164. function openUrlEx(type,weburl,send="",setcookie="",&header="",Cset="utf-8")
     
165.     http=com("WinHttp.WinHttpRequest.5.1")
     
166.     if(str.strlowercase(type)=="post")
     
167.         http.Open("post", weburl, false)
     
168.         http.setRequestHeader("Cache-Control","no-cache")
     
169.         http.setRequestHeader("Accept", "*/*")
     
170.         http.setRequestHeader("UserAgent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E")
     
171.         http.setRequestHeader("Connection","Keep-Alive")
     
172.         http.setRequestHeader("Accept-Encoding","*")
     
173.         http.setRequestHeader("Accept-Language","zh-CN")
     
174.         http.setRequestHeader("Content-Length",str.strleng(send))
     
175.         http.setRequestHeader("Cookie",setcookie)
     
176.         http.setRequestHeader("Referer",weburl)
     
177.         http.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
     
178.     else
     
179.         http.Open("get", weburl, false)
     
180.         http.setRequestHeader("Cache-Control","no-cache")
     
181.         http.setRequestHeader("Accept", "*/*")
     
182.         http.setRequestHeader("UserAgent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E")
     
183.         http.setRequestHeader("Connection","Keep-Alive")
     
184.         http.setRequestHeader("Accept-Encoding","*")
     
185.         http.setRequestHeader("Accept-Language","zh-CN")
     
186.         http.setRequestHeader("Cookie",setcookie)
     
187.         http.setRequestHeader("Referer",weburl)
     
188.     endif
     
189.     http.send(send)
     
190.     http.WaitForResp**e(5000)
     
191.     //if(http.status == 200)
     
192.     //header=http.GetAllResp**eHeaders
     
193.     //ret = winhttp.BytesToBstr(http.Resp**eBody,Cset)
     
194.     //http=null
     
195.     //return ret
     
196.     //endif
     
197.     //if(http.status == 302)
     
198.     //header=http.GetAllResp**eHeaders
     
199.     //ret = winhttp.BytesToBstr(http.Resp**eBody,Cset)
     
200.     //http=null
     
201.     //return ret
     
202.     //endif
     
203.     status=http.status
     
204.     header=http.GetAllResp**eHeaders()
     
205.     //retcset=http.getResp**eHeader("Content-Type")
     
206.     //cset=StrEx.mid(str.strlowercase(retcset),"charset=")
     
207.     //if(cset)
     
208.     //cset=StrEx.mid(str.strlowercase(http.Resp**etext),"charset=")
     
209.     //endif
     
210.     ret = winhttp.BytesToBstr(http.Resp**eBody,Cset)
     
211.     http=null
     
212.     return ret
     
213. endfunction
     
214. //不包含域信息
     
215. function getCookie(header)
     
216.     theader
     
217.     cookie
     
218.     str.split(header,"\r\n",theader)
     
219.     count
     
220.     arraysp.size(theader,count)
     
221.     for(i=0;i<count;i++)
     
222.         regextext = "Set-Cookie: (.+?)=([^;]+)?"
     
223.         retArray
     
224.         xx = str.strsub(theader[i],0,11)
     
225.         if(xx=="Set-Cookie:")
     
226.             num = 字符串.正则子表达式匹配(regextext,theader[i],retArray)   
     
227.             cookie&=retArray[0]&"="&retArray[1]&";"
     
228.         endif
     
229.     endfor
     
230.     //cookie=str.replace(cookie,";;",";")
     
231.     return cookie
     
232. endfunction
     
233. //包含域信息
     
234. function getCookieEx(header)
     
235.     theader
     
236.     cookie
     
237.     str.split(header,"\r\n",theader)
     
238.     count
     
239.     arraysp.size(theader,count)
     
240.     for(i=0;i<count;i++)
     
241.         xx = str.strsub(theader[i],0,11)
     
242.         if(xx=="Set-Cookie:")
     
243.             cookie&=str.strsub(theader[i],11,str.strleng(theader[i]))&";"
     
244.         endif
     
245.     endfor
     
246.     cookie=str.replace(cookie,";;",";")
     
247.     return cookie
     
248. endfunction
     
249. //
     
250. function setIECookie(weburl,cookie)
     
251.     //BOOL InternetSetCookieEx(   LPCTSTR lpszUrl,  LPCTSTR lpszCookieName,  LPCTSTR lpszCookieData,  DWORD dwFlags,  DWORD_PTR dwReserved);
     
252.     //ret=dllcall("wininet.dll","bool","InternetSetCookieExA","char*",weburl,"char *","qq","char *","0350910378","int",系统常量.INTERNET_COOKIE_THIRD_**,"int",0)
     
253.     tt
     
254.     str.split(cookie,";",tt)
     
255.     count
     
256.     arraysp.size(tt,count)
     
257.     for(i=0;i<(count-1);i++)
     
258.         tt1
     
259.         str.split(str.strtrim(tt[i]),"=",tt1)
     
260.         if(tt1[0]!="HttpOnly")
     
261.             ret=dllcall("wininet.dll","BOOL","InternetSetCookieA","char *",weburl,"char *",tt1[0],"char *",tt1[1])
     
262.         else
     
263.             ret=dllcall("wininet.dll","BOOL","InternetSetCookieA","char *",weburl,"char *",tt1[0],"char *","")
     
264.         endif
     
265.         调试输出(i)
     
266.     endfor
     
267.    
     
268. endfunction
     
269. //获取网页打开的时间
     
270. //参数1:网页地址
     
271. //参数2:超时时间
     
272. function getHtmlGetticktime(weburl,time)
     
273.     http=com("Msxml2.XMLHTTP")
     
274.     t=system.gettickcount()
     
275.     http.Open("get", weburl, false)
     
276.     http.setRequestHeader("Cache-Control","no-cache")
     
277.     http.send("")
     
278.     if(http.status == 200)
     
279.         http=null
     
280.         return system.gettickcount() - t
     
281.     endif
     
282.     while(http.status != 200)
     
283.         if((system.gettickcount() - t)>time)
     
284.             http=null
     
285.             return system.gettickcount() - t
     
286.         endif
     
287.     endwhile
     
288.    
     
289. endfunction
     
290. //获取北京时间
     
291. function getNetTime()
     
292.     http=com("MSXML2.ServerXMLHTTP.3.0")
     
293.     http.Open("get","http:        //open.baidu.com/special/time/", false)
     
294.     http.setRequestHeader("Cache-Control","no-cache")
     
295.     http.send("")
     
296.     ret=http.getResp**eHeader("Date")
     
297.     ret=str.strsub(ret,str.findstr(ret,",")+2,str.strleng(ret))
     
298.    
     
299.     day=str.strsub(ret,0,str.findstr(ret," "))
     
300.     ret=str.strsub(ret,str.findstr(ret," ")+1,str.strleng(ret))
     
301.     month=str.strsub(ret,0,str.findstr(ret," "))
     
302.     ret=str.strsub(ret,str.findstr(ret," ")+1,str.strleng(ret))
     
303.     year=str.strsub(ret,0,str.findstr(ret," "))
     
304.     ret=str.strsub(ret,str.findstr(ret," ")+1,str.strleng(ret))
     
305.     time=str.strsub(ret,0,str.findstr(ret," "))
     
306.     m
     
307.     select(month)
     
308.         case "Jan":
     
309.         m=1
     
310.         case "Feb":
     
311.         m=2
     
312.         case "Mar":
     
313.         m=3
     
314.         case "Apr":
     
315.         m=4
     
316.         case "May":
     
317.         m=5
     
318.         case "Jun":
     
319.         m=6
     
320.         case "Jul":
     
321.         m=7
     
322.         case "Aug":
     
323.         m=8
     
324.         case "Sep":
     
325.         m=9
     
326.         case "Oct":
     
327.         m=10
     
328.         case "Nov":
     
329.         m=11
     
330.         case "Dec":
     
331.         m=12      
     
332.     endselect
     
333.     http=null
     
334.     return  datetime.add("h",8,year&"/"&m&"/"&day&" "&time)
     
335. endfunction
     
336. 
     
337. //把二进制流转码
     
338. function BytesToBstr(body,Cset="utf-8")
     
339.     // "UTF-8"
     
340.     //str
     
341.     //if(lenb(body)==0)
     
342.     //str = ""
     
343.     //否则
     
344.    
     
345.     traceprint(":创建对象Adodb.Stream---" & 日期时间.当前日期())
     
346.    
     
347.     objstream =com("Adodb.Stream")                        //报错  未知错误
     
348.     traceprint(":创建对象Adodb.Stream完毕---" & 日期时间.当前日期())
     
349.     objstream.Type = 1
     
350.     objstream.Mode =3
     
351.     objstream.Open
     
352.     objstream.Write(body)
     
353.     objstream.Position = 0
     
354.     objstream.Type = 2
     
355.     objstream.Charset = Cset
     
356.     str = objstream.ReadText
     
357.     objstream.Close
     
358.     objstream=null
     
359.     //endif
     
360.     //标记1:
     
361.     return str
     
362. endfunction
     
363. 
     
364. //把网络上的文件下载到本地
     
365. //参数1:文件地址
     
366. //参数2:文件本地存放的地址
     
367. function writeFile(weburl,path)
     
368.     http=com("WinHttp.WinHttpRequest.5.1")
     
369.     http.Open("get", weburl, false)
     
370.     http.setRequestHeader("Cache-Control","no-cache")
     
371.     http.send("")
     
372.     http.WaitForResp**e(5000)
     
373.     body=http.Resp**eBody   
     
374.     http=null
     
375.     stream=com("ADODB.Stream")
     
376.     stream.Type = 1
     
377.     stream.Open
     
378.     stream.write(body)
     
379.     stream.saveToFile(path, 2)
     
380.     stream.Close
     
381.     stream=null
     
382. endfunction
     
383. //将一个文件以二进制的形式读取出来
     
384. //存储在变量里面
     
385. function readFile(path,&len="")
     
386.     ret
     
387.     stream=com("ADODB.Stream")
     
388.     stream.Type=1
     
389.     stream.Open
     
390.     stream.LoadFromFile(path)
     
391.     ret = stream.Read
     
392.     len=stream.Size
     
393.     stream.Close
     
394.     stream=null
     
395.     return ret
     
396. endfunction
     
397. //保存指定编码的文本
     
398. function SaveTextFile(sFilePath,s,sCharset="utf-8")
     
399.     oStream=com("ADODB.Stream")
     
400.     //以文本模式
     
401.     oStream.Type=2
     
402.     oStream.Mode=3
     
403.     oStream.Charset=sCharset
     
404.     oStream.Open
     
405.     oStream.WriteText(s)
     
406.     oStream.SaveToFile(sFilePath, 2)
     
407.     oStream=null
     
408. endfunction
     
409. 
     
410. 
     
411. //.......
     

复制代码

rainshine

不是常规库。。。额 搜索httprequest库

awlbm

能够帮助解决问题的朋友 直接报支付宝账号  我打款50元！！！

awlbm

rainshine

用我的常规库吧。。。稳定。。

awlbm

看你百度云好多分享都加了密码  既然分享  为何加密  时间长了 是不是自己都忘了？

awlbm

rainshine 发表于 2014-9-21 12:35
不是常规库。。。额 搜索httprequest库

看你百度云好多分享都加了密码  既然分享  为何加密  时间长了 是不是自己都忘了？

awlbm

rainshine 发表于 2014-9-21 12:35
不是常规库。。。额 搜索httprequest库

虽然没有采用你的库  但是你这一句给了我极大的启示  现在问题应该是解决了  谢谢！

awlbm

现在终于弄明白 XMLHTTP已经过时了 单线程玩玩可以 应付多线程  必死！

shao497

rainshine 发表于 2014-9-21 12:35
用我的常规库吧。。。稳定。。

你的常规库哪里可以下载