Ответ на первый вопрос сам нашел.Кому надо:
- Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
- (ByVal dwOption As Long, ByRef pBuffer As Any, _
- ByVal dwBufferLength As Long, ByVal dwReserved As Long)
-
- Public Type INTERNET_PROXY_INFO
- dwAccessType As Long
- lpszProxy As String
- lpszProxyBypass As String
- End Type
- Public Const INTERNET_OPEN_TYPE_PROXY = 3
- Public Const INTERNET_OPTION_PROXY = 38
-
- Форма:
- Private Sub Command1_Click()
- Dim ipi As INTERNET_PROXY_INFO
- ipi.dwAccessType = INTERNET_OPEN_TYPE_PROXY
- ipi.lpszProxy = "proxy1:port1"
- ipi.lpszProxyBypass = ""
- Call UrlMkSetSessionOption(INTERNET_OPTION_PROXY, ipi, Len(ipi), 0)
- WB.Navigate2 "URL1"
- End Sub
-
- Private Sub Command2_Click()
- Dim ipi As INTERNET_PROXY_INFO
- ipi.dwAccessType = INTERNET_OPEN_TYPE_PROXY
- ipi.lpszProxy = "proxy2:port2"
- ipi.lpszProxyBypass = ""
- Call UrlMkSetSessionOption(INTERNET_OPTION_PROXY, ipi, Len(ipi), 0)
- WB.Navigate2 "URL2"
- End Sub
А Кто что знает по второму?
Как выключить ввообще все звуки у программы? Может это проще?
Ответить
|