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

'"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

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

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

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

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

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

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

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

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」プラグイン追加するとプロフィールから画像登録できるようになる。 ネタ元 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…

//指定の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…

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

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

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

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

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

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

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

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

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

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

消えると困るのでコピペ■ボタンクリック部分のコード 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 '接…

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

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