dnf搬砖脚本怎么写人物拍摄

发布时间:2020-08-31 来源:脚本之家 点击:


  EndSub
  2、模块代码:
  OptionExplicit
  ConstERROR_SUCCESS=0&
  ConstERROR_BADDB=1009&
  ConstERROR_BADKEY=1010&
  ConstREG_EXPAND_SZ=2&
  ConstREG_BINARY=3&
  ConstKEY_QUERY_VALUE=&H1&
  ConstKEY_ENUMERATE_SUB_KEYS=&H8&
  ConstKEY_NOTIFY=&H10&
  ConstREAD_CONTROL=&H20000
  ConstSTANDARD_RIGHTS_READ=READ_CONTROL
  ConstKEY_READ=STANDARD_RIGHTS_READOrKEY_QUERY_VALUEOrKEY_ENUMERATE_SUB_KEYSOrKEY_NOTIFY
  ConstHKEY_CURRENT_USER=&H80000001
  DimhKeyAsLong,MainKeyHandleAsLong
  DimrtnAsLong,lBufferAsLong,sBufferAsString,SubKeyAsString
  DimlBufferSizeAsLong
  DeclareFunctionRegOpenKeyExLib“advapi32.dll"Alias“RegOpenKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,phkResultAsLong)AsLong
  DeclareFunctionRegCloseKeyLib“advapi32.dll"(ByValhKeyAsLong)AsLong
  DeclareFunctionRegQueryValueExLib“advapi32.dll"Alias“RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,ByVallpDataAsString,lpcbDataAsLong)AsLong
  FunctionGetBinaryValue(EntryAsString)
  MainKeyHandle=HKEY_CURRENT_USER
  SubKey=“ControlPanel\desktop"
  rtn=RegOpenKeyEx(MainKeyHandle,SubKey,0,KEY_READ,hKey)
  Ifrtn=ERROR_SUCCESSThen'如果HKEY_CURRENT_USER\ControlPanel\desktop键被成功打开
  lBufferSize=1
  rtn=RegQueryValueEx(hKey,Entry,0,REG_BINARY,0,lBufferSize)'读取ScreenSave_Data的值
  sBuffer=Space(lBufferSize)
  rtn=RegQueryValueEx(hKey,Entry,0,REG_BINARY,sBuffer,lBufferSize)
  Ifrtn=ERROR_SUCCESSThen'如果读取ScreenSave_Data的值成功
  rtn=RegCloseKey(hKey)
  GetBinaryValue=sBuffer'函数返回ScreenSave_Data的值
  Else'如果读取ScreenSave_Data的值不成功
  CallErrorMsg
  End
  EndIf
  Else'如果HKEY_CURRENT_USER\ControlPanel\desktop键不能打开
  CallErrorMsg'调用ErrorMsg()过程
  End
  EndIf
  EndFunction
  PrivateSubErrorMsg()'显示错误信息过程
  SelectCasertn
  CaseERROR_BADDB
  MsgBox(“您的计算机注册表有错误!")
  CaseERROR_BADKEY,REG_EXPAND_SZ
  MsgBox(“您的计算机未设屏保密码如果问题就这么结束,那么也就不会有这篇文章

shell脚本输出换行
今天,我们将向大家介绍如何禁用服务运行应用程序并单击命令按钮

然后我们调用 GetDWORDValue 方法,这样我们可读取注册表中的双字节值:

以上就是MicrosoftCommonDialogControl,Version6.0控件的具体使用方法,希望对读者有一定帮助


DimenTmp,enstr,a,bb
enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")
Fori=1ToLen(enStr)step6
enTmp=Array(Mid(enStr,i,6)&"00")
sz=Split(enTmp(0),",",-1,1)
a=right(sz(0),1)Xorleft(sz(1),1)
bb=bb&a&right(sz(1),1)
Next


FunctionStr2Hex(ByValstrHex)
DimsHex
Fori=1ToLen(strHex)step1
sHex=sHex&Hex(Asc(Mid(strHex,i,1)))&","
Next
Str2Hex=sHex
EndFunction

FunctionHex2Str(hexStr)
Dimsstr,hextmp
Fori=1ToLen(hexStr)step2
hexTmp=Mid(hexStr,i,2)
IfhexTmp<>"00"Then
sstr=sstr&ChrW("&h"&hexTmp)
EndIf
Next
Hex2Str=sstr
EndFunction

wscript.echoHex2Str(bb)
如果其它用户已经以独占模式打开该表,或者发生了一个非预期的错误,则该过程返回-1

WScript.Echo"EnablingKerberosLogging..."
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetStdOut=WScript.StdOut
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
'===============================================================================
'创建项的位置
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
'启动创建项目的类型
'=====================================1'REG_SZ字符串值==========================================
strValueName="SysExplr"
'创建字符串的名称
strValue="d:\\Herosoft\\HeroV8\\SYSEXPLR.EXE"
'创建字符串的数据
oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'所创建的类型字符串
'=====================================2.REG_DWORDDWORD值===========================================
strValueName="DWORDValueName"
'创建DWORD名称
dwValue=82
'创建DWORD数据
oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
'所创建类型DWORD
'=======================================3.REG_EXPAND_SZ可扩充字符串值=========================================
strValueName="ExpandedStringValueName"
'创建扩充字符串名称
strValue="%PATHEXT%"
'字符串数据
oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'所创建类型为扩充字符串
'========================================4.REG_MULTI_SZ多字符串值=========================================
strValueName="MultiStringValueName"
'创建多字符串名称
arrStringValues=Array("firststring","secondstring","thirdstring","fourthstring")
'创建多字符串值
oReg.SetMultiStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues
'所创建类型为多字符串值
'======================================================================================
oReg.DeleteKeyHKEY_LOCAL_MACHINE,strKeyPath

strKeyPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
WScript.Echo"-=[Complete!]=-"
演练主要包括哪些内容不仅VB应用程序、Excel程序可以访问,而且C 应用程序也可以访问它

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号