本文目錄一覽:
求QQ強行聊天的代碼,沒種語言的代碼都要
Dim QQ_NUM
if Wscript.arguments.count1 then
QQ_NUM=InputBox("by:作者 QQ:作者QQ"vbCrvbCr" "vbCrvbCr" ","QQ強行聊天器","默認QQ")
if QQ_NUM="" then
Wscript.quit
end if
else
VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run ";Uin="+QQ_NUM,0
————————————————-
的把上面的代碼複製到記事本裏面,保存再把文件拓展名改成VBS就可以了
qq強制聊天代碼原理
1.QQ強制聊天代碼,把代碼中的「********」星號換成想與其聊天的QQ號即可。
代碼如下:;Uin=********amp;Site=ioshenmueMenu=yes
使用方法:把代碼中星號換成想與其聊天的QQ號後複製到瀏覽器的地址欄處即可。無論他是否是好友,無須加好友就能給對方發QQ消息。
2.
第一步:在電腦桌面上點擊右鍵,選擇「新建」→「記事本」,然後在其中輸入以下代碼:
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count1 then
QQ_NUM=InputBox(""vbCrvbCr"QQ強行聊天器"vbCrvbCr"","QQ強行聊天器VBS實現","輸入你想要聊天的QQ號碼,如:123456789")
if QQ_NUM="" then
Wscript_.quit
end if
else
VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run ";Uin="+QQ_NUM+"Site=ioshenmueMenu=yes",0
第二步:當輸入完畢之後,點擊「文件」,然後選擇「另存為」,選擇保存名字為「QQ強行聊天器VBS實現.vbs」(不外加引號)。保存類型為「所有文件」。這時在保存的地方雙擊打開這個文件,就可以在輸入的對話框中輸入任意QQ聊天了。前提是在本機上已經打開QQ了。
說明:上面是一段VBS代碼具體意思如下:
ON ERROR RESUME NEXT 如果程序發生錯誤繼續執行
Dim QQ_NUM 定義變量
inputbox 界面中默認顯示內容,大家可以修改
對話框內容 if QQ_NUM="" then 檢測用戶的輸入是否為空,如果為空
Wscript_.quit 退出腳本
3.tencent://Message/?Menu=YESUin=此處替換為您的qq號碼websiteName=im.qq.com
把上面那個寫入要聊天的QQ號,就是=和之間,那些字是沒有的.然後複製到地址欄,確定就行了.不用打開任何網頁.
4.tencent://Message/?Menu=YESUin=此處替換為自己的qq號碼websiteName=im.qq.com
把上面那個寫入你要聊天的QQ號,就是=和之間,那些字是沒有的.然後複製到地址欄,確定就行了.不用打開任何網頁.
5.有個小技巧,在地址欄輸入 「 wpa.qq.com/msgrd?Uin=加明星的QQ號 」就能和對方聊天啦!以上QQ大多數是加不上好友的!
關於QQ強制聊天代碼
代碼 :;Uin=********Site=ioshenmueMenu=yes
使用方法:把代碼中的「********」星號換成你想與其聊天的QQ號後複製到瀏覽器的地址欄處即可。無論他是否你的好友,你無須加他為好友就能給他發QQ消息。
原創文章,作者:小藍,如若轉載,請註明出處:https://www.506064.com/zh-hk/n/309390.html