おぼえがき。 1: set WshShell = WScript.CreateObject("WScript.Shell") 2: WshShell.Run "notepad" 3: WScript.Sleep 900 4: WshShell.SendKeys "256{+}512=" 5: WScript.Sleep 900 6: WshShell.Run "calc" 7: WScript.Sleep 900 8: WshShell.AppActivate …

Function fnLenB(ByVal arg1) As Integer 'Require:Imports System.Text Try Dim enc As Encoding '@System.Text Dim ReturnInt As Integer enc = enc.GetEncoding("Shift_JIS") ReturnInt = enc.GetByteCount(arg1) Return ReturnInt Catch ex As Exception…

[web.config] [foo.aspx.vb] Dim config As System.Configuration.ConfigurationSettings Dim strXMLfile As String = config.AppSettings("GuideFile")