2020-6-3 乱云飞 评论(0)
浏览(2)
洛阳巨龙技术学校招生网站
2020-6-3 乱云飞 评论(0)
浏览(1)
洛阳机车技师学院招生网站
2020-6-2 乱云飞 评论(0)
浏览(1)
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 20
wscript.sleep 700
wsh.AppActivate("emmm")
wsh.sendKeys "^v"
wsh.sendKeys str(i)
wsh.sendKeys "%s"
next
wscript.quit
2020-6-2 乱云飞 评论(0)
浏览(1)
//贪婪，恐惧，趋势，纪律！不要追高！
MA5:=MA(C,5);MA10:=MA(C,10);MA20:=MA(C,20);MA30:=MA(C,30);MA60:=MA(C,60);MA120:=MA(C,120);//定义移动平均线
短期:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
中期:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
中长:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
长期:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
EZ01:=CROSS(MA5,MA10) AND ATAN((MA5/REF(MA5,1)-1)*100)*57.3>35;//短线金叉5日上穿10日
EZ02:=MA5>MA10 AND MA10>MA20 AND MA20>MA30;//多头排列
EZ03:=MA5<MA10 AND MA10<MA20 AND MA20<MA30 AND L>MA30;//空头排列
EZ04:=短期<6 AND 中期<6 AND 中长<6 AND 长期<6;//四线归一
EZ05:=短期<20 AND 中期>50 AND 中长>50 AND 长期>50;//单针下20///////////////////////////EZ05
EZ06:=H/C<=1.00009 AND C>O AND O/L<=1.00009;//光头光脚
EZ07:=H/REF(C,1)>1.098;// 涨停板(含开板)
EZ08:=C/REF(C,1)>1.098;// 涨停板(含一字板)
EZ09:=C/REF(C,1)>1.098 AND H=O AND L=H;//涨停一字板
EZ10:=DYNAINFO(39)>1 AND DYNAINFO(39)<100 ;//限制市盈率范围
EZ11:=L>5 AND H<10;//限制价格范围////////////////////////////////////////////////////////EZ11
EZ12:=NAMELIKE("ST") OR NAMELIKE("*") OR NAMELIKE("N");//ST股票和新股
EZ13:=NOT(DYNAINFO(4)=0);//去除停牌的股票，作为排除条件有效
EZ14:=STRFIND(CODE,"3",1)=1;//创业板股票
EZ15:=NAMELIKE("纸");//关键字选股
EZ16:=H-L<=0.1;//振幅小的股票，一毛钱玩一天
EZ17:=H/L>1.5;//振幅大的股票，涨停到跌停
EZ18:=VOL/REF(VOL,1)>2;//成交量大于昨天成交量*2
EZ19:=VOL/MA(VOL,10)>2; //成交量大于10日均量*2
EZ20:=VOL/REF(VOL,1)<0.5;//成交量较昨日缩小一倍
EZ21:=VOL/MA(VOL,20)<0.5;//成交量较20日缩小一倍
EZ22:=SUM(V,10)<=HHV(V,60);//成交量极度萎缩
EZ23:=COUNT(V<REF(V,1),7)=7;//连续七天缩量
EZ24:=(HHV(H,10))<(HHV(H,60));//10日最高价低于60日最高价
EZ25:=CROSS(MA(V,5),MA(V,60)) AND V=HHV(V,20);//五日均量线上穿60日均量线，而且成交量是20日最高
EZ26:=ABS(C-O)<0.02;//十字星选股
EZ27:=(MIN(O,C)-L)/L*100>1.5;//下影线大于5
EZ28:=H=O OR H=C;//光头
EZ29:=BARSCOUNT(C)<30;//30日内的次新股
EZ30:=(ATAN((MA(C,10)/REF(MA(C,10),1)-1)*100)*180/3.14115926)>55;//五日线角度
EZ31:L<=LLV(L,60),STICK,colorFFFFFF,LINETHICK2;//N日最低价
最低:=L<=LLV(L,60),STICK,colorFFFFFF,LINETHICK2;//60最低
次低:=L<=LLV(L,30),STICK,colorFFFFFF,LINETHICK1;//30最低
最高:=H>=HHV(H,60),STICK,colorcc00ff,LINETHICK2;//60最高
次高:=H>=HHV(H,30),STICK,colorcc00ff,LINETHICK1;//30最高
上影:=(H-MAX(O,C))/(H-L);//上影线高度,阻力
实体:=ABS(O-C)/(H-L);//实体高度
下影:=(MIN(O,C)-L)/(H-L);//下影线高度，支撑力
EZ32:=上影>0.7 AND 最高,STICK,colorFFFFFF,LINETHICK1;//上影叠加最高价
EZ33:=下影>0.7 AND 最低,STICK,colorFFFFFF,LINETHICK1;//下影叠加最低价
选股:EZ33
//选股:EZ05 AND EZ31
2020-5-29 乱云飞 评论(0)
浏览(7)
@echo off
:start
set /a var+=1
start chrome.exe http://80c.cc/ez/%var%.html
if %var% leq 100 GOTO start
EXIT
2020-5-27 乱云飞 评论(0)
浏览(10)
@echo off
title=关闭 Chrome 浏览器自动更新服务
sc config gupdate start= Disabled > nul && sc config gupdatem start= disabled > nul && echo 处理完成，已禁用 Chrome 浏览器的自动更新服务 && pause && exit
echo 请用管理员权限运行
pause
exit
2020-5-26 乱云飞 评论(0)
浏览(11)
msgbox WScript.Arguments(0)
2020-5-26 乱云飞 评论(0)
浏览(11)
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VARA:=BARSCOUNT(CLOSE);
VARB:=VAR8<20 AND VAR9<23 AND VARA>35;
VARC:=VARB AND COUNT(VARB,1)=1;
VARD:=EMA(CLOSE,21)-EMA(CLOSE,8);
VARE:=EMA(VARD,5);
VARF:=TROUGHBARS(3,6,1)<4 AND CROSS(VARD,VARE);
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
VAR1A:=EMA(VAR19,100);
VAR1B:=2*(VAR19-VAR1A);
VAR1C:=POW(VAR1B,3)*0.1+POW(VAR1B,1);
VAR1D:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));
VAR1E:=EMA(VAR1D*0.97,3);
VAR1F:=(HIGH+LOW+CLOSE)/3;
VAR20:=(VAR1F-MA(VAR1F,14))/(0.015*AVEDEV(VAR1F,14));
VAR21:=CROSS(VAR1E,LOW);
选股买点:VAR10,coloryellow;
组合买:(VAR11+VAR13+VAR15+VAR17),colorred;
组合卖:(VAR12+VAR14+VAR16+VAR18),colorgreen;
黑马线:IF(VAR1B>0.1,VAR1C,0)*1;
黑马信号介入点:选股买点 AND VARF AND VARC AND VAR21 AND VAR4<0 AND VAR5<2 AND VAR6=0,COLORFFFF99;
DRAWTEXT(VAR13,0.6,'●'),colorred;
DRAWICON(组合买,组合买,1);
DRAWICON(组合卖,组合卖,9);
DRAWTEXT(黑马信号介入点>0,4.5,'●我的黑马介入点'),colorred;
DRAWICON(选股买点>0,4.2,1);
DRAWTEXT(选股买点 AND VARF AND VARC,2.8,' 30%下单莫错过！'),colormagenta;
DRAWTEXT(VAR18,3,'空仓'),colorgreen;
DRAWTEXT(VAR20<-110 AND 选股买点>0,2,'选股买点'),coloryellow;
DRAWTEXT(VAR17,1.3,'发现黑马'),COLORFF6600;
DRAWTEXT(选股买点 AND VAR20<-100 AND VARF AND VARC>0,4.1,'★组合5分钟线选股思路获利5%以上'),colorred
2020-5-25 乱云飞 评论(0)
浏览(11)
on error resume next
'本程序的功能是念出自身文件名，不含后缀。
'想让电脑念什么，就把文件名改成什么。
'翼展电脑服务中心 www.80c.cc
set shell = createobject("WScript.Shell")
set shuo = createobject("sapi.spvoice")
shuo.rate=2
shuo.Volume=80
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetFile(Wscript.scriptfullname).name
shuo.speak left(str,len(str)-4),1
'msgbox left(str,len(str)-4)
shell.popup left(str,len(str)-4),10,"翼展电脑服务中心",vbOKOnly
2020-5-25 乱云飞 评论(0)
浏览(9)
dim str
str="123456789.vbs"
msgbox "方法1: "&left(str,len(str)-4)
msgbox "方法2: "&mid(str,1,len(str)-4)