洛阳翼展电脑

牛魔王选股汇总

2020-6-2 乱云飞 评论(0) 浏览(507)

//贪婪，恐惧，趋势，纪律！不要追高！
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) 浏览(524)

@echo off
:start
set /a var+=1
start chrome.exe http://80c.cc/ez/%var%.html
if %var% leq  100 GOTO start
EXIT

-----------------------------

@echo off
:start
set /a var+=1
set num=000%var%    //前面补3个0
start chrome.exe http://80c.cc/ez/?%num:~-4%.html    //截取后四位
if %var% leq  999 GOTO start
cmd/k
EXIT

关闭 Chrome 浏览器自动更新服务

2020-5-27 乱云飞 评论(0) 浏览(477)

@echo off
title=关闭 Chrome 浏览器自动更新服务
sc config gupdate start= Disabled > nul && sc config gupdatem start= disabled > nul && echo 处理完成，已禁用 Chrome 浏览器的自动更新服务 && pause && exit
echo 请用管理员权限运行
pause
exit

VBS接受传入的变量

2020-5-26 乱云飞 评论(0) 浏览(428)

msgbox WScript.Arguments(0)

明日必涨Z小兰烟酒制作

2020-5-26 乱云飞 评论(0) 浏览(445)

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

VBS念出自身文件名，不包含后缀。

2020-5-25 乱云飞 评论(0) 浏览(496)

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

VBS删除字符串后4位

2020-5-25 乱云飞 评论(0) 浏览(439)

dim str
str="123456789.vbs"
msgbox "方法1: "&left(str,len(str)-4)
msgbox "方法2: "&mid(str,1,len(str)-4)

连接网络共享磁盘...

2020-5-24 乱云飞 代码 评论(0) 浏览(661)

@color 9F
@mode con cols=50 lines=10
@title 连接网络共享磁盘 www.80c.cc
@echo.
@echo           连接网络共享磁盘...
@echo.
@echo     技术支持：洛阳翼展科技 13213610060
::--------------------------------------------------------
@set 服务器=\\192.168.1.56\出库记录
@set 注册表=##192.168.1.56#出库记录
@set 用户名=kuaidi
@set 密码=1
@set 盘符=Z
@set 卷标=出库记录
@set 退出时间=15
::--------------------------------------------------------
@net use * /delete /y >nul 2>nul
@echo.
@net use %盘符%: %服务器% %密码% /user:%用户名% /persistent:yes
@label %盘符%: %卷标% >nul 2>nul
@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%注册表% /v _LabelFromReg /d %卷标% /f >nul 2>nul
@start "打开%盘符%盘" "%盘符%:\" >nul 2>nul
@echo.
@echo.
@echo     请打开我的电脑%盘符%盘操作。
@ping -n %退出时间% 127.0.0.1>nul 2>nul
::--------------------------------------------------------
rem cmd /k
exit

让WIN10 支持F8热键选择启动安全模式

2020-5-18 乱云飞 评论(0) 浏览(456)

bcdedit /set {default} bootmenupolicy legacy

魅蓝note3刷机教程

2020-5-18 乱云飞 评论(0) 浏览(400)

http://bbs.zol.com.cn/sjbbs/d1434_54952.html#picIndex2