よろずやネット

最近はLibreofficeにハマっています。

ベストな無料ウェブホスティングサービス

#ネットサービス

1年以上にわたり試験的に各種無料ウェブホスティングサービスを比較検討してまいりました。ベストと感じる無料ウェブホスティングを下記の通りご報告いたします。

 

▶下記を条件として評価しました。
1. 無広告
2. 安定的なサーバー稼働
3. PHP, MySQLのサポート

 

▶ベストだと思われる無料ウェブホスティングサービス。
https://www.infinityfree.com/

・容量5GB
・帯域幅無制限
・cPanel
・ドメイン無制限
・独自ドメイン対応
・サブドメインは下記の39個から選択
42web.io
ct.ws
free.nf
fwh.is
gamer.gd
great-site.net
gt.tc
infinityfree.me
infinityfreeapp.com
infy.uk
kesug.com
lovestoblog.com
page.gd
rf.gd
wuaze.com
xo.je
10001mb.com
22web.org
2kool4u.net
66ghz.com
a0001.net
fanclub.rocks
fast-page.org
html-5.me
iblogger.org
is-best.net
is-great.net
is-great.org
likesyou.org
loveslife.biz
my-board.org
my-style.in
mydiscussion.net
nichesite.org
social-networking.me
synergize.co
talk4fun.net
totalh.net
web1337.net

 

▶備考
infinityfreeは個人が趣味で2011年から始めた無料ウェブホスティングサービスの発展版です。
https://forum.infinityfree.com/t/when-was-infinityfree-founded-created/24965/3

 

▶障害情報
2025-08-26よりブラウザ版のファイルマネージャーではファイルのアップロードができなくなっていますが、FileZilla等のFTPクライアントで対応可能です。
https://forum.infinityfree.com/t/degredation-file-manager-upload-issues-2025-08-26/115178

 

▶infinityfreeホスティングのデモ

↓ 私のコンタクト詳細 (infinityfreeホスティングのサンプルページ)

https://pd.rf.gd/

 

 

 

LibreOffice Calc、印刷時のヘッダー・フッターを設定する

Libreoffice Openoffice Macro BASIC

下記サンプルでは、ヘッダー左側に「いろは商店」という架空商店の名前と電話番号、ヘッダー右側にページ番号とページ総数を挿入する。

Option Explicit

Global Const fontName As String = "Tahoma"
Global Const fontSize As Single = 9
Global Const fontName2 As String = "Times New Roman"
Global Const fontSize2 As Single = 9

Sub setHeaderFooter

	Dim oDoc As Object: oDoc = ThisComponent
	Dim oSheetStyle As Object
	oSheetStyle = oDoc.StyleFamilies.getByName("PageStyles").getByName("Default")	

	' Header Height ヘッダー高さ, ヘッダー間隔を含む　1/100mm
	oSheetStyle.HeaderHeight = 900

	' Header Spacing ヘッダー間隔、ヘッダーとコンテンツの間隔　1/100mm
	oSheetStyle.HeaderBodyDistance = 50

	' Disable Autofit Height, 高さ自動調整オフ
	oSheetStyle.HeaderDynamic= False

	Dim oFooter As Object
	Dim oHeader As Object

	' ----- clear Footer
	oFooter = oSheetStyle.RightPageFooterContent
	oFooter.RightText.String = ""
	oFooter.CenterText.String = ""
	oFooter.LeftText.String = ""

	' ----- clear Header
	oHeader = oSheetStyle.RightPageHeaderContent
	oHeader.RightText.String = ""
	oHeader.CenterText.String = ""
	oHeader.LeftText.String = ""

	' ----- get TextField
	Dim oPageNumber As Object
	oPageNumber = oDoc.createInstance("com.sun.star.text.TextField.PageNumber")

	Dim oPageCount As Object
	oPageCount = oDoc.createInstance ("com.sun.star.text.TextField.PageCount")

	' ----- get TextCursor
	Dim oTextCursor As Object

	' ----- Header Right
	oTextCursor = oHeader.RightText.createTextCursor

	oTextCursor.gotoEnd (False)
	oTextCursor.setPropertyValue("CharFontName", "Tahoma")
	oTextCursor.setPropertyValue("CharHeight", 8)
	oTextCursor.gotoEnd (False)
	oTextCursor.String = "Page "

	oTextCursor.gotoEnd (False)
	oHeader.RightText.insertTextContent (oTextCursor, oPageNumber, True)
	oTextCursor.gotoEnd (False)
	oTextCursor.String = "/"
	oTextCursor.gotoEnd (False)
	oHeader.RightText.insertTextContent(oTextCursor, oPageCount, True)

	' ----- Header Left
	oTextCursor = oHeader.LeftText.createTextCursor

	oTextCursor.gotoEnd (False)
	oTextCursor.setPropertyValue("CharFontName", "Tahoma")
	oTextCursor.setPropertyValue("CharHeight", 8)
	oTextCursor.gotoEnd (False)
	oTextCursor.String = "いろは商店" & Chr(10) & "電話番号: "

	oTextCursor.gotoEnd (False)
	oTextCursor.setPropertyValue("CharFontName", "Tahoma")
	oTextCursor.setPropertyValue("CharHeight", 10)
	oTextCursor.setPropertyValue("CharWeight", com.sun.star.awt.FontWeight.BOLD)

	oTextCursor.gotoEnd (False)
	oTextCursor.String = "555-0100"

	' ----- Style 適用
	oSheetStyle.RightPageFooterContent = oFooter
	oSheetStyle.RightPageHeaderContent = oHeader

End Sub

Freenomの無料ドメイン dot tk (.tk) の復旧

#ネットサービス

2024年2月第1週～第2週に無料.tkドメインが一斉に未解決(Pending)になりました。
ドメインをウェブサイトのみで運用(Aレコードのみで運用)しているのであれば、Freenom以外の新規ドメインを取得する事で問題は解決するのでしょうが、メール等で運用しているのであれば、MX、TXT(SPF, DKIM, DMARC)、PTR等の変更があり、とても面倒です。

そこでFreenomのサポートにメールを送って「なんとかしてほしい」とお願いしたところ、なんとかしてくれましたのでとても嬉しく思いました。
Freenomのサポートチーム、ありがとう。



▶依頼メール(英語) ------ 2024/02/11
宛先: info@freenom.com
メールタイトル: Pending domains, aaaaa.tk, bbbbb.tk, ccccc.tk, ..
メール本文:
Dear customer service team,

The status of my domains below under controlled by Freenom are now "Pending".
aaaaa.tk
bbbbb.tk
ccccc.tk
...
(↑Pendingドメインを羅列、a, b, cは伏字)

  • The old one has been in use for 10 years since 2014.

These domains are used for websites and emails, and I am in great trouble.
Could you please resolve them somehow?

Thanks a lot in advance.

With appreciation,



▶回答メール(英語) ------ 2024/02/13
メールタイトル: Apologies for the inconvenience. Your domains are working again.
メール本文:
Dear registrant,

We have changed the PENDING status of your domains to AUTHORIZED.

To ensure that this doesn't happen again we have registered the
domains as 'Paid Domains' in our systems. Rest assured, you don't
need to pay anything, they are 'paid for' for the next 9 years.

和訳:
このようなことが二度と起こらないように、ドメインを「有料ドメイン」としてシステムに登録しました。
ご安心ください。何も支払う必要はありません。今後9年間は「有料支払済みドメイン」として扱います。

Thank you for using Freenom.
Kind regards,

Freenom Support

          • -

Hydraxビデオサーバーから動画ファイル(mp4)をダウンロードする

#ネットサービス mp4

広告が非常に煩わしい動画サイト
https://mrworldpremiere.pro/
の動画は通常の方法ではダウンロードできませんが、
動画ソースがhydraxの場合には、以下の方法でダウンロードできます。


１．見たい動画のトップページを開き、エピソード番号を選択してページを開く



２．上記のページのHTMLソースコードを開く



３．Hydrax動画ソースを探しbitbyte.cloudの動画ダウンロードURLを作成する
＜button onclick="change_video(this)"　のタグ内のhydraxのリンクを探す
hydrax動画リンクの[ビデオID]を引用してbitbyte.cloudのURLを作成する

例:
https://hydrax.net/watch?v=123456789
↓
https://bitbyte.cloud/import/abyss/123456789

HydraxのURLの書式:
https://hydrax.net/watch?v=[ビデオID]
https://playhydrax.com/?v=[ビデオID]
↓
bitbyte.cloudのURLの書式:
https://bitbyte.cloud/import/abyss/[VIDEO_ID]



４．上記で作成したURLをブラウザで開く
手持ちのgoogleアカウントでログインするとラク


５．右下の「Skip and Continue」ボタンを押す


６．ダウンロードを開始する


引用:
https://gist.github.com/hiroshil/f15f6e1b1ef3141f06cfa1db09423ac2

freenom.comの新規ドメイン登録が無効になっている理由

#ネットサービス

tkドメインで有名な無料ドメインレジストラfreenom.com(本部はオランダ)の新規ドメインの登録は、2022年後半より無効になっています。

 

フェイスブック等を運営しているMeta社(会長・創業者：ザッカーバーグ)が、freenomの登録ドメインが詐欺サイトに利用されている率が高くインターネット犯罪の温床になっていると提訴した事が背景にあるようです。

 

訴状(英語):

https://krebsonsecurity.com/wp-content/uploads/2023/03/Freenom-First-Amended-Complaint-3March2023.pdf

https://i.imgur.com/bVsSrDH.png

 

参考:

freenomのドメイン

国別コードトップレベルドメイン(ccTLD)のtk, cf, ga, gq, ml の5つ

 

2020～2021の調査:
────────────────────────────
ドメイン        登録数    詐欺サイト    比率％
                                     累積数
────────────────────────────
com        151,618,533      260,636       0.17
tk              19,987,952        40,002       0.20
────────────────────────────

https://i.imgur.com/j9UsN2w.png

 

統計的には、他のドメインと比較してtkドメインが悪用されている比率は特に高くありません。

 

無料ドメイン愛好者からは、

- インターネット事業の独立性を侵害する提訴だ。

- なぜMetaが犯罪者自身を告訴するのではなく、ドメイン登録業者を告訴するのか理解できません。freenomは単なるレジストラです。

等々freenomを擁護する声が多数あがっています。

 

 

VLCを利用してMP4（動画）にSRT（字幕）を焼き込む（追加する）WindowsのBAT（バッチ）ファイル

#ソフトウェア Windows mp4 srt vlc bat 動画 字幕

このバッチファイルはすばらしい！
（動画サイトの投稿に便利そうです）

　　　　　

o6asanさん
https://o6asan.com/blog-j/author/o6asan/


Windows 上で VLC を使って MP4 に SRT を焼き込むための bat ファイル。↓


o6asan.com

LibreOffice、自身のファイル情報を取得する。

Libreoffice Openoffice Macro BASIC

LibreOffice、自身のファイル情報を取得するマクロです。
Sub SelfFileDirName

下記を取得します。
１．自身のファイル名
２．自身のファイルパス
３．自身のディレクトリ


Sub SelfFileDirName

	Dim oUrl As String
	Dim FileName As String
	Dim FilePath As String
	Dim FileDir As String

	oUrl = ThisComponent.getURL
	
'	自身のファイル名
	FileName = Dir(oUrl,0)
	MsgBox(FileName)

'	自身のファイルパス
	FilePath = ConvertFromUrl(oUrl)
	MsgBox(FilePath)

'	自身のディレクトリ
	FileDir = Replace(FilePath, FileName, "")
	MsgBox(FileDir)

End Sub 'SelfFileDirName

LibreOffice Calc、用紙の余白を設定する

Libreoffice Openoffice Macro BASIC

印刷ジョブの基本、用紙の余白を設定するマクロです。
Sub SetPageMargin

Option Explicit

Sub SetPageMargin

	Dim oSheetStyle As Object
	oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default")
	
	With oSheetStyle
		' 100 = 1mm
		.BottomMargin = 1000 
		.LeftMargin   = 1000
		.RightMargin  = 1000
		.TopMargin    = 1000
	End With
	
	oSheetStyle = Nothing
	
End Sub 'SetPageMargin

LibreOffice Calc、用紙の向き（縦長、横長）を設定する

Libreoffice Openoffice Macro BASIC

印刷ジョブの基本、用紙の向きを設定するマクロです。
Sub SetPageOrientation

Sub SetPageOrientation
'	列挙型(enumeration type)を使用 'Enum PaperOrientation
'	https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1view.html
	Dim oOptions(0) As New com.sun.star.beans.PropertyValue
	Dim oSheetStyle As Object
	oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default") 

	oOptions(0).Name = "PaperOrientation"
	oOptions(0).Value = com.sun.star.view.PaperOrientation.PORTRAIT '  LANDSCAPE
	
	ThisComponent.Printer = oOptions()
	
	oSheetStyle = Nothing
	Erase oOptions()
	
End Sub

LibreOffice Calc、用紙サイズを設定する

Libreoffice Openoffice Macro BASIC

印刷ジョブの基本、用紙サイズを設定するマクロです。
サンプルは下記の２種類。

1. Sub SetPageSize (用紙の実寸値を使用する方法)
2. Sub SetPageSize2 (列挙型(Enum)を使用する方法)

Sub SetPageSize
'	実寸を使用
	Dim oSheetStyle As Object
	oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default")
'	100 = 1mm, 1mm=100, A4: 210mm x 297mm
	oSheetStyle.Width = 21000 
	oSheetStyle.Height = 29700
End Sub

Sub SetPageSize2
'	列挙型(Enumeration Type)を使用
'	https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1view.html
	Dim oOptions(0) As New com.sun.star.beans.PropertyValue

	oOptions(0).Name = "PaperFormat"
	oOptions(0).Value = com.sun.star.view.PaperFormat.A4
	ThisComponent.Printer = oOptions()
End Sub