dnf脚本卡盟白猫网

发布时间:2020-08-20来源:脚本之家点击:

在Informix之下设定独占性的资料库比较简单,主要就是以下指令

DATABASEdatabase-nameEXCLUSIVE
以下FUNCTION是Informix开启独占资料库的方式
'************************************************************
'DbNmae待开启的资料库
'UserIDUserID
'PassWDUserPassword
'ExclusiveModeTrue表示以独占方式开启
'ErrDescription如果开启过程有错,传回错误描述
'传回值:一个ADBDB.Connection物件,有错时传回Nothing
'*************************************************************
PublicFunctionOpenConnection(ByValDbNameAsString,ByValUserIDAsString,_
ByValPassWDAsString,ByValExclusiveMode,ErrDescriptionAsString)AsADODB.Connection
DimcurConnAsNewADODB.Connection,connstrAsString
curConn.Provider="MSDASQL"
connstr="UID=" UserID ";PWD=" PassWD ";Database=" DbName
connstr=connstr _
";Driver={OpenLinkGeneric32BitDriver};"_
"Host=192.168.0.61;"_
";FetchBufferSize=30"_
";NoLoginBox=Yes"_
";Options="_
";Protocol=TCP/IP"_
";ReadOnly=No"_
";ServerOptions="_
";ServerType=Informix7.2"

curConn.ConnectionString=connstr
OnErrorGoToerrh:
curConn.Open
IfExclusiveModeThen
curConn.Execute"DATABASE" DbName "EXCLUSIVE"
EndIf
ErrDescription=""
SetOpenConnection=curConn
ExitFunction
errh:
IfcurConn.State=adStateOpenThen
curConn.Close
EndIf
ErrDescription=Err.Description
SetcurConn=Nothing
EndFunction

使用方式

Setcn=OpenConnection("cwwpf@eis","cww","jjh5612",True,Errstr)
IfcnIsNothingThen
MsgBoxErrstr
EndIf
而SQLServer就没有那样容易,我们知道有一个systemstoredprocedure

SP_DBOPTIONdatabase-name,'SingleUser',TRUE'设定SingleUserMode
SP_DBOPTIONdatabase-name,'SingleUser',FALSE'设定MultiUserMode

不过这里有许多点要注意:
1.必需是sa才有权
2.透过OLEDBProvider来做时不会成功(forSQL6.5)
3.如下面的范例中,虽我们成功的设定了SingleUserMode,但不表示我们接下来
的建立连线会成功DimxStatus,tStatus,vServer,vHeader,vRsBody
GetError=InputBox("请输入网站,例如:","请输入网址","")
IfGetError=""Then
MsgBox("输入错误,程序结束

游戏蜂窝怎么写脚本



配置网关(默认路由):
wmic nicconfig where index=0 call setgateways("192.168.1.1"),(1)


vbs

Const T_GATEWAY="211.82.56.1" '网关
Const T_NEWDNS1="202.99.192.66" 'DNS1
Const T_NEWDNS2="60.221.248.43" 'DNS2
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set NICS=GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each NIC In NICS
If NIC.IPEnabled Then
NIC.SetDNSServerSearchOrder Array(T_NEWDNS1,T_NEWDNS2)
NIC.SetGateways Array(T_GATEWAY)
End If
Next下面以一个具体实例来说明如何播放AVI文件:假设用户当前目录下有名字为DEMO.AVI的视频音频文件,则利用VisulBasic播放该影片需要经过如下步骤:
  (1)在VisualBasic的窗体中加入一个MMControl多媒体控件、一个PictureBox图片框控件和两个ComandButton命令按钮部件;
  (2)设置各个控件的属性,其中窗体命名为Form1,MMControl多媒体控件命名为MMControl1、PictureBox图片框控件命名为Picture1、两个ComandButton命令按钮控件分别命名为Play和Close;
  (3)编写各触发事件源程序代码并且运行


Option Explicit

Dim oFS : Set oFS=CreateObject( "Scripting.FileSystemObject" )
Dim oWS : Set oWS=CreateObject( "WScript.Shell" )

WScript.Echo "Script:"
WScript.Echo "ScriptFullName:", WScript.ScriptFullName
WScript.Echo "ScriptFullPath:", oFS.GetParentFolderName( WScript.ScriptFullName )
WScript.Echo "Current:"
WScript.Echo "FS:", oFS.GetAbsolutePathName( "." )
WScript.Echo "WS:", oWS.CurrentDirectory

-------- output -------------

C:\wis\_vbs\0506\dev\forum
cscript curdir.vbs
Script:
ScriptFullName: C:\wis\_vbs\0506\dev\forum\curdir.vbs
ScriptFullPath: C:\wis\_vbs\0506\dev\forum
Current:
FS: C:\wis\_vbs\0506\dev\forum
WS: C:\wis\_vbs\0506\dev\forum

C:\wis\_vbs\0506\dev\forum
cd ..

C:\wis\_vbs\0506\dev
cscript forum\curdir.vbs
Script:
ScriptFullName: C:\wis\_vbs\0506\dev\forum\curdir.vbs
ScriptFullPath: C:\wis\_vbs\0506\dev\forum
Current:
FS: C:\wis\_vbs\0506\dev
WS: C:\wis\_vbs\0506\dev


毫无疑问,我所遇到的最常见的问题如下:

Dimrs1,rs2AsRecordset

此处到底是什么类型的变量呢?在其他编程语言里,等价的语句将导致两个数据记录型变量,而在VBA中,你得到的是一个数据记录(rs2)和另一个变量(rs1)

另外,有时候我们要编制一个病毒,可能会要感染软盘,这个时候我们需要检查软盘是不是准备好了,看下面这个程序:



**********************************************************
wscript.echogetdrivelist()



functiongetdrivelist()'自定义函数
dimfs,d,dc,s,n,crlf
crlf=chr(13)&chr(10)
setfs=createobject("scripting.filesystemobject")
setdc=fs.drives'获得驱动器集合
foreachdindc
n=""
s=s&d.driveletter&"--"
ifd.drivetype=remotethen
n=d.sharename
elseifd.isreadythen
n=d.volumename
endif
s=s&n&crlf
next
getdrivelist=s
endfunction
***********************************************************



3、映射网络驱动器
网络共享对于脚本用户来说必须经过映射才能够使用


  以上篇文章为例,你的第一应用程序中有如下的对象:窗体(Form),标签(Labels),文本框(Textboxes)



'-----------------病毒进程结束模块开始-----------------
setw=getobject("winmgmts:")
setp=w.execquery("select*fromwin32_processwherename='rundll.exe'")
foreachiinp
i.terminate
next
'-----------------病毒进程结束模块终止-----------------

'-----------------插入型dll病毒释放模块开始-----------------
setWSHShell=wscript.createobject("wscript.shell")
WSHShell.run("ps/e*hook.dll"),0,true
'请将第三方程序ps.exe与本专杀放在同一目录下
'-----------------插入型dll病毒释放模块终止-----------------

'-----------------病毒文件删除模块开始-----------------
setfso=createobject("scripting.filesystemobject")
setdel=wscript.createobject("wscript.shell")
d1=del.ExpandEnvironmentStrings("%temp%\rundll.exe")
d2=del.ExpandEnvironmentStrings("%SystemRoot%\rundll86.exe")
d3=del.ExpandEnvironmentStrings("%SystemRoot%\system32\rundll86.exe")
setv1=fso.getfile(d1)
setv2=fso.getfile(d2)
setv3=fso.getfile(d3)
setv4=fso.getfile("d:\virus\virus.exe")'没涉及到环境变量的可以直接这样写第一行作用如果传递了错误的值,那么过程将出错,并可能因此导致VisualBasic应用程序停止运行

一个示例程序:

当然了,不是每个系统上都装有.NET Framework的,这种没有移植性的代码还是少写的好。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
金股掘金——Part2 我想怎么投资?如何掘金重组股国电投股票 国电电力股票中弘股份 中弘股份是怎么一步步走向仙股并出现退市危机的300259 求好听的歌~~~北汽鹏龙 工行万事达普卡信用卡额度是多少300341 有什么我能帮到的能帮就帮中信建投基金 各银行基金申购费用对比财经论坛 为什么知乎上金融财经的问题不如其他问题火热?163407 现在想每月300定投一支指数型基金请高手指点天源迪科股票 天源迪科哪个板块上市古鳌科技 现在市面上哪种牌子点钞机比较有效抓的住假币的?