摘要: 新建工程,放置控件Picture1,Text1,Text2,复制下面的代码运行 Text1和Text2可以互相拖放,也可以将Picture1拖放给Text1,Text2. 关于事件疑问自行百度,这里说明一下Data.SetData: 语法 object.SetData [data], [format 阅读全文
posted @ 2017-07-21 06:49 JustXIII 阅读(1289) 评论(0) 推荐(0) 编辑
摘要: 很多人用 SendKeys "{PRTSC}" 模拟截屏键 PrintScreen 的时候提示<错误:'70' 拒绝的权限>,于是经常遇到人问...干脆写下来 阅读全文
posted @ 2017-07-21 06:31 JustXIII 阅读(1416) 评论(0) 推荐(0) 编辑
摘要: 在窗体部分简单测试了ReadProcessMemory和WriteProcessMemory对另一个程序进程的读写. 由于临时项目变动,又不需要了,所以直接封类,删工程.以下代码没有一个函数经过测试,编译都没有进行... 阅读全文
posted @ 2017-07-21 06:29 JustXIII 阅读(1896) 评论(0) 推荐(0) 编辑
摘要: 第一位内涵的就是:没有对象 找到对象,却发现是别人的对象 不能加载也不能卸载...这到底是什么对象 哈哈哈~ 阅读全文
posted @ 2017-07-21 06:27 JustXIII 阅读(256) 评论(0) 推荐(0) 编辑
摘要: 算法图示: 运行效果: 详细代码: 阅读全文
posted @ 2017-07-21 06:25 JustXIII 阅读(933) 评论(0) 推荐(0) 编辑
摘要: 如上图,当进行连续判断的时候,即使第一个已经不符合条件了,后面的依然会计算.这点一定要记住,除非你所有的函数都有必要执行,否则会导致效率降低. 减代码不一定能提高效率,对于IIF和连续判断写法,貌似很多人都不知道funcA,funcB,funcC都会执行 代码如下,有兴趣的可以去试试 or 是否也像 阅读全文
posted @ 2017-07-21 06:23 JustXIII 阅读(1089) 评论(0) 推荐(0) 编辑
摘要: 通过执行一段VBS代码来操控窗体内的控件也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的. >>>运行效果如下图<<< 阅读全文
posted @ 2017-07-21 06:21 JustXIII 阅读(1506) 评论(0) 推荐(0) 编辑
摘要: 根据网络资料整改,来源未知,已调试通过. 测试代码: 阅读全文
posted @ 2017-07-21 06:18 JustXIII 阅读(722) 评论(0) 推荐(0) 编辑
摘要: 上面只是读取出来,如果要写入操作,也可以: 阅读全文
posted @ 2017-07-21 06:16 JustXIII 阅读(1323) 评论(0) 推荐(0) 编辑
摘要: VB里面用WINSOCK进行一对多连接的TCP连接时,经常需要群发消息给所有已连接的客户端.代码类似如下: 运行上面的代码发现,有时只有最后一个WINSOCK的客户端收到了消息,其他都没有收到. PS:郁闷了好久,意外的发现当点击以下暂停,然后再点击运行,其他客户端又收到了消息... 网络上没有搜到 阅读全文
posted @ 2017-07-21 06:13 JustXIII 阅读(1096) 评论(0) 推荐(0) 编辑
摘要: Option Explicit Private Type RGBA R As Byte G As Byte B As Byte A As Byte End Type Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As ... 阅读全文
posted @ 2017-07-21 06:05 JustXIII 阅读(709) 评论(0) 推荐(0) 编辑