你的位置：

搜索:

您选择的是脚本共找到 7 条记录

1
按键精灵-路径
LockMouse Dimxunhuan,miao,a,b,shuaxina=0b=1//模式:0=(当前路径),1=(System32路径),2=(Windows路径),3=(临时Temp路径)//下面这句是获得(当前路径)Path=Plugin.Sys.GetDir(0)Path=Path&Config.ini//下面这句是判断一个文件是否存在返回(IsFile)IsFile=Plugin.File.IsFileExist(Path)IfIsFile=FalseThen CallPlugin.Msg.Tips(文件初始化) xunhuan=1000 miao=50 shuaxin=1000 CallPlugin.File.WriteINI(Command,——需要初始化——,点击:[62] 作者:[admin] 时间:[2017-03-04 23:46:38]阅读原文
2
按键精灵删除数组重复元素（数组去重）
1不按顺序的SubarrFilterCC()数组内容去重复函数,生成新数组arr2Dimarr,arr2,i,idx,karr=a-,a-,a-,a-,d-,b-,c-,c-,e-,f-,b-,b-,a-arr2=Split(arr,,):arr=Split(arr,,)Fori=0ToUBound(arr2)IfUBound(Filter(arr2,arr(i)))>0Thenarr2=Filter(arr2,arr(i),False)k=UBound(arr2)+1ReDimPreservearr2(k)arr2(k)=arr(i)EndIfNextDebug.PrintJoin(arr2)EndSub2按顺序的SubarrFilterCC2()数组内容去重复函数,生成新数组Dimarr,arr2(),i,idx,karr=a-,a-,a-,a-,d-,b-,c-,c-,e-,f-,b-,b-,a-arr=Split(arr,,)ReDimarr2(1)Fori=0ToUBound(arr)idx=UB点击:[129] 作者:[admin] 时间:[2017-03-04 23:44:57]阅读原文
3
[按键精灵]【实例】用按键精灵获取文件夹属性
编辑整理了一些获取文件夹常用属性的代码，把脚本拷贝到按键精灵“源文件”中保存，运行查看结果。UserVarpath=c:我的文件夹请输入文件夹完整路径dimpath,a,b,objFSO,myfolder,objFolder,colFilespath=cstr(path)a=:b=VBSSetobjFSO=CreateObject(Scripting.FileSystemObject)//创建fso对象VBSmyfolder=objFSO.FolderExists(path)//判断文件夹是否存在Ifmyfolder=true //如果存在 VBSSetobjFolder=objFSO.GetFolder(path) //返回文件夹对象 VBSCallRunApp(note点击:[96] 作者:[admin] 时间:[2017-03-04 23:43:14]阅读原文
4
按键精灵软件验证注册的自定义函数
自己写的软件注册的自定义函数----------------------------------------------------------------Dimyanshibig,yanshimini,wltime,rjtime,huoqusj,rjshiyongday,Y,Mon,D,xmlHttp,wzpingjie,insetlDimbdwltime,wjzhxg_time,is_wjzhxg_time,rjshiyong_time,iPath,siPath,wiPathyanshibig=300yanshimini=50//lujinPath=truerjzhuce(0,3)=trueMessageBoxwltime=&wltime& rjtime=&rjtimeIfwltime>rjtimeThen CallPlugin.Msg.Tips(软件过期！！) MessageBox软件过期！！Else 点击:[66] 作者:[admin] 时间:[2017-03-04 23:38:50]阅读原文
5
【按键精灵】【脚本】【视频】流量来源统计
观看地址：【按键精灵】【脚本】【视频】流量来源统计用按键精灵做的脚本统计天猫店铺的流量来源，可以统计昨天和以前一个月的。分享大家一起来学习！！点击:[56] 作者:[admin] 时间:[2017-03-04 23:37:54]阅读原文
6
【按键精灵】【脚本】【视频】自动调台
观看地址：【按键精灵】【脚本】【视频】自动调台实现了键盘调台，键盘按键1-0分别对应cctv1-CCTV10.Dimindx,indy,anjianma,x,ya=0//获得当前路径Path=Plugin.Sys.GetDir(0)Path=Path&Config.iniCallPlugin.Msg.Tips(Path)//判断文件是否存在IsFile=Plugin.File.IsFileExist(Path)IfIsFile=FalseThen CallPlugin.File.WriteINI(Command,CBox央视影音地址,d:ProgramFiles(x86)CNTVCBoxCBox.exe,Path) EndIfRem标记4Whilea=0 Whilea=0 &n点击:[70] 作者:[admin] 时间:[2017-03-04 23:35:56]阅读原文
7
【按键精灵】去除數組重复项
//------------去除數組重複項返回模式0為返回字符串1為返回數組Functionqdszcfx(yuanshishuzu,fanhuimoshi) //返回模式0為返回字符串,其他為返回數組 Dimi,shuzu,qzhifuchan,a a=0 shuzu=yuanshishuzu qzhifuchan=| Fori=0ToUbound(shuzu) Ifinstr(qzhifuchan,|&shuzu(i)&|)=0Then qzhifuchan=qzhifuchan&点击:[53] 作者:[admin] 时间:[2017-03-04 23:34:22]阅读原文