ガラホ kyf41にLINEをインストール xapk版

前回KYF41に入れたLINEをそのまま使っていると、強制アップデート画面でが出てきて先に進めなくなった。

そしてAPKPureからLINEをインストールしようとすると、拡張子がapkではなくxapkになっている。

この場合、「ダウンロードXAPK」と一緒に「安全で高速なダウンロード。ApkPureと一緒に」もダウンロードする

後者は、前者のLINE専用のインストーラーになっているので、 後者を起動すればLINEが自動的に更新インストールされる

google homeでラジコが無音のまま

現象

　Google Homeで、放送局を指示しても

　「ラジコから（放送局）をストリーミングします。」と

　言った後、再生されることなく無音

対策

　エリア判定の修正申請フォーム | radiko

　から正しい地域に修正依頼。

　ここに現在の地域も表示されている。私は「静岡県」になっていた。

地域の問題か確認する

　誤った地域（静岡県）の放送局名を言えば再生される

radiko ラジコ google home mini　再生できない

HW02GのSIMロック解除。無料

１．SIMロック解除

HW01Fは自力でSIMロック解除できるがHW02Gは解除コードが分からず、ドコモショップへ3300円払って解除してもらうしかなかった。
それが2023年10月１日より無料になった。
https://www.docomo.ne.jp/support/unlock_simcard/

さっそくドコモショップへ。手続き上は故障修理扱いで、4日程度で無料でSIMロック解除できました。

２．SIMロック解除済の確認方法
１）HW02GをUSBケーブルでPCにつなぐ
２）teraterm等でcomポート接続
３）AT^CARDLOCK?　と打つ
４）^CARDLOCK: 2 xxx　のように2であれば解除済。1なら未解除。

4980円のサロコレのタブレットのルート化を解除

最初からルート化されているため一部のアプリがエラーになる。ルート化を解除する。

1.ルート状態確認

1)GooglePlayストアからimpactor unrootをインストール

2)起動するとルートになっている旨表示される

 

2.ルート解除

1)impactor unrootを起動した画面の右下の［＞］を押す

2)再起動する旨表示されるので先へ進んで再起動させる

3)再起動したらルート解除完了

 

3.確認

1)impactor unrootを起動するとunrootになっている旨表示される

2)起動できなかったアプリが起動できることを確認

4980円のサロコレのタブレットをanydeskで遠隔操作

4980円のサロコレのタブレットをanydeskで遠隔操作

1.anydeskインストール

1)GooglePlayストアからanydeskをインストール。2023.08.15時点でバージョン7.0.0

2)起動するとaospというプラグインが必要みたいな文言がでる

 

2.プラグインaospダウンロード

1)以下のURLのaospリンクをタップ

https://support.anydesk.com/knowledge/android-control-plugins

2)[Download APK]をタップ。有害と表示されるが気にせず[ダウンロードを続行]

　※ダウンロード自体は一瞬で終わる

 

3.プラグインインストール

1)アプリでダウンロードフォルダを開いて、以下のファイルをタップ

adcontrol-aosp.apk

2)提供元不明ブロックの文言が表示されるので[設定]をタップ

3)androidのセキュリティ設定が開くので[提供元不明のアプリ]をタップしてオンにする。

4)警告文言が表示されるので[ok]をタップ

5)ダウンロードフォルダに戻って再度adcontrol-aosp.apkをタップ

6)インストール確認が表示されるので[インストール]をタップ

7)インストール完了が表示されるので[完了]をタップ

 

4.提供元不明のアプリの設定を元に戻す

1)androidの[設定]→[セキュリティ]で[提供元不明のアプリ]をタップして元（オフ）に戻しておく

 

5.anydesk起動

1)anydeskを起動する

2)[Allow Plugin Usage]というプラグイン有効化画面がでるので[次から表示しない]のチェックをオンにして[AGREE]をタップ

3)anydeskを終了して再度起動。メニューの[anydeskについて]をタップ

4)8行目くらいのCopyrightの次の行がPhillip westerとか表示されてればプラグインのインストールと有効化が完了

 

以降は、他のプラグインと同様でOK。

標準のプラグインのようにanydeskのメニューには表示されないが気にしない。

 

 

プラスメッセージ。DualSIMのpovoをeSIM化

oppo reno5aでDualSIM(povo(SIM1通話用)+mvno(SIM2データ通信用))でpovoを物理SIMからeSIMに変更。

povoで使ってたプラスメッセージもeSIMに変更するのがうまく行かないが以下の手順で解決。

1.プラスメッセージのメニューでメッセージバックアップ

2.プラスメッセージをアンインストール

3.物理SIMを２つとも外してpovoのeSIMのみにする

4.プラスメッセージをインストール

5.プラスメッセージのSMS認証を実施

6.プラスメッセージのメニューでメッセージ復元

7.mvnoの物理SIMをSIM1に装着。データ通信用に設定。

ガラホkyf41マウスカーソルオンオフ切替

通話ボタン長押しでマウスカーソル（ポインタ）をオンオフできます

ガラホ kyf41にLINEをインストール

kyf41にLINEをインストールする
１．準備
１）pcにADBツールキットをいれる
２）pcにkyf41のusb adbドライバーをいれる
３）スマホにapk extractorをいれる
４）スマホのファイルマネージャー＋（fm+）pcに転送
５）kyf41の開発者オプション
　①メニュ＃９９ビルド番号クリックして開発者オプションを表示しておく
　②メニュ＃９７開発者向けオプション、開発者向けオプションのチェックオン
　③メニュ＃９７開発者向けオプション、USBデデバッグのチェックオン
６）pcからkyf41へfm+をインストール
　　①pcとkyf41をUSB接続
　　②pcでadb install fm+のapk
７）インストール直後にkyf41で［開く］を押す
８）インストールが完了
９）kyf41のメニュ→５．便利な機能にfm+が表示され、起動もできる

10）LINEのapk準備
　①apk extractorからのapkは✕
　②kyf41でapkpureからLINEのapk（250MBくらい）をダウンロード（またはスマホ落としてBTで転送）

２．LINEのインストール
１）fm+でLINEのapk をクリックしてインストール開始。

２）SMS認証などして完了
３）メニュ→５にはLINEが表示されるが、クリックしても［このアプリケーションはインストールされていません］とでる。ここからは起動できないので気にしない。
４）メニュ→＃９６３６不明なｱﾌﾟﾘのｲﾝｽﾄｰﾙにLINEは表示されないが気にしない。

３．LINEの起動
１）メニュ→＃９７ウイジェット編集でウイジェットとしてLINEの友達やグループをホーム画面に追加。ここからはLINEが起動できる。

２）［終話］ではなく［戻る］で終わらせれば、LINEがバックグラウンドで起動し続けるので通知を受信して、通知音、バイブレーション、サブディスプレイへのメッセージ通知も可能。
３）但し画面を畳むと１分くらいで通知を受信しなくなる

K9メール NXメールで gmailに接続できない（サーバに接続できませんとエラーが表示される）

googleの設定がかわり、K9メールやNXメールからgmailに接続するときにエラーが出るみたいです。
設定変更は「安全性の低いアプリからの接続」を「有効」にすればＯＫ

手順
　１．https://www.google.com/settings/security/lesssecureapps にアクセス
　２．安全性の低いアプリのアクセスを「無効」→「有効」へ更新
　３．K9メールやNXメールのgmailアカウントを設定するとエラーが出ずに設定できます

ドロップしたファイルかフォルダで全てのエクセルをブック印刷

t=t&"ドラッグ＆ドロップでエクセルをブック印刷する　　" & vbNewLine
t=t&"------------------------------------------------" & vbNewLine
t=t&"フォルダ内にあるエクセルをサブフォルダを含めて " & vbNewLine
t=t&"全てブック印刷します。　　　　　　 　　　　　　 " & vbNewLine
t=t&"標準のプリンタに印刷します　　 　　　　　　　　 " & vbNewLine
t=t&"　　　　　　　　　　　　　　　　　　　　　　　　" & vbNewLine
t=t&" 2014/3/10 Ver1.0 　　　 　　　　　　　　　　　 " & vbNewLine
t=t&" 　　　　　　　　　　　　　　　　　　　　　　　 " & vbNewLine

TargetExt="xls"
PQ=300 '印刷品質　プリンタに合わせて変更が必要

'------------------------------
' ファイルの実行
'------------------------------
Sub Execfile(File)
Set xlWb = xlApp.Workbooks.Open(File)
' For Each xlSht in xlWb.WorkSheets
' xlSht.PageSetup.PrintQuality=PQ
' Next
xlWb.Printout,,1 ' １部
xlWb.Close False

End Sub


'---------------------------------------
'プログラム自体はここからスタート
'---------------------------------------
If WScript.Arguments.Count > 0 Then

Set objShell = WScript.CreateObject("WScript.Shell")
If objShell.Popup("３秒後に自動的に実行します",3,WScript.ScriptName,1)<>2 Then

Set xlApp = WScript.CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.ScreenUpdating = False
xlApp.DisplayAlerts = False
' xlApp.Options.UpdateLinksAtOpen = False
Set objFS = CreateObject("Scripting.FileSystemObject")


For Each PathName in WScript.Arguments
Call Main(PathName)
Next
'If pExec.Status=0 Then pExec.Terminate
call objShell.Popup(WScript.ScriptName & vbNewLine & "【実行完了】" & vbNewLine & vbNewLine & "30秒後に自動的に閉じます",30)
' xlApp.Quit
Set xlApp = Nothing
Set objFS = Nothing
Else
call objShell.Popup("実行せずに終了しました" & vbNewLine & vbNewLine & "30秒後に自動的に閉じます",30)
End If

Else
WScript.Echo t
End If

' xlApp.Quit
' Set xlApp = Nothing
' Set objFS = Nothing

WScript.Quit

'---------------------------------------

Sub Main(ByVal objPath)
' Dim objFS,objFolder
Dim objFolder

' Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(objPath) Then
Set objFolder = objFS.GetFolder(objPath)
Call PathAll(objFolder)
ElseIf objFS.FileExists(objPath) Then
Call OneFile(objPath)
End If
' Set objFS = Nothing

End Sub
'------------------------------------------------
' ファイルならファイル処理。フォルダなら再帰処理
'------------------------------------------------
Sub PathAll(ByVal objFolder)
Dim objFile,files
Set files = objFolder.Files
For Each objFile In files
Call OneFile(objFile.Path)
Next
Dim subfolders,objSub
Set subfolders = objFolder.SubFolders
For Each objSub In subfolders
Call PathAll(objSub)
Next
End Sub
'------------------------------------------------
' 指定拡張子のファイルのみを抽出
'------------------------------------------------
Sub OneFile(ByVal file)
ext = objFS.GetExtensionName(file)
If ext = TargetExt Then
Execfile(file)
End If
End Sub

eMachine E732Z-A12Bのメモリ増設を写真付きで説明

メモリを２Ｇから４Ｇに増設
メモリは2G 204Pin DDR3 PC3-10600が刺さっており、１スロット空いているので
同じスペックのメモリ2Gをもう一枚増設する（新品で４千円、中古で1200円程度）

マイコンピュータで確認
変更前（２Ｇ）

変更後（４Ｇ）


リソースモニタで確認
変更前（２Ｇ）

変更後（４Ｇ）


分解する時に外すねじは（２０本＋４本）Ｎｏ２０のねじはシールで保護されている





ねじを外しても２箇所の引っかかる爪がある。折らないように注意。





メモリ増設
全て外した状態

１枚刺さった状態（初期状態：２Ｇ）

２枚刺さった状態（４Ｇ）

フォルダ内にあるＰＤＦをサブフォルダを含めて全て印刷

t=t&"ドロップでＰＤＦを印刷する　　　 　　　　　　　" & vbNewLine
t=t&"-------------------------------------------------" & vbNewLine
t=t&"フォルダ内にあるＰＤＦをサブフォルダを含めて 　 " & vbNewLine
t=t&"全て印刷します。 　　　　　　 " & vbNewLine
t=t&"標準のプリンタに印刷します　　　　　　　　　　　 " & vbNewLine
t=t&"　　　 " & vbNewLine
t=t&" 2009/9/21 Ver1.0 　　　 " & vbNewLine
t=t&" " & vbNewLine
t=t&"※大量に処理すると印刷されないものが出てきます " & vbNewLine
t=t&"　AcrobatReaderV9.1からはこの問題が出ないようです" & vbNewLine

TargetExt = "pdf"


'------------------------------
' ファイルの実行
'------------------------------
Sub Execfile(File)
File=objFS.GetFile(File).Path
Set objExec=objShell.Exec(""""&Path&""" /n /t """&File&"""")
Do While objExec.Status=0
WScript.Sleep 100
Loop
set objExec = Nothing

End Sub


'---------------------------------------
'プログラム自体はここからスタート
'---------------------------------------
If WScript.Arguments.Count > 0 Then

Set objShell = WScript.CreateObject("WScript.Shell")
If objShell.Popup("３秒後に自動的に実行します",3,WScript.ScriptName,1)<>2 Then

' Set xlApp = WScript.CreateObject("Excel.Application")
' xlApp.Visible = False
' xlApp.ScreenUpdating = False
' xlApp.DisplayAlerts = False
' xlApp.Options.UpdateLinksAtOpen = False
Set objFS = CreateObject("Scripting.FileSystemObject")

Path=objShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\acrord32.exe\")
Path=Replace(Path,"""","")
Path=objShell.ExpandEnvironmentStrings(Path)
Set pExec=objShell.Exec(""""&Path&""" /n /h""")
Do While Not objShell.AppActivate(pExec.ProcessID)
WScript.Sleep 100
Loop
WScript.Sleep 4000

For Each PathName in WScript.Arguments
Call Main(PathName)
Next
'If pExec.Status=0 Then pExec.Terminate
call objShell.Popup(WScript.ScriptName & vbNewLine & "【実行完了】" & vbNewLine & vbNewLine & "30秒後に自動的に閉じます",30)
' xlApp.Quit
Set xlApp = Nothing
Set objFS = Nothing
Else
call objShell.Popup("実行せずに終了しました" & vbNewLine & vbNewLine & "30秒後に自動的に閉じます",30)
End If

Else
WScript.Echo t
End If

' xlApp.Quit
' Set xlApp = Nothing
' Set objFS = Nothing

WScript.Quit

'---------------------------------------

Sub Main(ByVal objPath)
' Dim objFS,objFolder
Dim objFolder

' Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(objPath) Then
Set objFolder = objFS.GetFolder(objPath)
Call PathAll(objFolder)
ElseIf objFS.FileExists(objPath) Then
Call OneFile(objPath)
End If
' Set objFS = Nothing

End Sub
'------------------------------------------------
' ファイルならファイル処理。フォルダなら再帰処理
'------------------------------------------------
Sub PathAll(ByVal objFolder)
Dim objFile,files
Set files = objFolder.Files
For Each objFile In files
Call OneFile(objFile.Path)
Next
Dim subfolders,objSub
Set subfolders = objFolder.SubFolders
For Each objSub In subfolders
Call PathAll(objSub)
Next
End Sub
'------------------------------------------------
' 指定拡張子のファイルのみを抽出
'------------------------------------------------
Sub OneFile(ByVal file)
ext = objFS.GetExtensionName(file)
If ext = TargetExt Then
Execfile(file)
End If
End Sub

全シート左上選択（ウインドウ枠固定対応）

tmp = tmp & vbNewLine & "●全シート左上選択 "
tmp = tmp & vbNewLine & "（ウインドウ枠固定対応） "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "　ドロップしたエクセルの "
tmp = tmp & vbNewLine & "　全てのシートの左上を選択状態にします。"
tmp = tmp & vbNewLine & "　ウインドウ枠の固定がされている場合は　"
tmp = tmp & vbNewLine & "　枠の左上隅を選択状態にします。　　　　"
tmp = tmp & vbNewLine & "　その後、最初のシートを選択状態にして "
tmp = tmp & vbNewLine & "　上書き保存します。 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "----------------------------------------"
tmp = tmp & vbNewLine & "操作方法 "
tmp = tmp & vbNewLine & " エクセルファイルをこのVBSに "
tmp = tmp & vbNewLine & " ドラッグ＆ドロップしてください "
tmp = tmp & vbNewLine & " 複数ファイルもドロップ可能 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "出力先 "
tmp = tmp & vbNewLine & " 強制的に上書きします。 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "補足 "
tmp = tmp & vbNewLine & "×実行できません。引数一覧が長すぎます。"
tmp = tmp & vbNewLine & "が表示された場合はドロップしたファイルが"
tmp = tmp & vbNewLine & "多すぎる時です "

If ( WScript.Arguments.Count = 0 ) Then
WScript.Echo tmp
WScript.Quit
End If

Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
If xlApp.ActiveWindow.FreezePanes = False Then
xlSht.Range("A1").Activate
Else
xlSht.Cells(xlApp.ActiveWindow.SplitRow+1,xlApp.ActiveWindow.SplitColumn+1).Activate
End If
Next
xlWb.Worksheets(1).Activate
xlWb.Save
xlWb.Close False
Next
xlApp.Quit
Set xlApp = Nothing
WScript.Echo "実行完了"

ドロップしたエクセルをブック印刷する

tmp = tmp & vbNewLine & "----------------------------------------"
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "●ドロップしたエクセルをブック印刷する "
tmp = tmp & vbNewLine & " 　非表示シート対応版 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "----------------------------------------"
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "操作方法 "
tmp = tmp & vbNewLine & " エクセルファイルをこのVBSに "
tmp = tmp & vbNewLine & " ドラッグ＆ドロップする。 "
tmp = tmp & vbNewLine & " 複数ファイルもドロップ可能 "
tmp = tmp & vbNewLine & " "
tmp = tmp & vbNewLine & "出力先 "
tmp = tmp & vbNewLine & " 標準のプリンタに出力します "
tmp = tmp & vbNewLine & " "

If ( WScript.Arguments.Count = 0 ) Then
WScript.Echo tmp
WScript.Quit
End If

Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlApp.ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,3,,,TRUE,,FALSE)"
xlWb.Close False
Next
xlApp.Quit
Set xlApp = Nothing

全てのシートの表示を100%にする

'----------------------------------------
' xls100perAllSheetA1.vbs
'
'ドロップしたエクセルの
' 全てのシートの表示を100%にする
' その後、最初のシートを選択状態にして
' 上書き保存します。
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ＆ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 強制的に上書きします。
'
Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
xlApp.ActiveWindow.Zoom=100
Next
xlWb.Worksheets(1).Activate
xlWb.Save
Next
xlApp.Quit
Set xlApp = Nothing