手水平有限,献丑了,高手勿喷,只是提供个思路 PC,生成小精灵想设置个可以变密码,利用本机时间和密码验证见图 附源码 是输密码后判断输入密码第三位和第四位数与当前时间的分钟数是否一致来判断Event Form1.button1.Click //设置密码取分钟验证 Dim TTT TTT = Time TracePrint TTT Time Dim BBB,AAA AAA=form1.InputBox1.Text TracePrint AAA BBB = mid(TTT, 4, 2) CCC = mid(AAA ,3,2) TracePrint BBB TracePrint CCC If BBB - CCC ="0" Then MessageBox"密码正确" Else MessageBox"密码错误" EndScript En

现在官方自带的http的命令少了个提交文件的功能，美中不足 无可奈何我就被迫营业封装了一个http的插件，可以支持upload功能 目前插件还是内测版本，功能不完善且概率存在一定BUG，后续会进行迭代更新 功能特色 - 自定义header消息头 - 智能判定Content-Type类型 - 支持Android&IOS双端使用 - 统一的payload格式传入（table类型） 命令功能 SHTTP.Get(url, opts) - 功能：发送Get请求 - 参数： - url: 必选，请求的url - opts: 可选参数，包含以下参数的键值表 headers: 自定义

按键抓抓相当于按键精灵的眼睛，找图找色少不了

在cydia中可以看到已经安装的deb文件，但是桌面不显示。越狱工具unc0ver，系统11.2

ajjl。定义一个明确数组。定义一个动态数组 //什么是明确数组？ 明确数组，定义时数组下标确定. Dim Array(3) //Dim [?'rei] Array(0) = 1230 Array(1) = 1231 Array(2) = 1232 Array(3) = 1233 For i = 0 To 3 TracePrint Array(i) Next //什么是动态数组？ 动态数组是指，定义时数组下标不指定。下标中，元素初值不指定. Dim arr //Dim [?'rei] arr = Array("图0","图1","图2","图3") //对数组arr进行赋值。arr中有4个元素，每个元素对应一个初值：即("图0","图1&quot

检测更新这个功能是很重要的，如果脚本更新了，你得让用户及时的更新，你又不可能给每个用户都发一遍，所以这个功能是每个脚本作者都必须要做的 原理很简单，得到网页内容，网页里面写了版本号和下载地址，然后判断版本号是不是比当前版本号高 首先你得有一个自己的网站，我推荐“凡科建站”具体的我就不多说了，自己百度吧，另外不要用自己空间做更新提示的地方，没用的，访问会被拒绝 不知道为啥，代码竟然发不出去，只能发图片了

这是第一篇的连接：http://tieba.baidu.com/p/3686198525?pid=66676692488&cid=0#66 写一个脚本时，要尽可能的去优化，不仅能缩短代码，使代码更容易看懂，还能提高运行速度，虽然对计算机来说花费的时间几乎可以忽略不计，但是这仍旧是不可缺少的。 我有个徒弟，喜欢把简单的东西复杂化，一个简单的操作能写的很长，故意让人看不懂，还沾沾自喜。我只能说这货根本就没理解写代码是为了什么，不去想着怎么优化，却想着怎么复杂化让别人看不懂，也没谁

脚本开始前放入以下函数定义代码： // ------------------------------------------------开始函数定义----------------------------------------- De

今天徒弟说做不来别踩白快的的脚本，我抽空写了一个给他，顺便发出来。或许对新人来说有些帮助。 以经典模式为例，一共是4x4的格子，按黑色方快就行，按的黑色方块一直都是在从下往上第二排，在写之前，要想好思路，应该怎么写。 思路是:用得到固定点颜色来判断，如果是黑色，就点击那个颜色的点。如果不是，则判断另一个格子的颜色，这里可以用循环。 源码如下: //SetScreenScale 720, 1280, 0 //上面那条代码是自动适应分辨率的，可以用在不同

最近学校比较忙，只好先来个简单滴，希望不要嫌弃~~~ VBSBegin Set obj = GetObject("winmgmts:\\.\root\cimv2") Set IPConfigSet = obj.Ex

//鼠标按圆型移动,半径为r=100,圆点为(200,200) Call yidong(200,200,100) Sub yidong (x,y,r) moveto x-100,y For i = 0 To 360 x1 = x - r * cos(i

｛基址和偏移｝为什么找到的基址，是进程名+16进制的数字？ 说下CE的模块地址： 双击基址您会发现显示的竟然是 Tutorial.exe+60C34 而基址不是00460c3

制作拳皇的↙↘键。 Declare Function GetAsyncKeyState Lib"user32"(ByVal vKey As Long) As Integer Dimenv IDad, IDss Dimenv ascii1,as

弧度和角度的换算。 弧度数是表示：弧长与半径的比。 根据定义，一周的弧度数为2πr/r =2π， 360°角=2π弧度， ……………… ……………… 因此， 1弧度转换为角度，=360°/2π， 约为57.3°，即57°17'44.806''， ……………… ……………… 1角度转换为弧度，=2π/360° 近似值为0.01745弧度。 ……………… ……………… 平角（180°角）为π弧度， 周角（360°角）为2π弧度。 ……………… ……………… 弧长与半径的比，是一个实数，这样在角集合与实数集之间

大漠插件，版本号3.1233。 贴吧资源下载 ： http://pan.baidu.com/s/1o6JWSZ4 大漠内嵌汇编，成功调用游戏Call。 dm.AsmClear dm.AsmAdd"push 01

游戏视角，选择从空中向下的俯角。 鼠标特征码是指， 鼠标作同心圆搜索循环，如果点到怪物，鼠标形状由箭头状变成小刀状，小剑状。 条件判断：找到这

PutAttachment "D:\辅助","*.*" 释放附件中的全部文件，到D盘的辅助目录。 // // Attachment，n.附件。 put，vt.释放。 PutAttac

说下我编程的学习过程。 ……………… ……………… 其实按键精灵是很不错的，学按键精灵可以慢慢的熟悉并且学习VB ，从而慢慢学习 VC++6.0 最后到汇编语言（找Call写Call）。 按键精灵是学习初级编程的最好软件。 ……………… ……………… //----------------我是分界线--------------------- //----------------我是分界线--------------------- 第一阶段，学按键，学VB。 按键简单，多看视频教程和按键宝典就会。 VB也是。 ……………… ……………… 第二阶段，学Delp

Call 大漠注册() Call Plugin.Msg.Tips("开始注册大漠") Set dm = createobject("dm.dmsoft") ///// dm_ret = dm.BindWindow(722

在按键精灵中内嵌汇编语言。在VB中内嵌汇编语言。

定义一个明确的数组。和定义一个动态的数组。