vbs脚本聊天

㈠ QQ强制聊天那个，存完。vbs 后怎么用啊

vbs文件直接双击就能运行的，不过那个QQ强制聊天的vbs应该只能作用到以前版本的QQ吧，貌似现在的QQ不能通过那个脚本强制聊天了，你应该把vbs的代码发上来，这样别人才好明白你的意思。

㈡ Windows脚本文件(WSF) 如何用VBScript实现随机读取文本内容并发送聊天消息

没听说过,不过在知道上有人问过,当时别人是这么回答的
由于 .wsf 文件采用 XML 格式，所以可以使用支持 XML 的任意编辑器来编辑 .wsf 文件。其中包括文本编辑器，如“记事本”。 ——zhongyuec

wsf是含有可扩展标记语言 (XML) 代码的文本文档。它综合了几个可增强脚本灵活性的功能。由于 Windows 脚本文件不是特定于引擎的，因此它们可包含与 Windows 脚本兼容的任何脚本引擎中的脚本。它们充当容器。 使用 .wsf 文件，可以在创建脚本时使用以下功能： .wsf 文件支持 实现 Include 语句 将函数从 VBScript 或 JScript 文件合并到 Windows 脚本宿主项目中。 多引擎 每个文件使用多种脚本语言。 类型库 将常数添加到代码中。 工具 使用任何 XML 编辑器编辑文件。 一个文件中的多项作业 将所有的代码存储在一个位置。

㈢ 有什么在QQ聊天中用的vbs整人代码

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("与 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

㈣ 怎么用VBscript制作一个简易聊天室我姐姐 急要哇..

1、 打开Dreamweaver后，新建站点，选择新建的本地站点，右击创建文件夹，命名为比如chat，创建文件夹后，选择该文件夹，在该文件夹下新建两个ASP文件，分别命名为welcome.asp和chat.asp。2、 双击打开网页，选择welcome.asp网页，该网页制作为欢迎页面。在当前网页中输入文字，比如“欢迎进入聊天室”。可以选中“聊天室”将其字体颜色改为红色，字体大小也可以做适当的更改。将光标移置下一行，将插入栏切换于“表单”插入栏，插入表单。在“插入”菜单中选择插入一行三列的表格，表格的宽度我们设置为400像素，边框设为1，其它的默认。选择第一个单元格，在其中输入“呢称”，在第二单元格中，插入“文本字段”表单，第三单元格插入一个“提交”按钮。设置各表单的属性，首先将第一单元格中的字体居中，选择第二单元格中的“文本字段”，在属性面板中将其名称改为name，字段大小可以设为20。选择第三个单元格中的按钮，将“提交”改为“进入”选择“提交表单”动作（默认）。选择整个表单，在属性面板的动作中加入welcome.asp让其在判断错误后转回到当前页面。表单制作完成后，在绑定面板中“请求变量”，在类型中选择“Request.Form”，名称为“name”，点确定后，再请求“阶段变量”，将名称也设置为“name”，单击确定。将页面切换到代码视图，在顶端<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936”%>以下加入以下代码：<% If Request.Form(“name”)<>”” thenSession(“name”)=Request.Form(“name”)Response.Redirect(“chat.asp”)%><%End If %>3、 打开chat.asp网页，将插入栏切换至表单视图，插入表单。在插入菜单中选择表格，插入一个一行三列的表格，表格宽度设为400像素，边框为1，其它默认。在表格的第二个单元格中插入一个“文本字段”表单。第三个单元格中插入一个“按钮”表单。将第一个单元格的宽度设为80。选择第二个单元格中的“文本字段”，在属性面板中设置名称为say。第三个单元格中的按钮选中，在属性面板中，其名称将“提交”改为“发言”。选中整个表单，在动作中输入chat.asp。制作完成后，选择“绑定面板”点击添加，选择“请求变量”，选择类型为Request.Form，名称为say。再添加“应用程序变量”，名称定义为chat。完成后，拖动相应的变量名称至网页相应的位置，如将Request.Form（”name”）拖动至表格的第一个单元格。将Application.chat拖动至表格的下一行的相应位置。将网页切换置代码视图，在顶端<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936”%>以下加入以下代码：<%If Request.Form(“name”)=”” ThenResponse.Redirect(“welcome.asp”)%><%End If %> <%If Request.Form(“say”)<>”” ThenApplication(“chat”)=session(“name”) & “说：” & Request.Form(“say”) & “<br>” & Application(“chat”)%><%End If %>4、右击选择“保存全部”将网页保存。选择welcome.asp网页，点击浏览。当我们不输任何内容，点击进入时，网页自动返回当前页，输入呢称后，点击进入将进入chat.asp页面。在文本字段中添加内容就可以在下面看到相应的发言内容。至此，简易的聊天室制作完毕。

㈤ 用vbs脚本如何做一个聊天工具

可以的。
这里有：
CSDN下载，搜索 “vbs版调用winsock网上聊天”

㈥ VBS怎么做QQ表情恶搞聊天窗口

vbs代码就一句话：

msgbox "内容自己定，你的作风有问题",16,"标题自己改，系统崩溃"

说明：
中间的16自己也可以更改，你试试改为32、48、64试试效果。

㈦ 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 这一句可以去掉，去掉后发送时就不显示发送的次数。

㈧ VBS 操作QQ聊天窗口

WshShell.sendkeys 是可以发送组合键 调用命令按键的。
但是要它起作用的前提是 把焦点调整到QQ聊天窗口为当前才行。

㈨ 求个VBS自动打字至qq聊天窗口并发送

dim ctr
ctr=0
const pass="eqhp"
do
On Error Resume Next
Dim wsh,ye,a,b,c
msgbox("使用方法：先打开QQ聊天窗口,按“确定”继续。在任意一个窗口中输入“eqhp”直接退出程序（已循环")&ctr&("次 /15次）")
a=inputbox("请输入骚扰信息的内容：")
b=inputbox("请输入发送信息的数量：")
c=inputbox("请输入发送信息的频率：")
set wsh=createobject("wscript.shell")
for i=1 to b
wscript.sleep 100*c
wsh.AppActivate("与 xx 聊天中")
wsh.sendkeys a
next
ctr=ctr+1
if ctr=15 then
msgbox("循环15次，程序结束")
exit do
else if a=pass then
exit do
else if b=pass then
exit do
else if c=pass then
exit do
end if
end if
end if
end if
loop

邮件已经发送

㈩ 用vbs编写qq聊天刷屏的时候 代码是to10 结果发出去的是消息10段代码 请 问大神该如何解决

用这个
name=Inputbox("请输入轰炸对象名称")
Dim a
a=inputbox("请输入轰炸次数")
boom=Inputbox("请输入轰炸内容")
msgbox("轰炸对象名称:"+name)
msgbox("轰炸次数:"+a)
msgbox("轰炸内容:"+boom)
msgbox("即将开始轰炸！（若信息有误请退出重进）")
Dim Word
Set Word=CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text=boom
Word.Selection.Copy
Word.Quit False
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate name
for i=1 to (int(a))
WScript.Sleep 10
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next