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