Source language: Translate to:

Set proxy configuration

Questions about using NeoBook's scripting language

Moderator: Neosoft Support

Re: Set proxy configuration

Postby aguilar955 » Sun Nov 11, 2012 3:09 am

Para cambiar la configuracion del Proxy.

Utilizados plugin RACAutoIt3x y alConsolePlugin

Code: Select all
NBW Publication Source File
(C)1993-2011 NeoSoft Corp.
Title=Set proxy configuration
Author=aguilar
Language=US
NeoBookVer=5,70
ScreenColors=16777216
ScreenWidth=320
ScreenHeight=200
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=93
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
SubroutineAction=:processes¶alRun "tasklist | find [#34]iexplore.exe[#34]" "True" "[result]" "" "" "True"¶¶If "[result]" ">" ""¶    MessageBox "ATTENTION!" "The process is open iexplore.exe.|Want to force the closure of the same?||In order to change the proxy settings, close the Internet Explorer process." "NO|YES" "[closed]"¶    If "[closed]" "=" "2"¶        Run "cmd" "/c taskkill /IM iexplore.exe /F" "Wait+Hidden" "verification" ""¶        If "[ok]" ">" "0"¶            . active process¶        Else¶            . process stopped¶        EndIf¶    EndIf¶EndIf¶Return¶¶:verification¶alRun "tasklist | find [#34]iexplore.exe[#34]" "True" "[ok]" "" "" "True"¶Return¶¶:rac_error¶If "[RAC_Error]" "=" "0"¶    ListBoxAddItem "List" "0" "Correct"¶¶Else¶    ListBoxAddItem "List" "0" "NOT correct"¶EndIf¶Return
ShapeTransColor=536870912
CompiledName=C:\ProyectosNeobook\Proxy\Proxy.exe
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
FontsToCompile=|
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MiPrograma
SetupTitle=Instalación
SetupColors=16711680|0|65535
Variables=[estado]¶
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=2
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
MenuBegin
MenuName=EncabezadoMenu1
MenuText=Proxy enabled
MenuState=3
MenuKey=0
MenuAction=ListBoxDeleteItem "List" "All"¶GoSub "processes"¶¶alRun "tasklist | find [#34]iexplore.exe[#34]" "True" "[result]" "" "" "True"¶If "[result]" ">" "0"¶    ListBoxAddItem "List" "0" "The process is open iexplore.exe."¶¶Else¶¶    ListBoxAddItem "List" "0" "The process iexplore.exe is closed."¶¶¶    SetVar "[HKCU_IE_PROXY]" "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"¶¶¶    RAC_RegWrite "[HKCU_IE_PROXY]" "ProxyServer" "REG_SZ" "[ProxyName]:[Port]"¶    GoSub "rac_error"¶    RAC_RegWrite "[HKCU_IE_PROXY]" "ProxyEnable" "REG_DWORD" "1"¶    GoSub "rac_error"¶    RAC_RegWrite "[HKCU_IE_PROXY]" "ProxyOverride" "REG_SZ" "*.dominio1;"¶    GoSub "rac_error"¶    RAC_RegRead "[HKCU_IE_PROXY]" "ProxyEnable"¶    GoSub "rac_error"¶    SetVar "[ProxyEnable]" "[RAC_return]"¶    ListBoxAddItem "List" "0" "[result]"¶¶EndIf
MenuName=EncabezadoMenu2
MenuText=Disable proxy
MenuState=3
MenuKey=0
MenuAction=ListBoxDeleteItem "List" "All"¶GoSub "processes"¶¶alRun "tasklist | find [#34]iexplore.exe[#34]" "True" "[result]" "" "" "True"¶If "[result]" ">" "0"¶    ListBoxAddItem "List" "0" "The process is open iexplore.exe."¶¶Else¶¶    ListBoxAddItem "List" "0" "The process iexplore.exe is closed."¶¶¶    RAC_RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\" "ProxyEnable" "REG_DWORD" "0"¶    GoSub "rac_error"¶    RAC_RegRead "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\" "ProxyEnable"¶    GoSub "rac_error"¶    SetVar "[ProxyEnable]" "[RAC_return]"¶¶EndIf
MenuEnd
TrayMenuBegin
MenuName=TrayOpen
MenuText=Abrir
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Salir
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=Nueva página
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=0
ObjectType=10
Name=List
X=16
Y=72
W=288
H=112
Anchor=0
VarName=[List]
VarType=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=1
ObjectType=9
Name=EProxyName
X=32
Y=33
W=120
H=24
Anchor=0
Text=127.0.0.1
VarName=[ProxyName]
EditLen=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=2
ObjectType=9
Name=EPort
X=182
Y=33
W=80
H=24
Anchor=0
Text=8888
VarName=[Port]
EditLen=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=3
ObjectType=8
Name=ProxyName
X=32
Y=8
W=80
H=22
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 ProxyName}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
TabOrder=5
ObjectType=8
Name=Port
X=182
Y=8
W=40
H=22
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Port}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
TabOrder=4


Saludos
aguilar955
 
Posts: 85
Joined: Sat Jan 17, 2009 10:50 am

Re: Set proxy configuration

Postby Alex » Sun Nov 11, 2012 8:11 am

Hi,

Excellent Gaev, now I understand better. I works again!

Thanks


Alex
Alex
 
Posts: 745
Joined: Sat Mar 04, 2006 4:53 am

Previous

Return to NeoBook Action Commands

Who is online

Users browsing this forum: No registered users and 2 guests