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

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




SEO対策で外部リンクが欲しくなりました。

SEO対策で外部リンクが欲しくなりました。

GOOGLEの検索で、検索窓に　inurl:regist_ys.cgi?mode=new　を入力して検索すると、検索結果に、
Yomi-Search検索エンジン（を使用したサイト）の登録ページが並びます。

利用規約を読んで、登録できるサイトであれば、次のスクリプトを起動します。
とりあえず、自動で入力しますのよく、確認したうえで、登録ボタンを押します。

コピペより、便利です。


IE=getactiveoleobj("InternetExplorer.Application")

//名前・ハンドルネーム
IESetData(IE,"名前・ハンドルネーム","Fname")　

//メールアドレス
IESetData(IE,"メールアドレス","Femail")

//パスワード
IESetData(IE,"パスワード","Fpass")
//
IESetData(IE,"確認パスワード","Fpass2")

//ホームページアドレス ※http://****.ne.jp http://も入力しておく
IESetData(IE,"ホームページアドレス","Furl")

//タイトルバナーのURL ※表示されるサイズは 横88×縦31(ピクセル) です。
IESetData(IE,"タイトルバナーのURL","Fbana_url")

//ホームページのタイトル
IESetData(IE,"ホームページのタイトル","Ftitle")

//ホームページの紹介文 ※全角100文字以内
IESetData(IE,"ホームページの紹介文","Fsyoukai")

//サイトの関連キーワード　※複数ある場合にはキーワードを半角スペースで区切ってください
IESetData(IE,"キーワード キーワード キーワード キーワード","Fkey")

//管理人へのメッセージ　※全角200文字以内
IESetData(IE,"管理人へのメッセージ","Fto_admin")
//



流石めーるを自動化 - UWSC

流石めーるを自動化
上野メモさんの作ったUWSCスクリプトを見つけました。

ちょっと、手を加えれば他のリードメールにも使えるかも知れません。

---------------------------------------
【“流石めーるを自動化 - UWSC”の続きを読む】
次のページ

FC2Ad

FC2ブログ 転職