mieki256's diary

' リソースにアクセスするために windows.bi を使う
#include "windows.bi"

' 画像読み込み用ライブラリ FBImage を使う
#include once "FBImage.bi"

' カレントディレクトリを exeファイルのある場所にする
chdir exepath()

' リソースにアクセスするための名前
Const res_name = "pngimage"

Dim As HRSRC hResInfo
Dim As HGLOBAL hResData
Dim As ubyte Ptr resPtr
Dim As DWORD resSize

' リソースを探す
hResInfo = FindResource(NULL, strptr(res_name), RT_RCDATA)
If hResInfo = Null Then
    Print "Error : Not found resource" : end
End If

' リソースを読み込み
hResData = LoadResource(0, hResInfo)
If hResData = Null Then
    Print "Error : Not load resource"
    FreeResource(hResData) : end
End If

' リソースのポインタを取得
resPtr = CPtr(ubyte Ptr, LockResource(hResData))
If resPtr = Null Then
    Print "Error : Not get resource pointer"
    FreeResource(hResData) : end
End If

' リソースのサイズを取得
resSize = SizeofResource(NULL, hResInfo)
If resSize = 0 Then
    Print "Error : Can not get resource size"
    FreeResource(hResData) : end
End If

' デスクトップ解像度を指定
Dim As Integer scrw = 512
Dim As Integer scrh = 288

' ウインドウサイズと色深度(bpp)を指定
screenres scrw, scrh, 32

' メモリ上にある画像データを読み込む。ポインタとバイト数を渡す
var img = LoadRGBAMemory(resPtr, resSize)

' リソースを解放
FreeResource(hResData)

' 画像を描画。RGB=(255, 0, 255) のピクセルは透明色として扱う
Put (16, 16), img, TRANS

' キー入力があるまで待ち続ける
sleep

' 画像を使い終わったので破棄
ImageDestroy img

pngimage    RCDATA      "image_png.png"

fbc loadpnginmemory.bas resource.rc

• FindResource() ... リソースを検索する。
• LoadResource() ... リソースを読み込む。
• LockResource() ... リソースのアドレスを取得する。
• SizeofResource() ... リソースのサイズを取得する。
• FreeResource() ... 読み込んだリソースを解放する。

• 上記のページで紹介されているソースをコピーして、bin2bas.bas というファイル名でソースを保存する。
• fbc bin2bas.bas と打てば bin2bas.exe が生成できる。
• 使い方は、bin2bas.exe INPUT_FILE。bin2bas.exe hoge.png と打てば、hoge.bi と hoge.bas が生成される。

bin2bas.exe test.bin

extern test_data(0 to 48-1) as ubyte

#include once "test.bi"

dim shared test_data(0 to 48-1) as ubyte = { _
&h0,&h1,&h2,&h3,&h4,&h5,&h6,&h7,&h8,&h9,&hA,&hB,&hC,&hD,&hE,&hF,&h10,&h11,&h12,&h13,&h14,&h15,&h16,&h17,&h18,&h19,&h1A,&h1B,&h1C,&h1D,&h1E, _
&h1F,&h20,&h21,&h22,&h23,&h24,&h25,&h26,&h27,&h28,&h29,&h2A,&h2B,&h2C,&h2D,&h2E,&h2F }

python bin2bas.py -i test.bin

' input file = test.bin

Dim As Integer test_bin_data_length = 48
Dim shared test_bin_data(0 To (test_bin_data_length - 1)) As ubyte

For i As Integer = 0 To (test_bin_data_length - 1)
    read test_bin_data(i)
Next i

DATA _
&H00,&H01,&H02,&H03,&H04,&H05,&H06,&H07,&H08,&H09,&H0a,&H0b,&H0c,&H0d,&H0e,&H0f, _
&H10,&H11,&H12,&H13,&H14,&H15,&H16,&H17,&H18,&H19,&H1a,&H1b,&H1c,&H1d,&H1e,&H1f, _
&H20,&H21,&H22,&H23,&H24,&H25,&H26,&H27,&H28,&H29,&H2a,&H2b,&H2c,&H2d,&H2e,&H2f

import struct
import argparse


def main():
    desc = "Cpnvert binary file to basic source"
    parser = argparse.ArgumentParser(description=desc)
    parser.add_argument("-i", "--input", help="Input binary file", required=True)
    args = parser.parse_args()

    data = []
    with open(args.input, "rb") as f:
        while True:
            b = f.read(1)
            if b:
                data.append(struct.unpack("B", b)[0])
            else:
                break

    dataname = args.input.replace(".", "_")
    dataname += "_data"
    lengthname = dataname + "_length"

    print("' input file = %s" % (args.input))
    print("")
    print("Dim As Integer %s = %d" % (lengthname, len(data)))
    print("Dim shared %s(0 To (%s - 1)) As ubyte" % (dataname, lengthname))
    print("")
    print("For i As Integer = 0 To (%s - 1)" % (lengthname))
    print("    read %s(i)" % (dataname))
    print("Next i")
    print("")
    print("DATA _")

    s = ""
    cnt = 0
    for i in range(len(data)):
        s += "&H%02x," % data[i]
        cnt += 1
        if cnt % 16 == 0:
            if cnt == len(data):
                print(s[:-1])
            else:
                print("%s _" % s)
            s = ""
    if s != "":
        print(s[:-1])


if __name__ == "__main__":
    main()

> python bin2bas.py --help
usage: bin2bas.py [-h] -i INPUT

Convert binary file to basic source

options:
  -h, --help            show this help message and exit
  -i INPUT, --input INPUT
                        Input binary file

python bin2bas.py -i image_png.png > image_png.bas

' input file = image_png.png

Dim As Integer image_png_png_data_length = 50344
Dim shared image_png_png_data(0 To (image_png_png_data_length - 1)) As ubyte

For i As Integer = 0 To (image_png_png_data_length - 1)
    read image_png_png_data(i)
Next i

DATA _
&H89,&H50,&H4e,&H47,&H0d,&H0a,&H1a,&H0a,&H00,&H00,&H00,&H0d,&H49,&H48,&H44,&H52, _
&H00,&H00,&H01,&H00,&H00,&H00,&H01,&H00,&H08,&H06,&H00,&H00,&H00,&H5c,&H72,&Ha8, _

' ...

&Hba,&H45,&Hf0,&H3f,&Hac,&H83,&H26,&H35,&H43,&H1b,&H66,&Hed,&H00,&H00,&H00,&H00, _
&H49,&H45,&H4e,&H44,&Hae,&H42,&H60,&H82

' 画像読み込み用ライブラリ FBImage を使う
#include once "FBImage.bi"

' ubytes配列の画像データバイナリ
#include "image_png.bas"

' カレントディレクトリを exeファイルのある場所にする
chdir exepath()

' デスクトップ解像度を指定
Dim As Integer scrw = 512
Dim As Integer scrh = 288

' ウインドウサイズと色深度(bpp)を指定
screenres scrw, scrh, 32

' メモリ上にある画像データを FBImage で読み込む。ポインタとバイト数を渡す
Dim As Long size = image_png_png_data_length
var img = LoadRGBAMemory(@(image_png_png_data(0)), size)

' 画像を描画。RGB=(255, 0, 255) のピクセルは透明色として扱う
Put (16, 16), img, TRANS

' キー入力があるまで待ち続ける
sleep

' 画像を使い終わったので破棄
ImageDestroy img

fbc loadpngbin2bas.bas

' 画像読み込み用ライブラリ FBImage を使う
#include once "FBImage.bi"

#define IMAGEDATA_SIZE 50344
' #define IMAGEDATA_SIZE 297

' 画像バイナリをアセンブラの記述で内包する
Asm

.data
.global imgdata
imgdata:
.incbin "image_png.png"

End Asm

' カレントディレクトリを exeファイルのある場所にする
chdir exepath()

' デスクトップ解像度を指定
Dim As Integer scrw = 512
Dim As Integer scrh = 288

' ウインドウサイズと色深度(bpp)を指定
screenres scrw, scrh, 32

' 画像バイナリのアドレスを取得している？
Dim As Any Ptr image

Asm

push OFFSET imgdata
pop  [image]

End Asm

' メモリ上にある画像データを FBImage で読み込む。ポインタとバイト数を渡す
var img = LoadRGBAMemory(image, IMAGEDATA_SIZE)

' 画像を描画。RGB=(255, 0, 255) のピクセルは透明色として扱う
Put (16, 16), img, TRANS

' キー入力があるまで待ち続ける
sleep

' 画像を使い終わったので破棄
ImageDestroy img

$ gsettings set com.ubuntu.update-notifier show-livepatch-status-icon false

$ sudo snap remove canonical-livepatch
snap "canonical-livepatch" is not installed

$ sudo ubuntu-advantage disable-livepatch -r
usage: ua <command> [flags]
argument : invalid choice: 'disable-livepatch' (choose from 'attach', 'auto-attach', 'collect-logs', 'config', 'detach', 'disable', 'enable', 'fix', 'security-status', 'help', 'refresh', 'status', 'version')

$ sudo ubuntu-advantage disable livepatch
To use 'livepatch' you need an Ubuntu Advantage subscription
Personal and community subscriptions are available at no charge
See https://ubuntu.com/advantage

$ sudo canonical-livepatch disable
sudo: canonical-livepatch: コマンドが見つかりません

$ sudo snap run canonical-livepatch disable
error: cannot find current revision for snap canonical-livepatch: readlink /snap/canonical-livepatch/current: no such file or directory

x86のDebugビルドのみ誤検知が発生し、x86のReleaseビルドやx64のDebug/Releaseビルドでは誤検知されないようです。

sudo aptitude install zerofree

1. Ubuntuの場合、起動時に Shiftキーを押し続けてgrub画面を出す。
2. デフォルト項目上で eキー。
3. linuxを指定してる行で、ro を rw にして、最後に linux single init=/bin/sh をつけて Ctrl + X。

mount -o ro,remount /
zerofree -v /dev/sda1
mount -o rw,remount /

sudo e4defrag -c /
sudo e4defrag -c /dev/sda1

sudo e4defrag /
sudo e4defrag /dev/sda1

• PLEXTOR PX-32TSi (SCSI接続 CD-ROMドライブ)
• LG GCE-8160B (ATAPI接続 CD-R/RWドライブ)
• DVS DSR-600H (ATAPI接続 DVD-ROMドライブ)

本体から放射線方向へ並んだキーの同時入力は検知できないというこのデバイス特有の制限によるものらしく、メーカーのサイトにも「日本語入力切替がVKBからは直接できないため、マウス操作での切り替えとなります。」というつれない一言・・・。

バーチャルキーボード(Virtual Keyboard) より