WebSocket = New WebSocket4Net.WebSocket("wss://ws.binaryws.com/websockets/v3") AddHandler WebSocket.Opened, Sub(s, e) socketOpened(s, e) AddHandler WebSocket.Error, Sub(s, e) socketError(s, e) AddHandler WebSocket.Closed, Sub(s, e) socketC…

From って書く Private Sub TestProc01() Dim col As New ArrayList() From {10, 20, 30} Dim list As New List(Of Integer) From {10, 20, 30} End Sub ネタ元 https://code.msdn.microsoft.com/windowsdesktop/12-393b568a

'IEで開いているURLとタイトルの一覧を取得する。 set fso = CreateObject("Scripting.FileSystemObject") txt = "" for each br in CreateObject("Shell.Application").Windows pname = fso.GetFileName( br.FullName ) if LCase( pname ) = "iexplore.exe"…