UWSCで基本認証をクリアしたいのですが

質問

基本認証画面でIDとパスワードを聞かれます。
ログイン済みだと聞かれません。

ログイン済みかどうか、ログイン未ならIDと
パスワードを入力する、というのはどういう風に
書けばいいのでしょうか？

よろしくお願いします。

UWSC proです。

回答No.1

mindatg

>基本認証画面
何の？
ID・パスワード入力画面のタイトルを使って適当な例だけ

strId = "ログイン用ID"
strPass = "ログイン用Pass"
bLogined = 0
iWndId = GETID("タイトル",,何秒待つか)

ifb iWndId > -1 then
// ログインしていないのでログイン処理
　bLogined = fncLogin(iWndId)
else
　bLogined = TRUE
endif

ifb bLogined = TRUE then
　// ログインしてる時の処理
endif

////
function fncLogin(wId,Id,Pass)
try
　// 以下省略しているがGETITEMでEDITBOXの番号出して指定した方が良い。
　SENDSTR(wId,Id,1,TRUE)　　// 詳しくはヘルプ読め
　SENDSTR(wId,Pass,2,TRUE)

　// ENTERを押下
　KBD(VK_RETURN)　　// Enterキーでできないならマウスクリックを座標指
定で行うとか、モーニックの操作を再現させるとかで。

　// ログインが出来ている事のチェック
　// 例として入力画面が消えている前提
　ifb GETID("タイトル") = -1 then
　　RESULT = TRUE
　else
　　RESULT = FALSE
　end if
EXCEPT
　// 何かエラー
　RESULT = FALSE
　MSGBOX TRY_ERRMSG
ENDTRY
fend