ITservice雄飛 プロモーションビデオ

2020年12月22日火曜日

楽天を偽装した詐欺メールを貰ったので晒すよ。

 ITervice雄飛です、おはようございます。

さて今日は!


朝っぱらから、詐欺サイト誘導メールを頂いたので、早速晒しますね。

楽天を装った詐欺サイトでした。


こんな感じ。色々と、著作上怖い感じ(自業自得)。


楽天の画像は、ご丁寧にも本家楽天から引っ張ってきている模様。
他のリンクは、当然ながら張りぼて自リンク。
強調表示の「支払方法を更新する」は、楽天ドメインに似せた、
独自ドメインサイトに繋がっている模様。

ここから、パスワードとクレカ情報を引き抜くんですね、判ります。


スマホで見た時から怪しさ満点でしたが、

パソコンで見るともっと怪しさ満点!

某外国語の自動生成文と思われる文章がびっしりです。  


添付HTMLの中身。やっぱりすごく怪しい。



やっぱり、間抜けですね。
自動生成文が、怪しい味を醸し出してますね。

うん、やっぱり犯罪は良くないよね。


2020年12月13日日曜日

VBAのComobjにて、「Rangeクラスの.Selectメソッドが失敗しました」で、少し悩んだ話

こんばんは、ITsiervice雄飛です。

今回は、久々にプログラミングの話題を。


LazarusとVBA(Excel)の話題になります。


ComObjから、ワークブックを呼び出し、シートを操作します。

そして、セレクトするんですが。


大雑把に記すと、下記の様な構文でエラーが。

WorkBook.WorkSheets[SheetNo].Select


ある、特定の条件下に於いて、「.Select」でエラーが発生します。

「Rangeクラスの.Selectメソッドが失敗しました」

と出ます。

エラーメッセージ

下記の青線がエラー箇所



自作ライブラリのバグなのか、ExcelのComobjのエラーなのか??

原因は判りませんでしたが。
下記で解決。

  Cells  :=  setWorkSheet.Cells[row,col];
  setLine := Cells.Borders[isBorder];

Cells変数にCellの座標を直に入れて、それを呼び出します。
(要はセレクトを辞める)。

無事、動きました。

めでたしめでたし。