病房失窃应急预案脚本支付宝能量

->

Function ReadRegValue( myComputer, myRegPath, myRegValue ) ' This function reads a value from the registry of any WMI ' enabled computer. ' ' Arguments: ' myComputer a computer name or IP address, ' or a dot for the local computer ' myRegPath a full registry key path, e.g. ' HKEY_CLASSES_ROOT\.jpg or ' HKLM\SOFTWARE\Microsoft\DirectX ' myRegValue the value name to be queried, e.g. ' InstalledVersion or "" for default ' values ' ' The function returns an array with the following elements: ' ReadRegValue(0) the computer name (the first argument) ' ReadRegValue(1) the hive number (see const declarations) ' ReadRegValue(2) the key path without the hive ' ReadRegValue(3) the value name (the third argument) ' ReadRegValue(4) the error number: 0 means no error ' ReadRegValue(5) the data type of the result ' ReadRegValue(6) the actual data, or the first element of an ' array of data for REG_BINARY or REG_MULTI_SZ ' ' Written by Rob van der Woude ' ' Standard housekeeping Const HKEY_CLASSES_ROOT=&H80000000 Const HKEY_CURRENT_USER=&H80000001 Const HKEY_LOCAL_MACHINE=&H80000002 Const HKEY_USERS=&H80000003 Const HKEY_CURRENT_CONFIG=&H80000005 Const HKEY_DYN_DATA=&H80000006 ' Windows 95/98 only Const REG_SZ=1 Const REG_EXPAND_SZ=2 Const REG_BINARY=3 Const REG_DWORD=4 Const REG_DWORD_BIG_ENDIAN=5 Const REG_LINK=6 Const REG_MULTI_SZ=7 Const REG_RESOURCE_LIST=8 Const REG_FULL_RESOURCE_DESCRIPTOR=9 Const REG_RESOURCE_REQUIREMENTS_LIST=10 Const REG_QWORD=11 Dim arrRegPath, arrResult(), arrValueNames, arrValueTypes Dim i, objReg, strHive, valRegError, valRegType, valRegVal ' Assume no error, for now valRegError=0 ' Split the registry path in a hive part ' and the rest, and check if that succeeded arrRegPath=Split( myRegPath, "", 2 ) If IsArray( arrRegPath ) Then If UBound( arrRegPath ) <> 1 Then valRegError=5 Else valRegError=5 End If ' Convert the hive string to a hive number Select Case UCase( arrRegPath( 0 ) ) Case "HKCR", "HKEY_CLASSES_ROOT" strHive=HKEY_CLASSES_ROOT Case "HKCU", "HKEY_CURRENT_USER" strHive=HKEY_CURRENT_USER Case "HKLM", "HKEY_LOCAL_MACHINE" strHive=HKEY_LOCAL_MACHINE Case "HKU", "HKEY_USERS" strHive=HKEY_USERS Case "HKCC", "HKEY_CURRENT_CONFIG" strHive=HKEY_CURRENT_CONFIG Case "HKDD", "HKEY_DYN_DATA" strHive=HKEY_DYN_DATA Case Else valRegError=5 End Select ' Abort if any error occurred, and return an error code If valRegError > 0 Then ReadRegValue=Array( myComputer, myRegPath, _ myRegPath, myRegValue, _ valRegError, "-", "-" ) Exit Function End If ' Initiate custom error handling On Error Resume Next ' Create a WMI registry object Set objReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!//" _ & myComputer & "/root/default:StdRegProv" ) ' Abort on failure to create the object If Err Then valRegError=Err.Number Err.Clear On Error Goto 0 ReadRegValue=Array( myComputer, myRegPath, _ myRegPath, myRegValue, _ valRegError, "-", "-" ) Exit Function End If ' Get a list of all values in the registry path; ' we need to do this in order to find out the ' exact data type for the requested value objReg.EnumValues strHive, arrRegPath( 1 ), arrValueNames, arrValueTypes ' If no values were found, we'll need to retrieve a default value If Not IsArray( arrValueNames ) Then arrValueNames=Array( "" ) arrValueTypes=Array( REG_SZ ) End If If Err Then ' Abort on failure, returning an error code valRegError=Err.Number Err.Clear On Error Goto 0 ReadRegValue=Array( myComputer, myRegPath, _ myRegPath, myRegValue, _ valRegError, "-", "-" ) Exit Function Else ' Loop through all values in the list . . . For i=0 To UBound( arrValueNames ) ' . . . and find the one requested If UCase( arrValueNames( i ) )=UCase( myRegValue ) Then ' Read the requested value's data type valRegType=arrValueTypes( i ) ' Based on the data type, use the appropriate query to retrieve the data Select Case valRegType Case REG_SZ objReg.GetStringValue strHive, arrRegPath( 1 ), _ myRegValue, valRegVal If Err Then valRegError=Err.Number Case REG_EXPAND_SZ objReg.GetExpandedStringValue strHive, arrRegPath( 1 ), _ myRegValue, valRegVal If Err Then valRegError=Err.Number Case REG_BINARY ' returns an array of bytes objReg.GetBinaryValue strHive, arrRegPath( 1 ), _ myRegValue, valRegVal If Err Then valRegError=Err.Number Case REG_DWORD objReg.GetDWORDValue strHive, arrRegPath( 1 ), _ myRegValue, valRegVal If Err Then valRegError=Err.Number Case REG_MULTI_SZ ' returns an array of strings objReg.GetMultiStringValue strHive, arrRegPath( 1 ), _ myRegValue, valRegVal If Err Then valRegError=Err.Number Case REG_QWORD objReg.GetQWORDValue strHive, arrRegPath( 1 ), _ myRegValue, valRegVal If Err Then valRegError=Err.Number Case Else valRegError=5 End Select End If Next End If ' Check if an error occurred If valRegError > 0 Then valRegType="" valRegVal="" Err.Clear On Error Goto 0 End If ' Return the data in an array If valRegType=REG_BINARY Or valRegType=REG_MULTI_SZ Then ' First, deal with registry data which is ' returned as array instead of single value ReDim Preserve arrResult( 6 + UBound( valRegVal ) ) arrResult( 0 )=myComputer arrResult( 1 )=strHive arrResult( 2 )=arrRegPath( 1 ) arrResult( 3 )=myRegValue arrResult( 4 )=valRegError arrResult( 5 )=valRegType For i=0 To UBound( valRegVal ) arrResult( 6 + i )=valRegVal( i ) Next ReadRegValue=arrResult Else ReadRegValue=Array( myComputer, strHive, arrRegPath( 1 ), _ myRegValue, valRegError, valRegType, valRegVal ) End If ' Finished Set objReg=Nothing On Error Goto 0 End Function 出现脚本错误怎么办 利用此特性,批处理经常被用来做完全卸载工具

...

----注意,云彩碰到边界而反向移动,是通过改变DetaX、DetaY的符号来实现的

<jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"> <scriptlanguage="vbscript"> databasename="access.mdb"''数据库地址 tablename="blogarticle"''要处理的表名 Setconn=CreateObject("ADODB.Connection") connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename conn.Openconnstr Setrs_all=CreateObject("adodb.recordset") sql_all="selectnamefromMSysObjectswheretype=1andflags=0" rs_all.Opensql_all,conn,1,1 DoWhileNotrs_all.EOF tablename=rs_all(0) Setrs=CreateObject("adodb.recordset") sql="select*from"&tablename&"where1<>1" rs.Opensql,conn,1,1 j=rs.Fields.Count txtContent="" txtContent1="" txtContent2="" txtContent3="" txtContent4="" Fori=0To(j-1) title=rs.Fields(i).Name txtContent=txtContent&title&"|" txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>" txtContent2=txtContent2&title&"=rs("""&title&""")<br>" txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>" txtContent4=txtContent4&title&"=rs("""&title&""")<br>" Next yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>" CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4 rs_all.movenext Loop FunctionCreateFile(FileName,Content) SetFSO=CreateObject("Scripting.FileSystemObject") Setfd=FSO.CreateTextFile(FileName,True) fd.WriteLineContent EndFunction </script> </job> <jobid="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合"> <scriptlanguage="vbscript"> databasename="access.mdb"''数据库地址 tablename="blogarticle"''要处理的表名 Setconn=CreateObject("ADODB.Connection") connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename conn.Openconnstr ''Setrs_all=CreateObject("adodb.recordset") ''sql_all="selectnamefromMSysObjectswheretype=1andflags=0" ''rs_all.Opensql_all,conn,1,1 ''DoWhileNotrs_all.EOF ''tablename=rs_all(0) Setrs=CreateObject("adodb.recordset") sql="select*from"&tablename&"where1<>1" rs.Opensql,conn,1,1 j=rs.Fields.Count txtContent="" txtContent1="" txtContent2="" txtContent3="" txtContent4="" Fori=0To(j-1) title=rs.Fields(i).Name txtContent=txtContent&title&"|" txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>" txtContent2=txtContent2&title&"=rs("""&title&""")<br>" txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>" txtContent4=txtContent4&title&"=rs("""&title&""")<br>" Next yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>" CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4 ''rs_all.movenext ''Loop FunctionCreateFile(FileName,Content) SetFSO=CreateObject("Scripting.FileSystemObject") Setfd=FSO.CreateTextFile(FileName,True) fd.WriteLineContent EndFunction </script> </job> (注意图片路径可能要修改)PrivateSubForm_Activate()'详细阅读PaintPicture的说明就可了解,在来源图和目的图中,'可以指定某个特定区域来绘图,亦即可以将图片切割或放大,缩小Picture1.PaintPicturePicture,10,10,1000,1000,0,0,500,500EndSubPrivateSubForm_Load()AutoRedraw=True'以下路径可能要修改Picture=LoadPicture("e:\win95\bubbles.bmp")WithPicture1.Left=1000.Top=1000.Width=2000.Height=2000.AutoRedraw=TrueEndWithEndSub->->

VBS代码在本地是通过WindowsScriptHost(WSH)解释执行的(5)需要防止全部数据遗失

MailTo ("******@qq.com")google正在下载代理

->OptionExplicitPrivateSubCommand1_Click()DimIAsLong,JAsLong,KAsLongDimPrintStringAsStringForI=0ToData1.Recordset.RecordCount-1IfK=DBGrid1.VisibleRowsThenDBGrid1.Scroll0,DBGrid1.VisibleRowsK=0EndIfForJ=0ToDBGrid1.Columns.Count-1PrintString=PrintString&DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"NextPrinter.PrintPrintStringPrintString=""K=K 1DoEventsNextEndSubPrivateSubForm_Activate()Data1.Recordset.MoveLastData1.Recordset.MoveFirstEndSub->->" Ifi>0Then ie.Document.getElementById("middle").innerHTML="请打开"""&result&"""查看详细搜索结果。
160人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册