2013/07/18

Disable Google Analytics's In-page analytics on your web site

https://sites.google.com/site/fpaintnagato/ というページにGoogle Analyticsを入れて、
ページを表示しながらクリック率などが見られる In-Page Analyticsというのをやってみたのですが、
これを一度オンにしたら、オフにする方法がなかなか見つからなかったので、解決策を書いておきます。

I started to use Google Analytics In-Page Analytics which shows click rates on each links on my website.
But when I turned on it once, it opens Google Analytics bar above my website every time when I visit each page.
It's extremely annoying and there seems no way officially announced to turn off it.
Then I write how to solve this problem here.(for chrome only)
  1. type chrome://settings/cookies on chrome adress bar.
  2. delete the cookie of your website which is enabled In-Page Analytics



2013/07/05

F#のプロジェクトでC#のプロジェクトで出来る事をやる方法

1. プログラムにアイコンを付ける方法
Resource Hackerを使って、アイコンにしたい.icoファイルをICONGROUPに追加する
プロジェクトのresource filesで.resで追加すると毎回Resource Hackerを使わなくていいけど、
それだとなぜかilmergeをした時に消えてしまう

 2. アセンブリ情報を付ける方法
これをどこかに書く
open System.Reflection
[<assembly: AssemblyProduct "Test" >]
[<assembly: AssemblyTitle "テンプレートとなるプログラムです。" >]
[<assembly: AssemblyCompany "ながと" >]
[<assembly: AssemblyCopyright "Copyright © ながと 2013" >]
[<assembly: AssemblyVersion("1.1.0.0")>]
do ()
3. Resources・Settingsを使う方法
C#のプロジェクトで作って、そのプロジェクトを参照する
スコープをUserにしたSettingsの設定はアプリケーションのexeの位置が変わるごとに新しく作られてしまう

4. 複数の.dllと.exeをilmergeを使って一つにまとめるスクリプト
open System
open System.IO
open System.Diagnostics
let programName = "Test"
let workingDir = sprintf @"C:\Projects\%s\%s\bin\Debug\" programName programName
let projectDlls =
let primaryDll = workingDir + programName + ".exe"
seq {
yield primaryDll
for ext in ["exe";"dll"] do
for dll in Directory.GetFiles(workingDir,"*."+ext) do
if dll <> primaryDll then yield dll }
|> String.concat " "
let ilmerge = @"C:\Program Files\Microsoft\ILMerge\ILMerge.exe"
let options = sprintf @"/ndebug /out:..\..\..\%s.exe" programName
let targetPlatform = @"/targetplatform:v4,""C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0"""
let args = sprintf "%s %s %s" projectDlls options targetPlatform
let pi =
ProcessStartInfo(
ilmerge,
args,
UseShellExecute = false,
RedirectStandardOutput = true,
WorkingDirectory = workingDir)
let p = new Process(StartInfo=pi)
p.Start() |> ignore
p.StandardOutput.ReadToEnd()
|> printfn "%s"