趣头条阅读文章脚本短示范搜狐

发布时间:2021-08-16 来源:脚本之家 点击:

步骤1结束后,屏幕上将留下一个黑色的图标图案WScript.Echo"EnablingKerberosLogging..."
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SOFTWARE\999"
strDWORDValueName="DWORDValueName"
strExpandedStringValueName="ExpandedStringValueName"
strMultiStringValueName="MultiStringValueName"
strStringValueName="StringValueName"
strValueName="strValueName"
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,StringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName
WScript.Echo"-=[Complete!]=-"

免root使用脚本软件

If wscript.arguments.count<4 Then
Wscript.Echo "Change File Hex. By: lxzzr lxzzr@21cn.com"
Wscript.Echo ""
Wscript.Echo "Usage: cscript.exe " & WScript.ScriptName & " FilePath SavePath sHEX dHEX"
Wscript.Echo " : cscript.exe CHex.vbs "".\test.exe"" "".\new.exe"" ""80 7A 01 61"" ""80 7A 01 61"""
WScript.Quit(0)
End If

这主要是由于Windows本身通信机制和通信线路介质及质量的影响


好了,不找托辞了(至少是现在)
'------------------------------------------------------------------------------------------
PublicFunctionSetDisplaymode(LngWidthAsLong,LngHeightAsLong,IntColorAsInteger,

LngFrequencyAsLong)AsLong
DimNewDevmodeAsDEVMODE
DimlngPAsLong

'obtainsinformation
EnumDisplaySettings0&,0&,NewDevmode

WithNewDevmode
.dmFields=DM_PELSHEIGHTOrDM_PELSWIDTHOrDM_BITSPERPELOrDM_DISPLAYFREQUENCY
.dmPelsWidth=LngWidth
.dmPelsHeight=LngHeight
.dmBitsPerPel=IntColor
.dmDisplayFrequency=LngFrequency
EndWith

SetDisplaymode=ChangeDisplaySettings(NewDevmode,CDS_TEST)
EndFunction

->


dim a,b,c
a=inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
b=inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
c=inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
if not(IsNUmberic(a) and IsNUmberic(b) and IsNUmberic(c)) then
msgbox "不乖哦>_<"
else
if a<b then
d=b
b=a
a=d
end if
if c>b then
d=b
b=c
c=a
end if
if a<b then
d=b
b=a
a=d
end if
msgbox a & " " & b & " " & c
end if


下面,附带讲一讲如何在文件和程序之间建立关联:按住Shift键不放,用鼠标右键点击文件,放开Shift键,在弹出的对话框中选择“打开方式”,接着在“打开方式”属性窗口将你的程序找到,请注意在“始终使用该程序打开这种类型的文件”前打钩

禁用注册表
------
首先,2000/xp/2003用户,运行:services.msc;禁用服务RemoteRegistry,这样别人就不能远程修改你的注册表了fas流控破解

  其他注意事项  

  此代码创建的是带有特定属性的自定义数据库原来在vbscript语句中“&H”专用于16进制数表示的。

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