1235122 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

Lucky Twinkle Star ☆ミ へようこそ

全3687件 (3687件中 1-10件目)

1 2 3 4 5 6 >

2020.02.17
XML
最近、またGoogleのバナー広告サービスを悪用した
活動が酷く活発になってる感があるんだけど・・・・・

大手のサイトの隅に表示される
海外企業の広告はほとんど
悪用されてる感じがあるくらい?

あと夜になると
pointmail.rakuten.co.jpも
開こうとしただけで
なんか怪しい活動が検出されるんだけどさ

って、自分の場合、IE11の設定の
セキュリティを高めると
プロバイダのメールボックスが
覗けなくなるというのがあって
あまり細かい設定変更してなかったけど

まあ、気になって確認してみたら
もう設定変えても大丈夫に
なってたから・・・・・

IE11しか使ってない人は
もう今時代、ヤバイってことなんだろうけど

もうhttp://で始まるアドレスも
アクセスしないと思っておいたほうが
良いくらいかもね
グーグルのクロームは
https://でダウンロードできるところは
http://からのダウンロードを遮断するとか
言ってるとか・・・・・

IE11の設定としては、
SSL2.0 、TLS1.0/1.1はチェックを外して
拡張保護モードを有効にというのは
だいぶ前に言われてた話だけど
そうすれば少しはましになるかな・・・・
IE設定_2020021701.jpg


windows10用のブラウザとして開発されたEdgeも
最近はWindows8.1用のもでたようで
下のアドレスからDLできるけど
https://support.microsoft.com/ja-jp/help/4501095/download-the-new-microsoft-edge-based-on-chromium

インストール後にはできるだけ
もう関連付けをEdgeにしちゃったほうがいいかも。

ちょっとしたファイル拡張子の関連付けは
ファイルの右クックのプロパティを開くと
「全般」の上の方の「プログラム」の右に
変更って出てくるけど、拡張子が.urlとか
Webのショートカットはできない。

IE設定_2020021702.jpg

まず、コントロールパネルの
「既定のプログラム」-「既定のプログラムの設定」を開く

IE設定_2020021703.jpg

左のリストから 「MicrosoftEdge」 を探してクリックする。
そして左下の「既定でこのプログラムで開く項目を選択する」を
クリックする。

IE設定_2020021704.jpg

「 .htm」、「.html」、「http」、「https」の左のボックスにチェックを入れて
下の「保存」を押してすべて閉じる

IE設定_2020021705.jpg

.urlは既定の設定変更では変えられないので
タスクバー左のロゴマークを右クリックし
「ファイル名を指定して実行」をクリックし
名前のところに「regedit」と入力してOKを押す
「コンピューター\HKEY_CLASSES_Root\.url\OpenWithProgIDs」を開いたら
右のウィンドウに「文字列」で「MSEdgeHTM」を作成しデータは入れない

IE設定_2020021706.jpg

次にOpenWithProgIDsの下の「コンピューター\HKEY_CLASSES_Root\.url\PersistentHandler」を開き
右のウインドウにある「(規定)」のデータを
「{eec97550-47a9-11cf-b952-00aa0051fe20}」と書き換える

IE設定_2020021707.jpg

で変更後に初めて*.urlのショートカットをクリックすると
選択するポップアップが出てくるけど
2つのうち上のEdgeじゃなくあえて下の
ブラウザ?だったかの方を選ぶといい感じかな・・・・・

会社でやったらなんともなく日本語になっていたけど
自宅でやると英語版のようになってたので
ネットの専門サイトでは1月に直ってるという
という情報になっていたけど・・・・・・

もしも、英語版になっていたら・・・・・・
IEとかで「Microsoft Edge 日本語」でググるとすぐに出てくるけど

・Edgeを開いたら右上の「・・・」をクリックして下から3つ目の[Settings]をクリック
・開いた左の項目の下から5つ目の「language」をクリック
・右上の四角く囲まれた Add languageをクリック
・開いたリストをスクロールさせるとJapanese 日本語があるのでそれの
  左のチェックをつけて下の 「Add」をクリック
・英語の下にJapaneseが増えたらその右の「・・・」をクリック
・開いたら左上のチェックをつける
・と[Restart]が出るがそれは後にして
・もう一度日本語の左の「・・・」をクリックし ↑Move to the topとなってる所を
 クリックし一番上に移動させてから Japaneseの右にある[Restart]をクリックする






Last updated  2020.02.17 23:56:38
コメント(0) | コメントを書く


2020.02.16
カテゴリ:なんでもつぶやき
スマホ用楽天ラッキーくじアプリで、
1月にも開いた右上のお知らせに、
ショップ主催の?限定ラッキーくじが
たくさん開催されてたけど、
結構な確率で当たった。
また今月分が始まったみたいで
今日、始まったラッキーくじが
全部当たった〜♪♪😆






Last updated  2020.02.16 00:57:46
コメント(0) | コメントを書く
2020.02.15






Last updated  2020.02.15 12:51:54
コメント(0) | コメントを書く

\クーポンで5%OFF&Pt5倍★本日限定/ システムベッド ALTAIR(アルタイル) シングル デスク シェルフ キャビネット セット 木製 大人 収納 ロフトベッド ロータイプ ベッド ベット べっと シングルベッド 宮付き 収納付き

ちょっと変わったデザインで良いかも。
横に宮がついてるからたくさん置けてよさそう。
けど寝返り売った時に手足がぶつかって
痛いかもってのもあるけど。






Last updated  2020.02.15 12:33:27
コメント(0) | コメントを書く
カテゴリ:なんでもつぶやき
なんかPoiintclubアプリ開いたら
日頃の感謝を込めて
本日は多くのポイントを付与するとか

突然に何を血迷ったのか
何かの批判をかわす狙いがあるのか

そんなことよりも
なんで
iPhoneとandroidで
アプリを起動したときに
リワードとしてもらえるポイントに
差があるんだか・・・・・

意味が分からん

レシピはiPhoneで起動すると
1ポイントもらえるけど
androidはもらえないとか
なんなんだろう・・・・

って、後からアンドロイドの
レシピ開いてみたら
いつの間にか
androidでも
リワードでポイントが
もらえるようになってた・・・・・






Last updated  2020.02.15 02:50:20
コメント(0) | コメントを書く
2020.02.14
適当にサクッと作ったやつ
グーグルの緯度経度を変換するために
エクセルに読み込んでVBAで
変換処理するマクロ

でも一か所ごとに
セルに入ってる変換の数式も
毎度、セルをコピペする感じで
処理してるのでちょっと遅い。

下がセル自体をコピペする遅い方法

Sub kml2緯度経度List()

    Dim buf As String, Target As String
    Dim tmp As Variant, a As Long, b As Long, c As Long, d As Long, e As Variant

    Target = Application.GetOpenFilename("テキスト ファイル,*.kml")

    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile Target

        a = a + 2
        b = b + 2

        Do Until .EOS
            buf = .ReadText(-2)
            c = c + 1
            tmp = Split(buf, vbLf)
            For a = 0 To UBound(tmp)
               
              If tmp(a) = "      <Placemark>" Or tmp(a) = "    <Placemark>" Then
                tmp(a + 1) = Replace(tmp(a + 1), " ", "")
                tmp(a + 1) = Replace(tmp(a + 1), "<name>", "")
                Cells(b + 1, c) = Replace(tmp(a + 1), "</name>", "")

              ElseIf tmp(a) = "          <coordinates>" Or tmp(a) = "        <coordinates>" Then
                e = Left(tmp(a + 1), (Len(tmp(a + 1)) - 2))
                f = InStr(3, e, ",")
                Cells(b + 1, c + 2) = Replace(Left(e, f - 1), " ", "")
                Cells(b + 1, c + 1) = Replace(Mid(e, f + 1), " ", "")
                b = b + 1
              Else
              End If
             
                Range(Cells(b + 2, c), Cells(b + 2, c + 9)).Copy
                Range(Cells(b + 3, c), Cells(b + 3, c + 9)).PasteSpecial xlPasteAll
               
            Next a
        Loop

        .Close

    End With

End Sub



大量の同じ処理を高速化するには
画面の更新をとめるというのがあるけど
昔のことでいえば
画面に動きがあるほうが
フリーズやハングアップしていないので
安心感があるんだけど

で配列を使って処理して
最後に、RangeとResizeで一気に
配列を一気にセルに張り付ける方法も
多少早くなるようだけど、・・・・・・

今どきのパソコンなら
毎回、数式の入ったセルを
個別にコピペしてたのを
最後に一括にコピペさせるだけでかなり変わる
というか数式の入ったセルをコピペする
ことはそれだけ時間がかかることみたい


Sub kml2緯度経度List()

    Dim buf As String, Target As String
    Dim tmp As Variant, a As Integer, b As Integer, c As Integer, d As Integer, e As Variant

    Target = Application.GetOpenFilename("テキスト ファイル,*.kml")

    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile Target

        a = a + 2
        b = b + 2

        Do Until .EOS
            buf = .ReadText(-2)
            c = c + 1
            tmp = Split(buf, vbLf)
            For a = 0 To UBound(tmp)
               
              If tmp(a) = "      <Placemark>" Or tmp(a) = "    <Placemark>" Then
                tmp(a + 1) = Replace(tmp(a + 1), " ", "")
                tmp(a + 1) = Replace(tmp(a + 1), "<name>", "")
                Cells(b + 1, c) = Replace(tmp(a + 1), "</name>", "")

              ElseIf tmp(a) = "          <coordinates>" Or tmp(a) = "        <coordinates>" Then
                e = Left(tmp(a + 1), (Len(tmp(a + 1)) - 2))
                f = InStr(3, e, ",")
                Cells(b + 1, c + 2) = Replace(Left(e, f - 1), " ", "")
                Cells(b + 1, c + 1) = Replace(Mid(e, f + 1), " ", "")
               
                Range(Cells(b + 1, c), Cells(b + 1, 10)).Borders(xlEdgeBottom).LineStyle = xlContinuous
               
                b = b + 1

              Else

              End If
             
            Next a
        Loop

        maxr = Cells(3, 1).End(xlDown).Row

        Range("d3:j3").Copy
        Range("d4", Cells(maxr, 10)).PasteSpecial
        Range("a1", Cells(maxr, 10)).BorderAround Weight:=xlMedium

        .Close

    End With

End Sub







Last updated  2020.02.14 18:00:08
コメント(0) | コメントを書く
エクセルのVBAでループで
数式の入ったセルの
コピーを繰り返すと
なまら時間がかかるけど

ふとタイマーみたいなのを作って
セルにカウント表示させたらどうなるのかなって

結果は値を同じところに繰り返して
貼るだけならカウントに影響する
程の事はないかなぁ

てか下に作ったのは
ループの中で
約1秒ほど実行をとめて
計算処理もしてるから

厳密にいえば
止めた時間と処理時間が
合わさるので
長い時間をカウントすると
微妙に誤差が出るかな
なのでミリ秒で微妙に調整しないと・・・・・

さらに下にはVBSで似たようなのを作ったらそんな感じ

システムのTimeの1秒の動きの差を見ながら
1秒ずつカウント表示をできればいいだろうけど面倒

っていうか、エクセルで時間を見ながら
ループをさせるのは、ほぼ無限ループだから
暴走でハングしてるに近いので
マウスもキーボードも受け付けなくなるし

判定条件失敗したら
エクセル強制終了しないと・・・・・
ってことになるなぁ

そうそう、止めるステートメントは
時間表示と1ずつ減らすステートメントの
間に入れないと
最後で1秒余計にループして
カウントがマイナスになっちゃうか・・・・・


Sub タイマー()
Dim d As Date, e As Date, m As Long, s As Long

a = InputBox("計測時間を入力 23:59:59")
b = Split(a, ":")
c = b(0) * 3600 + b(1) * 60 + b(2)
d = Now()
e = DateAdd("s", c, d)
f = c

Cells(2, 2).Value = a & "を測定"
Cells(3, 2).Value = d & "から" & a & "後は" & e

Do While d <= e

h = Int(f / 3600)
m = Int((f - Int(f / 3600) * 3600) / 60)
s = f - h * 3600 - m * 60

Cells(6, 2).Value = Time()
Cells(9, 2).Value = h
Cells(9, 3).Value = m
Cells(9, 4).Value = s

'Application.Wait Now() + TimeValue("00:00:01")
Application.Wait [Now()] + 999 / 86400000

f = f - 1
d = Now()

Loop

End Sub

str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
str = WScript.ScriptFullName
Set WshShell = CreateObject( "WScript.Shell" )
Call WshShell.Run( "cmd.exe /c cscript.exe """ & str & """ & pause", 3 )
WScript.Quit
end if

a = InputBox("計測時間を入力 23:59:59")
b = Split(a, ":")
c = b(0) * 3600 + b(1) * 60 + b(2)
d = Now
e = DateAdd("s", c, d)
f = c

WScript.echo a & "を測定"
WScript.echo d & "から" & a & "後は" & e

Do While d <= e

h = Int(f / 3600)
m = Int((f - Int(f / 3600) * 3600) / 60)
s = f - h * 3600 - m * 60

WScript.echo Time & " "& h & ":"& m &":"& s

WScript.sleep 1000

f = f - 1
d = Now

Loop






Last updated  2020.02.15 22:23:59
コメント(0) | コメントを書く
カテゴリ:なんでもつぶやき
世界中で

新型肺炎コロナウイルス COVID-19

が大騒ぎになるくらい
大変な広がりを見せてるけど

なんだか
最初は中国は否定してた!?
人人感染もあるどころか

ここ数日は
どうやって感染したのかも
判らないような感染者も出てるけど

ダイヤモンドプリンセスの
乗客も閉じ込められたままで

そんなんじゃ、正常な人も
感染しちゃって、
延々ときりがないのでは?
とか簡単に絶つような
手がない感じだで大変

もう、人ごみに行かず
出来るなら家にいたほうが
良さそうなくらい。


北海道では珍しく
10月中くらいから
インフルエンザが流行してたけど。

そんなんじゃ、
ワクチンも間に合わないくらい
だったけど。

とは言っても、意外と
朝の通勤列車にはカゼな
人は見当たらなかったのも
あるだろうけど。

自分はワクチン受けてないけど
今のところ一切カゼを引いてない。

そんな自分の気を付けてること。

・室温を適切に保つ
 寒すぎると風邪をひきやすいので
 適温にして体の免疫力を保つ

・定期的に水分補給をして
 口の中のウイルスを流す

・ガムをかむ
 水分補給できないなら
 ガムを噛んで口の中の唾液を増やして
 ウイルスを流す

・なにかと手を洗う
 食事の前
 朝起きたら
 歯磨き時
 外から帰ってきたら
 トイレの後
 くしゃみを手でふさいだ後

・うがいをする
 外から帰ってきたら
 朝起きたら
 磨き時
 
 口の前を濯いでから
 喉の奥までうがいをする

・外から戻ったら手を洗うまで
 顔に触れない。

・顔も洗う
 朝起きたら
 歯磨き時
 寝る前
 外から帰ってきたら

・通勤列車でつり革はつかまず手を通す

・スマホ、家電リモコン、キーボード、マウス等は
  除菌ウエットタオル等で定期的にふく

・二酸化塩素を空気中に出す商品を置く


  まあ、周りに風邪をひいた人が少ないとか
  そういう人に近づかないとか、
  人ごみの多いところに行かないというのも
  あるだろうけど今のところ風は
  今シーズン一度も引いてないし・・・・・
  
  って、最後の二酸化塩素の商品は効いてるのか
  ないのかは怪しいところだけど。






Last updated  2020.02.14 21:03:57
コメント(0) | コメントを書く
今頃なんだけど、
まあ圧縮解凍にはいろんなのがあるけど

フリーのはDL禁止とか
Windowsのみで大きなファイルを
分割するのってどうする

時々、メール添付で大きいのがこまるとか
メールでは今はそれなりに大きなのも送れるけど
送信側と受信側で容量制限も違うとできないとか
WindowsLiveMailとかOutlookExpressは
以前は分割送信ができたけど受けるほうも
同じメーラーじゃないとだめだし
てか、今は古くてセキュリティ的にもだめだから
終了してるし
今時ならファイルを送信するためのサービスも
多いけど、フリーは混んで遅かったり
あと、ちょっと前には宅ふぁいるのように
セキュリティが心配とか・・・・・

といえば懐かしい
DOS用のmakecabとexpandが
あったなって・・・・・・

どうやって使うんだったかななんて

対象ファイル階層状態.cabファイルIEIE階層復元ExpandExpand階層
1個ファイル階層無し1個まとめ--
複数ファイル--
1個ファイル複数分割--
複数ファイル--
1個ファイル階層あり1個まとめ×
複数ファイル×
1個ファイル複数分割×××
複数ファイル×××

IEだけで引っ張り出すのはできてもフォルダが復元できないけど
一つのcabにまとめればexpandを使えば復元できるかな
でもフォルダを含めたcabを分割してしまうとexpandでも
復元できないっけ・・・・・・?

なんか昔のWin98くらいまで
3.5インチとかの複数枚になってたゲームって
フォルダ復元でインストールできてたような・・・・
って、一緒にinfファイルが作られるから
それを利用してバッチ処理で個別に作ってたのかな
さっぱり古いことは忘れてるか・・・・・・・

下のバッチは分割サイズを5種類から選んで
cabで圧縮するバッチ
って、古いDOSの頃から変わってないから
ファイル名やフォルダ名の付け方が
DOSのルールに従ってないと
エラーになっちゃうけど・・・・・


@echo off
setlocal

:start
echo.
echo.
echo.
echo  ------------------------------------------------------------
echo.
echo.
echo    ドロップしたファイルを指定サイズに分割するにょ♪
echo.
echo    フォルダをドロップしたら、サブフォルダも含めたフォルダ内のファイルを
echo    まとめてCabにして分割するにょ♪ 
echo.
echo.
echo    分割対象 %1
echo.
echo    分割されたときのファイルサイズをキー入力して(半角数字)
echo.
echo    8Mバイト  ⇒ 1
echo    16Mバイト ⇒ 2
echo    24Mバイト ⇒ 3
echo    50Mバイト ⇒ 4
echo    100Mバイト ⇒ 5
echo.
echo.
echo  ------------------------------------------------------------
echo.
echo.
echo.

set ddf=%TEMP%\cabpacker.txt
dir /b /s /a-d %1 > "%ddf%"

set select1=
set /p select1= 1~3を入力してEnterを押してください。
set /p select2= 保存先をドロップしてください。

if '%select1%' == '1' goto :8m
if '%select1%' == '2' goto :16m
if '%select1%' == '3' goto :24m
if '%select1%' == '4' goto :50m
if '%select1%' == '5' goto :100m
if '%select1%' == '' goto :start


:8m
set size=7372800
goto end
:16m
set size=14745600
goto end
:24m
set size=22118400
goto end
:50m
set size=47104000
goto end
:100m
set size=94208000

:end
makecab /d MaxDiskSize=%size% /d RptFileName=NUL /d InfFileName=NUL /d CabinetNameTemplate="%~n1"*.cab /d DiskDirectoryTemplate=%select2% /f "%ddf%"
del "%ddf%"






Last updated  2020.02.14 04:00:08
コメント(0) | コメントを書く
このブログでよく読まれている記事

全3687件 (3687件中 1-10件目)

1 2 3 4 5 6 >

PR

Free Space

このブログのタイトルから連想され期待してお見えでしたら・・・・・
らき☆すたとはまったく関係なくて済みません
_(_^_)_
でも、アニメはもとより、時々フィギュア、車、パソコン、デジタル一眼レフ、Nゲージ、ミニカー、スイーツ、お菓子、etc・・・・・と幅広いネタを書いてるブログです。
当ブログはリンクもお気に入り登録も自由です Freedom・・・・・・

楽天ブログ開設に関する規約第11条(禁止事項等)を遵守しない方の来訪を好みません。また、第11条に違反するブログは楽天側へ当該ブログの削除依頼を連絡することがありますのでご承知おきください。

自慢の愛車たち

→☆愛車プロフィール紹介☆←

上の写真をクリックするとジャンプします。

Profile


兎の道化師

Calendar

Category

Keyword Search

▼キーワード検索

Rakuten Ranking


Copyright (c) 1997-2020 Rakuten, Inc. All Rights Reserved.