76 lines
1.6 KiB
Text
76 lines
1.6 KiB
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
PUBLIC SUB ChkProxy_Click()
|
||
|
|
|
||
|
|
|
||
|
|
IF ChkProxy.Value = TRUE THEN
|
||
|
|
TxtProxy.Enabled = TRUE
|
||
|
|
LblAuth.Enabled = TRUE
|
||
|
|
LblProxyUser.Enabled = TRUE
|
||
|
|
TxtProxyUser.Enabled = TRUE
|
||
|
|
LblProxyPassword.Enabled = TRUE
|
||
|
|
TxtProxyPassword.Enabled = TRUE
|
||
|
|
CmbProxyAuth.Enabled = TRUE
|
||
|
|
ELSE
|
||
|
|
TxtProxy.Enabled = FALSE
|
||
|
|
LblAuth.Enabled = FALSE
|
||
|
|
LblProxyUser.Enabled = FALSE
|
||
|
|
TxtProxyUser.Enabled = FALSE
|
||
|
|
LblProxyPassword.Enabled = FALSE
|
||
|
|
TxtProxyPassword.Enabled = FALSE
|
||
|
|
CmbProxyAuth.Enabled = FALSE
|
||
|
|
END IF
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
PUBLIC SUB Form_Open()
|
||
|
|
|
||
|
|
|
||
|
|
TxtCookies.Text = ClsParams.CookiesFile
|
||
|
|
ChkUpdate.Value = ClsParams.UpdateCookies
|
||
|
|
|
||
|
|
ChkProxy.Value = ClsParams.UseProxy
|
||
|
|
TxtProxy.Text = ClsParams.ProxyHost
|
||
|
|
TxtProxyUser.Text = ClsParams.ProxyUser
|
||
|
|
TxtProxyPassword.Text = ClsParams.ProxyPwd
|
||
|
|
|
||
|
|
|
||
|
|
SELECT CASE ClsParams.ProxyAuth
|
||
|
|
CASE Net.AuthBasic
|
||
|
|
CmbProxyAuth.Index = 0
|
||
|
|
CASE Net.AuthNTLM
|
||
|
|
CmbProxyAuth.Index = 1
|
||
|
|
END SELECT
|
||
|
|
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PUBLIC SUB Form_Close()
|
||
|
|
|
||
|
|
ClsParams.CookiesFile = TxtCookies.Text
|
||
|
|
ClsParams.UpdateCookies = ChkUpdate.Value
|
||
|
|
|
||
|
|
ClsParams.UseProxy = ChkProxy.Value
|
||
|
|
ClsParams.ProxyHost = TxtProxy.Text
|
||
|
|
ClsParams.ProxyUser = TxtProxyUser.Text
|
||
|
|
ClsParams.ProxyPwd = TxtProxyPassword.Text
|
||
|
|
|
||
|
|
IF ClsParams.ProxyUser = "" AND ClsParams.ProxyPwd = "" THEN
|
||
|
|
ClsParams.ProxyAuth = Net.AuthNone
|
||
|
|
ELSE
|
||
|
|
SELECT CASE CmbProxyAuth.Index
|
||
|
|
CASE 0
|
||
|
|
ClsParams.ProxyAuth = Net.AuthBasic
|
||
|
|
CASE 1
|
||
|
|
ClsParams.ProxyAuth = Net.AuthNTLM
|
||
|
|
END SELECT
|
||
|
|
END IF
|
||
|
|
END
|
||
|
|
|
||
|
|
PUBLIC SUB Button1_Click()
|
||
|
|
|
||
|
|
ME.Close
|
||
|
|
|
||
|
|
END
|