你的位置：

按键精灵-路径

来源[ANJIAN] 点击[61] 作者[admin] 时间[2017-03-04 23:46:38]


LockMouse 
Dim xunhuan, miao, a,b,shuaxin
a = 0
b = 1
//模式:0=(当前路径),1=(System32路径),2=(Windows路径),3=(临时Temp路径)
//下面这句是获得(当前路径)
Path = Plugin.Sys.GetDir(0)
Path = Path & \"\\Config.ini\"
//下面这句是判断一个文件是否存在返回(IsFile)
IsFile = Plugin.File.IsFileExist(Path)
If IsFile = False Then
    Call Plugin.Msg.Tips(\"文件初始化\") 
    xunhuan = 1000
    miao = 50
    shuaxin = 1000
    Call Plugin.File.WriteINI(\"Command\", \"——需要初始化——\",\"(就请删除此文件)\",Path)
    Call Plugin.File.WriteINI(\"Command\", \"//点击间隔\",\"(建议填10-200之间的整数，越小越快)\",Path)
    Call Plugin.File.WriteINI(\"Command\", \"miao\", miao, Path)
    Call Plugin.File.WriteINI(\"Command\", \"//刷新页面间隔\",\"(建议填500-2000之间的整数)\",Path)
    Call Plugin.File.WriteINI(\"Command\", \"shuaxin\", shuaxin, Path)
    Delay 1000
End If 
miao = Plugin.File.ReadINI(\"Command\", \"miao\", Path)
shuaxin = Plugin.File.ReadINI(\"Command\", \"shuaxin\", Path)
While a >= 0
    LeftClick 1
    Delay miao
    a = a + 1
    // Call Plugin.Msg.Tips(c)
    Call Plugin.Msg.Tips(\"点击\" & a & \"次\")
    If b = a / shuaxin Then 
        KeyPress \"F5\", 1
        b=b+1
    End If
Wend
EndScript
分享

    最新评论：



评论文本（10-200个字符）超出部分会被自动删除.
刷新 点击图片刷新验证码，防止恶意攻击，验证码刷新延时5秒！
广告2