☆超私的☆ニュース・備忘録・作業ログ

Sub pkill()

‘Option Explicit
On Error Resume Next

Dim strProcName ‘ 終了するプロセス名
Dim objProcList ‘ プロセス一覧
Dim objProcess ‘ プロセス情報
Dim lngKillNum ‘ 終了したプロセス数

strProcName = “iexplore.exe”
lngKillNum = 0

Set objProcList = GetObject(“winmgmts:”).InstancesOf(“win32_process”)
For Each objProcess In objProcList
If LCase(objProcess.Name) = strProcName Then
objProcess.Terminate
If Err.Number = 0 Then
lngKillNum = lngKillNum + 1
Else
Debug.Print “エラー: ” & Err.Description
End If
End If
Next
If lngKillNum > 0 Then
Debug.Print strProcName & ” を ” & lngKillNum & ” 個強制終了しました。”
Else
Debug.Print strProcName & ” が見つかりませんでした。”
End If

Set objProcList = Nothing

End Sub

参考
http://www.whitire.com/vbs/tips0198.html

　
Lovelog+*
　　・Ktai-Styleのテーマ、Lovelog Ver6k（ver 1.1）
　　・Ktai Styleのテーマ、Lovelog Ver16k（ver ）
　　・Ktai Styleのテーマ、Lovelog+* ver8k（ver ）
　　・Ktai Styleのテーマ、Lovelog Ver21k（ver ）

　
採取：2011/3/3
mono-lab
　　・WordPress テーマ neutral 1.0
　　・Piano Black 2.0 beta
　　・monochrome 3.0 beta

Lovelog+*
　　・Lovelog+* Ver3　雪の結晶（ver ）
　　・Lovelog+* ver7　Cotton POP
　　・Lovelog+* verVer19.1（ver 1.1）
　
WordPress 3.0 から可能な素敵なテーマ20本
　　・ASimpleMagazine.zip
　　・autofocusplus-1.1.zip
　　・berylliumous.zip
　　・boldy.zip
　　・delta.zip
　　・Designora-theme.zip
　　・dimenzion.zip
　　・epsilon.zip
　　・MobileWorld.zip
　　・mystique-wordpress.zip
　　・Nicol.zip
　　・photoblog.zip
　　・shaken-grid-2.1.zip
　　・spectre.zip
　　・Tech9.zip
　　・zeta.zip
　
WordPressと趣味のサイト
　　・wagara-haru.zip 和柄-春
　　・helloween.zip　ハロウィン
　　その他有り
　
N.Design Studio
　　・itheme.zip
　
WPCrunchy
　　・newspress-2.0.4.zip
　　・obscure.zip
　
Padd Solutions
　
New WordPress Themes

EXCEL VBA ファイル存在チェック&削除

If Dir(“C:\Sample\aaa.txt”) <> “” Then
kill “C:\Sample\aaa.txt”
End If

html img src 画像の回り込み