摘要： 声明：本人新学按精，对于程序中经常出现的Obj=Creatobject("wscript.shell")有各种疑问，而本论坛并无关于该object的详细介绍。故baidu之。在此对资料的各位原作者表示感谢。以下是自己搜索过程中得到的一些信息与理解，也想让诸位看看我得到的信息正确与否。故发帖共享。如果有哪里出现错误，请各位不吝指正。Wscript.shellWscript.shell是Wshshell的ProIDWshshell是一个对象，存放在windows系统中的wshom.ocx文件中，可供在windows上运行的程序调用。他可对windows的外壳程序进行访问。对象（ 阅读全文

摘要： 这个问题求解，代码越短越好！！注：此处是输出最小5个值，不是该数列下标。如出现10个数中有六个重复，则就没有5个最小值，此种情况则输出4个数。并注明重复情况。 1 Var2=-1 2 For 10'生成10个数 3 Randomize '随机 4 Var1 = Int(50 * Rnd)'0-50 5 If Var1>Var2 Then Redim Preserve var(Var1) 6 var(Var1) = Var1'排序以及去掉重复 7 Var2= Var1 8 Next 9 TracePrint join(Var)10 For i = 0 To 阅读全文

摘要： 大家有没有想过，用按键精灵，能够制作一个脚本，该脚本具有按键精灵录像的功能。为了简化制作代码，我们限定此脚本只录取鼠标的左键操作。也就是说，我们采用该脚本录像时只能使用左键操作。大家有什么思路，不妨讨论一下。因为不能同时开二个按键精灵，故希望把代码输入到一个文本内，然后人工的复制代码到源码区鼠标左键的单击与双击的根本原理就是LeftDown和LeftUp，只不过中间的Delay很小。故我想这个就是我们的编写代码的一个关键点。人的双击鼠标之间两次单击的极限时间要大于150ms. 1 Do 2 key = WaitClick() 3 If key = 32769 Then 4 按键间隔= Plu. 阅读全文

摘要： 游戏密码箱为四位数，开箱密码是2547。初始显示为0000，在某位数处单击一次该数+1，单击不能太快，否则不能响应。数之间间隔相同是25。首位数坐标是（100，100）首先把鼠标移至密码第一位后，我们希望通过循环命令来实现。如果这个密码位数是不确定的，在3~5位内变化，密码自定。这该怎么解决 1 //密码 2546,100,100 2 Sub 密码(Var1,起点X,起点Y) 3 MoveTo 起点X,起点Y //移动到首位 4 For i=1 to len(Var1) 5 For mid(Var1, i, 1) 6 TracePrint "X为" & 起点X &a 阅读全文

摘要： 采用按键精灵实现：如果A键按下则在屏幕坐标（100,100)处进行一次鼠标左击如果B键按下在（200，200）处进行一次鼠标左击如果C键按下在（300，300）处进行一次鼠标左击如果无任何键按下，或有不是A,B,C这三键其中的键按下则无任何操作代码： 1 Do 2 Key = WaitKey () 3 Select Case Key 4 Case 65 5 移动并点击 100,100 6 Case 66 7 移动并点击 200,200 8 Case 67 9 移动并点击 300,30010 End Select11 Loop12 Sub 移动并点击(X坐标, Y坐标)13 LockMouse. 阅读全文