[其他] 按键精灵插件支持TCP UDP服务器端 客户端了还有本地OCR [复制链接]

按键终于支持TCP UDP了

服务器端：

Event Form1.Button1.Click
Dim i
i = Plugin.Brm.TcpServer( Form1.InputBox1.Text , 4)
Form1.ListBox1.AddItem "启动TCP服务器:" & i

End Event



Event Form1.Button2.Click//停止TCP服务器
Plugin.Brm.TcpStop
Form1.ListBox1.AddItem "停止TCP服务器:"

End Event
Event Form1.Button3.Click//UDP服务器启动
Plugin.Brm.UDPStartA Form1.InputBox2.Text, 4
Form1.ListBox1.AddItem "启动UDP服务器:"
End Event
Event Form1.Button4.Click//UDP服务器停止
Plugin.Brm.UDPCloseA
Form1.ListBox1.AddItem "关闭UDP服务器:"
End Event


Sub xc()
Dim s,arr

TracePrint "启动"

Form1.ListBox1.AddItem ("启动")



Do While true
s = Plugin.Brm.GetFlags()//连接 断开连接 接收到数据 这个函数都会返回标记
If Len(s) > 0 Then


arr = Split(s, "|", - 1 , 1)

If arr(0) = 0 Then //TCP服务端通知
TracePrint arr(1) & " 连接"
Form1.ListBox1.AddItemarr(1) & " 连接"
Plugin.Brm.SetFlags ""
//Plugin.Brm.SetTcp "-1"//禁止这个IP

ElseIf arr(0) = 1 Then//TCP服务端通知
TracePrint arr(1) & " 退出连接"
Form1.ListBox1.AddItem arr(1) & " 退出连接"
Plugin.Brm.SetFlags ""

ElseIf arr(0) = 3 Then//TCP服务端收到信息

TracePrint arr(1) & " 字符串消息:" & arr(2)
Form1.ListBox1.AddItem arr(1) & " 字符串消息:" & arr(2)
Plugin.Brm.SetFlags "数据回复123"//设置数据回复
ElseIf arr(0) = 7 Then

TracePrint arr(1) & " 文件接收完毕:"
Form1.ListBox1.AddItem arr(1) & " 文件接收完毕:"
Plugin.Brm.SetFlags ""

ElseIf arr(0) = 8 Then//http服务器 要开放TCP 80端口 其它也行浏览器要指定端口
Plugin.Brm.SetFlags "HTTP/1.1 200" & Chr(13) & Chr(10) & "Content-Type: text/plain" & Chr(13) & Chr(10) & "Content-Length:5" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "12345"//浏览器打开将返回这段字符串

Form1.ListBox1.AddItem ("浏览器请求")
ElseIf arr(0) = 9 Then//文件发送完毕
Plugin.Brm.SetFlags ""//
TracePrint "文件发送完毕"
Form1.ListBox1.AddItem "文件发送完毕"
ElseIf arr(0) = 10 Then//客户端关闭
Plugin.Brm.SetFlags ""//
TracePrint "TCP客户端关闭"
Form1.ListBox1.AddItem "TCP客户端关闭"
ElseIf arr(0) = 11 Then//UDP服务端收到信息 2
Plugin.Brm.SetFlags "UDP服务端回复"//设置数据回复Plugin.Brm.SetFlags "123" 回复 123
TracePrint "UDP服务端收到信息：" & arr(1)
Form1.ListBox1.AddItem "UDP服务端收到信息：" & arr(1)


ElseIf arr(0) = 12 Then//UDP客户端收到信息 3
Plugin.Brm.SetFlags ""//设置数据回复
TracePrint "UDP客户端收到信息:" & arr(1) & " " & arr(2)
Form1.ListBox1.AddItem "UDP客户端收到信息:" & arr(1) & " " & arr(2)
ElseIf arr(0) = 13 Then//TCP客户端收到信息 3
Plugin.Brm.SetFlags ""//设置数据回复
TracePrint "TCP客户端收到信息:" & arr(1)
Form1.ListBox1.AddItem "TCP客户端收到信息:" & arr(1)


End If

End If





Loop


End Sub


Event Form1.Load
Dim n
Form1.ListBox1.List = ""

线程ID = BeginThread(xc)



n = Plugin.Brm.Reg("")

If n = 1 Then

Plugin.Brm.WechatOcrIni "D:\d\extracted\WeChatOCR.exe", "D:\d\[3.9.12.51]"

Else

End If


End Event


客户端：

Global TCP连接


Sub xc()
Dim s,arr

TracePrint "启动"

Form1.ListBox1.AddItem ("启动")



Do While true
s = Plugin.Brm.GetFlags()//连接 断开连接 接收到数据 这个函数都会返回标记
If Len(s) > 0 Then


arr = Split(s, "|", - 1 , 1)

If arr(0) = 0 Then //TCP服务端通知
TracePrint arr(1) & " 连接"
Form1.ListBox1.AddItemarr(1) & " 连接"
Plugin.Brm.SetFlags ""
//Plugin.Brm.SetTcp "-1"//禁止这个IP

ElseIf arr(0) = 1 Then//TCP服务端通知
TracePrint arr(1) & " 退出连接"
Form1.ListBox1.AddItem arr(1) & " 退出连接"
Plugin.Brm.SetFlags ""

ElseIf arr(0) = 3 Then//TCP服务端收到信息

TracePrint arr(1) & " 字符串消息:" & arr(2)
Form1.ListBox1.AddItem arr(1) & " 字符串消息:" & arr(2)
Plugin.Brm.SetFlags "数据回复123"//设置数据回复
ElseIf arr(0) = 7 Then

TracePrint arr(1) & " 文件接收完毕:"
Form1.ListBox1.AddItem arr(1) & " 文件接收完毕:"
Plugin.Brm.SetFlags ""

ElseIf arr(0) = 8 Then//http服务器 要开放TCP 80端口 其它也行浏览器要指定端口
Plugin.Brm.SetFlags "HTTP/1.1 200" & Chr(13) & Chr(10) & "Content-Type: text/plain" & Chr(13) & Chr(10) & "Content-Length:5" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "12345"//浏览器打开将返回这段字符串

Form1.ListBox1.AddItem ("浏览器请求")
ElseIf arr(0) = 9 Then//文件发送完毕
Plugin.Brm.SetFlags ""//
TracePrint "文件发送完毕"
Form1.ListBox1.AddItem "文件发送完毕"
ElseIf arr(0) = 10 Then//客户端关闭
Plugin.Brm.SetFlags ""//
TracePrint "TCP客户端关闭"
Form1.ListBox1.AddItem "TCP客户端关闭"
ElseIf arr(0) = 11 Then//UDP服务端收到信息 2
Plugin.Brm.SetFlags "UDP服务端回复"//设置数据回复Plugin.Brm.SetFlags "123" 回复 123
TracePrint "UDP服务端收到信息：" & arr(1)
Form1.ListBox1.AddItem "UDP服务端收到信息：" & arr(1)


ElseIf arr(0) = 12 Then//UDP客户端收到信息 3
Plugin.Brm.SetFlags ""//设置数据回复
TracePrint "UDP客户端收到信息:" & arr(1) & " " & arr(2)
Form1.ListBox1.AddItem "UDP客户端收到信息:" & arr(1) & " " & arr(2)
ElseIf arr(0) = 13 Then//TCP客户端收到信息 3
Plugin.Brm.SetFlags ""//设置数据回复
TracePrint "TCP客户端收到信息:" & arr(1)
Form1.ListBox1.AddItem "TCP客户端收到信息:" & arr(1)


End If

End If





Loop


End Sub

Event Form1.Load
Dim n
Form1.ListBox1.List = ""

线程ID = BeginThread(xc)



n = Plugin.Brm.Reg("")

If n = 1 Then


Plugin.Brm.WechatOcrIni "D:\d\extracted\WeChatOCR.exe", "D:\d\[3.9.12.51]"

End If
End Event
Event Form1.Button1.Click//TCP连接

If TCP连接 = 0 Then

//Plugin.Brm.TcpSend hdl, "", 2//2=关闭


TCP连接 = Plugin.Brm.TcpConnect(Form1.InputBox1.Text , Form1.InputBox2.Text)


TracePrint "连接成功:" & TCP连接
Form1.ListBox1.AddItem "连接成功:" & TCP连接
// Plugin.Brm.TcpSend TCP连接, "TCP发送测试", 0//0=发送字符串
End If

End Event
Event Form1.Button2.Click//TCP发消息
Plugin.Brm.TcpSend TCP连接, Form1.InputBox5.Text, 0//0=发送字符串
End Event
Event Form1.Button3.Click//TCP发文件 "d:\mp3\dj\1.mp3"
Plugin.Brm.TcpSend TCP连接, Form1.InputBox5.Text, 1
End Event
Event Form1.Button4.Click//UDP发消息

Plugin.Brm.UDPclientsendA Form1.InputBox3.Text, Form1.InputBox4.Text, Form1.InputBox5.Text//第一次调用必须填1 2 参数

End Event
Event Form1.Button5.Click//OCR
Dim s
s = Plugin.Brm.WechatOcrEhex("D:\d\1.png")
TracePrint s
Form1.ListBox1.AddItem s

End Event


演示地址 帮我点赞

https://www.bilibili.com/video/BV1A3dpB6EM3/?spm_id_from=333.1387.homepage.video_card.click

感兴趣加493398208 群文件下载