笔记
nc_xinzeyou
这个作者很懒,什么都没留下…
展开
-
VB防止程序重复运行并且激活当前正在运行的程序窗口
本文来自(此文作为笔记有问题练习作者删除):https://blog.csdn.net/ty5858/article/details/113782745如果程序已经在运行中,双击程序图标激活前台运行中的程序窗体还原到桌面,代码如下:Option ExplicitPrivate Declare Function SetForegroundWindow Lib “user32” (ByVal hWnd As Long) As LongPrivate Declare Function FindWindo原创 2021-09-05 08:01:23 · 1039 阅读 · 0 评论 -
VB SendKeys 的几个用法
VBScript和Windows脚本宿主不提供用于最大化/最小化/恢复窗口的内部函数。没有任何第三方工具,您唯一的选择是使用SendKeys模拟键盘窗口系统菜单中相应命令的快捷方式。 要使活动窗口最大化,您可以模拟Alt + SpaceBar,x快捷方式:Set oShell = CreateObject(“WScript.Shell”)oShell.SendKeys “% x”要最小化活动窗口,请使用Alt + SpaceBar,n:Set oShell = CreateObject(“WSc原创 2021-08-28 05:06:20 · 2187 阅读 · 1 评论 -
VB 切换到指定的应用程序上
VB 切换到指定的应用程序上写回答VB 切换到指定的应用程序上比如说按一下Command按钮就自动切换到"哈哈"这个游戏程序然后执行按键代码要详细点- - 展开写回答有奖励共3个回答hankcs2016-04-08 超过15用户采纳过TA的回答关注用AppActivate其实挺容易实现的,代码如下-------------------------------------------------------------------'一个窗体,一个textbox,一个cmdButton,textbox内填写你原创 2021-08-26 20:30:42 · 876 阅读 · 0 评论 -
VB简单易懂通用型自定义毫秒延时调用想要所有窗口调用复制到模块内
'VB自定义函数-通用型-动态延时-毫秒延时’ Function为调用类型 yc为参数名 sc为参数值 Double8字节双浮点数 Boolean逻辑值Function yc(cs As Double) As Booleanyc = Falsecs = cs / 24 / 3600 / 1000 + time ’Do While cs > timeDoEvents '控制权转让给系统,防止等待时间过长宕机。Loopyc = TrueEnd FunctionPrivate Sub原创 2021-08-21 18:39:38 · 263 阅读 · 0 评论 -
2021-07-25
这是一个创建于 1090 天前的主题,其中的信息可能已经有所发展或是发生改变。资料来源于http://www.360doc.cn/mip/723396211.htmlupdateHosts简介自动从网络下载hosts文件,hosts源由用户设置。使用说明下载地址:https://github.com/ladder1984/updateHosts/archive/master.zip解压即可使用,无需安装Python。点击start.vbs运行,点击addToStartup.js加入启动项。原创 2021-07-25 02:28:04 · 272 阅读 · 0 评论 -
一到九乘法口诀VB源码
一到九乘法口诀VB源码:Private Sub Form_Load()form1.Width = form1.Width * 1.5 '窗口长度扩增1.5被显示全部内容Show '输出到窗口参数1Dim i As IntegerDim k As IntegerFor k = 1 To 9 Step 1For i = 1 To k Step 1Print i & “*”; k & “=” & i * k & " "; 'Print 输出窗口参数2Next原创 2021-06-13 09:44:01 · 671 阅读 · 0 评论 -
股票比较实用的指标
{作为备用}DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIFF,9);STICKLINE(DIFF>DEA,-1,-2,3,0),colorred;STICKLINE(DIFF<DEA,-1,-2,3,0),colorgreen;MCDA金叉:DIFF>DEA,NODRAW;RSV:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;K:=SMA(RSV,3,1);D:=SMA(原创 2020-08-30 08:04:24 · 412 阅读 · 0 评论 -
发现一个免费可用的股票实盘交易接口API,直接GET/POST请求,不用交易客户端
本文转来源于http://www.360doc.cn/mip/826706801.html最近公司在开发股票配资的系统,老板让找接口,刚开始找各种客户端交易软件,存在很大问题,多账户、同时、执行效率、购买方式都受到相对的限制。寻思好久找到了这个开放的交易接口,亲测可用,直接GET传值就行,不需要另外搞什么服务器放交易客户端,正常请求的返回时间在1秒内,速度极快,而且接口的设定方式在开发程度上大大降低了时间成本和人力成本。直接上接口吧:一、获取账户的数据请求URL:https://api.natap原创 2020-08-21 15:33:23 · 4021 阅读 · 3 评论