關(guān)鍵的純
VBS文件.將此VBS文件代碼復(fù)制到按鍵的 Script目錄下 保存成任意
名字 如:CS.VBS
- VBS中的代碼:
- dim S,sock
- '聲明兩個(gè)全局變量
- function Send(Ip,Port,Str)
- '一個(gè)自定義函數(shù)
- set sock=Wscript.createobject("MSWINsock.Winsock","WSEvent_")
- '賦值sock變量為WINSOCK的對(duì)象
- S=Str
- '賦值語(yǔ)句
- sock.Protocol=0
- '設(shè)置SOCK的連接方式為 TCP
- 'WINSOCK的Protocol屬性中 0 表示TCP,1 表示 UDP
- sock.Connect IP,Port
- 'Sock發(fā)送連接請(qǐng)求
- wscript.sleep 1
- '等到一毫秒
- end function
- Sub WSEvent_DataArrival(bytes)
- 'WINSOCK當(dāng)有數(shù)據(jù)接收的時(shí)候觸發(fā)的事件
- sock.senddata S
- '發(fā)送一個(gè)數(shù)據(jù)
- end sub
- dim I,P,T
- set obj = wscript.createobject("wscript.shell")
- '創(chuàng)建對(duì)象
- I=obj.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\ip")
- '讀取注冊(cè)表
- P=obj.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\port")
- '讀取注冊(cè)表
- T=obj.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\zf")
- '讀取注冊(cè)表
- send I,P,T
- '調(diào)用發(fā)送函數(shù)
最后就是我們按鍵的代碼了`呵呵.
- 按鍵精靈的代碼:
- VBS IP="192.168.1.101"
- //服務(wù)器IP
- VBS PORT=9999
- //服務(wù)器端口
- VBS str="發(fā)送測(cè)試,作者:GodToDevil,成功了!"
- //發(fā)送的內(nèi)容
- Gosub 發(fā)送字符
- EndScript
- Sub 發(fā)送字符
- VBSBegin
- set obj = createobject("wscript.shell")
- obj.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ip",IP,"REG_SZ"
- //寫入注冊(cè)表
- obj.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\port",PORT,"REG_SZ"
- obj.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\zf", str,"REG_SZ"
- obj.run "cs.vbs"
- //上面我舉例VBS文件存成了CS.VBS 哪這里就用 CS.VBS如果是 AA.VBS 那這里就改成AA.VBS就可以了.
- VBSEnd
- Return
完了...原理很簡(jiǎn)單吧....
就是利用注冊(cè)表實(shí)現(xiàn)純VBS和按鍵的變量共享....這樣就可以實(shí)現(xiàn)我所說的
按鍵 用 TCP的方式發(fā)送數(shù)據(jù)給 WINSOCK咯.....呵呵
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
