做了个ftp下载脚本： ftpdownload.bat yester.vbs ...
‘IEResetAutomationSetobjAP=CreateObject("wscript.shell")objAP.Run"rundll32.exeinetcpl.cplResetIEtoDefaults"wscript.sleep1000objAP.AppActivate"ResetInternetExplorerSettings
分类：
其他好文 时间：
2019-05-09 15:27:45
阅读次数：
330
一需求：按照标题C的内容，一样的数据整理到一个文件中。 二.操作： 1.atl+F11弹出vb窗口 2.点击 插入 》模块 ，复制以下代码，注意这是一个表头为三行的函数（保存） Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rn ...
分类：
其他好文 时间：
2019-04-26 22:47:34
阅读次数：
537
Module Module1 Function AddElements(ByVal arr As Integer()) As Integer Dim sum As Integer = 0 Dim i As Integer Dim length As Integer length = arr.Leng... ...
分类：
Web程序 时间：
2019-04-22 15:14:55
阅读次数：
194
“\”：在Integer类型中，如果商带小数，则直接舍去小数部分，只保留整数部分。“/”：在Integer类型中，如果商带小数，则把小数部分以0.5为界限，小数部分大于0.5，则返回的整数部分+1；如果小数部分小于0.5，则直接返回整数部分。“Mod”：这个是求模运算，返回余数。 ...
分类：
其他好文 时间：
2019-04-17 16:48:30
阅读次数：
231
既然已经做出了com程序用delphi来开发的决定，那当然就要对delphi进行一些深入的了解。有人说delphi是一个用控件堆砌起来的工具，和vb没什么两样；也有人说dephi实际上是面向过程的，他的面向对象并不彻底。实际生活中持这两种观点的人不在少数，就拿我认识的一个非常好的程序员来说吧，他很早 ...
1. public string[] Split(params char[] separator)程序代码 string[] split = words.Split(new Char[] { ',' });//返回:{"1","2.3","","4"}string[] split = words.S ...
c = Val(Text1.Text) '将Text1中的值赋给cIf c = Abs(a - b) Then 'Abs(a - b)是a和b间的差（正数），判断c是否等于该差值f = f + 10 '是，则f加10Label6.Caption = f '显示fElsef = f - 10 '否则减 ...
分类：
其他好文 时间：
2019-04-06 19:03:04
阅读次数：
950
在select case 语句中可以使用关系运算符大于>小于<等于=等关系运算符，需要用关键字IS和TO。用个例子来说明：Private Sub Command1_Click()Dim age As Integerage = Text1.TextSelect Case ageCase Is < 14 ...
分类：
其他好文 时间：
2019-04-06 18:59:40
阅读次数：
209
脚本蓝奏下载地址 之前发过一个 但是脚本丢了 ，正好有个粉丝需要 就花了点时间 搞了一下。 之前的写法完全忘记了 o(╥﹏╥)o 只好重新开始 ，不过应该是优化了写法（印象中之前用的是个笨方法） 这次用上了ASCII码 并对特殊符号进行了分析。不多说 代码很易读。 (不知道这是 lua 还是 vb ...
分类：
其他好文 时间：
2019-03-27 00:20:42
阅读次数：
175
