0
如何在vb.net中創建一個程序來連接到我的樹莓派上的websocket服務器。這是如此,我可以發送命令預先編碼在python websocket服務器,如果有人可以發送代碼,將發送「切換」到192.168.0.9:8283上的websocket服務器,那麼這將是我需要我已經嘗試使用一些代碼谷歌應對我該如何創建腳本vb.net websocket客戶端
Imports WMPLib
Imports WebSocket4Net
Public Class Alerter
Dim Type As String
Dim ran As String = "NO"
Dim mp3player As New MediaPlayer.MediaPlayer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Not mp3player.PlayState = MediaPlayer.MPPlayStateConstants.mpPlaying Then
mp3player.Open("C:\Users\Andrew\Downloads\Alarm.mp3")
End If
If Me.Opacity = 1.0 Then
Type = "Back"
If ran = "NO" Then
End If
ran = "NO"
ElseIf Me.Opacity = 0.0 Then
Type = "Foward"
If ran = "YES" Then
End If
End If
If Type = "Back" Then
Me.Opacity = Me.Opacity - 0.1
Else
Me.Opacity = Me.Opacity + 0.1
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
End Sub
Public Async Function ShowAlert(skypename As String) As Task
Label1.Text = skypename
Label1.Left = (My.Computer.Screen.Bounds.Width - Label1.Width)/2
Label2.Left = (My.Computer.Screen.Bounds.Width - Label2.Width)/2
Label3.Left = (My.Computer.Screen.Bounds.Width - Label3.Width)/2
Label4.Left = (My.Computer.Screen.Bounds.Width - Label4.Width)/2
Label2.Top = (My.Computer.Screen.Bounds.Height - Label2.Height)/2
Label1.Top = ((My.Computer.Screen.Bounds.Height - Label1.Height)/2) - Label2.Height - 20
Label3.Top = ((My.Computer.Screen.Bounds.Height - Label3.Height)/2) + Label2.Height + 20
Label4.Top = ((My.Computer.Screen.Bounds.Height - Label4.Height)/2) + Label2.Height + Label3.Height + 20
Me.Show()
Timer1.Start()
If (Form1.CheckBox1.Checked) Then
Timer3.Start()
End If
Cheacker.Start()
mp3player.Open("C:\Users\Andrew\Downloads\Alarm.mp3")
End Function
Private Sub Alerter_MouseClick(sender As Object, e As MouseEventArgs) Handles MyBase.Click
mp3player.Stop()
Timer3.Stop()
Me.Close()
End Sub
Private Sub Cheacker_Tick(sender As Object, e As EventArgs) Handles Cheacker.Tick
Dim newValue As Integer = Label4.Text - 1
If (newValue = 0) Then
Label4.Text = newValue
Cheacker.Interval = 500
sendAFK()
ElseIf newValue < 0 Then
If Label4.Visible = True Then
Label4.Visible = False
Else
Label4.Visible = True
End If
Else
Label4.Text = newValue
End If
End Sub
Private Sub sendAFK()
Cheacker.Stop()
Dim skypename As String = Form1.TextBox1.Text
Form1.oSkype.SendMessage(skypename, "Hello Andrew Currently Had On on A Alert List And He Curremtly Has A Siren Running And His Screen Has Been Nulled To Red With A Message Saying You Came Online. So Why Have You Been Sent This Automated Message? The Alert Has Been Running And He Has Not Responded At All To It So Please do Not Think His Is Ignoring You!")
Label3.Text = "AFK Message Was Sent At"
Dim time As String = My.Computer.Clock.LocalTime.Hour.ToString + ":" + My.Computer.Clock.LocalTime.Minute.ToString + ":" + My.Computer.Clock.LocalTime.Second.ToString
Label4.Text = time
Label1.Text = skypename
Label1.Left = (My.Computer.Screen.Bounds.Width - Label1.Width)/2
Label2.Left = (My.Computer.Screen.Bounds.Width - Label2.Width)/2
Label3.Left = (My.Computer.Screen.Bounds.Width - Label3.Width)/2
Label4.Left = (My.Computer.Screen.Bounds.Width - Label4.Width)/2
Label2.Top = (My.Computer.Screen.Bounds.Height - Label2.Height)/2
Label1.Top = ((My.Computer.Screen.Bounds.Height - Label1.Height)/2) - Label2.Height - 20
Label3.Top = ((My.Computer.Screen.Bounds.Height - Label3.Height)/2) + Label2.Height + 20
Label4.Top = ((My.Computer.Screen.Bounds.Height - Label4.Height)/2) + Label2.Height + Label3.Height + 20
End Sub
Private Sub Alerter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
End Sub
End Class
IM想發送命令切換每個定時器3滴答