1. qq群刷屏器VB小腳本
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"ghjj"
for i=1 to 15
WScript.Sleep 500
WshShell.Sendkeys"^v"
WshShell.Sendkeys i
WshShell.Sendkeys "%s"
Next
使用方法：先復制好一段文字，然後打開本VBS腳本，然後點擊聊天窗口的輸入框，OK。
for i=1 to 15，15是發送次數。
WScript.Sleep 500，500是發送時間間隔單位是毫秒。
WshShell.Sendkeys i 這一句可以去掉，去掉後發送時就不顯示發送的次數。
2. VB腳本程序
罪犯是C吧。
很好玩的游戲，用腦子想的話就很快的出誰是答案。用編程的話就會墨跡點，因為要表現他們的操作。
VBS或者VB都可以
Dim P(4),X(4)
Dim Rec,Max '記錄最大嫌疑者
Dim i
P(0)= "A":X(0)=0'X(0)代表A被懷疑的次數
P(1)= "B":X(1)=0'X(1)代表B被懷疑的次數
P(2)= "C":X(2)=0'X(2)代表C被懷疑的次數
P(3)= "D":X(3)=0'X(3)代表D被懷疑的次數
For i=0 To 3
Select Case P(i)'假設其中一人說了假話，把其餘人的推理都驗證一遍，在推理過程中被懷疑者加1
Case "A" X(2)=X(2)+1:X(3)=X(3)+1:X(2)=X(2)+1
Case "B" X(0)=X(0):X(3)=X(3)+1:X(2)=X(2)+1
Case "C" X(0)=X(0):X(2)=X(2)+1:X(2)=X(2)+1
Case "D" X(0)=X(0):X(2)=X(2)+1:X(3)=X(3)+1
End Select
Next
Max=X(0):Rec=0
For i=1 To 3
If Max<X(i) Then'查出誰是最大嫌疑者
Max=X(i)
Rec=i
End if
Next
MsgBox "真相只有一個，" & P(Rec) & "就是罪犯"
3. 找個大神幫忙寫一個簡單的VB腳本~~
假設有12.txt,放在D:根目錄下，其中數據如下：
45554
122132
12112312
121121
123222
98522
45622
寫一個vbs腳本，12.vbs，也放在D:根目錄下，內容如下：扮隱拿
dim str
str=""
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("D:12.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
str=str+"0X"+strComputer+vbCrLf
Loop
objTextFile.Close
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("D:56.txt", ForAppending, True)
objTextFile.Write(str)
objTextFile.Close
執行攜燃12.vbs(雙擊即可），會在D:生成56.txt,其中數據如下：
0X45554
0X122132
0X12112312
0X121121
0X123222
0X98522
0X45622
、、、、、、廳搭、、、、、、、、、、
是否滿足你的要求了，請採納！