2017-12-06から1日間の記事一覧
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"…