人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

相關標簽:

 

飛狐專用VBS當日龍虎榜用VBS寫的當日龍虎榜，純習作。各位老師、童鞋，請勿拍磚
數據來自網絡，每天第一次使用該時，要有約一秒的數據下載時間
指標顯示要看網絡的更新時間（網址，源碼中有）
數據存放在臨時文件夾：C:\Windows\Temp\
當日沒有進入龍虎榜的，不會顯示
如不顯示，請檢查一下系統DRAWGBK(1, COLORRGB(0,0,0), COLORRGB(0,0,0),0);
txts:='';
<%
path="C:\WINDOWS\Temp\龍虎榜.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(path) then
Set f = fso.GetFile(path)
md =DateValue(f.DateCreated)
nd=date
if md<>nd then
wycp
else
end if
else
wycp
end if
Set F = fso.OpenTextFile(path,1)
sub wycp
url="http://data.10jqka.com.cn/market/longhud.html"
set xhp=createobject("microsoft.xmlhttp")
xhp.open "get",url,false
xhp.send
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write xhp.responseBody
MyStream.SaveToFile path
end sub
%>
Dz:='C:\WINDOWS\Temp\龍虎榜.txt';
Wb:='';
<%
On Error Resume Next
Dz=FFL.VarData("Dz")
Set D_1 = CreateObject("Scripting.FileSystemObject")
Set D_a = D_1.OpenTextFile(Dz, 1)
Wb= D_a.ReadAll & ""
Wb=replace(Wb,"""","")
Wb=replace(Wb,"<span class=FC9>","")
Wb=replace(Wb,"</span><span class=FC7>","")
Wb=replace(Wb,"","")
Wb=replace(Wb,"","")
Wb=replace(Wb,"","")
D_a.Close
FFL.VarData("Wb")=Wb
%>
A0:=STRFIND(Wb,'/'+STKLABEL+'/',1);
A01:=STRFIND(Wb,'查看明細',A0+10);
A02:=STRFIND(Wb,'買賣凈差',A01+10);
IF A0>0 THEN BEGIN
A1:=STRFIND(Wb,'當日總成交量：',A0+1);
A2:=STRFIND(Wb,'</span></td>',A1+1);
A3:=STRFIND(Wb,'總成交金額：',A2+1);B4:=STRFIND(Wb,'買入總計',A3+1);
B5:=STRFIND(Wb,'class=yrq1 pr10 FB>',B4+1);
B6:=STRFIND(Wb,'</span></td>',B5+1);D4:=STRFIND(Wb,'賣出總計',A3+1);
D5:=STRFIND(Wb,'class=yrq1 pr10 FB>',D4+1);
D6:=STRFIND(Wb,'</span></td>',D5+1);E4:=STRFIND(Wb,'買賣凈差',A3+1);
E5:=STRFIND(Wb,'class=yrq1 pr10 FB>',E4+1);
E6:=STRFIND(Wb,'</span></td>',E5+1);
A4:=STRFIND(Wb,'</span></td>',A3+1);
龍虎:A0>0,LINETHICK0;
占比:STRTONUM(STRMID(Wb,E5+19,E6-E5-19))/STRTONUM(STRMID(Wb,A3+12,A4-A3-16))*100,LINETHICK0,PRECISION2;
凈差:STRTONUM(STRMID(Wb,E5+19,E6-E5-19)),LINETHICK0,PRECISION2,ColorFFFF00;
買入:STRTONUM(STRMID(Wb,B5+19,B6-B5-19)),LINETHICK0,PRECISION2,Color0000FF;
賣出:STRTONUM(STRMID(Wb,D5+19,D6-D5-19)),LINETHICK0,PRECISION2,Color00FF00;
A5:=STRFIND(Wb,'class=lhyybcx>',A4+1);
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);DRAWTEXTEX(1,0, 30, 0,STKLABEL+' '+STKNAME+' '+STRMID(Wb,A1,A2-A1)),Color7FFDFF;
DRAWTEXTEX(1,0,470, 0,STRMID(Wb,A3,A4-A3)),align2,Color7FFDFF;
DRAWTEXTEX(1,0, 6, 15,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 15,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 15,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 30,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 30,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 30,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 45,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 45,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 45,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 60,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 60,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 60,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 75,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 75,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 75,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6, 90,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420, 90,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500, 90,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,105,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,105,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,105,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,120,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,120,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,120,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,135,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,135,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,135,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
A5:=STRFIND(Wb,'class=lhyybcx>',A10+1);
IF A02>A5 THEN BEGIN
A6:=STRFIND(Wb,'</a></span></td>',A5+1);
A7:=STRFIND(Wb,'class=yrq1 pr10>',A6+1);
A8:=STRFIND(Wb,'</span></td>',A7+1);
A9:=STRFIND(Wb,'class=yrq1 pr10>',A8+1);
A10:=STRFIND(Wb,'</span></td>',A9+1);
DRAWTEXTEX(1,0, 6,150,STRMID(Wb,A5+14,A6-A5-14)),ColorFFFF00;
DRAWTEXTEX(1,0,420,150,STRMID(Wb,A7+16,A8-A7-16)),align2,Color0000FF;
DRAWTEXTEX(1,0,500,150,STRMID(Wb,A9+16,A10-A9-16)),align2,Color00FF00;
END;
END;{程序化交易 www.kzuj.com.cn }
飛狐專用VBS當日龍虎榜

 

主站蜘蛛池模板： 欧美两性人xxxx高清免费 | 老司机午夜性生免费福利 | 免费观看成人久久网免费观看 | 日韩成人黄色片 | 欧美一级做一级做片性十三 | h在线免费视频 | 黄色短视频免费观看 | 亚洲xxxx18| 一级成人黄色片 | 成年人免费在线视频网站 | 国产精品边做边接电话在线观看 | 在线观看成年人免费视频 | 日韩免费在线 | 高清国产一区二区三区 | 苗族一级特黄a大片 | 国产黑色丝袜小视频在线 | 午夜免费r级伦理片 | 日本一区二区不卡视频 | 日韩在线激情 | 成人a毛片一级 | 91视频网页 | 成人激情在线视频 | a欧美在线 | 在线成人爽a毛片免费软件 在线成人影片 | 欧美日韩综合视频 | 久久精品视频一区二区三区 | 网站在线观看你懂的 | 亚洲一二三区视频 | 欧美专区在线播放 | 免费看欧美一级片 | 欧美午夜激情影院 | 日韩 欧美 中文字幕 不卡 | 日日摸夜夜添夜夜 | 在线观看一级毛片免费 | 免费国产精品视频 | 99久久精品免费看国产麻豆 | 人人干人人上 | 一二三四视频社区在线网 | 国外成人免费高清激情视频 | 国产在线观看午夜不卡 | 中文xxx视频|