《auto.js》脚本代码大全

auto.js脚本有哪些呢，不少网友想要通过auto.js来运行脚本进行自动化操作，但是不知道在哪里可以找到脚本，接下来就让圈圈下载小编给大家带来《auto.js》脚本代码大全。

《auto.js》脚本代码大全

在很多情况下，我们都可以用“Ctrl＋X”、“Ctrl＋C”、“Ctrl＋V”和“Ctrl＋Z”分别进行“剪切”、“复制”、“粘贴”和“撤消”操作，由此想到，如果我们能够在程序中调用系统的这些功能，就无需为如何实现这些操作而操心了"

ExitFunction

EndIf

Dimi,TotalmulAiWi

Fori=0To16

TotalmulAiWi=TotalmulAiWi+CInt(Mid(Ai,i+1,1))*Wi(i)

Next

DimmodValue

modValue=TotalmulAiWiMod11

DimstrVerifyCode

strVerifyCode=arrVerifyCode(modValue)

Ai=Ai&strVerifyCode

CheckCardId=Ai

IfLen(e)=18Ande<>AiThen

CheckCardId="身份证输入错误

最终是这样一个脚本：

如同往常一样，该脚本没有太多内容不能通过MicrosftJet压缩FoxPro表，必须压缩FoxPro数据库以从物理上移走记录

是的，我们可以帮助您PrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsInteger

PrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong

PrivateTaskBarhWndAsLong

PrivateIsTaskBarEnabledAsInteger

PrivateTaskBarMenuHwndAsInteger

'禁止或允许使用Alt-Tab

SubFastTaskSwitching(bEnabledAsBoolean)

DimXAsLong,bDisabledAsLong

bDisabled=NotbEnabled

X=SystemParametersInfo(97,bDisabled,CStr(1),0)

EndSub

'禁止使用Ctrl-Alt-Del

PublicSubDisableTaskBar()

DimEWindowAsInteger

TaskBarhWnd=FindWindow("Shell_traywnd","")

IfTaskBarhWnd<>0Then

EWindow=IsWindowEnabled(TaskBarhWnd)

IfEWindow=1Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,0)

EndIf

EndIf

EndSub

'允许使用Ctrl-Alt-Del

PublicSubEnableTaskBar()

IfIsTaskBarEnabled=0Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,1)

EndIf

EndSub

'禁止Ctrl Alt Del

'声明(ForWin95)：

ConstSPI_SCREENSAVERRUNNING=97

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)AsLong

使用：

'禁止

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)

'开启

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0)

->

Array 可返回一个包含数组的变量这三个文本框控件将分别用于填写邮件的收件人、主题和内容

on error resume next

const HKEY_LOCAL_MACHINE=&H80000002

strComputer="."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath="SOFTWARE\Ipswitch\IMail\Domains"

oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys

wscript.echo "Domain: "&subkey

strKeyPath2=strKeyPath&""&subkey&"\Users"

oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2

For Each subkey2 In arrSubKeys2

strKeyPath3=strKeyPath2&""&subkey2

strValueName="Password"

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValue

if len(subkey2) and len(strValue) then

wscript.echo subkey2 &" : " & decrypt(subkey2,strValue)

end if

Next

Next

function decrypt(name,pass)

while len(name)<len(pass)/2

name=name&name

wend

for i=0 to len(pass)/2-1

p=mid(pass,2*i+1,2)

p="&H"&p

n=mid(name,i+1,1)

decrypt=decrypt&chr(clng(p)-asc(n))

next

end function

触摸最后一行NUL

举例如下：在列表中选定一个人名，则在其它的几个文本框中就显示这个人的所有完整的信息

以上为常识，简单的提一下来凑字数，下面是一个你可能忽略掉的细节：

循环控制变量 start end 和 step 仅仅在循环开始前求值一次，如果你在循环中的语句块改变 end 或者 step 的值，这个改变不会影响到循环的运行。

以上是小编整理的《auto.js》脚本代码大全，不知道大家还喜欢吗？记得点击收藏圈圈下载网，更多精彩内容实时更新。