人人爽天天爽夜夜爽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當日龍虎榜

 

主站蜘蛛池模板： 免费一级毛片清高播放 | 九九热视频在线免费观看 | 亚洲成人bt | 成年人污视频 | 日本1区2区3区电 | 日本三级香港三级久久99 | 青青草官网 | 午夜高清在线观看 | 能在线观看的一区二区三区 | 亚洲成人在线网 | 欧美成视频一theporn | 琪琪午夜免费影院在线观看 | 久久音影 | 免费国产成人高清无线看软件 | 欧美一级v片 | 狠狠色狠狠色综合久久第一次 | 精选国产门事件福利在线观看 | 99er精品| 日批网站在线观看 | 成人看片黄a毛片 | 久草最新| 乱系列h全文阅读小黄文肉 乱色美www女麻豆 | 亚洲成人免费网站 | 亚洲欧美国产精品久久久 | 欧美日韩国产码高清综合人成 | freevideos性欧美 | 黄在线观看在线播放720p | 中文字幕在线视频观看 | 操操网址 | 一女np男h高h | 免费黄色小网站 | 天天看天天干天天操 | 国产精品人人爽人人做 | 成人免费看片 | 另类视频在线 | 亚洲日本va中文字幕线 | 甜性涩爱手机在线观看 | 在线视频永久在线视频 | 欧美.亚洲.日本一区二区三区 | 欧美性视屏 | 成年色黄大色黄大片 视频 成年日韩免费大片黄在线观看 |