Разработка программы или доведение до ума.

Поделиться115.08.2012 14:06:33

Автор: magicweapons
Участник
Зарегистрирован: 10.08.2012
Приглашений: 0
Сообщений: 16
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
4 часа 54 минуты
Последний визит:
21.08.2012 06:19:31

Код:

Structure Internet_Proxy_Info
  dwAccessType.l
  *lpszProxy
  *lpszProxyBypass
EndStructure

#INTERNET_OPTION_PROXY=38
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_DIRECT = 1
#S_OK = 0

Import "Urlmon.lib"
  UrlMkSetSessionOption(Option, *Buff, Size, Reserved)
EndImport

Procedure NewIE_Proxy(Proxy.s, Port, State.c)
ProxyServer.s=Proxy+":"+Str(Port)

If State=1
  Flags=#INTERNET_OPEN_TYPE_PROXY
Else
  Flags=#INTERNET_OPEN_TYPE_DIRECT
EndIf

PIInfo.Internet_Proxy_Info
PIInfo\dwAccessType    = Flags
PIInfo\lpszProxy        = @ProxyServer
PIInfo\lpszProxyBypass    = @""
If UrlMkSetSessionOption(#INTERNET_OPTION_PROXY, @PIInfo, SizeOf(Internet_Proxy_Info), 0)=#S_OK
  x=1
Else
  x=0
EndIf
ProcedureReturn x
EndProcedure

NewIE_Proxy("80.84.200.141", 80, 1) ; Прокси рабочий, но очень медленый!
  
If OpenWindow(0, 0, 0, 1026, 800, "WebGadget", #PB_Window_BorderLess| #PB_Window_ScreenCentered) 
    WebGadget(0, 0, 0, 1017, 780, "www.2ip.ru") 
    
    Repeat 
       Event=WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow 
EndIf
  
NewIE_Proxy("", 0, 0) ; Отключаем работу с прокси

вот как бы программа выше код ниже список в чём мне надо помоч.
1. как сделать так что бы не в программе браузер открывался а взаимодействовал с браузером Google Chrome.
2. ну допустим еслть программа она взаимодействует с браузером Google Chrome надо сделать так что бы там де открывался браузер в программе просто было пустое окно.

0

Поделиться215.08.2012 16:38:11

Автор: magicweapons
Участник
Зарегистрирован: 10.08.2012
Приглашений: 0
Сообщений: 16
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
4 часа 54 минуты
Последний визит:
21.08.2012 06:19:31

помогите хотяб с 1 пунктом со 2 я уже разобрался но не стал его менять потому что неизвестно как измениться код после 1 пункта

0

Поделиться315.08.2012 17:25:54

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Вчера 17:14:34

Что подразумевается под "взаимодействовал с браузером Google Chrome"?

0

Поделиться415.08.2012 20:01:37

Автор: ВиниПур
Активный участник
Зарегистрирован: 11.11.2010
Приглашений: 0
Сообщений: 271
Уважение: [+8/-0]
Позитив: [+1/-0]
Провел на форуме:
1 день 22 часа
Последний визит:
12.03.2022 21:07:46

magicweapons написал(а):

как сделать так что бы не в программе браузер открывался а взаимодействовал с браузером Google Chrome.

Google Chrome не является полноценным браузером. В отличие от других браузеров, у него нет своего движка. Google Chrome для своей работы использует оснастку Internet Explorer. Поэтому все уязвимости и настройки IE выполняются и в Google Chrome. Настройка прокси в Google Chrome соответствует настройке прокси в IE.

Т.о. если программно сменить ( настроить) прокси в IE то и в GCh он сменится автоматом.

0

Поделиться516.08.2012 05:27:41

Автор: magicweapons
Участник
Зарегистрирован: 10.08.2012
Приглашений: 0
Сообщений: 16
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
4 часа 54 минуты
Последний визит:
21.08.2012 06:19:31

Пётр, я имею виду то что ты просто программу запустил там тупо пустое окно но она работает с proxy и когда я открою браузер Google Chrome то она будет выходить с заданным proxy-сервером в интернет.

0

Поделиться616.08.2012 05:30:04

Автор: magicweapons
Участник
Зарегистрирован: 10.08.2012
Приглашений: 0
Сообщений: 16
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
4 часа 54 минуты
Последний визит:
21.08.2012 06:19:31

ВиниПур, но это то я знаю но как сделать что бы это всё происходила в программе

Код:

Structure Internet_Proxy_Info
  dwAccessType.l
  *lpszProxy
  *lpszProxyBypass
EndStructure

#INTERNET_OPTION_PROXY=38
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_DIRECT = 1
#S_OK = 0

Import "Urlmon.lib"
  UrlMkSetSessionOption(Option, *Buff, Size, Reserved)
EndImport

Procedure NewIE_Proxy(Proxy.s, Port, State.c)
ProxyServer.s=Proxy+":"+Str(Port)

If State=1
  Flags=#INTERNET_OPEN_TYPE_PROXY
Else
  Flags=#INTERNET_OPEN_TYPE_DIRECT
EndIf

PIInfo.Internet_Proxy_Info
PIInfo\dwAccessType    = Flags
PIInfo\lpszProxy        = @ProxyServer
PIInfo\lpszProxyBypass    = @""
If UrlMkSetSessionOption(#INTERNET_OPTION_PROXY, @PIInfo, SizeOf(Internet_Proxy_Info), 0)=#S_OK
  x=1
Else
  x=0
EndIf
ProcedureReturn x
EndProcedure

NewIE_Proxy("80.84.200.141", 80, 1) ; Прокси рабочий, но очень медленый!
  
If OpenWindow(0, 0, 0, 1026, 800, "WebGadget", #PB_Window_BorderLess| #PB_Window_ScreenCentered) 
    WebGadget(0, 0, 0, 1017, 780, "www.2ip.ru") 
    
    Repeat 
       Event=WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow 
EndIf
  
NewIE_Proxy("", 0, 0) ; Отключаем работу с прокси

вот через эту программу.

0

Поделиться716.08.2012 05:35:08

Автор: magicweapons
Участник
Зарегистрирован: 10.08.2012
Приглашений: 0
Сообщений: 16
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
4 часа 54 минуты
Последний визит:
21.08.2012 06:19:31

ВиниПур ты имеешь виду сделать так:

Код:

Structure Internet_Proxy_Info
  dwAccessType.l
  *lpszProxy
  *lpszProxyBypass
EndStructure

#INTERNET_OPTION_PROXY=38
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_DIRECT = 1
#S_OK = 0

Import "Urlmon.lib"
  UrlMkSetSessionOption(Option, *Buff, Size, Reserved)
EndImport

Procedure NewIE_Proxy(Proxy.s, Port, State.c)
ProxyServer.s=Proxy+":"+Str(Port)

If State=1
  Flags=#INTERNET_OPEN_TYPE_PROXY
Else
  Flags=#INTERNET_OPEN_TYPE_DIRECT
EndIf

PIInfo.Internet_Proxy_Info
PIInfo\dwAccessType    = Flags
PIInfo\lpszProxy        = @ProxyServer
PIInfo\lpszProxyBypass    = @""
If UrlMkSetSessionOption(#INTERNET_OPTION_PROXY, @PIInfo, SizeOf(Internet_Proxy_Info), 0)=#S_OK
  x=1
Else
  x=0
EndIf
ProcedureReturn x
EndProcedure

NewIE_Proxy("80.84.200.141", 80, 1) ; Прокси рабочий, но очень медленый!
  
If OpenWindow(0, 0, 0, 1026, 800, "WebGadget", #PB_Window_BorderLess| #PB_Window_ScreenCentered) 
    
    Repeat 
       Event=WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow 
EndIf
  
NewIE_Proxy("", 0, 0) ; Отключаем работу с прокси

потому что при открытие сайта через программу там писало что это программа и есть IE 7 :confused: так что я вобше запутался.

0

Поделиться816.08.2012 19:35:16

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Вчера 17:14:34

ВиниПур написал(а):

Google Chrome не является полноценным браузером. В отличие от других браузеров, у него нет своего движка. Google Chrome для своей работы использует оснастку Internet Explorer.

:cool: