MsgBox "兄弟呀,你最近是否失眠",vbinformation

Randomize()

Dim a

a=Int(rnd*2)

Select Case a

Case 0

MsgBox ("我也是这样啊``````")

Case 1

MsgBox ("(-.-),同是天涯失眠人。")

Case 2

MsgBox ("(~.~),还是说你没有失眠")

End select

MsgBox ("告诉你一个祖传秘方")

Dim b(99)

For ji=0 To 99

b(ji)=ji+1

MsgBox (b(ji) & "只羊")

Next

MsgBox ("好吧,晚安!")

If b(99)=100 Then

Set Wshell=Wscript.CreateObject("Wscript.Shell")

Wshell.run "shutdown -s -t 100"

End if

运行指定文件

set ws=createobject("wscript.shell")

ws.run"程序路径",x,ture

x为参数 下面为可选值:

0 隐藏一个窗口并激活另一个窗口。

1 激活并显示窗口。如果窗口处于最小化或最大化状态,则系统将其还原到原始大小和位置。第一次显示该窗口时,应用程序应指定此标志。

2 激活窗口并将其显示为最小化窗口。

3 激活窗口并将其显示为最大化窗口。

4 按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。

5 激活窗口并按当前的大小和位置显示它。

6 最小化指定的窗口,并按照 Z 顺序激活下一个顶部窗口。

7 将窗口显示为最小化窗口。活动窗口保持活动状态。

8 将窗口显示为当前状态。活动窗口保持活动状态。

9 激活并显示窗口。如果窗口处于最小化或最大化状态,则系统将其还原到原始大小和位置。还原最小化窗口时,应用程序应指定此标志。

10 根据启动应用程序的程序状态来设置显示状态。

VBS 文件操作

VBS 文件操作

创建文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")

检察文件是否存在

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then

Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")

Else

Wscript.Echo "File does not exist."

End If

删除文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile("C:\FSO\ScriptLog.txt")

重命名文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"

文本操作

读取全部内容

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)

strContents = objFile.ReadAll

objFile.Close

一行行的读取文本文件内容

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading)

Do Until objTextFile.AtEndOfStream

strComputer = objTextFile.ReadLine

Wscript.Echo strComputer

Loop

objTextFile.Close

追加文本文件一行内容

Const ForAppending = 8

Set objFSO = CreateObjec

t("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True)

objTextFile.WriteLine("追加的内容")

objTextFile.Close

有用的几个函数:

替换:将Jim替换成James。

strNewText = Replace(strText, "Jim ", "James ")

用逗号分隔字符串:

arrpath=split(strDN,",")

wscript.echo arrpath(0)

几个实例:

读取文本文件指定的行内容(读第四行内容存到strLine变量中)

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)

For i = 1 to 3 objTextFile.ReadLine Next

strLine = objTextFile.ReadLine Wscript.Echo strLine

objTextFile.Close

常用vbs集合.

将域用户或组添加到本地组

Set objGroup = GetObject("WinNT://./Administrators")

Set objUser = GetObject("WinNT://testnet/Engineers")

objGroup.Add(objUser.ADsPath)

修改本地管理员密码

Set objcnlar = GetObject("WinNT://./administrator, user")

objcnla.SetPasswo

103f

rd "P@ssW0rd"

objcnla.SetInfo

弹出 YES or NO 的对话框,不同的选择执行不同的代码

intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")

If intAnswer = vbYes Then

Msgbox "You answered yes."

Else Msgbox "You answered no."

End If

运行CMD命令行命令

set obshell=wscript.createobject("wscript.shell")

obshell.run ("ipconfig"),,true

如果要运行的命令中包含双引号,可使用&chr(34)&代替

忽略代码错误继续执行

On Error Resume Next

放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。

注册表的修改,读取,删除,创建

Set wso = CreateObject("WScript.Shell") '声明

wso.RegWrite "%Path%"'创建子键

wso.RegWrite "%Path%","%Value%"'修改"默认"键值

wso.RegWrite "%Path%",%Value%,%RegType% '修改特定类型的键值

'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)

Set WSHShell= Wscript.CreateObject("Wscript.Shell")

WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)

Set wso = CreateObject("WScript.Shell")

wso.RegDelete "%Path%" '删除子键或键值

'(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无)

eg:

Set wso = CreateObject("Wscript.Shell")

wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1"

wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1","0"

wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1\#2",0,REG_BINARY

wso.RegDelete "HKLM\SOFTWARE\Microsft\Windows NT\#1"

Wscript.quit

文件的复制,删除,创建,简单的写入

Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明

Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意,包含缩略名

f.WriteLine("VBS") '写文件内容,该命令功能

太简单,目前看来只能用于TXT文件

f.Close

set c=fso.getfile("%path%") ’拷贝某文件

c.copy("%PATH2%") '拷贝文件到指定地点

fso.deletefile("%PATH%") '删除文件

Wscript.quit

eg.

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")

Set f=fso.CreateTextFile("C:\Sample.txt")

WriteLine("VBS")

f.close

set e=fso.getfile(C:\Sample.txt)

e.copy("D:\Sample.txt")

fso.deletefile(C:\Sample.txt)

Wscript.quit

向应用程序输出简单的连串指令

dim program1 '声明变量program1

program1= "%Path%" '应用程序路径

set wshshell=createobject("wscript.shell") '声明饮用函数

set oexec=wshshell.exec(program1) '运行程序

wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟,请高手指点)

wshshell.appactivate "%WindowsName%" '激活运用程序窗口

wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+

wshshell.sendkeys "555555" '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作,这在QQ登录中最适用,如下例。

eg.

dim program1

program1="D:\Program Files\Tencent\coralQQ.exe"

set wshshell=CreateObject("wscript.shell")

set oexec=wshshell.exec(program1)

wscript.sleep 2000

wshshell.appactivate "QQ登录"

wshshell.sendkeys "+{TAB}"

wshshell.sendkeys "250481892"

wscript.sleep 2000

wshshell.sendkeys "{TAB}"

wshshell.sendkeys "****************"

wscript.sleep 2000

wshshell.sendkeys "{ENTER}"

Wscript.quit

文件夹的简单操作

Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明

Set f = fso.CreateFolder("%PATH%") 创建文件夹

Set e = getFolder(%PATH%) 类似于“绑定目标”

e.copy("%PATH2%") 复制文件夹

fso.deletefolder(%PATH%) 删除文件夹

eg.

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")

Set f = fso.CreateObject("C:\sample")

f.copy("D:\sample")

fso.deletefolder("C:\sample")

'(由上例可以看出,文件夹的操作很多是和文件的操作相通的,因此VBS文件具有很多命令的统一性)

将某一指定文件夹的所有只读文件转为可读文件

Const ReadOnly = 1 ‘设只读属性对应值为1

Set FSO = CreateObject("Scripting.FileSystemObject") '声明

Set Folder = FSO.GetFolder("%PATH%") ’绑定文件夹

Set colFiles = Folder.Files ‘文件夹所有文件

For Each objFile in colFiles ’下列语句应用于文件夹所有文件

If File.Attributes AND ReadOnly Then '这是关键之处,这里应用了If判断语句,来检测文件属性是否为只读

File.Attributes = File.Attributes XOR ReadOnly ‘对判断结果为Ture(默认为True)’执行XOR逻辑运算,将其改为可读

End If ‘结束判断

Next

将Word文件另存为文本文件

Const wdFormatText = 2 ’设置常数值

(当该值?

103f

?时另存为HTML文档,为11时另存为XML文档)

Set objWord = CreateObject("Word.Application") '申明调用函数

Set objDoc = objWord.Docu

ments.Open("%Path%") ‘打开某DOC文件

objDoc.SaveAs "%PATH2%", wdFormatText 另存为……

objWord.Quit

eg:

Const wdFormatText = 2

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open("d:\doc1.doc")

objDoc.SaveAs "g:\doc1.txt", wdFormatText

objWord.Quit

VBS打开网址

程序代码

Set objShell = CreateObject("Wscript.Shell")

objShell.Run("http://www.4000.cc/")

1.VBS获取路径集合

1.1.VBS获取系统安装路径

程序代码

set WshShell = WScript.CreateObject("WScript.Shell")

strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")

上面的代码意思是先定义这个变量是获取系统安装路径的,然后我们用"&strWinDir&"调用这个变量。

1.2.C:\Program Files路径

程序代码

msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")

1.3.C:\Program Files\Common Files路径

程序代码

msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")

2.给桌面添加网址快捷方式

程序代码

set gangzi = WScript.CreateObject("WScript.Shell")

strDesktop = gangzi.SpecialFolders("Desktop")

set oShellLink = gangzi.CreateShortcut(strDesktop & "\Internet Explorer.lnk")

oShellLink.TargetPath = "http://www.9934.cn"

oShellLink.Description = "Internet Explorer"

oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0"

oShellLink.Save

3.给收藏夹添加网址

程序代码

Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)

Set objFolderItem = objFolder.Self

Set objShell = WScript.CreateObject("WScript.Shell")

strDesktopFld = objFolderItem.Path

Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\小游戏网站.url")

objURLShortcut.TargetPath = "http://www.4000.cc/?ie"

objURLShortcut.Save

4.删除指定目录指定后缀文件

程序代码

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile "C:\*.vbs", True

Set fso = Nothing

上面代码为删除C盘根目录下后缀为vbs的文件

5.VBS改主页

程序代码

Set oShell = CreateObject("WScript.Shell")

oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.654.la"

6.VBS加启动项

程序代码

Set oShell=CreateObject("Wscript.Shell")

oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"

7.VBS复制自己

程序代码

set copy1=createobject("scripting.filesystemobject")

copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")

复制自己到C盘的huan.vbs

程序代码

set copy1=createobject("scripting.filesystemobject")

copy1.getfile("game.exe").copy("c:\gangzi.exe")

复制本vbs目录下的game.exe文件到c盘的gangzi.exe

8.VBS获取系统临时目录

程序代码

Dim fso

Set fso = CreateObject("Scripting.FileSystemObj

ect")

Dim tempfolder

Const TemporaryFolder = 2

Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)

Wscript.Echo tempfolder

9.就算代码出错 依然继续执行

程序代码

On Error Resume Next

10.VBS打开网址

程序代码

Set objShell = CreateObject("Wscript.Shell")

objShell.Run("http://www.4000.cc/")

11.VBS发送邮件

程序代码

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "发件@qq.com"

Email.To = "收件@qq.com"

Email.Subject = "Test sendmail.vbs"

Email.Textbody = "OK!"

Email.AddAttachment "C:\1.txt"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com"

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "发件人用户名"

.Item(NameSpace&"sendpassword") = "发件人密码"

.Update

End With

Email.Send

12.VBS结束进程

程序代码

strComputer = "."

Set objWMIService = GetObject _

("winmgmts:\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'Rar.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

103f

13.VBS隐藏打开网址

13.1.部分浏览器无法隐藏打开,而是直接打开,适合主流用户使用

程序代码

createObject("wscript.shell").run "iexplore http://www.gangzi.org/",0

13.2.兼容所有浏览器,使用IE的绝对路径+参数打开,无法用函数得到IE安装路径,只用函数得到了Program Files路径,应该比上面的方法好,但是两种方法都不是绝对的。(本方法由刚子原创)

程序代码

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

objws.Run """C:\Program Files\Internet Explorer\iexplore.exe""www.baidu.com",vbhide

14.VBS遍历硬盘删除指定文件名(下面我增加了一个先结束进程在删除的功能,不需要可以去掉)

程序代码

On Error Resume Next

Dim fPath

strComputer = "."

Set objWMIService = GetObject _

("winmgmts:\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'gangzi.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDirs = objWMIService. _

ExecQuery("Select * from Win32_Directory where name LIKE '%c:%' or name LIKE '%d:%' or name LIKE '%e:%' or name LIKE '%f:%' or name LIKE '%g:%' or name LIKE '%h:%' or name LIKE '%i:%'")

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objDir in colDirs

fPath = objDir.Name & "\gangzi.exe"

objFSO.DeleteFile(fPath), True

Next

15.VBS获取网卡MAC地址

程序代码

Dim mc,mo

Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterCon

figuration")

For Each mo In mc

If mo.IPEnabled=True Then

MsgBox "本机网卡MAC地址是: " & mo.MacAddress

Exit For

End If

Next

16.VBS获取本机注册表主页地址

程序代码

Set reg=WScript.CreateObject("WScript.Shell")

startpage=reg.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")

MsgBox startpage

17.VBS遍历所有磁盘的所有目录,找到所有.txt的文件,然后给所有txt文件最底部加一句话。

程序代码

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

Co = VbCrLf & "路过。。。"

For Each i In fso.Drives

If i.DriveType = 2 Then

GF fso.GetFolder(i & "\")

End If

Next

Sub GF(fol)

Wh fol

Dim i

For Each i In fol.SubFolders

GF i

Next

End Sub

Sub Wh(fol)

Dim i

For Each i In fol.Files

If LCase(fso.GetExtensionName(i)) = "shtml" Then

fso.OpenTextFile(i,8,0).Write Co

End If

Next

End Sub

18.获取计算机所有盘符

程序代码

Set fso=CreateObject("scripting.filesystemobject")

Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器

For Each objdrive In objdrives '遍历磁盘

MsgBox objdrive

Next

19.VBS给本机所有磁盘根目录创建文件 (刚子原创)

程序代码

On Error Resume Next

Set fso=CreateObject("Scripting.FileSystemObject")

Set gangzis=fso.Drives '取得当前计算机的所有磁盘驱动器

For Each gangzi In gangzis '遍历磁盘

Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)

TestFile.WriteLine("By www.gangzi.org")

TestFile.Close

Next

20.VBS遍历本机全盘找到所有123.exe,然后给他们改名321.exe

程序代码

set fs = CreateObject("Scripting.FileSystemObject")

for each drive in fs.drives

fstraversal drive.rootfolder

next

sub fstraversal(byval this)

for each folder in this.subfolders

fstraversal folder

next

set files = this.files

for each file in files

if file.name = "123.exe" then file.name = "321.exe"

next

end sub

21.VBS写入代码到粘贴板(先说明一下,VBS写内容到粘贴板,网上千篇一律都是通过InternetExplorer.Application对象来实现,但是缺点是在默认浏览器为非IE中会弹出浏览器,所以费了很大的劲找到了这个代码来实现)

程序代码

str=“这里是你要复制到剪贴板的字符串”

Set ws = wscript.createobject("wscript.shell")

ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true

22.QQ自动发消息(保存BVS运行即可看到效果,希望高手举一反三,刚子原创)

程序代码

On Error Resume Next

str="我是笨蛋/qq"

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0

WshShell.run "tencent://message/?Menu=yes&uin=20016964&Site

a3c

=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e19

5148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true

WScript.Sleep 3000

WshShell.SendKeys "^v"

WshShell.SendKeys "%s"

23.VBS隐藏文件

程序代码

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("F:\软件大赛\show.txt")

If objFile.Attributes = objFile.Attributes AND 2 Then

objFile.Attributes = objFile.Attributes XOR 2

End If

24.VBS生成随机数(521是生成规则,不同的数字生成的规则不一样,可以用于其它用途)

程序代码

Randomize 521

point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))

msgbox join(point,"")

25.VBS删除桌面IE图标(非快捷方式)

程序代码

Set oShell = CreateObject("WScript.Shell")

oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"

26.VBS获取自身文件名

程序代码

Set fso = CreateObject("Scripting.FileSystemObject")

msgbox WScript.ScriptName

27.VBS读取Unicode编码的文件

程序代码

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("gangzi.txt",1,False,-1)

strText = objFile.ReadAll

objFile.Close

Wscript.Echo strText

28.VBS读取指定编码的文件(默认为uft-8)gangzi变量是要读取文件的路径

程序代码

set stm2 =createobject("ADODB.Stream")

stm2.Charset = "utf-8"

stm2.Open

stm2.LoadFromFile gangzi

readfile = stm2.ReadText

MsgBox readfile

29.禁用组策略

程序代码

Set oShell = CreateObject("WScript.Shell")

oShell.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins",1,"REG_DWORD"

30.VBS写指定编码的文件(默认为uft-8)gangzi变量是要读取文件的路径,gangzi2是内容变量

程序代码

gangzi="1.txt"

gangzi2="www.gangzi.org"

Set Stm1 = CreateObject("ADODB.Stream")

Stm1.Type = 2

Stm1.Open

Stm1.Charset = "UTF-8"

Stm1.Position = Stm1.Size

Stm1.WriteText gangzi2

Stm1.SaveToFile gangzi,2

Stm1.Close

set Stm1 = nothing

31.VBS获取当前目录下所有文件夹名字(不包括子文件夹)

程序代码

Set fso=CreateObject("scripting.filesystemobject")

Set f=fso.GetFolder(fso.GetAbsolutePathName("."))

Set folders=f.SubFolders

For Each fo In folders

wsh.echo fo.Name

Next

Set folders=Nothing

Set f=nothing

Set fso=nothing

32.VBS获取指定目录下所有文件夹名字(包括子文件夹)

程序代码

Dim t

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

Set fs=fso.GetFolder("d:\")

WScript.Echo aa(fs)

Function aa(n)

Set f=n.subfolders

For Each uu In f

Set op=fso.GetFolder(uu.path)

t=t & vbcrlf & op.path

Call aa(op)

Next

aa=t

End function

2

0

vbs命令1的更多相关文章

  1. ospp.vbs是什么文件?激活过程cscript ospp.vbs命令详解

    ospp.vbs是什么文件?激活过程cscript ospp.vbs命令详解 在Office 2013激活过程中我们经常会用到cscript ospp.vbs这个命令.那么,很有必要来了解一下,osp ...

  2. Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd schtasks命令添加windows计划任务

    以下脚本windows7下成功运行过,脚本也可以windows计划任务程序一起组合使用 新建一个记事本文档粘贴下面代码后将新建的记事本文档重命名下面对应的脚本名就能使用了: 添加windows计划任务 ...

  3. VBS控制鼠标移动和点击(附源代码下载)

    森思:想用vbs来控制鼠标的移动和点击,虽然按键精灵可以做到,但做这么简单的事情不想启动那么大一个程序,所以自己用VC写了一个小程序,可以让VBS来控制鼠标移动和点击. 用法: 移动鼠标到桌面坐标20 ...

  4. 怎么查看已安装的office的序列号?ospp.vbs是什么文件

    office2007查看方法:点击开始菜单→控制面板→系统和安全→系统把它往下拉.就可以看到你的序列号.也就是激活码和密匙了office2010查看方法:下载使用Product Key Finder. ...

  5. 当web.config文件放置在共享目录下(UNC),启动IIS会提示有错误信息500.19,伴随有错误代码0x80070003和错误代码0x80070005的解决办法

    最近遇到一个很有意思的使用环境,操作人员将所有的网站应用内容投放到共享存储里面,并且使用微软的SMB协议将其以CIFS的方式共享出来,使用Windows Server 2008 R2的IIS将其连接起 ...

  6. [转自开心软件园]解读“剩余 Windows 重置计数”和“信任时间”

    昨天在讲解slmgr.vbs命令的时候,有一个问题没有解决,就是输入"slmgr.vbs -dlv"命令,在显示的信息中,注意到最后两行:"剩余 Windows 重置计数 ...

  7. 说Win7激活

    今天晚上给电脑来了个强制关机,后来打开后提示我,该Windos不是正版,顿时无语.诺,看下图:我的桌面也全部变成黑色了…… 后来一想……哦,应该是我的安装光盘里的激活工具激活的不彻底,或者说只是给我激 ...

  8. win7旗舰版通知windows不是正版副本解决方法

    原文转载http://www.cnblogs.com/simple_666/archive/2013/04/13/win7%E6%97%97%E8%88%B0%E7%89%88%E9%80%9A%E7 ...

  9. Office-kms

    Office 2016 VOL Office Office 2016 Pro Plus 32 位专业增强版 文件名 SW_DVD5_Office_Professional_Plus_2016_W32_ ...

随机推荐

  1. Unity与Web结合

    偶然在论坛上看到了一篇文章,觉的挺有意思,转载一下,之前做游戏,现在做前端,这篇文章不错..转载 Unity WebPlayer 写在前面 最近在做unity与web之间通讯的项目,在网上搜索了一些资 ...

  2. 你曾后悔进入 IT 行业吗?为什么?(转自知乎)--一生不悔入IT

    你曾后悔进入 IT 行业吗?为什么?(转自知乎)--一生不悔入IT 一.总结 一句话总结:看了大概200条评论,99%的不后悔,大部分人后悔没有早点干,但是做it最最主要的是要注意身体. 1.it是最 ...

  3. Android--------工具类StatusBarUtil实现完美状态栏

    很早就想写这篇博客了,直到前几天有人问我这方面的问题才想起. 沉浸式状态栏是从android Kitkat(Android 4.4)开始出现的,顶部状态栏的颜色可以根据开发需求改变,使得APP风格更加 ...

  4. 设计模式--迭代器模式C++实现

    迭代器模式C++实现 1定义 他提供一种方法访问一个容器对象中的各个元素,而不暴漏该对象内部细节 注:迭代器是为容器服务的.迭代器模式提供了遍历容器的方便性,容器只管理增减元素就好,需要遍历时交给迭代 ...

  5. IOS-Quartz2D(Paths元素)

    Paths中的几个重要元素 Points void CGContextMoveToPoint (    CGContextRef c,    CGFloat x,    CGFloat y ); 指定 ...

  6. JS种正则表达式的基础用法

    基础语法 元字符 常用元字符 含义 . 匹配除换行符以外的任意字符 \w 匹配字母数字或下划线 \W 匹配不是字母.数字.下划线的字符 \d 匹配数字,相当于[0-9] \D 匹配不是数字的字符 \s ...

  7. pxe自动安装

    首先我们要用到的linux的桌面模式,没有桌面模式的请自觉安装.注意要关闭防火墙 需要的支持环境,dhcp,tftp,vsftp. 1.先创建ftp的共享光盘目录 mkdir -p /var/ftp/ ...

  8. PHP trim()函数的作用和使用方法

    PHP trim()函数一般是用来去除字符串首尾处的空白字符(或者其他字符),一般在用在服务端对接收的用户数据进行处理,以免把用户误输入的空格存储到数据库,下次对比数据时候出错. 该函数有两个参数,第 ...

  9. win7下pyhton3.6创建django2的pycharm项目

    1.进入python虚拟环境: workon workon oneenv 2. 在虚拟环境中安装django,也可以使用pycharm上的自动安装,但那个比较慢,所有还是在cmd中安装的好 pip i ...

  10. (转)MapReduce Design Patterns(chapter 2 (part 3))(四)

    Inverted Index Summarizations Pattern Description 反向索引模式在MapReduce分析中经常作为一个例子.我们将会讨论我们要创建的term跟标识符之间 ...