オートクリックを目指して

UWSCで作ったスクリプトでどこまで、オートにできるか、検証するサイトです。

スポンサーサイト

上記の広告は１ヶ月以上更新のないブログに表示されています。新しい記事を書く事で広告が消せます。

繁盛めーるでもできました。

繁盛めーるでもできました。

友人からTELがありました。

認証画像保存で画像認証をクリアする。私は、「KING OF READMAIL」で試してみましたが
友人は、「繁盛めーる」でもできたそうです。

それに画像保存でクリアできる、できないは、すぐに判断できるようです。

つまり、認証画像が「２１２１」、「３４３４」など場合左画像と右画像が同じ画像を使用しているサイトは､画像保存でクリアできるようです。

友人は､「繁盛めーる」の画像保存に一時間かからなかったそうです。
それに、「KING OF READMAIL」と比べて、「繁盛めーる」は画像認証が２、３度現れる事があるそうですので、かなり便利になったそうです。

「繁盛めーる」の会員の方は､一度お試しください。但し、アカウント停止になっても、なんら責任は、負いません。各自の判断でどうぞ。

KING OF READMAIL 画像認証

KING OF READMAIL 認証画像保存

KING OF READMAIL画像認証クリア致しました。ところが、他のサイトでは、できません。
いったいいくつの画像が保存されているのでしょうか。ちなみに某サイトでは、896の画像をほぞんしても、一致する画像がでませんでした。9900の画像があるのでしょうか。
inbox-URLを変更すれば、他のサイトでも応用できると思います。お暇な方は、チャレンジして下さい。

//king of Mailオープン//
public IE
public IE2
public se
public s
public ke[4]

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true
IE.navigate("http://kingmail.jp/pages/inbox.php")

BusyWait(ie)

//受信箱　Open//

inbox()

exitexit

PROCEDURE inbox()

While True
for s = 0 to (IE.Document.links.length- 1)
ifb pos("runner.php?IM=", IE.document.links[s].href) > 0
IE2 = CREATEOLEOBJ("InternetExplorer.Application")
IE2.visible = true
IE2.navigate(IE.document.links[s].href)
msg_open()
endif
next
Wend
FEND

//メール読み取り

Procedure msg_open()
BusyWait(ie)
While True
sleep(0.2)
COM_ERR_IGN　　//COMエラー無視
if IE2.document.title="Message" then BREAK
COM_ERR_RET　　//エラー処理復帰
Wend

for ss=0 to IE2.Document.links.length-1
　 ifb pos("runner.php?EA=", IE2.document.links[ss].href) > 0
　　IE2.navigate(IE2.document.links[ss].href)
　　　timer()
IE2.Quit
break
　 endif
next

FEND

//time判定

Procedure timer()
BusyWait(ie)
sleep(1)
kn=0
sleep(1)

//認証数字の左２文字を配列に入れます。

for ss=0 to IE2.Document.links.length-1
　ifb pos("runner.php?KE=", IE2.document.links[ss].href) > 0
ke[kn]　=COPY(IE2.document.links[ss].innerText,2,2)
// msgbox(ke[kn])
kn=kn+1
　endif
next
//

//認証数字の画像を検索します。

for i=0 to 4
// 認証数字のファイル名をワイルドカードで抽出

ge=GETDIR("D:\uwsc41a\Readmail\img\king",ke[i]+"-?.bmp")

// 認証数字のファイル名がある場合画像照合する。

ifb ge<>0 then
　for a=1 to ge
//fukidasi(ke[i]+"-"+a)
　ifb CHKIMG("D:\uwsc41a\Readmail\img\king\"+ke[i]+"-"+a+".bmp")=TRUE then
//　msgbox("hit "+ke[i]+"-"+a)
// CTRLWIN(GETID(GET_ACTIVE_WIN), CLOSE)
　exit
　endif
　next
　endif
next

// 認証数字のファイル名がない場合画像登録する。

　f　=　input("認証画像左側の数字を入力します")

ge=GETDIR("D:\uwsc41a\Readmail\img\king",f+"-?.bmp")
fukidasi(ge)
//
sleep(0.5)

//お使いのブラウザの設定により、ofx　ofy は、適宜変更して下さい。

　id=GETID(GET_FROMPOINT_WIN)
　　ofx = 400 - STATUS(id, ST_CLX)
　　ofy = 260 - STATUS(id, ST_CLY)

//　画像の保存場所は、適宜設定して下さい。

　SAVEIMG("D:\uwsc41a\Readmail\img\king\"+f+"-"+(ge+1),GETID(GET_FROMPOINT_WIN),ofx,ofy,110,110,0)
　　sleep(1)
FEND

//
Procedure BusyWait(ie)
repeat
Sleep(0.5)
until (! ie.busy) and (ie.readyState=4)
Fend

リードメールクリック

リードメールクリック
配信量の多いサイトを一つのスクリプトに組み込んでみました。

※　ログインエラーが、出る場合は､手動でログインしておきます。

※　INBOX-URL,PTC-URLは、それぞれのサイトのURLを書き込みます。
※　閲覧済み、規定のクリック、などのメッセージは、サイトに合わせます。
※　認証なし、サイトに対応しています。
※　本当は､並列処理を実現したいのですが。

-----------------------------------------------------------

public IE
public IE2
public se
public s
public c
public a

public x[2][6]=_
"ID","Pass","INBOX-URL","閲覧済みで","規定のクリック数","PTC-URL","ペイドクリック広告がございません。",_
"ID","Pass","INBOX-URL","コチラ","この広告は規定のクリック数に達しています。","PTC-URL","申し訳ございません",_
"ID","Pass","INBOX-URL","報酬を受けずに","報酬を受けずに","PTC-URL","現在閲覧できる広告はありません"

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true

for a=0 to 2
IE.navigate(x[a][2])

BusyWait(ie)

//ID 書き込み//

se=IE.document.body.innertext
ifb POS("会員ID",se)>0 then
IE.document.forms[0].elements[1].value = x[a][0]
IE.document.forms[0].elements[2].value = x[a][1]
IE.document.forms[0].elements[5].click()
endif
//exitexit
BusyWait(ie)
sleep(2)
//受信箱　Open//
inbox()
ptc()
next
CTRLWIN(GETID(GET_ACTIVE_WIN), CLOSE)
exitexit

//
//

PROCEDURE inbox()
BusyWait(ie)
sleep(1)
c=0
for s = 0 to (IE.Document.links.length- 1)
ifb pos("runner.php?IM=", IE.document.links[s].href) > 0
c=c+1
　IE.document.forms[0].elements[c+2].click()
sleep(2)
//IELINK(IE,IE.document.links[s].href)
IE2 = CREATEOLEOBJ("InternetExplorer.Application")
IE2.visible = true
IE2.navigate(IE.document.links[s].href)
msg_open()
endif
next
if c<>0 then IE.document.forms[0].elements[2].click()
sleep(2)
FEND

//メール読み取り
Procedure msg_open()
BusyWait(ie)
sleep(4)
//IE2 = GETACTIVEOLEOBJ("InternetExplorer.Application","Message")
for ss=0 to IE2.Document.links.length-1
　ifb pos("runner.php?EA=", IE2.document.links[ss].href) > 0
　　IE2.navigate(IE2.document.links[ss].href)
　　　timer()
CTRLWIN(GETID(GET_ACTIVE_WIN), CLOSE)
break
　endif
next
FEND

//time判定
Procedure timer()
BusyWait(ie)
sleep(5)
se=IE2.document.body.innertext
if POS(x[a][3],　se)>0 then exit
if POS(x[a][4],　se)>0 then exit

COM_ERR_IGN　　//COMエラー無視
Fr=IE2.Document.Frames("timerfrm")
COM_ERR_RET　　//エラー処理復帰
COM_ERR_IGN　　//COMエラー無視
se=Fr.document.body.innertext
COM_ERR_RET　　//エラー処理復帰

While True
COM_ERR_IGN　　//COMエラー無視
se=Fr.document.body.innertext
COM_ERR_RET　　//エラー処理復帰
////msgbox(COPY(se,pos("point",se)+5,4))
if POS("加算されました",se)<>0 then BREAK
sleep(1)
Wend

FEND

PROCEDURE ptc()
While True
IE.navigate(x[a][5])
BusyWait(ie)
se=IE.document.body.innertext
if POS("申し訳ございません",se)<>0 then BREAK
for s = 0 to (IE.Document.links.length- 1)
ifb pos("runner.php?PA=", IE.document.links[s].href) > 0
IE2 = CREATEOLEOBJ("InternetExplorer.Application")
IE2.visible = true
IE2.navigate(IE.document.links[s].href)
timer()
CTRLWIN(GETID(GET_ACTIVE_WIN), CLOSE)
break
endif
next
Wend
FEND
//
Procedure BusyWait(ie)
repeat
Sleep(0.5)
until (! ie.busy) and (ie.readyState=4)
Fend




Office2000とOffice2003のマクロ

Office2000とOffice2003のマクロ

Office2000とOffice2003のマクロは、違う？。そんな事はないと思うのですが。

前回のマクロ。エクセルからGooglemapを呼び出すスクリプトですが、友人のPCでは動作しないとの事。

さて、原因は。　

�　�GooglemapのURLでIEを開く。
�◆仝〆�窓に住所を書き込む。
��　検索ボタンを押す。
が、マクロの流れです。

�，蓮�動作しているようです。
�△�ら��が、動作していません。

�，鉢△隆屬�sleepを入れる。それと、IE.Busyが機能していないのかも知れません。

とりあえず、それで確認してみます。







エクセルの住所録から、Google map を呼び出す

エクセルの住所録から、Google map を呼び出すスクリプトです。
既存の住所録にマクロを組み込みました。

-------------------------------------------

　　r = Target.Row
c=3
If Cells(r, c) <> "" And Target.Column = c Then

Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate ("http://maps.google.co.jp/maps?hl=ja&tab=wl")

Do While IE.Busy = True
DoEvents
Sleep (100)
Loop

IE.Document.forms(0).elements(3).Value = Cells(r, c)
IE.Document.forms(0).elements(5).Click

End If
-------------------------------------------------------

　Worksheet_SelectionChangeイベントにマクロスクリプトを書く。
c=3 これは、住所録のシートの住所がカラム3にある為で、
　住所録に合わせて変更する必要があります。
これで、住所録の住所のセルをクリックすると、Google map に住所の地図が表示される筈です。
　併せて、アパート名や部屋番号が、同じセルに記載されている場合は正常に動作しません。

　Worksheet_SelectionChangeイベントは、厄介なイベントです。色々制御を加えませんと
　思わぬ場合にマクロが動きだします。


次のページ

FC2Ad

FC2ブログ 転職