dck-jp

public void GoIE_Go()
{
    var IE = new SHDocVw.InternetExplorer();
    IE.Visible = true;
    object URL2 = "http://www.bing.com/";
    IE.Navigate2(ref URL2);
}

dck-jp

public void GoIE_Go()
{
    var IE = new SHDocVw.InternetExplorer();
    IE.Visible = true;
    var URL = "http://www.google.com/";
    IE.Navigate(ref URL);
}

dck-jp

public void StartIE()
{
    var IE = new SHDocVw.InternetExplorer();
    IE.Visible = true;
}

dck-jp

Option Explicit

Private Sub Class_Initialize()
    Debug.Print ("Xが初期化されたよー")
End Sub

Public Sub CookDoodleDo()
    Debug.Print ("こけっこっこー！")
End Sub

dck-jp

@echo off
SET GOROOT=C:\Go
SET GOPATH=%GOROOT%\gocode
SET PATH=%PATH%;%GOROOT%\bin
cls
echo --- Hello, Go World! ---
cmd /k

dck-jp

:GetFrameworkVer32Helper64
@for /F "tokens=1,2*" %%i in ('reg query "%1\SOFTWARE\Wow6432Node\Microsoft\VisualStudio\SxS\VC7" /v "FrameworkVer32"') DO (
	@if "%%i"=="FrameworkVer32" (
		@SET "FrameworkVersion32=%%k"
	)
)
@if "%FrameworkVersion32%"=="" exit /B 1
@exit /B 0

dck-jp

Sub JumpWithGoogle()
    Dim ie As New VAMIE
    ie.Visible = True
    Dim q: q = URLEncode(Selection.text)
    ie.Navigate "https://www.google.co.jp/?q=" & q
End Sub

Function URLEncode(ByVal strOrg As String) As String
  With CreateObject("ScriptControl")
    .Language = "JScript"

dck-jp

ECHO OFF

set HIDEMARU=D:\Users\foo\Documents\bin\hidemaru\Hidemaru.exe
for /F "usebackq" %%i in (`cd`) do (
  set BATDIR="%%i"
)

for /f "delims=# usebackq" %%i in (`pt %1 ^| peco`) do (
     for /f "delims=: tokens=1" %%j in ('echo %%i') do set FILE =%%j
     for /f "delims=: tokens=2" %%k in ('echo %%i') do set NUM =%%k

dck-jp

using System;

namespace ConsoleApplication
{
    public abstract class Name : Exception{}
    public class FirstName : Name {
        public FirstName(string name) { Name = name; }
        public string Name { get; private set;}
    }
    public class LastName : Name {

dck-jp

'-------------------------------------------------------------------------
' 列番号<->列名　変換
'-------------------------------------------------------------------------
'英文字を列番号値に変換
''' @param strCol As String 変換する列文字列
Public Function L2N(strCol As String)
    L2N = Range(strCol & 1).column
End Function

'列番号値を同等の英文字に変換