nc_xinzeyou-CSDN博客

原创 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 974

原创 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 2120 1

原创 VB 切换到指定的应用程序上

VB 切换到指定的应用程序上写回答VB 切换到指定的应用程序上比如说按一下Command按钮就自动切换到"哈哈"这个游戏程序然后执行按键代码要详细点- - 展开写回答有奖励共3个回答hankcs2016-04-08 超过15用户采纳过TA的回答关注用AppActivate其实挺容易实现的，代码如下-------------------------------------------------------------------'一个窗体，一个textbox，一个cmdButton，textbox内填写你

2021-08-26 20:30:42 829

原创 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 248

原创 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 243

原创一到九乘法口诀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 642

原创股票比较实用的指标

{作为备用}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 368

原创发现一个免费可用的股票实盘交易接口API，直接GET/POST请求，不用交易客户端

本文转来源于http://www.360doc.cn/mip/826706801.html最近公司在开发股票配资的系统，老板让找接口，刚开始找各种客户端交易软件，存在很大问题，多账户、同时、执行效率、购买方式都受到相对的限制。寻思好久找到了这个开放的交易接口，亲测可用，直接GET传值就行，不需要另外搞什么服务器放交易客户端，正常请求的返回时间在1秒内，速度极快，而且接口的设定方式在开发程度上大大降低了时间成本和人力成本。直接上接口吧：一、获取账户的数据请求URL：https://api.natap

2020-08-21 15:33:23 3805 3

原创 VB串口通讯

VB串口通讯一、概述串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用于PC间的通讯以及PC和单片机之间的通讯之中。提到串口通讯的编程，人们往往立刻想到C、汇编等对系统底层操作支持较好的编程语言以及大串繁琐的代码。实际上，只要我们借助相关ActiveX控件的帮助，即使是在底层操作一向不被人看好的VB中，一样能够实现串口通讯，甚至其实现方法和C、汇编相比，要更加快捷方便。下面，笔者就介绍一下在VB中实现串口通讯的方法。在Visual Basic中有一个名为Microsoft Communic

2020-05-30 09:36:15 2319 1

原创 VBA A列输入内容B列自动显示日期时间

'若是需要修改监测动态的列号修改jcl的值为对应列号的数字(比如B列为2)，自动值类似监测值。Private Sub Worksheet_Change(ByVal Target As Range)Dim h%, l%: jcl = 1: zdz = 2 If (Target.Column = jcl And Target.Value <> "") Then ...

2019-12-08 20:09:16 2001

原创 WIN7系统搭建FTP服务的不关防火墙的设置方法

2019-10-10 05:56:09 275

原创 Win7上防火墙开着没法被其他机器访问FTP Server的解决方案

原文链接：https://blog.csdn.net/iteye_1124/article/details/82302402The following 4 steps will allow both non-secure and SSL FTP traffic through firewall.运行cmd，之后：1.如果你的FTP是RC0之后的版本的话，直接跳到第3步骤；如果你的是RC0版本...

2019-10-10 05:52:07 287

原创 vba 公网ip获取代码

vba 公网ip获取代码来源于网络收集，稍有修改Function bytes2BSTR(vIn)Dim strReturn As String, ThisCharCode As Long, NextCharCode As LongDim i As Long strReturn = "" For i = 1 To LenB(vIn) ThisCharCode ...

2019-09-21 23:56:48 893

原创用EXCEL VBA编程：当表格中的某数字小于5的时候,发邮件给指定的人

用EXCEL VBA编程：当表格中的某数字小于5的时候,发邮件给指定的人。资料收集于网络，若是有侵权联系作者删除，谢谢！Sub 发邮件()Dim ou As ObjectDim oua As ObjectDim a As IntegerIf a < 5 Then '设置条件，当a小于5的时候发邮件Set ou = CreateObject("outlook.applicatio...

2019-09-13 01:40:33 428

原创 Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板

本文来自网络资料参阅加以修改，如有侵权联系作者删除，谢谢找了好久的资料没有很齐全的想要的那种盯盘方式，于是就自己动手制作了个盯盘的Excel模板，如图废话不多说直接上源码：打开Excel，添加3个模块模块1：Private Sub Workbook_Open() '点击此处循环获取开始，结束记得保存，关闭ExcelIf Range("Sheet1!a2").Value <&g...

2019-07-10 03:01:09 3304

qq_22732827的博客