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"