🍗我🍗 c11769104
关注数: 23 粉丝数: 254 发帖数: 5,424 关注贴吧数: 11
鼠标多点依次点击源码(理论上支持无限个点) //使用方法很简单,运行后,按 Ctrl 取点, 按 Shift 执行点击.全部都有对话框提示, //并且保存本次的坐标点,下次运行可以直接使用保存的坐标运行 //源码 Dim txt, 点击间隔, i, Shul, obj, 弹出对话框,数组 txt = "设置每个坐标点的延迟,单位毫秒," & vbcr & vbcr & "如 50" & vbcr & vbcr & "表示每个坐标点击间隔50毫秒" 点击间隔 = InputBox(txt, "设置点击间隔") If 点击间隔 = "" Then 点击间隔 = 20 ElseIf cint(点击间隔) < 20 Then 点击间隔 = 20 End If TracePrint "点击间隔 = " & 点击间隔 If Plugin.File.IsFileExist("D:\鼠标多点连击脚本配置.txt") = True Then Set obj = CreateObject("WScript.Shell") txt = "是否读取保存的坐标" & vbcr & vbcr & "是 : 确定 ,用保存的坐标直接运行 " & vbcr & vbcr & "否 : 取消 , 重新获取坐标点 " 弹出对话框 = Cint(obj.Popup(txt, 0, "是否读取", 1)) Set obj = Nothing If 弹出对话框 = 1 Then Call 读取配置文件并保存坐标到数组() Call 鼠标点击坐标() Else Call Plugin.File.DeleteFile("D:\鼠标多点连击脚本配置.txt") Rem 手动获得鼠标坐标20 i = 0 Do Rem 不正确按键码重新获取23 txt = "设置第" & i + 1 & "个点的坐标" & vbcr & vbcr & "鼠标移动到目标后按Ctrl确定"& vbcr & vbcr &"如果设置结束,请按Shitf后运行多点点击" MessageBox txt key = WaitKey() If key = 17 Then '按Ctrl Redim Preserve x(i), y(i) GetCursorPos x(i), y(i) TracePrint "第 " & i + 1 & " 坐标= " & x(i) & " " & y(i) Call Plugin.File.WriteFileEx("D:\鼠标多点连击脚本配置.txt", x(i) & "," & y(i)) ElseIf key = 16 and i > 0 Then '按Shift Exit Do Else Goto 不正确按键码重新获取23 End If i = i + 1 Delay 1 Loop Call 鼠标点击坐标() End If Else Goto 手动获得鼠标坐标20 End If Sub 读取配置文件并保存坐标到数组() 数组 = Split(Plugin.File.ReadFileEx("D:\鼠标多点连击脚本配置.txt"), "|") Shul = UBound(数组) Redim x(Shul - 1), y(Shul - 1) For i = 0 To Shul - 1 坐标 = Split(数组(i), ",") TracePrint 坐标(0) & "," & 坐标(1) x(i) = 坐标(0) : y(i) = 坐标(1) Next End Sub Sub 鼠标点击坐标() Shul = UBound(x) Do For i = 0 To Shul MoveTo x(i), y(i) //TracePrint x(i)&" | "& y(i) Delay 点击间隔 LeftDown 1 Delay 1 LeftUp 1 Delay 1 Next Delay 1 Loop End Sub Sub OnScriptExit() LeftUp 1 End Sub
手工打造远程开机装置 终于手机能远程开机了,无论有多远,只要手机有网络,就可以把家中的电脑打开. 这个是我几天前的粗略设计图,画的不好但思路很清楚今天全部材料都到齐了,吃完晚饭就开搞. +5V继电器如图因为晚上我电灯很暗,没仔细看还有我只是业余的,常闭端接错了.等全部都接好通电发现常开端电阻无穷大.才接到公共端. 这个就是一开始接错的以为是常开端(这样接是错误的),剪断的USB线,一共4根线,通电后测量,只有红和黑的电压是5V(所以要用的只有红和黑,其他用胶布包好),与两芯线连接(两芯线为蓝白双绞线)两芯线接到继电器(图中常开端仍旧是接错的)通电测量,发现常开端电阻无穷大,所以认真检查线路,发现继电器中常开端接错了,正确的接法是这样的.没要求±级 两个头任意接 把错误的接线矫正后,测量,OK了,然后把常开端的2组线,一头插在主板的的power sw上,一头接在开机开关上(这样用远程能开,用开关也能开机,) 打开手机,选用4G而非wifi,然后打开智能插座电脑开启了,但要马上关闭(这根平常按开机键一样的道理,不能一直按着不放手) 完整的开机设备图下面用手机远程域名登录电脑,我选用4G. 一张是系统软件的截图(有网络电量时间),一张快捷键截图这套开机设备就40多元,不需要插手机卡,不需要网卡与主板支持Wake-On-LAN. 自己动手, 需要的工具: 电烙铁. 焊锡丝. 万用表. 剪刀. 胶布. 需要的材料: 智能插座(家中有wifi). 5v继电器. 手机充电器(智能插座如有USB口就不需要了)+充电线. 电脑开机线. 两芯线. .
电脑的开机键上安装电子延迟继电器能否开机 我想用手机远程开机,因为电脑用的是无线网卡,而且主板不支持"Wake on LAN",所以"威百仕"的远程开机,向日葵远程开机棒都不能用. 所以想到的只能用物理形式地按一下开机键. 但是插手机卡那种远程开机的装置不便宜,而且手机卡后续还有费用. 于是想到自己组装一个远程控制开关,这种装置淘宝上有卖,便宜的也就几十块钱, 如图这种,利用家中的WIFI,手机远程安装好APP软件,就可远程对其控制开与关,但是这装置输出电压是220V,接到主板开机键上就是冒烟起火的节奏.所以输出端要加继电器.利用继电器的常开端来控制开电脑,但普通的继电器通电后一直开启,要关就得断电,而我们电脑开机通常是1秒,如果要用远程来控制1秒开与关是个大考验. 还有种方法是电脑电源接在这装置上,主板BIOS中设置通电就开机,但不知对硬件是否损害. ------------------------------------------------------------------------------ 于是我的想法来了: 可以用"电子延时继电器",而且需要有瞬发触点的那种. 利用瞬发触点来控制电脑开机. 利用常开触点来控制电脑因死机而强行关机.(比如延迟60秒后接通常开触点,) --------------------------------------------------------------------------------- 问题1:瞬发触点的接通时间能否让电脑来开机. 如果不能,那能否控制控制瞬发触点的接通时间? 问题2:电脑电源接在这装置,主板BIOS设置来电开机,那么对硬件有否伤害,会造成那些伤害? 如果本贴对你有帮助,那么请回帖.谢谢你认真阅读,如果你对我有所帮助,那么我万分感谢!
1 下一页