龙头复盘神器4.0 loader

[通达信]
设置
19325 24 做市者 Lv.4 发表于 · 2021-6-22 11:59 显示全部楼层 正序浏览 |
跳转到指定楼层
本帖最后由 做市者 于 2021-6-22 12:02 编辑

钢丝的   龙头复盘神器4.0  在更新历史涨停数据后将导致数据重复,作者都说了这是免费软件嘛,暂时的解决办法就是:  不要用  更新历史涨停数据,只用  更新今天数据

那就让它每次运行前给我们做个每日更新的提示,附件解压出来放在文件夹里即可。

附件

龙头复盘神器loader.zip

91.86 KB, 下载次数: 164, 下载积分: 分享值 -2 个

举报

使用道具 扔鸡蛋 回复

水土心
Lv.2
发表于 2021-8-2 20:22 复制 查看全部楼层
唉,浪费币啊!不是软件,大家散了吧,楼主不地道

举报

使用道具 点亮 (1) 支持 扔鸡蛋 回复

顶底预测99
Lv.3
发表于 2021-6-26 23:14 复制 查看全部楼层
WIN10下载后打不开

举报

使用道具 支持 扔鸡蛋 回复

顾屏
Lv.4
发表于 2021-6-26 15:47 复制 查看全部楼层
这个赞。。。。。。。。

举报

使用道具 支持 扔鸡蛋 回复

徐老大66
Lv.4
发表于 2021-6-26 15:04 复制 查看全部楼层
有木马!不要下载!

举报

使用道具 支持 扔鸡蛋 回复

反扒加分
Lv.2
发表于 2021-6-26 12:03 复制 查看全部楼层
win10打不开。。。哎呀

举报

使用道具 支持 扔鸡蛋 回复

反扒加分
Lv.2
发表于 2021-6-26 11:57 复制 查看全部楼层
你好,怎么提示木马

举报

使用道具 支持 扔鸡蛋 回复

上2006
Lv.4
发表于 2021-6-24 16:14 复制 查看全部楼层
楼主厉害哦,我也想学习一下

举报

使用道具 支持 扔鸡蛋 回复

飞lhhceo
Lv.2
发表于 2021-6-24 15:31 复制 查看全部楼层
待会下载试试

举报

使用道具 支持 扔鸡蛋 回复

正义枪手
Lv.4
发表于 2021-6-23 11:58 复制 查看全部楼层
请老师发个完整的数据文件

举报

使用道具 支持 扔鸡蛋 回复

理想OK理想
Lv.4
发表于 2021-6-23 09:15 复制 查看全部楼层
请老师发个完整的数据文件 sj.data,谢谢!

举报

使用道具 点亮 (1) 支持 扔鸡蛋 回复

张争评
Lv.4
发表于 2021-6-23 08:53 复制 查看全部楼层
里面都是空的,骗人的,不要下了浪费分享币

举报

使用道具 支持 扔鸡蛋 回复

联席会
Lv.2
发表于 2021-6-22 21:34 复制 查看全部楼层
楼主厉害哦,我也想学习一下

举报

使用道具 支持 扔鸡蛋 回复

罗峰1
Lv.2
发表于 2021-6-22 21:03 复制 查看全部楼层
下载来试试

举报

使用道具 支持 扔鸡蛋 回复

护鲸舰长
Lv.3
发表于 2021-6-22 20:55 复制 查看全部楼层
怎么打不开呀

举报

使用道具 支持 扔鸡蛋 回复

做市者
Lv.4
发表于 2021-6-22 17:17 复制 查看全部楼层
小胖熊21 发表于 2021-6-22 17:15
钢丝老师的帖子不知怎么打不开了。

被老大关小黑屋了

举报

使用道具 支持 扔鸡蛋 回复

小胖熊21
Lv.2
发表于 2021-6-22 17:15 复制 查看全部楼层
钢丝老师的帖子不知怎么打不开了。

举报

使用道具 支持 扔鸡蛋 回复

含小天
Lv.2
发表于 2021-6-22 16:28 复制 查看全部楼层
朋友们,龙头复盘神器4.0 在哪里下载?谢谢!

举报

使用道具 支持 扔鸡蛋 回复

老于米牙
Lv.4
发表于 2021-6-22 14:16 复制 查看全部楼层
朋友们,龙头复盘神器4.0 在哪里下载?谢谢!

举报

使用道具 点亮 (1) 支持 扔鸡蛋 回复

趋势321
Lv.3
发表于 2021-6-22 13:43 复制 查看全部楼层
楼主这是给软件工具针对采集竞价金额做了个补丁

举报

使用道具 点亮 (2) 支持 扔鸡蛋 回复

现残酷的
Lv.2
发表于 2021-6-22 12:55 复制 查看全部楼层
/thx/thx/thx

举报

使用道具 支持 扔鸡蛋 回复

做市者
Lv.4
发表于 2021-6-22 12:43 复制 查看全部楼层
Sub Remind()
'On Error Resume Next

   Set fso=CreateObject("Scripting.FileSystemObject")
   Set file1=fso.GetFile("sj\sj.data")

   f1=file1.DateLastModified
   f1str=Mid(f1,1,4) & Mid(f1,6,2) & Mid(f1,9,2)
   f1num=CLng(f1str)

   f0str=Mid(date(),1,4) & Mid(date(),6,2) & Mid(date(),9,2)
   f0num=CLng(f0str) '当前日期

   f00str=Mid(DateAdd("d",-2,date),1,4) & Mid(DateAdd("d",-2,date),6,2) & Mid(DateAdd("d",-2,date),9,2)
   f00num=CLng(f00str)

   Hstr=Hour(now())
   if len(Hstr)<2 then Hstr="0"&Hstr
   Mstr=Minute(now())
   if len(Mstr)<2 then Mstr="0"&Mstr
   Sstr=Second(now())
   if len(Sstr)<2 then Sstr="0"&Sstr
   fstr=Hstr&Mstr&Sstr
   fnum=CLng(fstr) '当前时间

   tj1=Weekday(now)<>7 And Weekday(now)<>1 And fnum>173000  '每周一到周五17点半后提示“收盘”
   tj2=f1num<f0num  '指定文件的日期小于当前日期,表示今天还没收盘
   tj12=(Weekday(now)=7 And f1num+1<f0num) Or (Weekday(now)=1 And f1num+2<f0num)
   If (tj1 And tj2) Or tj12 Then
       Msgbox "  还没收盘,记得:" & vbCrLf & "(1)更新今天数据;" & vbCrLf  & "(2)小工具集合——>竞价数据更新(选 当天)。" & vbCrLf & vbCrLf & "  sj.data  的修改时间为:" & f1
   End If

End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set OBJWS=WScript.CreateObject("wscript.shell")
Set FSO=CreateObject("Scripting.FileSystemObject")
On Error Resume Next

    FSO.DeleteFile "sj\sj.data"
    OBJWS.Run "cmd /c Xcopy ""sj.data"" ""sj\""",0,1
    Remind()
    OBJWS.Run "龙头复盘神器4.0.exe"

Set OBJWS=NoThing
Set FSO=NoThing
Wscript.Quit



全部代码,保存为  .VBS  可执行,请杀毒软件放行。

举报

使用道具 点亮 (6) 支持 扔鸡蛋 回复

随机选股
Lv.3
发表于 2021-6-22 12:41 复制 查看全部楼层
钢丝是谁? 郭德纲的粉丝?

举报

使用道具 支持 扔鸡蛋 回复

劲牛2008
Lv.4
发表于 2021-6-22 12:27 复制 查看全部楼层
打不开,不知道其他人能否打开

举报

使用道具 支持 扔鸡蛋 回复

劲牛2008
Lv.4
发表于 2021-6-22 12:23 复制 查看全部楼层
待会下载试试
/th

举报

使用道具 支持 扔鸡蛋 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

站长推荐 关闭 上一条 /6 下一条
回顶部 到页底
快速回复 返回顶部 返回列表