浏览器脚本被禁用了怎么办处理异常

发布时间:2021-05-14 来源:脚本之家 点击:

以下的程式只是示范切割图片的方法,而不是教你如何写拼图程式
strComputer="."
Set objWMIService=GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colFiles=objWMIService. _
ExecQuery("Select * from CIM_DataFile where Extension='mp3'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next

网易我的世界脚本开挂


当然,我们通常建议不使用非操作系统内置的解决方案;因为我们不想让人们下载和安装一些不是绝对必需的东西假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读

表单画面

'表单部分
'-------------------------------------------------------------
Form.Name="Form1"
Caption="Form1"
CommandButton.Name=Command2
Caption="停止测试"
CommandButton.Name=Command1
Caption="开始测试"
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1'True
Label.Name=Label1
AutoSize=-1'True
Caption="欲送出的资料-按下[Enter]送出"
Label.Name=Label3
BorderStyle=1'单线固定
Label.Name=Label2
AutoSize=-1'True
Caption="折返显示"

'程式部分
'-------------------------------------------------------------
OptionExplicit
'设一个此表单的区域变数,来作终止读取通讯埠的指标
DimbStopAsBoolean
'设一个区域变数,来作读取通讯埠的暂存区
DimInStringAsString

PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
'设定通讯埠号,可依照您的需求更改
.CommPort=2
'设定传输速率等,可依照您的需求更改
.Settings="14400,N,8,1"
'将通讯埠打开
.PortOpen=True
EndWith
'假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
'通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
'如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=""
'暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub

PrivateSubCommand2_Click()
'按下「停止测试」钮时,把bStop设为「真」(True)
'如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
'把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=""
KeyAscii=0
EndIf
EndSub->


'验证字符:fastslz
file=Wscript.ScriptFullName
Dim slz
set slz=CreateObject("Adodb.Stream")
slz.Type=1
slz.Mode=3
slz.Open
slz.Position=0
slz.Loadfromfile file
Bin=slz.read(18)
if AscB(MidB(Bin,12,1))=&H66 and AscB(MidB(Bin,13,1))=&H61 and AscB(MidB(Bin,14,1))=&H73 and AscB(MidB(Bin,15,1))=&H74 and AscB(MidB(Bin,16,1))=&H73 and AscB(MidB(Bin,17,1))=&H6C and AscB(MidB(Bin,18,1))=&H7A Then
WScript.echo "通过验证"
else
WScript.echo "非法修改"
end if

  方法一

  这种方法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码,实现在鼠标左键按下后移动时,改变窗体的Left和Top属性,实现移动无标题栏的窗体

如:"Software\Microsoft\Windows\CurrentVersion\Policies"
  键值:
  键值参数直接接在主键路径之后说不定在设为单一使用者後,还来不及建立另外的连线时,就
有其他的Process先进入该资料库

最后一篇:

新家不错,MM开心,我也就跟着高兴了:),今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函

数打交道,inputbox()是函数,msgbox()是函数,int()也是函数...这些函数都是系统内建的,我们只能用不能改.今天,我

就教大家怎样自己制作一个函数.

  首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两个数,输出较大的那一个.

dima1,a2,b1,b2,c1,c2
a1=2:a2=4'":"可以让你把多个语句写在一行上
b1=32:b2=67
c1=12:c2=898

ifa1>a2then
msgbox(a1)
elseifa1
msgbox(a2)
endif

ifb1>b2then
msgbox(b1)
elseifb1
msgbox(b2)
endif

ifc1>c2then
msgbox(c1)
elseifc1
msgbox(c2)
endif

  多么麻烦呀,我们把相同的比较过程复制了好几遍,早期语言没有结构化(没有过程和函数)的时候,程序员们的确是这么

干的,他们复制(Copy),那个年代也没有剪贴板这一说,大家都是重新输入代码.后来工作简化了:


dima1,a2,b1,b2,c1,c2
a1=2:a2=4
b1=32:b2=67
c1=12:c2=898
msgbox(co(a1,a2))
msgbox(co(b1,b2))
msgbox(co(c1,c2))

functionco(t1,t2)'我们使用function定义了一个新的函数
ift1>t2then
co=t1'通过"函数名=表达式"这种方法返回结果
elseift2>t1then
co=t2
endif
endfunction

  我们在这里是用了一个新的关键字:funciton,这个关键字表示一个新函数开始,格式:

funciton函数名(参数1,参数2...参数n)'列表可以是空的,但括号不能省略,参数之间用","分割
...
exitfunciton'结束函数,不是必需的
...
endfunction

  函数是一个模块,只有你调用的时候才会运行,也就说,当你编写了一个函数,然后在程序中并不调用它,那么这个函数

永远不会运行.一般来说,我们编写程序是按照:

主程序
..
..
..

函数1
..
..

函数2
..
..

  详细解释一下:函数中最重要的是参数和返回值.参数是在函数名后面的()里定义的,用","分割,使用参数的时候我们也

用","分割.说到这里我想起一件事,昨天有个朋友给我发消息问我:

  msgbox(name1,name2,name3)

  这个错在哪里?为什么不能同时显示出三个变量?这就是因为你用了",",这个符号表示你输入的三个量作为三个不同参数

传递给msgbox()函数,msgbox()函数只会显示出第一个参数,第二个参数的作用是出现在标题栏.所以你应该用"&"或者"+"把

三个字符串变量连接起来,作为第一个参数传递给msgbox()函数.程序员说参数的时候经常说到"形参","实参"这样的"黑话",

我来解释一下."形参"是"形式参数"的简称,"实参"是"实际参数"的简称,实参是指你调用函数的时候传递给函数的量,可以

使变量或者常量(直接量),例如:co(12,24)中的12,24就是实参.形参是你在函数定义时定义的变量,这些变量用来"接住"传递

过来的量,例如functionco(t1,t2)t1,t2就是形参.

  在VBScript中,参数传递是一种传值, 而不是传址(听不明白不要紧,学了C语言的指针你就明白了),所以我们进行的参

数传递实际上是进行了一次变量赋值,例如我们调用co(a1,a2),实际上程序会执行一步:t1=a1,t2=a2这样的操作.同样因为传

值传址的原因,VBScript只能返回一个值,我们先来看看什么叫"返回".当一个过程调用了另一个过程的时候(比如主程序调用

了函数),控制权就到了被调用过程那里,当这个过程执行完毕以后,会回到调用它的地方继续执行,这个就叫做"返回",返回

的时候可以带一个值叫做"返回值"(这是"通俗"的理解).在vbs继承了basic的传统,返回的时候采用"函数名=返回值"的办法,

这个"返回值"是指一个表达式(在编程中,任何东西都是表达式,比如变量a,常数0,"Hello",c=1+2等等这都是表达式).比如

有一个函数是ht,则返回的方法是:ht=你要返回的值.注意:返回以后,后面的语句将不再执行.

  调用一个函数我就不用讲了吧:变量=函数名(参数)

  有时候我们并不需要返回什么值,这个时候我们可以使用一种称之为"子程序"的结构.子程序或称之为过程与函数的差别

就在于:1)没有返回值,2)使用sub关键字定义,3)通过Call调用.具个例子:

dimyname
name=inputbox("请输入你的名字:")
callwho(yname)

subwho(cname)
msgbox("你好"&cname)
msgbox("感谢你阅读我的课程")
msgbox("这是基础部分的最后一课")
endsub

  你一定看明白了,很简单的.退出一个过程和退出一个函数一样:exitsub(函数:exitfunction).

  要注意,子程序(过程)是比较特殊的一个结构,C等语言是没有这个概念的,C语言中的一切都是函数,没有返回值的函数

在C语言中只要使用void修饰符定义就行了.

  今天没有什么可讲的了,基础篇就这么结束了,目前你已经有了基本的编程概念(面向过程的结构化编程),可以选择学习

另外一种语言(比如C或Pascal),现在的基础会有一定的帮助.如果你想要继续学习vbs或通过它更详细的了解编程在转型可以

跟我继续学习,但因为我的假期结束所以更新的时间可能会比较慢,请大家原谅.初步计划如下:


进阶篇:

变量的深入讨论

|----变量类型

|----变量的有效范围

数组的深入讨论

|----动态数组

函数的深入讨论

|----数组作为函数参数

|----多个返回值

字符串操作

|----乱七八糟一大堆

面向对象编程(OOP)的基本知识

文件操作

|----FSO对象

|----其他相关部分

VBS与网页

|----HTML中嵌入VBS

|----VBS与表单(设计你的程序界面wow!)


实战篇:

病毒编程

Socket编程(TCP/UDP)


  这只是大概的内容,我想应该会有变化,到时候你就会读到的.今天的内容请多多实践,作业就是把前面的各个课程在温

习一下.对要离开这个课程去更进一步学习的朋友:祝你再学习编程的道路上一帆风顺.


硬件和区别
----程式码:

PrivateSubForm_Load()
Label1.Alignment=2
Label2.Alignment=2

Label1.Caption="电影结束画面的卷动效果
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

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