まずは、ＵＷＳＣを使って、あし＠にログインするまでのプログラムを作ります。
mail_add="xxxx@xxx.xx" //あし＠のログインするメールアドレスを設定
pass="xxxxx" //あし＠のログインパスワードを設定
//インターネットエクスプローラーを開く
Dim IE = CreateOleObj("InternetExplorer.Application");
IE.visible = TRUE;
//あし＠にアクセス
IE.Navigate("http://www.ashia.to/");
//あし＠が開くまで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4
//あし＠にログインする
IESETDATA( IE,mail_add, "mail_address" )
IESETDATA( IE,pass, "password" )
IESETDATA( IE,1,"","ログイン")
//ログイン後のページが表示されるまで待つ
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4
//あし＠クッキーを発行にする
IE.Navigate("http://www.ashia.to/member/cookie/");
//次の画面が表示されるまで待つ。
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4
//あし＠クッキーを有効にする
IESETDATA( IE, 1, "", "足跡クッキーを発行する" )
//次の画面が表示されるまで待つ。
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4
以上であし＠にログインし、あし＠クッキーが有効になるようになりました。
