virtual box - ubuntu の画面自動リサイズ

virtualbox のメニューバーから

デバイス > Guest AdditionsのＣＤイメージを挿入をクリック

ubuntuのデフォルト設定だとauto run が起動するので実行する。
ubuntuを再起動する。

画面のサイズを大きくしたり小さくしたりすると自動で画面もリサイズされる。

centos ネットワークを監視

iftop
IPごとのトラフィックの送受信量や総量を監視できます。
不審なIPのトラフィック量などを確認できます。

インストール
# yum install iftop

起動
# iftop


nethogs
アプリケーションごとのトラフィックを監視できます。
どのアプリケーションがトラフィックをたくさん使用しているかなどが分かります。

インストール
#yum install nethogs

起動
#nethogs

vmware をインストールするとusbキーボードが入力できずに固まる

dell のノートパソコン vostro 3560でusbキーボードを使用したくなりキーボードを挿してみると入力ができない。
仕方なくキーボードを外すとwindowsが固まってしまった。

セーフモードで起動するとちゃんと入力できる。
ドライバが原因かと思い削除してもダメ。

usb周りのドライバを調べても全部標準のドライバだった。

ずっとキーボードの使用をあきらめてんだけどたまたま解決方法を見つけた。
vmwareが原因でした。


1．
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4d36e96b-e325-11ce-BFC1-08002BE10318}
のUpperFiltersのvmkbdを削除する。
2．
再起動する。


無事動いた！

vmwareをアンインストールしてもダメだったので別のことが原因だと思っていましたが、レジストリを削除しないといけないなんて・・・。

HP Slate7 Extreme 分解 磁石をはずした。

slate7 extermeも4.4.2にアップデートした。ので磁石をはずしと時のことを。


発売時から、磁石磁石言われていたけど値段とスペックに負けて購入。
発売してすぐ買って、すぐ磁石はずしました。
失敗したらと思うとすごいドキドキした。

実際試してみると結構な磁力。冷蔵庫に張り付くくらい。
鞄にいれて持ち歩くにはちょっと怖い感じがする。
クレジットもキャッシュカードも鞄に入れてるから。

ってことで開けて磁石をはずすことにしました。
 開けた画像
上下に磁石が付いている。
下はさらにカバーが付いていた。 上はカバーなし

結構硬かった。
開ける道具とか持ってなかったので、 いらないポイントカードを使って隙間に差し込んで開けました。
左下が微妙にくぼんでいるのでそこからだと開けやすいかも。

磁石はがっちり接着剤で止められているから、ペンチで挟んでねじる様に引っ張ると取りやすかった。

残念だったのが銅版が汚かった！
黒い指紋がべたべたと付いていた。
そして写真のとおり折れあとが付いてた。

ペンを無くしたとき気をつけたほうがいいかも。
 ペンの穴普通に空洞だった。ペンが刺さってない状態で持ち歩くとごみとかすごい入りそう。

HP Slate7 Extreme ついにアップデート 4.4.2に

HP Slate7 Extremeがついにアップデートした。

4.2から4.3にアップデートして再起動。
そしたら4.4.2のアップデートもきた！

zotac tegra note7はずいぶん前にアップデートが来てたけど、
ついに来て一安心。
実はちょっとアップデートあきらめてた。
よかった。

UNEXPECTED INCONSISTENCY; RUN fsck MANUALLY.で起動に失敗する

vmwareでcentosを起動に失敗する。


/dev/sda1: UNEXPECTED INCONSISTENCY; RUN fsck MANUALLY.


がFAILEDで起動しない。

画面に表示されているメッセージに従ってrootのパスワードを入力する。


fsck -t ext3 /dev/sda1

を実行。
終わったら再起動する。

/dev/sda2と/dev/sda5も同じエラーが出たのでfsckをして再起動する。

access でフォーム・レポートのコントロールソースとクエリをすべて書き出す

アクセスに変更を加えたいが、どこのコントロールで使用しているか分からないときに、すべてを取得してファイルに書き出すして検索。
ついでにクエリのsqlも検索できるように書き出す。

• vbaのモジュールに書いてイミディエイトウィンドウで実行

Public Sub CreateAllControlSource()
    Dim objFile As Object
    Dim strProjectPath As String
    Dim strFilePath As String
    Dim objWrite As Object
    Dim accObj As AccessObject
    Dim ctl As Control
    Dim Dbs As DAO.Database
    Dim Qdf As DAO.QueryDef

    Set objFile = CreateObject("Scripting.FileSystemObject")

'ファイルの書き出し
    strProjectPath = CurrentProject.Path
    strFilePath = objFile.BuildPath(strProjectPath, "WriteData.txt")

    Set objWrite = objFile.OpenTextFile(strFilePath, 2, True)



   objWrite.WriteLine "----------------- フォーム ---------------------"
   'フォームを書き込み
    For Each accObj In CurrentProject.AllForms

        objWrite.WriteLine accObj.Name
    '   Debug.Print accObj.Name

        DoCmd.OpenForm accObj.Name, acDesign, , , , acHidden

       'コントロールを書き込み
        objWrite.WriteLine "  レコードソース  " & Forms(accObj.Name).RecordSource

        For Each ctl In Forms(accObj.Name).Controls
        If ctl.ControlType = acTextBox Then
             'コントロールソースの書き込み
              objWrite.WriteLine "    " & ctl.Name & "    " & ctl.ControlSource
        End If

    '      Debug.Print ctl.Name
        Next ctl

        DoCmd.Close acForm, accObj.Name
    Next accObj


   objWrite.WriteLine "----------------- レポート---------------------"

    For Each accObj In CurrentProject.AllReports
    '    Debug.Print accObj.Name
        objWrite.WriteLine accObj.Name
    '   Debug.Print accObj.Name

        DoCmd.OpenReport accObj.Name, acDesign, , , , acHidden

       'コントロールの書き込み
        objWrite.WriteLine "  レコードソース  " & Reports(accObj.Name).RecordSource

        For Each ctl In Reports(accObj.Name).Controls
        If ctl.ControlType = acTextBox Then
       
       'コントロールソースの書き込み
              objWrite.WriteLine "    " & ctl.Name & "    " & ctl.ControlSource
        End If

    '      Debug.Print ctl.Name
        Next ctl

        DoCmd.Close acReport, accObj.Name
    Next accObj

    'データベースセット
    Set Dbs = CurrentDb
        'クエリ分ループ
    For Each Qdf In Dbs.QueryDefs

        objWrite.WriteLine Qdf.Name
        objWrite.WriteLine "    " & Qdf.sql

    Next Qdf

    Set Dbs = Nothing
    objWrite.Close
    Set objWrite = Nothing
    Set objFile = Nothing


End Sub