2015-02-01から1ヶ月間の記事一覧

.NETで実行されているすべてのプロセスを取得する

'ローカルコンピュータ上で実行されているすべてのプロセスを取得 Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses() '"machinename"という名前のコンピュータで実行されている 'すべてのプロセスを取得するには次のよう…

.NETでファイルのリネーム

'"C:\test\a.txt"を"C:\test\b.txt"に名前を変更する My.Computer.FileSystem.RenameFile("C:\test\a.txt", "b.txt")ネタ元 http://dobon.net/vb/dotnet/file/filecopy.html

.NETで外部EXE(アプリ)を起動

'メモ帳を起動する Dim p As System.Diagnostics.Process = _ System.Diagnostics.Process.Start("notepad.exe") ネタ元 http://dobon.net/vb/dotnet/process/shell.html

.NETで拡張子の変更

' 拡張子を .txt から .log に変更したファイルパスを取得する Dim stAfterName1 As String = System.IO.Path.ChangeExtension("C:\Hoge.txt", ".log") ' 拡張子を削除したファイルパスを取得する Dim stAfterName2 As String = System.IO.Path.ChangeExtens…

.NETで非同期ファイルダウンロード

Private WithEvents _WebClient As New System.Net.WebClient ... '-------------------------------------------------------------------------------- '「ダウンロード開始」ボタンクリック '----------------------------------------------------------…

.NETで一時ファイル(テンポラリ・ファイル)を作成する

Imports System.IO ... Dim name as String = Path.GetTempFileName() ネタ元 http://www.atmarkit.co.jp/fdotnet/dotnettips/227tempfile/tempfile.html

excelvbaでファイルのダウンロード

URLDownloadToFile APIを使用してWebからファイルをダウンロードする方法 #If Win64 Then Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias _ "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long Private Declare Ptr…

ExcelVBAでモードレスな「お待ちください」メッセージの表示

フォームを作って vbModelessで表示 UserFormを強制表示させる効果があります。念のために書くおまじない。【標準モジュール】 Public flag As Boolean Sub Sample5() Dim TotalSize As Long, buf As String UserForm1.Show vbModeless UserForm1.Repaint fl…

フォームのXボタンを効かなくする

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "[×]ボタンでは閉じられません。", 48 Cancel = True End If End Subネタ元 http://officetanaka.net/excel/vba/tips/tips18.htm

ワークブックの自動保存をしないようにする

10分毎に復帰用のファイルが作られるが、それを止める Private Sub Workbook_Open() ActiveWorkbook.EnableAutoRecover = False End Subネタ元 http://blog.livedoor.jp/katsuyausami/archives/52107517.html

問い合わせフォームのようなメールフォームならプラグイン「Contact Form 7」

Simplicityさんも使ってるネタ元 http://wp-simplicity.com/suport/topic/%E5%95%8F%E3%81%84%E5%90%88%E3%82%8F%E3%81%9B%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6/

管理者ユーザのアイコンの登録にはプラグイン「Simple Local Avatars」

「Simple Local Avatars」プラグイン追加するとプロフィールから画像登録できるようになる。 ネタ元 http://unvent.jp/dev/php/%E3%80%90wordpress%E3%80%91%E7%AE%A1%E7%90%86%E8%80%85%E3%83%A6%E3%83%BC%E3%82%B6%E3%81%AE%E3%82%A2%E3%82%A4%E3%82%B3%E3…

PHPでjsonデコード

PHP

//指定のURLから取得 $json = file_get_contents($url); //JSONファイルは配列に変換しておく $arr = json_decode($json,true); //var_dumpで表示して確認(ここは不要) echo "<pre>"; var_dump($arr); echo "</pre>";$url = "http://express.heartrails.com/api/json?me…

batファイルからPowerShellスクリプトを実行する

こんな感じ powershell Set-ExecutionPolicy RemoteSigned powershell .\main.ps1 powershell Set-ExecutionPolicy Restricted管理者権限が必要な処理の場合はbatファイルも管理者権限で起動する必要がある。ダブルクリックで管理者権限起動したい場合jはシ…

powershellでExcelファイルの個人情報を削除する

事前に Set-ExecutionPolicy RemoteSigned して PowerShellスクリプトの実行セキュリティ・ポリシーを変更しておく必要はある。 $path = "Xlsを探すパス(サブフォルダも再帰して探します)" Add-Type -AssemblyName Microsoft.Office.Interop.Excel $xlRemove…

インストーラー作成 inno setup

いいらしい。スクリプト書く必要あるけど細かい指定ができるみたい。無料みたい。InstallSheildは難しいらしいExecPressは簡単だけど痒いところに手が届かいないんだよね http://hibara.org/blog/2012/09/04/how-to-innosetup/ http://inno-setup.sidefeed.c…

C#でperlのtime関数と同じ1970/1/1からの秒数を取得

C#

DateTime dt_start = new DateTime(1970, 1, 1, 0, 0, 0); DateTime dt_now = DateTime.Now; long perl_time = (long)(dt_now - dt_start).TotalSeconds;

アクセスできない謎の英数字フォルダの削除方法

OS

Windows7では自動Updateする際に勝手にHDDに一時ファイルを解凍して処理終了後に削除するのですが、Update失敗したときに処理が途中で停止し解凍ファイルが全て残ります。正体はそれ。 1. [スタート] ボタンをクリックします。2. [すべてのプログラム] をク…

MFC アプリケーションを終了する方法

MFC

// same as double-clicking on main window close box ASSERT(AfxGetMainWnd() != NULL); AfxGetMainWnd()->SendMessage(WM_CLOSE);ネタ元 http://support.microsoft.com/kb/117320/ja

VBScript で再起動する

WSH

Option Explicit On Error Resume Next Dim objWshShell ' WshShell オブジェクト Dim strCmdLine ' 実行するコマンド Dim varMsg '確認画面 varMsg = MsgBox ("再起動しますか?", vbYesNo, "確認") If varMsg <> vbYes Then WScript.Quit 'スクリプト終了 …

メッセージ送ってボタンを操作する

MFC

ボタンをプログラムからクリックするには BM_CLICK を使います これをボタンに送れば、ボタンは WM_LBUTTONDOWN と WM_LBUTTONUP メッセージを受け取りますBM_CLICK のパラメータは両方とも 0 です また、このメッセージに戻り値はありませんまた、プッシュ…

Windowsアプリで引数を受け取る

MFC

CString cmdParam( m_lpCmdLine );で取れるサンプル { // コマンドライン引数の取得 CString cmdParam( m_lpCmdLine ); cmdParam.Trim(); CStringArray cmdParams; // 引数を格納する動的配列 CString param; int curPos = 0; // パラメータの分解 cmdParam.…

.NETライブラリ CsvHelper

C#

NuGetパッケージマネージャーからインストールできるCSVアクセス用ライブラリ。手作りするよりいいかと思って利用してみたけど、なんやと手間取った・・・。 マニュアル(英語) http://joshclose.github.io/CsvHelper/#getting-started とりあえずサンプル読…

.NETでメール受信ライブラリ「OpenPop.NET」

C#

VisualStudioのツール>NuGetパッケージマネージャからインストールできるサンプルやドキュメントは http://hpop.sourceforge.net/ へ。 ただメール受信して本文表示サンプル using OpenPop.Pop3; ...{ Pop3Client client = new Pop3Client(); client.Connect…

ワードプレスでページごとにレイアウトを変える方法

テンプレート内に元々あるpage.phpをコピーして、別のテンプレート.phpを作って、固定ページのテンプレートとして指定すればOK ネタ元 http://www.moco358.com/archives/2356

ExcelVBAでJScript経由でJSONをデコード

消えると困るのでコピペ■ボタンクリック部分のコード Private Sub CommandButton1_Click() Dim obj As JSON Set obj = GetJSON("test.json") Do While obj.HasNext MsgBox obj.getValue("id") & ":" & obj.getValue("name") Loop End Sub ■ConnectModule '接…

excelvbaでレジストリ操作

書き込み SaveSetting appname, section, key, data読込 GetSetting(appname, section, key, default)ネタ元 http://officetanaka.net/excel/vba/tips/tips43.htm

excelVBAでユーザーフォームにWeb(IE) の コントロールを貼る

ツールボックスを右クリックして「その他のコントロール」からWebBrowserを追加するのだ ネタ元 https://www.youtube.com/watch?v=GkWLoQ5GHbQ