Beログイン仕様変更に対応

diff --git a/Belib.pas b/Belib.pas
index 86bfdd7..91cb717 100644 (file)
--- a/Belib.pas
+++ b/Belib.pas
@@ -201,7 +201,7 @@ begin
                        if not Assigned(hRequest) then
                                MakeError(FSession, GetLastError())
                        else begin
-                               UserInfo := Format('m=%s&p=%s&submit=%s', [HttpEncode(ID), HttpEncode(Pass), HttpEncode(SJIStoEUC('\93o\98^'))]);
+                               UserInfo := Format('m=%s&p=%s&submit=%s', [HttpEncode(ID), HttpEncode(Pass), HttpEncode(SJIStoEUC('\83\8d\83O\83C\83\93'))]);
                 Header := 'Content-Type: application/x-www-form-urlencoded'#13#10;
                                UserAgent := Format('%s %s', [BELIB_2CH_UA, ClientUA]) + #13#10;
                 Header := Header + UserAgent;

diff --git a/gikoNavi.res b/gikoNavi.res
index 9b88ec1..cfd1116 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ