下载 >  网络技术 >  网络基础 > java script或者vbscript 脚本使用原始socket通信

java script或者vbscript 脚本使用原始socket通信 评分:

只在xp 环境下试过,x86系统应该问题不大,x64可能不支持,使用前先执行SocketReg.exe对组件进行注册,然后就可以在网页脚本中使用套接字了,这个组件是99年国外一公司开发的,本意是用来实现http ,ftp,smtp pop3协议,所以内容传输多以ansi编码,而不是二进制数据流。使用例子如下 ip="127.0.0.1" port="2025" StopAll= "" StartAll= "" CALL ExecCmd("SocketReg.exe","") set Socket = CreateObject(&quo t;Socket.TCP") Socket.Host = ip & ":" & port Socket.Timeout = 1 If Err.Number <> 0 Then Err.Clear Socket.open If Err.Number > 0 Then Err.Clear else Socket.SendText Chr(3) & Chr(0) & Chr(0) & Chr(0) strTemp = dbHex(len(StopAll),32) Socket.SendText strTemp for i=1 to 4-len(strTemp ) Socket.SendText Chr(0) next Socket.SendText StopAll Socket.Wait ' Wscript.echo Socket.buffer Socket.Close end if Function ExecCmd(CommandLine,param) 'dim sh 'Set sh = CreateObject("Shell.Application") dim ws,cmd,ret Set ws = CreateObject("WScript.Shell") cmd = CommandLine & chr(32) & param 'msgbox(cmd) 'call sh.ShellExecute(CommandLine,param , , "open",1) ret =ws.run(cmd,0,true) End Function function binarytostring(binary) dim i, s for i = 1 to lenb(binary) s = s & chr(ascb(midb(binary, i, 1))) next binarytostring= s end function function rsbinarytostring(xbinary) dim binary if vartype(xbinary)=8 then binary = multibytetobinary(xbinary) else binary = xbinary end if dim rs, lbinary const adlongvarchar = 201 set rs = createobject("adodb.recordset") lbinary = lenb(binary) if lbinary>0 then rs.fields.append "mbinary", adlongvarchar, lbinary rs.open rs.addnew rs("mbinary").appendchunk binary rs.update rsbinarytostring = rs("mbinary") else rsbinarytostring = "" end if end function function multibytetobinary(multibyte) dim rs, lmultibyte, binary const adlongvarbinary = 205 set rs = createobject("adodb.recordset") lmultibyte = lenb(multibyte) if lmultibyte>0 then rs.fields.append "mbinary", adlongvarbinary, lmultibyte rs.open rs.addnew rs("mbinary").appendchunk multibyte & chrb(0) rs.update binary = rs("mbinary").getchunk(lmultibyte) end if multibytetobinary = binary end function Const dbHexMap="123456789ABCDEFGHIJKLMNOPQRSTUV" Function dbHex(ByVal n, H) If IsNumeric(n) And n>0 Then Dim l, i, j(), k l=Int(Log(n)/Log(H)+1) ReDim j(l-1) For i=l-1 To 0 step -1 k=(H^i) If n>=k Then j(l-i-1)= Mid(dbHexMap,n\(H^i),1) Else j(l-i-1)= 0 End If n=n Mod k Next dbHex=Join(j,"") Else dbHex=0 End If End Function Function deHex( str, H) Dim i, j, l l=Len(str) j=0 For i=1 To l j=j+ H^(l-i)*InStr(dbHexMap,Mid(str,i,1)) Next deHex=j End Function function stream_binarytostring(binary, charset) const adtypetext = 2 const adtypebinary = 1 dim binarystream set binarystream = createobject("adodb.stream") binarystream.type = adtypebinary binarystream.open binarystream.write binary binarystream.position = 0 binarystream.type = adtypetext if len(charset) > 0 then binarystream.charset = charset else binarystream.charset = "us-ascii" end if stream_binarytostring = binarystream.readtext end function
...展开详情收缩
2014-09-07 上传大小:141KB
分享
收藏 举报

评论 共2条

lajihu 谢谢分享,学习了
2019-05-10
回复
kachuu 谢谢共享,但没什么实用性
2017-02-16
回复
java可以使用原始套接字吗
请教用VBS实现socket的方法
VBS中Socket通过TCP协议发送数据
vbs脚本发送UDP报文
求大神给以或指点VBS 局域网互相通信的例子UDP或TCP 都可以
关于VBS中调用MSWINsock.Winsock
关于VBS调用MSWinsock控件
用vbs写的端口扫描器
vb-js-2.chm

VB script Java Script 脚本语言基础。

立即下载
首次執行Outlook 2007時出現登錄,登錄 VB Script. DLL 失敗

首次執行 Outlook 2007 時出現 "登錄 VB Script. DLL 失敗。請重新安裝或執行 Regsvr32.exe Vbscript.dll 來進行自行登錄。" 及 "作業失敗。" 之錯誤訊息, 導致無法啟動 Outlook 2007.

立即下载
java script learn

java script learn java script learnjava script learn java script learn java script learn java script learn

立即下载
C#用ScriptControl动态执行JS和VBS脚本

C#利用ScriptControl动态执行JS和VBS脚本,默认JavaScript脚本语言

立即下载
微软官方 VB-script-CHM

微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM微软官方 VB-script-CHM

立即下载
Java script 权威指南

Java script 权威指南Java script 权威指南Java script 权威指南

立即下载
html与Java Script

html与Java Script、html与Java Script、html与Java Script

立即下载
Java script 高级程序设计

Java script 高级程序设计Java script 高级程序设计Java script 高级程序设计

立即下载
script脚本手册(chm)

script脚本手册chm,包括JScript VBScript 等等。。

立即下载
Java Script 特效之树型菜单

Java Script 特效之树型菜单 Java Script 特效之树型菜单 Java Script 特效之树型菜单 Java Script 特效之树型菜单

立即下载
C#利用MSScriptControl调用脚本实例

C#利用MSScriptControl调用脚本实例 Scripchs.exe是可能会用到的MSScriptControl,版本好像是5.5。

立即下载
Java Script .rar

Java Script rumenjingtong 精通Java Script rumenjingtong 深入学习Java Script rumenjingtong

立即下载

热点文章

img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

java script或者vbscript 脚本使用原始socket通信

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
3 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: