vba 运行js代码

mol1981

各位老师好!

问题：希望在vba里运行以下js代码


var ws = new WebSocket("ws://82.157.123.54:9010/ajaxchattest");
ws.onopen = function(){
   console.log("open");
　　ws.send('hello world');
}
ws.onmessage = function(e){
    console.log('ws连接状态：' + ws.readyState);
　　console.log(e.data);
}


本代码经过测试：可以正常运行，测试网址（http://www.wetools.com/js-run）
要求：
在实际使用过程中 网址参数和发送字符参数都会是一个活的参数，希望可以从外部引入
可以定义变量:

Dim url, str1, result As String
url = "ws://82.157.123.54:9010/ajaxchattest"
str1 = "hello world"

result用于接收从服务器返回的数据 e.data
还望各位老师不吝赐教，先谢谢了！

mol1981

自己顶一个吧，坐等高手出现

Kaohsing

vba模拟js环境，试试

mol1981

Kaohsing 发表于 2022-11-19 15:06
vba模拟js环境，试试

如何模拟，可以具体说说吗？

wanghan519

ws不是浏览器的功能吗，是需要vba通过ws连到某个浏览器吗

mol1981

wanghan519 发表于 2022-11-19 15:44
ws不是浏览器的功能吗，是需要vba通过ws连到某个浏览器吗

我是希望通过vba对某个网站的ws数据进行抓包，因为我看到js可以模拟websocket,而vba可以加载js,所以就想间接的通过js,用VBA对某个网站的ws抓包

wanghan519

mol1981 发表于 2022-11-19 15:52
我是希望通过vba对某个网站的ws数据进行抓包，因为我看到js可以模拟websocket,而vba可以加载js,所以就想 ...

我能想到的还是在浏览器里建立ws连接，获取数据后用油猴脚本把数据发给Excel，总不能用vba实现一个浏览器

tspliu

mol1981 发表于 2022-11-19 15:52
我是希望通过vba对某个网站的ws数据进行抓包，因为我看到js可以模拟websocket,而vba可以加载js,所以就想 ...

你是在浏览器里用的js吧？浏览器里js调用的是浏览器的WebSocket API,你在vba里调不到的，需要利用windowsAPI自己写个websocket，但涉及知识点有点多，需要对websocket好好钻研一下又需要对windowsAPI轻车熟路，都是大工程。
不过可以下载别人用其他语言写好的WetSocket插件，但vb写的太难找。
或者用python吧，有现成的库，几行代码就解决，
不会写DLL又想直接调用，可以编译成exe，利用shell 传参数，读返回值。

wanghan519

试了一下，pwsh打开excel，然后开始监听端口8091，浏览器连接ws，之后发送消息，pwsh收到消息则写入excel

1. $xl=New-Object -ComObject excel.application
   
2. $xl.Visible=$true
   
3. $wb=$xl.Workbooks.Add()
   
4. Start-PodeServer {
   
5. Add-PodeEndpoint -Address * -Port 8091 -Protocol Ws
   
6. Add-PodeSignalRoute -Path "/" -ArgumentList $wb -ScriptBlock {
   
7. param($wb)
   
8. $wb.Sheets(1).Cells[($wb.Sheets(1).Cells[65535,1].End(3).Row+1),1].Value=$SignalEvent.Data.Message
   
9. }}

复制代码

mol1981

自己顶一下吧，坐等高手出现