洛阳翼展电脑

批量打开网页

2020-5-29 乱云飞 评论(0) 浏览(686)

@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) 浏览(633)

@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) 浏览(501)

msgbox WScript.Arguments(0)

明日必涨Z小兰烟酒制作

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

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) 浏览(546)

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) 浏览(636)

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

连接网络共享磁盘...

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

@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) 浏览(556)

bcdedit /set {default} bootmenupolicy legacy

魅蓝note3刷机教程

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

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

Windows 10 (business edition), Version 2004 (x64) - DVD (Chinese-Simplified)

2020-5-16 乱云飞 评论(0) 浏览(538)

magnet:?xt=urn:btih:8E49569FDE852E4F3CCB3D13EFB296B6B02D82A6&dn=cn_windows_10_business_editions_version_2004_x64_dvd_c59a4f91.iso&xl=5527756800