21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
75 lines
1.6 KiB
Text
75 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
|