&&&&更多内容?&?&?&?&?&?&?&?&?&?&&&&&?帖排行&&&?道精?微信扫码关注本站公众号 wangchaonetcn&　　免责声明：本文仅代表作者个人观点，与王朝网络无关。王朝网络登载此文出于传递更多信息之目的，并不意味著赞同其观点或证实其描述，其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。王朝女性&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&王朝分栏&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&王朝?程&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&王朝简体&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&王朝其他&&&|&&&&|&&&&|&&&&|&&&&|&&&&|&&&&&&2005-&&版?所有&前台运行很完美，求后台按键【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：404,755贴子：
前台运行很完美，求后台按键收藏
任务栏名称为“Sephiroth”，任务名为&SEP.exe&在前台运行很完美，求在后台按键UserVar jn1=&F1& &技能F1键&UserVar jn2=&F2& &技能F2键&UserVar jn3=&F3& &技能F3键&UserVar jn4=&F4& &技能F4键&UserVar jn5=&F5& &技能F5键&UserVar s1=5 &设置技能1施放间隔时间&UserVar s2=11 &设置技能2施放间隔时间&UserVar s3=333 &设置技能3施放间隔时间&UserVar s4=366 &设置技能4施放间隔时间&UserVar s5=1200 &设置技能5施放间隔时间&//-----------------------------------------------------------------------//---------------------------------------------------------[赋值初始变量]//-----------------------------------------------------------------------dim number(4),thetime(4),key(4),sj(4)dim a,b,c,d,jn1,jn2,jn3,jn4,jn5,s1,s2,s3,s4,s5,t1,t2,t3,t4,t5,L//声明变量number(0)=jn1:number(1)=jn2:number(2)=jn3:number(3)=jn4:number(4)=jn5thetime(0)=s1:thetime(1)=s2:thetime(2)=s3:thetime(3)=s4:thetime(4)=s5//把自定义参数的返回值转换成数组元素t1=now:t2=now:t3=now:t4=now:t5=now//返回当前系统日期时间到变量//-----------------------------------------------------------------------//---------------------------------------------------------- [跳转子程序]//-----------------------------------------------------------------------Gosub 判断按键Gosub 判断时间//-----------------------------------------------------------------------//---------------------------------------------------------- [脚本主程序]//-----------------------------------------------------------------------While true
//条件无限循环
If DateDiff(&s&,t1,now)&=sj(0) Then
//& DateDiff 函数：返回两个日期之间的时间间隔&
//&&s&：秒& &t1：时间变量& &now：当前系统日期和时间& &s(0)：自定义时间变量&
KeyPress key(0),1
//按键 变量k(0) 1次
//重新赋值日期时间到变量
If DateDiff(&s&,t2,now)&=sj(1) Then
KeyPress key(1),1
If DateDiff(&s&,t3,now)&=sj(2) Then
KeyPress key(2),1
t3=nowEnd If
If DateDiff(&s&,t4,now)&=sj(3) Then
KeyPress key(3),1
t4=nowEnd If
If DateDiff(&s&,t5,now)&=sj(4) Then
KeyPress key(4),1
Delay 10Wend//-----------------------------------------------------------------------//------------------------------------------------------ [判断键码子程序]//-----------------------------------------------------------------------Sub 判断按键()
//赋值数组最小下标
L=Len(number(a))
//& Len 函数：返回字符串内字符的数量&
If L=1 Then
key(b)=Asc(UCase(number(a)))
//& Asc 函数：返回字符串首字母的ASCII字符代码& & UCase 函数：返回转换为大写字母的字符&
If key(b)&48 or key(b)&90 Then
Call 结束()
//超出范围跳转到脚本结束标记
ElseIf key(b)&57 and key(b)&65 Then
Call 结束()
ElseIf L&1 and L&4 Then
If UCase(Left(number(a),1))=&F& Then
//判断字符串首字字符
& Left 函数：返回字符串最左边的指定数量的字符&
key(b)=Asc(UCase(Left(number(a),1)))+Right(number(a),L-1)+41
//& Right 函数：返回字符串最右边的指定数量的字符&
If key(b)&112 or key(b)&123 Then
Call 结束()
Call 结束()
Call 结束()
a=a+1:b=b+1
//数组下标+1
Next End Sub//-----------------------------------------------------------------------//------------------------------------------------------ [判断时间子程序]//-----------------------------------------------------------------------Sub 判断时间()
If IsNumeric(thetime(c))=True Then
//& IsNumeric 函数：返回布尔值指明表达式的值是否为数字&
sj(d)=cint(thetime(c))
//& CInt 函数：返回已被转换为整形子类型的变体的表达式&
Call 结束()
c=c+1:d=d+1
NextEnd Sub//-----------------------------------------------------------------------//-------------------------------------------------------- [脚本停止标记]//-----------------------------------------------------------------------Sub 结束()MessageBox &输入错误 脚本停止运行&EndScriptEnd Sub
「天猫七夕节」全球来电-键盘鼠标精灵,家电满,美家2件75折,部分类目还可先享后付!「天猫七夕节」全球来电,因爱&惠&七夕,尽享大牌好货!
判断用户输入部分太繁复了点…至于后台把你的keypress命令都换成后台按键命令，键名换成键码，窗口句柄有了类名和标题用find很容易得到
Hwnd = Plugin.Window.Find(0, &sephiroth&)Call Plugin.Bkgnd.KeyDown(hwnd,112)
Delay 5000Call Plugin.Bkgnd.KeyDown(hwnd,113)
Delay 11000Call Plugin.Bkgnd.KeyDown(hwnd,114)
Delay 222000Call Plugin.Bkgnd.KeyDown(hwnd,115)
Delay 333000Call Plugin.Bkgnd.KeyDown(hwnd,116)
Delay 444000这样不行啊
Hwnd = Plugin.Window.MousePoint()Delay 6000traceprint hwndDoCall Plugin.Bkgnd.KeyPress(Hwnd, 112)Call Plugin.Bkgnd.KeyDown(Hwnd, 112)Delay 5000//Call Plugin.Bkgnd.KeyPress(Hwnd, 113)Call Plugin.Bkgnd.KeyDown(Hwnd, 113)Delay 11000//Call Plugin.Bkgnd.KeyPress(Hwnd, 114)Call Plugin.Bkgnd.KeyDown(Hwnd, 114)Delay 222000//Call Plugin.Bkgnd.KeyPress(Hwnd, 115)Call Plugin.Bkgnd.KeyDown(Hwnd, 115)Delay 333000//Call Plugin.Bkgnd.KeyPress(Hwnd, 116)Call Plugin.Bkgnd.KeyDown(Hwnd, 116)Delay 444000Loop
登录百度帐号