輸入ビジネスできっと役立つ自動化ツール・Windowsマクロ「UWSC」のお話

最近のお話。ブログの読者様より「VBAを使っていて、ブログを参考にした」という感想をいただきました。ありがとうございます。

実はブログの中ではVBAの利用はおすすめしないことを書いていた記憶があります。

2024.03.15

輸入ビジネスで効率を上げるためにエクセルマクロを使っている人をよく見かけます。たとえばリサーチに使うエクセルだったり、売上管理のエクセルだったり。わたしは本業がシステムエンジニアですのでもちろんエクセルマクロも扱えます。実はエクセルマクロの資格も持っています。エクセルマクロの資格はVBAエキスパートという名前の資格になるのですが、これはプログラミングとエクセルが扱えればまぁ誰でも取れるような資格ではあります。むかしはよくエクセルマクロを使っていたのですが、最近ではほとんど使いません。それはなぜか...

輸入ビジネスで使うとしたらVBAのIE OLE(IE(Internet Explorer)の遠隔操作)とか、良いかもしれません。

自作ツールと輸入ビジネス

2023.10.17

AmazonとかをWebスクレイピング・クローリングするプログラムの作成方法と注意点

https://amznlog.com/amazon-web-scraping

Amazonで物販をしていると、いろんなwebサイトからデータを取得したいということがあります。たとえば商品の情報・データとか。 Amazonなら価格や出品者数モノレートならランキング変動回数など。Amazonであれば、MWS APIやPA-APIといった、AmazonのAPIを利用することで効率よく、かつ、webサイトの正面玄関から堂々とデータを取得することができます。しかし、AmazonのAPIだけでは取得できないデータもたくさんあります。たとえばセラーIDをもとにした扱っている商品の一覧など。そういった場合にはAPIを使うのではなく、webスクレ...

いずれにせよ、今回気付かされたことは、

VBAが使える人がいるのか…！

ということでした。VBAが使えるならば、おそらくUWSCがとても役に立つのではないだろうか、ということで、ちょっと紹介してみたいと思います。

UWSCとは？

UWSCとは何者なのか？UWSCとは、一言で表現すると「Windowsマクロ」です。ちなみにVBAがエクセルマクロです。

使用している言語はVBAと同じで「VB」です。厳密にはVBではなく、「VBライク」です。(VBに似ている、という意味)

ゆえに、VBAが使える人であればUWSCを使えると言えます。若干の違いがあって混乱させられますが。

…なんで同じにしなかったん…？

と思わず突っ込みたくなるような仕様です。

このように書くと、

なんだ、プログラミングができなければ使えないのか…

と思ってしまうかもしれませんが、ちょっと待ってください。UWSCにはマウスやキーボードを記録する機能があり、プログラミングができなくてもある程度利用可能な作りになっています。

UWSCでできること

UWSCでできることは何かというと、

繰り返しのマウス操作
繰り返しのキーボード操作

などを自動化することができます。

たとえばこんな例。

Kindleの書籍、外出先でダウンロードができなくて見たい時に見れなかった。全ページをキャプチャしてzipで持ち運びたいなぁ。

ホントはそんなことはしてはいけませんが、あくまでも例です。Kindleの書籍をファイルとしてダウンロードする中華製の怪しいアプリもありますし。

上記作業の場合、下記の作業をすることになります。

Windows版のKindleを起動
書籍をダウンロード
書籍を開く
スクリーンショットを撮る
画像に名前をつける
次のページに進む
手順4～6をページ数分繰り返す

これを人の手でやるとしたらどれだけの時間がかかるでしょう？それを何冊やるのでしょう？特に手順４～7は機械的な作業で自動化したくなってきます。

こんな時、UWSCを使えば楽勝で自動化できます。これがWindowsマクロ、Windowsを使う作業を自動化・効率化できるというものです。

UWSCの使い方

さっそくですが、上記の手順４～7の作業をUWSCのプログラムにすると下記になります。

Dim kid
Dim i
Dim str
Dim str2
Dim filePath
Dim numOfPages
Dim ret
Dim x
Dim y
Dim width
Dim height

ret = FALSE

str = INPUT( "ページ数を入力してください。" )
numOfPages = VAL( str )

filePath = INPUT( "保存先のファイルパスを入力してください。" )

while GETKEYSTATE( VK_LBUTTON )
	sleep(0.1)
wend

FUKIDASI( "書籍の左上端をクリックしてください。" )
while !GETKEYSTATE( VK_LBUTTON )
	sleep(0.1)
wend
x   = G_MOUSE_X
y   = G_MOUSE_Y
ret = FALSE
FUKIDASI( "" )
while GETKEYSTATE( VK_LBUTTON )
	sleep(0.1)
wend

kid = GETID( "xxxx" ) //怒られそうなのでここだけ伏せます
ACW( kid )

FUKIDASI( "書籍の右下端をクリックしてください。" )
while !GETKEYSTATE( VK_LBUTTON )
	sleep(0.1)
wend
width  = G_MOUSE_X - x
height = G_MOUSE_Y - y
ret    = FALSE
FUKIDASI( "" )

Sleep(1)
MSGBOX( "OKボタン押下後、処理を開始します。完了までPC操作しないようお願いします。", BTN_OK )
Sleep(3)

ACW( kid )
For i = 0 to numOfPages step 1
	str2 = FORMAT(i, 4)
	str2 = REPLACE( str2, " ", "0" )
	SAVEIMG( filePath + "\" + str2, kid, x, y, width, height, 0, 100 )
	KBD( VK_DOWN )
	sleep(0.3)
Next

MSGBOX( "処理完了！！", BTN_OK )

キャプチャする書籍のページ数を入力、保存先を指定し、キャプチャする範囲を指定すると、あとは自動で作業してくれます。

何時間、何十時間もかかっていた作業が自動になりますし、このプログラムを書くのに30分程度しかかかってないです。

このようにWindowsマクロを自由に扱えるようになってしまうと、Kindle Unlimitedで無料の書籍をダウンロードしてファイル形式で保管しまくることができてしまうので決して悪用しないようにしましょう。

VBの扱い方がある程度わかっていれば、あとはUWSCの取説とにらめっこすれば間違いなく扱えるようになるはずです。

上記のようなプログラムを使うケース以外にも、マウス・キーボード操作を記録するモードもあります。

プログラム知識がなくても利用可能なので、一度お試しで使ってみてご自身の作業内容に活用できそうか確認してみると良いでしょう。

あるいは、こんなことができるのかということがわかれば、作業の自動化を外注にUWSCでプログラムを作ってもらうこともできます。

他にも、楽天ツールバーで毎日自動で30回検索してポイントをゲットするプログラム、なんてのも作れます。もちろんやってはいけませんが。