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
、、、、、、厅搭、、、、、、、、、、
是否满足你的要求了，请采纳！