Jump to content

xroot

Active Members
  • Posts

    64
  • Joined

  • Last visited

  • Days Won

    1

xroot last won the day on March 12 2012

xroot had the most liked content!

Profile Information

  • Location
    Merced, Ca.

Recent Profile Visitors

285 profile views

xroot's Achievements

Wayfarer

Wayfarer (2/7)

9

Reputation

  1. Thanks Trancexx, that worked.
  2. Was playing with an activex from HERE. It's called WindowSystemObject (WSO), so when I use ObjEvent it returns an object called IControlEvents but when I click the button nothing happens (no close exit). IControlEvents has an OnClick Interface. Here is the code Func ObjErrFunc() Msgbox(0,"*COM ERROR*",$wsobjErr.windescription & @LF & $wsobjErr.description & @LF & "Line=" & $wsobjErr.scriptline) EndFunc Func CloseForm_OnClick($Sender) $f.Close() Exit EndFunc global $wsobjErr = ObjEvent("AutoIt.Error","ObjErrFunc") local $wso = ObjCreate("Scripting.WindowSystemObject") global $f = $wso.CreateForm(0,0,500,400) $f.Color = 0xff00ff $f.Text = "Au3 Test WSO" $f.CenterControl() $b = $f.CreateButton(120,70,120,45,"Exit") $b.CenterControl() $b.Color = 0xff0000 $b.Font.Name = "Arial" $b.Font.Size = 18 $b.Font.Bold = True $b.Font.Underline = True local $ce = ObjEvent($b,"CloseForm_") ;returns an object nothing happens when button is clicked ; MsgBox(64,"@Error="&@error,StringFormat("Name\tType\n%s\t%s\n%s\t%s",objname($ce),vargettype($ce),objname($b),vargettype($b))) $f.Show() $wso.Run() Not sure what I am doing wrong?? I wrote the same code in AutoHotKey with ComObjConnect and it all worked. Even fired up VB6 using WithEvents and it also worked fine. Any help will be appreciated.
  3. Junkew is right about "AutoItObject_Internal.au3" way over my head but very cool. I like Pure AutoIt stuff, keep it simple and use as much AutoIt internal as possible. I see JScript was used in an example which got me thinking about OBJECTS. JScript can create the objects, properties, methods in Au3. JScript Example 1 Func ObjErrFunc() Msgbox(0,"*COM ERROR*",$ObjErr.windescription & @lf & $ObjErr.description & @LF & "Line=" & $ObjErr.scriptline) EndFunc Func jsc($IO) $jsCode &= $IO & @CRLF EndFunc global $ObjErr = ObjEvent("AutoIt.Error","ObjErrFunc") global $sc = ObjCreate("ScriptControl") global $jsCode = "" $sc.Language = "JScript" jsc('function myCar(){') jsc('this.make = "";') jsc('this.model = "";') jsc('this.year = 0;') jsc('this.DisplayCar = function(){return "A Beautiful "+this.year+" "+this.make+" "+this.model;}};') ; MsgBox(0,"jScript",$jsCode) $sc.AddCode($jsCode) local $myCar = $sc.Eval("new myCar") $myCar.make = "Ford" $myCar.model = "Mustang" $myCar.year = 1969 MsgBox(64,"JS Returns",$myCar.DisplayCar()) The second example was very interesting. To keep it Au3 pure, I used "AutoItX3.Control" and AutoIt3.exe /AutoIt3ExecuteLine. JScript Example 2 Func ObjErrFunc() Msgbox(0,"*COM ERROR*",$ObjErr.windescription & @lf & $ObjErr.description & @LF & "Line=" & $ObjErr.scriptline) EndFunc Func jsc($IO) $jsCode &= $IO & @CRLF EndFunc Func bkColor($hWnd,$iMsg,$wParam,$lParam) GUISetBkColor($wParam,$hWnd) EndFunc Func GuiLoop() While GUIGetMsg() <> -3 Sleep(10) WEnd EndFunc global $ObjErr = ObjEvent("AutoIt.Error","ObjErrFunc") global $sc = ObjCreate("ScriptControl") global $jsCode = "" $sc.Language = "JScript" jsc('var au3x = new ActiveXObject("AutoItX3.Control");') jsc('var au3exe = "c:/Program Files (x86)/AutoIt3/AutoIt3.exe /AutoIt3ExecuteLine ";') jsc('var width = 0,height = 0;') jsc('function Au3_Objects(){') jsc('this.hWnd = 0;') jsc('this.Title = function(t){au3x.WinSetTitle("","",t);return this;}') jsc('this.bkColor = function(c){au3x.Run(au3exe+"\"DllCall(''user32'',''lresult'',''SendMessage'',''hwnd'',"+this.hWnd+",''uint'',1024,''wparam'',"+c+",''lparam'',0)\"");return this;}') jsc('this.Width = function(w){au3x.WinMove("","",('&@desktopwidth&'-w)/2,('&@desktopheight&'-height)/2,w,height);width = w;return this;}') jsc('this.Height = function(h){au3x.WinMove("","",('&@desktopwidth&'-width)/2,('&@desktopheight&'-h)/2,width,h);height = h;return this;}') jsc('this.Show = function(){au3x.Run(au3exe+"\"GUISetState()\"");return this;}}') ; MsgBox(0,"jScript",$jsCode) $sc.AddCode($jsCode) local $gui = $sc.eval("new Au3_Objects") $gui.hWnd = GUICreate("Normal Au3 Gui 1") GUISetBkColor(0xffff00) GUIRegisterMsg(1024,"bkColor") GUISetState() GuiLoop() $gui.Title("Objects Au3 Gui 2").bkColor(0xff00ff).Width(400).Height(600).Show() GuiLoop() With $gui .Title("Objects Au3 Gui 3") .bkColor(0x00ff00) .Width(800) .Height(300) .Show() EndWith GuiLoop()
  4. Trying to get /AutoIt3ExecuteLine to work with "GUISetBkColor", but get return of 0 fail. Is there a way to get this to work with /AutoIt3ExecuteLine?? local $hWnd = GUICreate("Gui Test") Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(0,''GUISetBkColor'',GUISetBkColor(0xff00ff,' & $hWnd & '))"') GUISetState() While GUIGetMsg() <> -3 Sleep(10) WEnd Thanks for any help.
  5. Yes, overline characters are covered by Unicode. Here is a little test. global const $dbar = ChrW(0x33F) ;DOUBLE OVERLINE global const $bar = ChrW(0x305) ;OVERLINE Func I_Quit() Exit EndFunc Func To_Roman($iDec) local $roman = "" local $io[25][2] = [[1000000000,"M" & $dbar], _ [500000000,"D" & $dbar], _ [100000000,"C" & $dbar], _ [50000000,"L" & $dbar], _ [10000000,"X" & $dbar], _ [5000000,"V" & $dbar], _ [1000000,"M" & $bar], _ [500000,"D" & $bar], _ [100000,"C" & $bar], _ [50000,"L" & $bar], _ [10000,"X" & $bar], _ [5000,"V" & $bar], _ [1000,"M"], _ [900,"CM"], _ [500,"D"], _ [400,"CD"], _ [100,"C"], _ [90,"XC"], _ [50,"L"], _ [40,"XL"], _ [10,"X"], _ [9,"IX"], _ [5,"V"], _ [4,"IV"], _ [1,"I"]] For $i = 0 To Ubound($io) - 1 While $iDec >= $io[$i][0] $iDec -= $io[$i][0] $roman &= $io[$i][1] WEnd Next Return $roman EndFunc HotKeySet("{ESC}","I_Quit") local $iNumber = 3457898377 SplashTextOn("Roman Numbers For:" & $iNumber,To_Roman($iNumber),@DesktopWidth,60,-1,-1,-1,default,24) While True wEnd
  6. Hi, Chimp Here is a way to use a msgbox or alert in jscript. Local $oSC = ObjCreate("ScriptControl") $oSC.Language = "JScript" local $jcode = "function alert(iData,iTitle,iFlag,timeout){" & _ "iTitle = iTitle || 'Info';" & _ "iFlag = iFlag || 64;" & _ "timeout = timeout || 0;" & _ "return new ActiveXObject('WScript.Shell').Popup(iData,timeout,iTitle,iFlag);}" $oSC.AddCode($jcode) $oSC.ExecuteStatement("alert('I am a javascript alert box!')") MsgBox(0,'AutoIt','Pause') This runs on IE 11 win 7.
  7. Here is one with Com, using vbscript real simple $vbs = ObjCreate("MSScriptControl.ScriptControl") $vbs.Language = "vbScript" local $Year = @YEAR local $Month = @MON $lastday = StringSplit($vbs.Eval("FormatDateTime(DateAdd(""d"",-1,""" & $Year & "-" & (($Month + 1 = 13) ? (1) : ($Month + 1)) & "-1""))"),"/") $monthname = StringSplit($vbs.Eval("FormatDateTime(""" & $Year & "-" & $Month & "-1"",1)")," ") msgbox(0,"info",StringFormat("Year = %s\nLast Day In %s = %s",$Year,$monthname[2],$lastday[2]))
  8. You might try this, it works in Win7 not sure about 10? #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> Global Const $WM_CTLCOLORSTATIC = 0x0138 Example() Func Example() global $iBursh = DllCall("gdi32.dll","hwnd","CreateSolidBrush","dword",0x808080) GUICreate("slider", 220, 100, 100, 200) Local $idSlider1 = GUICtrlCreateSlider(10, 10, 200, 40) ;GUICtrlSetColor (-1, 0x808080) GUICtrlSetLimit(-1, 200, 0) ; change min/max value Local $idButton = GUICtrlCreateButton("Value?", 75, 70, 70, 20) GUICtrlSetData($idSlider1, 45) ; set cursor GUIRegisterMsg($WM_CTLCOLORSTATIC,"WM_CTLCOLORSTATIC") GUISetState(@SW_SHOW) Local $idMsg ; Loop until the user exits. Do $idMsg = GUIGetMsg() If $idMsg = $idButton Then MsgBox($MB_SYSTEMMODAL, "slider1", GUICtrlRead($idSlider1), 2) EndIf Until $idMsg = $GUI_EVENT_CLOSE EndFunc ;==>Example Func WM_CTLCOLORSTATIC($hWin,$uMsg,$wParam,$lParam) return $iBursh[0] EndFunc
  9. Here is a calendar with the MS Calendar control (mscal.ocx). If you don't have the control I found it here: http://www.fontstuff.com/mailbag/qvba01.htm I used the "Shell.Explorer" object to dump the MS Calendar control into. Click any day to get the date. Very basic stuff, please read the help file for any info on the control. Tested on Win 7/64 and IE 11. Func I_Quit() Exit EndFunc Func Cal_Click() MsgBox(4160,"Date Clicked!",$cal.month & "/" & $cal.day & "/" & $cal.year,2) $cal.month = @MON $cal.day = @MDAY $cal.year = @YEAR WinActivate($hWnd) EndFunc HotKeySet("{ESC}","I_Quit") local $W = 500,$H = 400 global $hWnd = GuiCreate("ms_Calendar",$W,$H) local $shellObj = ObjCreate("Shell.Explorer") GUICtrlCreateObj($shellObj,0,0,$W,$H) $shellObj.navigate("about:blank") While $shellObj.busy Sleep(10) WEnd local $doc = $shellObj.document local $body = $doc.body global $cal = $doc.createElement("object") With $cal .style.position = "absolute" .style.left = 0 .style.top = 0 .style.width = $W .style.height = $H .classid = "clsid:8E27C92B-1264-101C-8A2F-040224009C02" ;msCalendar object mscal.ocx found here:-> http://www.fontstuff.com/mailbag/qvba01.htm $body.appendChild($cal) ;must be after classid for cal properties to work .titlefont.size = 22 .titlefont.bold = True .dayfont.size = 12 .dayfont.bold = True .dayfontcolor = 0x0000ff ;red .gridfont.size = 14 .gridfont.bold = True .gridfontcolor = 0xff0000 ;blue .gridcelleffect = 0 .backcolor = 0xb7d5ee ;bisque EndWith ObjEvent($cal.Object,"Cal_") GuiSetState() While GUIGetMsg() <> -3 Sleep(10) WEnd
  10. Playing with VarGetType with DllStructCreate and getting return types not expected. uint; ulong; dword all return Int64, but DllStructSize = 12 correctly. Please, tell me what this means, or if doing it wrong. Thanks local $tStruct = DllStructCreate("uint;ulong;dword") local $sTypes = "" For $i = 1 To 3 $sTypes &= VarGetType(DllStructGetData($tStruct,$i)) & "," ;@lf Next MsgBox(64,@error & " Struct Var Types","Au3 Version=" & @AutoItVersion & @lf & _ "Au3 X64=" & @AutoItX64 & @lf & _ "OS Arch=" & @OSArch & @lf & _ "OS Version=" & @OSVersion & @lf & _ "Struct Size=" & DllStructGetSize($tStruct) & @lf & _ "Struct Types=" & $sTypes)Here is what Msgbox is on my pc. Au3 Version=3.3.12.0 Au3 X64=0 OS Arch=X64 OS Version=WIN_7 Struct Size=12 Struct Types=Int64,Int64,Int64
  11. Here is my take on simple OOps in Autoit. Func ObjErrFunc() Msgbox(0,"*COM ERROR*",$ObjErr.description&@LF&$ObjErr.windescription&"Line "&$ObjErr.scriptline) Endfunc Func Person($sName, $iAge) $sd.Add($sd.Count,$sName) ;Property $sd.Add($sd.Count,$iAge) ;Property Return $sd.Items ;Array Properties EndFunc Func Person_SetName(ByRef $hPerson, $sName) $hPerson[uBound($hPerson) - 2] = $sName EndFunc Func Person_GetName(ByRef $hPerson) Return $hPerson[uBound($hPerson) - 2] EndFunc Func Person_SetAge(ByRef $hPerson, $iAge) $hPerson[uBound($hPerson) - 1] = $iAge EndFunc Func Person_ToString(ByRef $hPerson) Return StringFormat('Name: %s, Age: %i', $hPerson[uBound($hPerson) - 2], $hPerson[uBound($hPerson) - 1]) Endfunc global $ObjErr = ObjEvent("AutoIt.Error","ObjErrFunc") global $sd = ObjCreate("Scripting.Dictionary") local $hP1 = Person('John', 30) MsgBox(64, 'Person 1', Person_ToString($hP1)) Local $hP2 = Person('James', 36) MsgBox(64, 'Person 2', Person_ToString($hP2)) Person_SetAge($hP2, 45) MsgBox(64,'Person 2 - Revised',Person_ToString($hP2)) Person_SetName($hP1, 'Michael') MsgBox(64,'Person 1 - Revised',Person_ToString($hP1)) MsgBox(64,'Get Name Person 1',Person_GetName($hP1)) Local $hP3 = Person('Amanda', 35) MsgBox(64, 'Person 3', Person_ToString($hP3))This way I can add any number of Name's and Age's.
  12. Lots of us have used the "ScriptControl" object in Autoit to create simple classes using jScript, vbScript. For example, I created a simple Car class in jScript. #include "jsFunc.au3" jsc('function Car(make,color,year){') ;Car class jsc('this.make = make;') ;property jsc('this.color = color;') jsc('this.year = year;') jsc('this.Info = function(){return this.year + " " + this.color + " " + this.make;}}') $js.AddCode($jsCode) ;add code to the global module ;MsgBox(0,"jScript",$jscode) ;debug local $car = $js.Eval('new Car("Jaguar F-Type","Black",2015);') ;car class object msgbox(64,"New Car Class 1",$car.Info(),2) ;show car class properties ;change car properties $car.make = "Porsche Speedster" $car.color = "Red" $car.year = 1955 msgbox(64,"New Car Class 2",$car.Info(),2) ;show car class properties The Car class is not very useful. I needed the ability to create classes that makes Autoit more functional and easy to produce with the power of Autoit. The VARIANT class is more interesting and functional, showing todays long date. Of course using vbScript's "FormatDateTime" to show long date in one line is simpler. I'am just trying to show how easy it is too create and use meaningful classes. #include "jsFunc.au3" jsc('function VARIANT(){') ;VARIANT class jsc('this.vt = 0;') ;property jsc('this.union = 0;') jsc('this.Now = new Date().toString();') ;string date object jsc('this.api = new ActiveXObject("Apidll.ApidllC");') ;api class object jsc('this.Ptr = this.api.CallApi("kernel32","GlobalAlloc",64,16);') ;VARIANT structure Ptr jsc('this.StrPtr = this.api.CallApi("kernel32","GlobalAlloc",64,32);') ;VARIANT string Ptr jsc('this.class_Set = function(){') jsc('this.api.Set_Data(this.Ptr ,this.vt ,2);') ;vt_type jsc('this.api.Set_Data(this.Ptr+8,this.union,this.vt);}') ;vt_data ;formats a variant containing named date and time information into a string jsc('this.VarFormatDateTime = function(pvarIn,iNamedFormat,dwFlags,pbstrOut){') jsc('return this.api.CallApi("oleaut32","VarFormatDateTime",pvarIn,iNamedFormat,dwFlags,pbstrOut);}') jsc('this.class_Terminate = function(){') jsc('this.api.CallApi("kernel32","GlobalFree",this.Ptr);') jsc('this.api.CallApi("kernel32","GlobalFree",this.StrPtr);}}') $js.AddCode($jsCode) ;add code to the global module ;MsgBox(0,"jScript",$jscode) ;debug local $longdate = 1 local $dwflags = 0 local $VT_LPWSTR = 31 local $varnt = $js.Eval("new VARIANT();") ;variant class object ; set date variant $varnt.vt = 7 ;vt_type date $varnt.union = (@YEAR-1900)*365+@YDAY+29 ;vt_date data $varnt.class_Set() ;update class variant ;get long date $varnt.VarFormatDateTime($varnt.Ptr, $longdate, $dwflags, $varnt.StrPtr) Msgbox(64,$varnt.Now, $varnt.api.Get_Data($varnt.StrPtr, $VT_LPWSTR)) ;cleanup $varnt.class_Terminate() $varnt = 0 I Created "Apidll.ApidllC", an Activex Class that dynamically calls a function in any dll. This class is simple with a few methods, for more information see the Apidll.chm file. This gives jScript, and vbScript the ability to call the Api and do pointers, and giving Autoit the ability to create classes on the fly. ApiDll.zip
  13. I have seen IE embedded into Au3 Gui and whole html document text written into an IE object. How about using an IE object as the Gui itself, could not find any posts on this subject. All you need is an IE object and the use of 'createElement'. Put any element in your script, play with it to see what works. In my example, I use "img,button,object", the 'button' is a Button array, one 'img' is a button image gif, another 'img' is an anamation gif, the 'object' is a statusbar control which you can click on. This works on IE8 not sure about IE9 and 10, and remember when testing make sure IE is not running unless the IE window is a valid one. #include <WinAPI.au3> #include <SendMessage.au3>Func ObjErrFunc() Msgbox(0,"*COM ERROR*",$ObjErr.windescription&"Line "&$ObjErr.scriptline) Endfunc Func GetKeyState($iKey) Local $aResult=DllCall("user32.dll","short","GetKeyState","int",$iKey) If @error Then Return SetError(@error,@extended,0) Return $aResult[0] EndFunc ;==>GetKeyStateFunc IE_OnQuit() $ie.Quit Exit EndFunc Func ButtonBar_onclick() For $I=0 To Ubound($bb)-1 If $bb[$I].id=$I+1 Then MsgBox(0,"ButtonBar Info","Clicked Button "&$I+1,$TimeOut,$hWnd) ExitLoop EndIf Next EndFuncFunc ButtonBar_onmouseover() For $I=0 To Ubound($bb)-1 If $bb[$I].id=$I+1 Then $wPos=WinGetPos($hWnd) SplashTextOn("ButtonBar Info","MouseOver Button"&@lf&$I+1,150,105,MouseGetPos(0),$wPos[1]-108,1,"",18) ExitLoop EndIf Next EndFunc Func ButtonBar_onmouseout() SplashOff() EndFuncFunc SB_PanelClick($pPtr) local $iPan[7][2]=[["",0],["Caps",20],["Num",144],["Insert",45],["",0],[@HOUR&":"&@MIN&":"&@SEC,0],[@MON&"/"&@MDAY&"/"&@YEAR,0]] Switch $pPtr.index Case 1,2,3 If GetKeyState($iPan[$pPtr.index][1]) Then Msgbox(0,"StatusBar "&$pPtr.index,$iPan[$pPtr.index][0]&" Locked",$TimeOut,$hWnd) Else Msgbox(0,"StatusBar "&$pPtr.index,$iPan[$pPtr.index][0]&" UnLocked",$TimeOut,$hWnd) EndIf Case 4,5,6 If $pPtr.index=4 Then $iPan[4][0]=$pPtr.text Msgbox(0,"StatusBar "&$pPtr.index,$iPan[$pPtr.index][0],$TimeOut,$hWnd) EndSwitch EndFunc Func CreateIE($title,$left=0,$top=0,$width=400,$height=300,$resize=false) global $ObjErr=ObjEvent("AutoIt.Error","ObjErrFunc") global $ie=ObjCreate("internetExplorer.Application") HotKeySet("{ESC}","IE_OnQuit") With $ie .fullScreen=False If $Left=0 Then .left=(@DesktopWidth-$width)/2 Else .left=$left EndIf If $top=0 Then .top=(@DesktopHeight-$height)/2 Else .top=$top EndIf .width=$width .height=$height .resizable=$resize .addressBar=False .menuBar=False .toolBar=False .statusBar=False ;.offline=true .navigate("about:blank") global $hWnd=hWnd(.hwnd) While .busy Or .readystate<>4 Sleep(1) WEnd ;.document.title=$title WinSetTitle($hWnd,"",$title) global $doc=.document,$body=.document.body $body.scroll="no" $body.style.borderwidth=0 $doc.parentwindow.focus EndWith ObjEvent($ie,"IE_","DWebBrowserEvents2") EndFuncFunc Set_Element($elem,$left=0,$top=0,$width=0,$height=0) local $obj=$doc.createElement($elem) With $obj If ($width>0 And $height>0) Or ($width>0 And $height=0) Then .style.position="absolute" .style.left=$left .style.top=$top .style.width=$width .style.height=$height EndIf EndWith $body.appendChild($obj) return $obj Endfunc local $W=535,$H=400,$loc=5,$dropshadow="progid:DXImageTransform.Microsoft.dropshadow(offX=0px,offY=0px,Color=black)" global $bb[7],$TimeOut=1LoadImgs() CreateIE("IE As The Gui - AutoIt3",0,0,$W,$H) ;$body.bgcolor="#6699cc" $body.background=$bodyImg ;Change IE icon with Au3 _SendMessage($hWnd,128,0,_WinAPI_LoadImage(0,"C:\Autoit\Install\Icons\au3.ico",1,0,0,16));ButtonBar For $I=0 To Ubound($bb)-1 $bb[$I]=Set_Element("<button onclick='id="&$I+1&"'"& _ "onmouseover='style.color=""red"";id="&$I+1&"'"& _ "onmouseout='style.color=""darkred"";id=0'"& _ "onmousedown='style.color=""white""'>",$loc,2,55,55) With $bb[$I] .value="Button<br>"&$I+1 .hidefocus=true .style.font="bold 14 Arial" .style.color="darkred" .style.cursor="hand" .style.background="#6699cc" .style.filter=$dropshadow $loc+=65 ObjEvent($bb[$I],"ButtonBar_") EndWith Next ;Image Button Local $quit=Set_Element("<img onclick='id=1' onmouseover='src="""&$buttonOvr&"""'"& _ "onmouseout='src="""&$buttonImg&"""'"& _ "onmousedown='src="""&$buttonDwn&"""'>",$loc,2,55,55) $quit.src=$buttonImg $quit.style.cursor="hand" $quit.style.filter=$dropshadow;StatusBar local $sb=Set_Element("<object classid='clsid:585AA280-ED8B-46B2-93AE-132ECFA1DAFC'>",0,$H-60,$W,35) With $sb .font.name="arial" .font.size=12 .font.bold=true .panels.clear For $I=1 To 6 .panels.add($I,"","",$I) .panels($I).autoSize=1 .panels($I).alignment=1 .panels($I).minWidth=1 ;.panels($I).ToolTipText="StatusBar#"&$I Next .panels(4).style=0 .panels(4).text="IE Gui" EndWith ObjEvent($sb.object,"SB_","IStatusBarEvents") ;change StatusBar Color _SendMessage(hWnd($sb.hWnd),8193,0,0xcc9966) ;Image anamation local $img=Set_Element("img",$W/28,70,490,260) With $img .src=$alertBlue .style.visibility="hidden" .style.filter="revealtrans(duration=1,transition=23)" .filters.revealtrans.apply() .style.visibility="visible" .filters.revealtrans.play() EndWith;look @ html code ;msgbox(64,"Info",$body.outerhtml) $ie.visible=TrueWhile True If $quit.id Then IE_OnQuit() WEnd Func LoadImgs() global $bodyImg="data:image/gif;base64,"& _ "R0lGODdhTQBDAPcAAAAAAAAAQAAAgAAA/wAgAAAgQAAggAAg/wBAAABAQABAgABA/wBgAABg"& _ "QABggABg/wCAAACAQACAgACA/wCgAACgQACggACg/wDAAADAQADAgADA/wD/AAD/QAD/gAD/"& _ "/yAAACAAQCAAgCAA/yAgACAgQCAggCAg/yBAACBAQCBAgCBA/yBgACBgQCBggCBg/yCAACCA"& _ "QCCAgCCA/yCgACCgQCCggCCg/yDAACDAQCDAgCDA/yD/ACD/QCD/gCD//0AAAEAAQEAAgEAA"& _ "/0AgAEAgQEAggEAg/0BAAEBAQEBAgEBA/0BgAEBgQEBggEBg/0CAAECAQECAgECA/0CgAECg"& _ "QECggECg/0DAAEDAQEDAgEDA/0D/AED/QED/gED//2AAAGAAQGAAgGAA/2AgAGAgQGAggGAg"& _ "/2BAAGBAQGBAgGBA/2BgAGBgQGBggGBg/2CAAGCAQGCAgGCA/2CgAGCgQGCggGCg/2DAAGDA"& _ "QGDAgGDA/2D/AGD/QGD/gGD//4AAAIAAQIAAgIAA/4AgAIAgQIAggIAg/4BAAIBAQIBAgIBA"& _ "/4BgAIBgQIBggIBg/4CAAICAQICAgICA/4CgAICgQICggICg/4DAAIDAQIDAgIDA/4D/AID/"& _ "QID/gID//6AAAKAAQKAAgKAA/6AgAKAgQKAggKAg/6BAAKBAQKBAgKBA/6BgAKBgQKBggKBg"& _ "/6CAAKCAQKCAgKCA/6CgAKCgQKCggKCg/6DAAKDAQKDAgKDA/6D/AKD/QKD/gKD//8AAAMAA"& _ "QMAAgMAA/8AgAMAgQMAggMAg/8BAAMBAQMBAgMBA/8BgAMBgQMBggMBg/8CAAMCAQMCAgMCA"& _ "/8CgAMCgQMCggMCg/8DAAMDAQMDAgMDA/8D/AMD/QMD/gMD///8AAP8AQP8AgP8A//8gAP8g"& _ "QP8ggP8g//9AAP9AQP9AgP9A//9gAP9gQP9ggP9g//+AAP+AQP+AgP+A//+gAP+gQP+ggP+g"& _ "///AAP/AQP/AgP/A////AP//QP//gP///yH5BAAAAAAALAAAAABNAEMAAAj/ALf9+7Zt27d9"& _ "BP/9Kzhw4b6CAgt+G7jtYcSFCwkKTEjQokaDBjMyDAkRJESCKCEiPAmxoUGOESt+2/RwYk2E"& _ "KxlqPJiwIMJJ+xYKFKlRIUOMLT8e3GZrotCRJylOAylSYsuKLEvutPqxJsiUSU+u5FlwktGC"& _ "m0ZO+sbzqcF9aXVKfLqUItWwb2VOoyuWaMGmXB/azWiR6ke6dGs+HTtUJdutdmF+mypTZl2U"& _ "K4Xu9DoSs9i4RTXiJJiWIueWA09TVMh2W1y3eW1tlF11aFGP/0ZbXll66dW6Vq9a3Vc4I+HD"& _ "B2l2hCm3t++8BG0FNclWKMWJWKG+RUh6InKWDwFT/y/8EbrEmxJF+zYe8TH38yZ9CpUdunLe"& _ "i5uFe8cL0qtoiPSRt9J7WqElEEJ2vVQZWQWilNp8JpnGlm49vRXXb6ilVl9MOBUo0TQ8dfiW"& _ "RqUhqBRjYikoVlHboURZbhd+pZNFC21y3WIMDuYTWbBxJxh1UBGo1WTYMdgYSSUF5yJDcDWY"& _ "k4dFvnVcfDJahxRfy8l1VoXpgTilUtTlVtJ7Txq1Hotg2vecbgve1diVTCW5VVrlRWeZnB7F"& _ "uUl5MYGZkmcbdZZVSM/BNpdmB/2IJHZHeeSdaiK65Zude+5GFmYVOiWapApZlx5xh2XFmqhz"& _ "ldrooA6NqOY2UzEaoZIV7f9J2KDx9VTdWYiCyudJIVI5V3mjymbYqvGdteN9mg0nK4j8uVYY"& _ "SPT5pCR5TO5ZXHsI3rVcsFZJWNpGedaKWnto/iZUZkQ9iZWRz91m7aU3yoSgdbvalaeYXCXp"& _ "6adLRdnZuZcSpy2KfY6noktIPtmajNmVdy+1sCbJ5J9v4rugut0iuyK0GYWmWbL2yVkVQsIe"& _ "tdOk99oq18T3qaeqxDHJGWhqUW0UmmIoZ6qdUxl37FHKB/HVX79CpZUtr16FW+fKZmJI86Pn"& _ "sUhoTC7xFnVjFoFWElI9YamZV083HFyy+8388qhKnXizqhg5xK7EWl+VWH+vutfbjqHyKOmk"& _ "X5X/mZTaM5qUk0gJCrzz1i+7KTG+GjUVL7YJSaqkpzktrHjGYHI2WH4r05g4lzBTPBSBPuMW"& _ "FWchevkXwyypPByQG80deb99Csxu5TMC6jqDrtpk8CR5CQ27vQsnmyC4gmOaJXQK4167q/RO"& _ "N2Wxdf5spOD6zVbw8RqCJfLGMHPPOu+ClSbSgMHBN2KHXBvo9nAsNm3quFxuVSSR4Y+vaEcZ"& _ "pqh7RzQyHugu0ibEaQU2TXPRQALkPY6oayBbYZt2pjbAxRylWxWiUb8whrxPKUw4LYtacf4B"& _ "mARFkEeCwhv18gKammTOXwS7j3KkVbBipehA2vHU9L4CLJM162r5utXK/5jjM9hZb3mOQVyR"& _ "TBe269ywcl/bUG7KhpiX7KNkKRwb7fTSusrwpXBgMgruWMRAaV1oVtuJXZMGlaXjEXB1LMrT"& _ "ibKSox56EYKJu1rQ+Ncn5pSqIZgC33IGl6Y/ucVQRkKg3Nozrqe48Wtnq9eY0qSVwRWtfUPD"& _ "E5/45MQEEa+S3lvZoszmlxH1cHNQQYq0bOWxrQXyhnhMFN+60iuGicmRKosSeg6XMK5MypHi"& _ "wmBWyFPKSvqKQyg8Uop0FbNAlS1nGMmJbqQSvwrBpjXLcx7SqJQj13QQf3RxnU46FrH0DQgs"& _ "GNmMNF85kKmocoditFzwmtmhV0YwY9QJYybhUrvPcdFRk25yozMlxqj8aJBcqCMJiZB0n/QZ"& _ "C2TC1Fc38dKazMCMoD48lqDe5sWxBTEizTtU/SQ3zVqiMGCii4xHCRjDe2bnjfg5pjdNGSiJ"& _ "CYt/RuLOYNp5N7JFsHJv05y+0jfHE5LPlRqEWA67grGqUKRSqhTRgepDsyhaM2jpkUt1NlVA"& _ "uo0NoqsJl4YgIit8/nOowMwXUgEnNZXOpGHqSuTlVNkZwQBTUjjR2ljcuZnIjTM7H+MjRgICADs=", _ $buttonImg="data:image/gif;base64,"& _ "R0lGODlhNwA3APcAANPj0tXhzszey8XZ7Mjcx8PYwrnV3LvR6M/NtbXO5rrSurDL5azP0KvH"& _ "467KrbO92aXD4aDHyZy93qe21Ze63J3AnJS325G+waCx07ejwYyz2Zyt0Ym6vIi5u4ux2JSq"& _ "z62dvoWt1pGozrqWtYC0t3+q1LeUtKeZu3qm06OWuoegypGZwXCrrXOi0HCfz5iPtmaZzJqB"& _ "q2KUxZZ/qV6bnnKZc2CQwJJ8qIOAsLtrj1+OvnSEto14pl2MuluJtoZ0pMlYe1qGs1iDr7lc"& _ "glV/qlWAqoBsmpZhj3Rvm1CDjX5pllN8pq1UfrxPd2J9XZ1XhU93nsRGbE92npBZh6VPfJpU"& _ "gqROe2ZmmUxzmUtxlsg6YXVbhLg+aZ9IdUltktAxV0hrj1FlirQ7Z80vVmZagLA4ZJpBa0Rn"& _ "iUluWmVYflBhhVhbftMkS25QdUJjhMUpU05lS2tMcEBff84hSj5efUlZeb8kT5M2XD1betcY"& _ "QJI0WlJRcr0hSjpYdcYaRJosUmRCY44vU7kbQ1hGZDhUcNsMNHg2V5goTTdTbrgaQWI/XoEw"& _ "UawdQ80PN8ESOjVPakBKZtcJMktGY2A7WlRAXYAtTj5QPIkoSTRNZ2gzUd8AKV03VDFKYmYw"& _ "TS5LSC5GXVgxSy5EWyxDWTRCMjo/NEsySio/VCg7TzI2SyY5TC47LR4tPB0xLiMuIh0rOhkp"& _ "KBomMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAQUAP8ALAAAAAA3ADcAAAj/AAMAGCiAgMGD"& _ "CBMqXMiwYQEFDiogMDCg4oEEGDNq3Mixo8ePDSSEcFGDQYIDBxY0WMmypcuXMGPKlODBRRAn"& _ "EVhKoMCzp8+fQIMKFWqhpg8vcC7w1BAChdOnUKNKnUq1qk0vfSxx0KChRAsYYMOKHUu2rNmz"& _ "OqTI4TSqgwcPJVycnUu3btgeWOiwdQtXrt2/gMHi1dv2bdzAiOsO3mvYb+LHZBcX7gu5sljJ"& _ "fA9btoy58WbOeRlT/gy582jSiU1rRo1YtWOxLlpIdfF6bIvbtee6JtsihAWfFrp+LdubKQra"& _ "tOnuhl2CwkoIEqJrOF7WRQkLG1bcLlGC+tnlYV14/5AA5MuXN+jf2PFhg6wLFB60RNqBwoKF"& _ "1WXBg23hgcKYPGbcoceAelwhA3K0ycadGHzYEMIEbMSQ22WhTYYfDMW9wccjpnCCCSFg2FBC"& _ "CF71Zp8FIbQgQwsUjKDJDGBNCIN+GI6oISGEnJEFFCJicEJT4zUAwgZFxaCBBCZowoMNNshg"& _ "Fo0tlOCBekTY8FQJGuRRyAshSLBABoXk4cEQmnjQhCZoaiJIET04ORaUIWgwxhsw1IcidzNo"& _ "kocIEDzAhiZIuMCEJjDg8IQmlYBCCRhBuEkhYZnV1psH/3VBBRNMWLEDk1VoogUEUWiyyBky"& _ "DEpED0ZoAkoqj2Thg6N3Vf8YqW02RpJIIoLkSsYSQtjAhaeaMPIJGDAMyuMPmiiCiRu95ier"& _ "Z2JFGcIbgoRyyicfukEEhirMoUkjkPTRAwqDLgHDDZrEIQePTz572n42VhsKIXKcYW4IFHyQ"& _ "hyaR7CEFfOWeq0kb9sL6qGgXSqshGFAc+J4GEECghSZ/aOKIgxQEnOcWWPjwnbsXWjftGzq0"& _ "oEFPEDSQgyaHfBKIJmVgOWgWNqCrRBA2yEjjeyigB0NzO1EgQQqROIKKKXgIoskUMHShiRxF"& _ "7KBJFz3o8DGk0MIGAx9pdn2EH5qUkkqOakQSyRp6aIJIFkJw7ciabUYG8oRBpKHIJpMAojcg"& _ "dQz/0okohGCxhBeDZIKJJJP0sWMYhlyyCBjNvjk3WTIEkQUemGSeOSF9dO6GFD70QAQYdJSu"& _ "IxFEXP5IH5AbPOPkZNkgBBRZgGE7GFlIIQWvOsgggw5BoE6EED7oADztWRDRu9xYvzuWDExG"& _ "7/v0Yk3ve1jQM3k98wjLyJpusH8PGI3iKxd++Yqdjz74zV+4frvte/9+rPHPb3799l/dff76"& _ "Wyi//eTjn2DUJ8ABEoYE3XGBDYLAwAY68IEQjKAEJ7gEN3BIFSyY0RLA4IYOevCDIAyhCEdI"& _ "wj58IhWraAUNiuAFPHDCFDCMoQxnSMMa2vCGqXAFLGDRiiS4AROp2KEQIIdIxCIa8YhILGIr"& _ "0OAJVrziiVCMohSnSMUqWnGKpAgIADs=", _ $buttonOvr="data:image/gif;base64,"& _ "R0lGODlhNwA3APcAANTgzsrg2sfe2MXZ7MHb1L7U6bzY0MnM4LvR6LjWzbTN5rbTwL/G3bDL"& _ "5a3I5KvPxarLtbW/2aXD4c2yyJzFu5y93p7Eq5i73cKqxJS325a/o8mhusefusSduIyz2Zqt"& _ "0Y67nIm6rc+Wr4ux2MCat4Ot1qqbvYq0ireVtNKJo3+q1ICxkHqm082FooSeyXOi0NR7l3Cf"& _ "z9F6lqWIrr99nYSPvWaZzJ6Eq5CJtG+igKh8oouGsmKUxc1pibBymLxrj1+OvmmJuF2Mun+H"& _ "bXt7q1uJtlqGs9dSc1iOgliDr7ZagVqJcVWAqlJ8pWdynMhJblB4oE50m01zmtg2WktxltY0"& _ "WUltkkl0ZUhrj51GcdAxV0ZqjYdNdrE5ZtopTsotVcosVbwyXY9DbK41YaM6Y8cqVEJjjINI"& _ "b0Jig9sbQT9ffsAlUD5dfHNEZ74jTZ4xWDxaeNQWP5EyWDpYdUZTcjtdUDpWc94ONcYZQ44v"& _ "UzdSbtoMNLgZQM0POHYzVNYIMTRPaTlQP7QTON8AKTFKYowhSp0bPsgIL7IQNH0oSMcHLdMC"& _ "KrwKL7AOMS5GXYQfProHK68LLi1JQEI6UixDWa4KLIEbOSo/VD81TCk9UpUOLYgRLSc/NzQ6"& _ "LnwTLiY5TCU4SmcbNHEVL2QYLyY1KiI2L1gaMCEyQkEjNj8fMR4sOxwrOR8sIiYkMhsqJRkq"& _ "JxomMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAQUAP8ALAAAAAA3ADcAAAj/AAEICCCAgIGD"& _ "CBMqXMiwocMEDyiEOGFggEUECjJq3Mixo8ePIB1UGBEDyQIFCBA4kMCypcuXMGPKnDkyhpEr"& _ "EFpWyMCzp8+fQIMKHUqyiJU6Fnh6UMGiqdOnUKNKnUrVphU7kjSMGKEiho2vYMOKHUu2rFkg"& _ "UNAQ4qSVq1ewMeLKnUu3rt27YtGqWdu269cYLEqM8EC4sOHDiBMfVvHirQ29fLf6tcEigwQH"& _ "mDNr3sy582YJGSY/hrKXrWSvMUpIwLBhQ4fXsGPLnk37NQkUM2qEhWzarY0XHiRUGUS8uPHj"& _ "yJMnz5JECI/Rpft6fTGighbl2LMrl7OFyXPe0n+X/8jwRbt584XsQPlOOrLvF4LBEFfkqb79"& _ "+/jz57eUp/gjQFIAAZ17fsE3gnyDRALLggyq8skll5yyCoMUVrjgKXpA4R+AAoJ3mngHEteI"& _ "KpfowQYb3f1mQxNbqHHii2ygscWMW6DBBhZFxLBhgAP2VmB8xCFyiRpMOMfCBQ1E8EUMQhTh"& _ "ZBFA8BCDCoWxYMNzge3YYXs+TgfkIIg4soUQU1aAwARpDEIElGCxEBxKCIDGGAtbadljeAYi"& _ "GOaYwDnAwB3EkdFEETZMiWQBB8hQRRU+dEWlB3Z6+N6XewJxpAPDEddHFEbYoEIFCgwAA6DF"& _ "dSEEcJAS9x+Pkv4YIphiWv+agQnHiWEEC2YOcERybRRRQqqDrLpldB/mGWSs8N1w3B9BjBCq"& _ "F8oxYgWdkXKJJ6VikvnCC8iFcUEBuyJXSSqrbEFdtcRO+uqeQnzFwxjI/dADcouMsqAjTVCr"& _ "Kod3FovtmF8B4cQf5i2SCiyn2CGFDYKhS6CX62YbMBNnaGcwLJmYkQQPBjrcJYh6SnxlElG8"& _ "gd3FlFhRxHMd78uqtf5GDHDARRgBb3KhqEIIFc591XKw/LYKccgz/6ZCCSXEgdwfdHT3HFg/"& _ "C9uvukS3S1lwDdCgHB5BANZUXNSN4PG1MgMBWAYOFNBCdnvgsNUIJQRG2Ngx60lIFDF4AOoA"& _ "IpD/mp0SH1xwwVY80U11kHoUkUEDBQyQQnKHJLfHEzq4oELhLg/7MMjECTJHDBIUMMEUyW3S"& _ "CiPZZUGl4a4iKAgcMTyRZnKQtIKxIcodQgfDrA+NeBE7KIeyHYAksghyqTjCQwm9cw7mzklw"& _ "Qe/BhFgBxRZ6TNJIcYuYAgvszGc+devHbhHFFn4Yd7EjVECZBBV2XIKKJ6LY7ggTKogtvtDO"& _ "78mEFHPAhCYqYTpYsM85POBBEdJCiE+c4hN6WFjD9gezww1CEHpowleKgAVAZOIThNhCjqDy"& _ "gscYIQmESg3mgPaydLmqPIPgAxRikIEKVGAp26LSBWzIwx760AENcEDz/wwEQzfQ0AEbaYAS"& _ "QeKRxhVgiIKB4R7AoIVFWfGKWMyiFps3pRKU4TxgVI4lCNHCzQHmBWsIoxqN4wn2ae5jXxEC"& _ "H9ZIxzZGgT0ufAsPmMAGUFjoj4AMJIVOMQfvjE+PRqDCHAgBoUY68pGQjKQjKQEINUChZ/xz"& _ "lxCSwIQmePKToAylKEcJSiYYIUoBg1kJRGOWVrrylULgEgiYEgMgnDAJuMylLnfJy176spdN"& _ "QIMeLlGKFdhACCxCgzKXycxmOvOZ0ISmGubgCFCowhU5YAIWqHmJTHjzm+AMpzjHSU5ygmJC"& _ "sHDFEtTiR0G6853wZNArhhAIUrDinvjMpz73yQjPfvpzn50ICAA7", _ $buttonDwn="data:image/gif;base64,"& _ "R0lGODlhNwA3APcAAM7k09Phy8vi0MXZ7MbfzMLdyb7U6bzZzLzaw7XO5rPVurDK5a3I5KfN"& _ "t6nF4qbNr7q90aXD4ba60KHB4LS5z5y93prGrJe63JTEnpS325LBpY+12qGtybOmuoyz2Ym8"& _ "nrCkuYux2Iy6goOt1pSkxX2p1Hq0knqm03Oi0KuOo3Cfz2qmg2aZzHWPuql7j2OUxWCQwKV4"& _ "jqR3jWCOvl2MuluJtliSh1qGs3J6pFiDr1iNclWAqlV/qlJ8pZtheVx1n4NigpNbd092nkxz"& _ "mWZmmUtxlkl3aFB2U0ltklJnjEhrj3JWfUVoip5DW0RniUJjhD9ffj1bejtYdjpfVDhUcDdS"& _ "bng2V5ArSnUyUqYeO98AKTFKazFKYq0VM4whQqsUM3ErSdIBKNEAJ2UvSy1MSIUgP7wIKrMN"& _ "Li9GXi5LQsUCJqQPMMQBJCxDWYwWMyo/VKEMK7YBJCk9UidAOF4kPagCIiY5TJwEISU3SiQ1"& _ "R48FISI3MCIyQ4IHIGIVLHYKIR4yMGoMIh4sO14PIxwrOT0cLkcVJxkpKDsZKRoqJSUhLxom"& _ "MwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAQUAP8ALAAAAAA3ADcAAAj/AAMAACCAQIGD"& _ "CBMqXMiwoUMECh5gEHFggEUDCTJq3Mixo8ePIBlUCKHChgKNCxyoXMmypcuXMGNOCIGihpEG"& _ "Kytc2Mmzp8+fQIMKpUmjyBQLOzeMOMG0qdOnUKNKnaqiRhEpaTR48FACBYuvYMOKHUu2rFkY"& _ "Qp5wmaMhRIgSKszKnUsX7AwhUNa2fRu3rt+/X+/mZesWLuDDYlGcKNE1MF69hfsiBqyixIYK"& _ "FTyc+ErjMWG+kwGjCDFhQQIOQFjAeNF58F7DoemqOLHBgQEDPsKEScJjhmDIoGPLrXxhgQEI"& _ "X7SIoVNlCI3WwGELJ4tixIQEA2KEUV5I0BYhvj2//5Y8PezoCAYGNNGiJQ6iRXKc3GAtPnL5"& _ "xB5sQ8jCPo4i+E7k8MILv30m3X20MXCcGf3914YSNbzgmGv23cdCggZ0wKBy77VRRIR21Rdc"& _ "eRimsB2Hi7yBBA1iFTjefShsoKCJ7GlhyCJ2MAFiWC5WKBwKHsx4ohaDLJLHE/ON1eOIoY1m"& _ "G43s9bGIIFAISNaSByKmwgjoQTBkHYssIsUOEl4pYpaUWZcABBtqwcZ/VfQAg1lYkjeWCijk"& _ "aScLJVSA3Rk1avEeGkLMSeeZe341mwcXVJDBCChIdkJxBvBXYyDwKcGiXHVSN0IFxhngwAZw"& _ "qYBnkAasV+MdUyJZ5qEUMv+pqJoDuJDFGUBEaiqXCcgQ6JuLUMHDq7BGtyeQDlDQRaBLzNln"& _ "AhIMaeMihBo6V6eJhUBCm+yF8QMLGxi3bI1S2qGpX9iGhScOawTKXhksTJDqr4oQEoWVdaUb"& _ "1gs3CAGGu2G0wAAI0t7IRaF/6QsWDDkMoYQb7l6xAKA16oHjuQkjShaBN/SQhBqBhhFEoGLU"& _ "ey+xdCm8Lw05YOGuu5hWe5jKK98A8stuLsKHEzUgRvPKVuA8bRXD+qzxXATeHCiYdiAxw2Q/"& _ "i/WCFy/fKAW+Mx+NNBHu/pFiEU9DrfVcNMDR33t8uBpa1PvmMIYWevyHBxQ7WGt0rGhuvAMU"& _ "foSh+WAOdt9tbF0vWCXFFlEIQQPKghuYKFkw3MADDzcEvvbYSA/I+OV4P27htZh/nm/oooPe"& _ "eemAFfhBCSeoEPkNsMcu++y012677T0wUcUbe5jAwgw9KPHE8MQXb/zxyCevvBRc2CFIIivs"& _ "gEQUXLxh/fXYZ6/99tx373yYiejwxBZ2EBLm+einr/767LeffiJHkAHIIfTXb//9+Oev//75BwQAOw==", _ $alertBlue="data:image/gif;base64,"& _ "R0lGODlhfQBlAMQAAAAAAAAACAAICAAIEAAQEAAQGAAYIQAhKQApMQAxQgA5QgBCUgBKWgBS"& _ "YwBjewB7lACEpQClxgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"& _ "ACH/C05FVFNDQVBFMi4wAwEAAAAh+QQADwAAACwAAAAAfQBlAAAF/yAgjmRpnijQrGzrvnAs"& _ "v2lt33heRnzv/8CgcAjUGY/IpHLJbDpJkKh0Sq1ar9jqc9vMer9gKnecRJjP6LR6zW6ryXAd"& _ "Y06v2+/4vP4e79vcgIGCaX6FJ4OIiW+GjCJ7j5CRdo2NipaJlIwJm5ydnp+goaKfmYajp6ip"& _ "nqWsra5+l7GBr3AFtre4ubq7vL26tGQDwsPExcbHyMnGwGMGzs/Q0dLT1NXSzFzK2tvcxdhb"& _ "BOHi4+Tl5ufo5d9P6e3u7+Tr8vPAAvb3+Pn6+/z9+vRL/AkcSDAfwIMIEypcyHDdjIcQI7po"& _ "iIOIxYsYf1DcyLGjx48gQ4ocSbKkyZMoU/+mRPCjwYkeLlNkHHHxQUwVGW++evDjwUseOk3M"& _ "FJHRJ06MQVmxBIJAKNAaQwFkjNC0QU5gVnnw1Oo0QlISMGfQvIrAxVavLZrSgim1R9evYyPk"& _ "YGtiqdcTWeU67FGVbly4RHnMfXpi69e88nzE1fsXKlCxge/iJVwC8Te7N8+qjQy47cXGPyVX"& _ "dvvtLAm7Rjk7/hzZ5ouzh0kzs4uWhY/NfkNbXGxxMwnLzPISuZm762CMKIADmwoahWwbU2ML"& _ "Dh5dtczpN4qLwDwZ+9rnO0j3cE3D88Pmo72PUO6Ke3K+nodE3m3dBHsR91lpToE6vpD5RKD3"& _ "G3j4EcjKeDZoxlr/VNoVqJ6DjKkk4YQUVhiHXWbwddcKCHIIE1UaurTCenzdFJNLinXUAHkr"& _ "tigYhxyqsMIDNrHUok0vmmiTa+vhJxULHqUm1Vjk6SXXiCO2RSSQEJbVowrmeRQhYzzYaBVR"& _ "MmapZGBWrrdjklBCiZZvFD3QVFlmAoAATwDQeOWQSMYUQZpryuXmeiKCaZRPEaoY1odqeqVY"& _ "nETldaWNJALllmIpqpgkkCeWtcKZlPoIKX6bSZqnS5JWxaSFoIYq6qiklmrqqaiCNNWqrBr4"& _ "UauwRpXqrLTWamutBeWq6z+39goAPMAGq05JwhYbrK+9WqPsssxGY1I30Ea7TEm+VGvtXbW5"& _ "mCTLtmyYhO234P5SUrPklntNSaqkqy4pyNoqybvw8lFSvPTCqy23+J5hUr38QnJvvviatMDA"& _ "BBds8MEIJ6zwwSaF4fDDWpS08MQUV2ywSbFmHGBJGndcBCMhAAAh+QQADwAAACwAAAAAfQBl"& _ "AAAF/yAgjmRpnqZACEvrvnAsz3QMrGiu73w/qoQVZEgsGo/IpPJ4Cwp80KgUGMRJr9GqE8vF"& _ "BrRVAWNMLpvP6LT63AQ/u3BdgOpe2+94c9sdiPtJdGArB4SFhoeIiYqLiHuCb39dc4J1eZaX"& _ "epRgfZFXgZoCjKKjpIeOoJ1Rn6AGra6vsLGys7Sxp6ipO5Oajwm+v8DBwsPExcK3vJy5Jl+8"& _ "lAK10dLTsMjJyyXNzo+l3d6N25TKy9rhWqHf6d3WzpCp5eZh2F3xj7nw9SvU+/y2+Zud8OUT"& _ "MKCgwYMIEypcyDAhu3DjJP17JKCixYsYM2rcyDHjQ4h+Jj4SSTLcR5ASS/866ciypUuMJ7dF"& _ "vCJwYICbOHPq3Mmzp8+dMa/52SVSwM+jSJPqDCou1Spz7uZlKTrTz9NtUaX6KCr1Kq+sWnlM"& _ "BPvun4AGaNOqXcu2rdu3bJlaCVsTVIS7ePPq3cu3r9+9TKvOI4oVruHDiNcGFazVa5gakCNL"& _ "hnHSaNgcjoUs2cy5c5GPZC//wCoaCunSclSqXn0ONY+6rGPLdN2DsOzbQmn3yIx7tWXdUHj3"& _ "JhkauPHjyJMrX868+QEjC04QiZ7D8wjODqgDWOBZu3EHRhxIH+LdhHURnsVv706vXo7nRw6Y"& _ "J6/jPADPEORz76w9HwDYguSwHwTgDaEeCdPVR17/DdexdwAMBUIAg3wiDCRcENXR91kJCWYI"& _ "gQ8dlgCfhCcMmIOF/pVIhH4hokefhyC+aEKB5YlgIgooujfeEA3yiKCMO0LWY402AjnCjScM"& _ "V8UJI2oXIYUukujhZkOi0OKRRJyoJAEnREjCiAfeZySHnfWYXQwREomkCVtyKWIRMBQB5ZVk"& _ "ctYjZ1CSsGYJbZow4BLa0fnjhz3gh8KeJPRZp51REtljjPyp6GOSW5bw52bUCfpooWMC0KSk"& _ "hFKq5KJTRnmmDWJKyGCjh2bpp6uiDvelpusNIR+j9mmKaK2hslnpCE++R4R4uJbJKqjI4vir"& _ "qTs8WSyjqTq6664VLtuc/2hmpXgttgNpu21YOcYTxYiErEhiC8Nu9yd35J6r3YAPHmljqr2K"& _ "VY9R3vKwwKn79ssjuuiqu292z/Wb3b/vZnemvNvd58JU8TyRb7MINngqoR+2oK6LFj9cpK3v"& _ "zktrrChh02uotqqK8cYai9lgwQn3G3LDqub5LQoOyPdgzp6CB4ADB6PHcqY8H+Az0O9G5/HP"& _ "IhB7sw8DokvehwV/pnHLEk5HtZS8mvjZhk8L2PLD1C3wYAs6pz0v2TZCebbSGp+t39Jh1223"& _ "Li/lrffeFdl9YZsDhf034IF/OzjhNjVnG+K9MeYagMXpNhtyAGqG3+WYfxhO5I1Blfnn1kEF"& _ "nP9wnLsWMW0XCvDX6qy3rldQv9FlVmK01x7XP47/Ubk9zU2UOxy7884cV8scvkXvxHdivBNK"& _ "Ne88UCWV7sPyzD9vffNyCfK7Lr5du9r2OQTfDuPmZK99HOKDwvf6L5nfmlUqEdTQ/PTXf5D7"& _ "x/9BPTT99L8P/tILDnHsR8ACOoQ42DCeAArAwAY68IEQjKAEJwhB8wXQE2NRhwZHkb0LYmFw"& _ "HgRX4WR3L2OY8IQoDAZTQpgSqKTwhTA8Rj3A5xSobPCGiqgMDXORGTFg4oeWAE1yFncOHBrR"& _ "EOyIXXKugo4jGtEaLAzLKnwIxCqu4RZKvJZtmujEGzoiizcjigBAR8YSJbQBjHWbxBjLyEYj"& _ "3ACNkQgBACH5BAAPAAAALAAAAAB9AGUAAAX/ICCOZGmeZnGoR+u+cCzPNAysaK7vfD+yK4Zw"& _ "SCwaj8ik8dYq+J7QKLAZrUZhTqu2KpAVlOCwuMjEbs87gWH2Hbvf5JlBgK6TprGCYc/v+/+A"& _ "gYJ/ZTIGdmhqNSsJjY6PkJGSk5SRhTN0iFV4bIOen6B+l2yaUGuLTQWqq6ytrq+wsa6jcqU8"& _ "iqhNubu8NLQ0mbYmXb2yxsfIs70HwcIixMWh0tOEy8zOz9Yr1NzTv4tZttDL4dhX2oel4+QE"& _ "7e7v8PHy8/Tx36jNidouBQL+/wADChxIsKDAe/jsrLNWztyTfS7yWYHIL4DFixgzatzIsaNG"& _ "hLkkQlnI0GEVii1E/45E2dAkD5Qqo+DS1tKlDooxrZwqadPHvjnCdhaLQLSo0aNIkypdihSk"& _ "IXOcUBVgSrWq1aNOYaQzR7JGgQVgw4odS7as2bNks/Kz2ZUNhLdw48qdS7eu3blqr/WcCQ6t"& _ "37+Ax6rNiU0ojagoIToF2rOEYS9wIr8BubVxCcRrLe9YVFkzibaJQ/Oq6Tmb6NPLCHvmi7q1"& _ "DNWlATx23ZpxbB6zaYfufLu379/Agwsf3tiAg+PHE5xArjwH8ufQj4+IHp1BcwAJqFO/HpsB"& _ "dAbLk+vQHn06+efgsZ9/zv3crhzGo/NmPn69dBH2kR/Knv96LwCgxZADfw54d1x6JNDnXP9y"& _ "lZjXn2yQGOgAJFsVg5kMC04IwHMmKIgCcj54SEJ8GppAYA4W/ncCgfuJuKF4GYYIowkGtifC"& _ "iSikyMuHIOLXo4M2JsggJUCiwF+QOJ6gWwsnkHidhJW5WEJ+DhQZXoklJGnCkgecIOGIyCH4"& _ "IpZXruegdZFIiOSPWy5pAokTPvLcVlIKaZ+D9vGm3n1Kupnlgz6S2SGfO1BZ5YpslsDloPlZ"& _ "yeOhPBi6JqGK+jkCgfY1V6eDMgoqgpOIUkrConZCyuihYU4SaCXXbarlpYmOaqlsm+7pwCF3"& _ "jmnmqkbGaiuKs0IJX5i6ahformMG+auJvopAaqBieqlfrlQ6+qf/qMv2qRtxPZGjIrcmebsj"& _ "uOHyYsCFAj5B4h7TKtcIse8yd2u72F3Hor036gpFMQHa8EQCaDZinXXSvftuvQBbZxzADBds"& _ "78CNXJpvnMrmOFpeUIgJ6YGOoFrvxy+aFzCsxxmAL3bJ7ssLbFqYuvG8B2/4ccQh+7jwwwyf"& _ "rFycepI7AgOHmAy0bN4BIER2+M2s6dAGFH30pe7SbLQI4Jnqc68MyksrpkrjRyDSC5M8IYgc"& _ "cni1kTQ7gjJ2JjcS9Nv5qt1cAlu1HbVybe+n9tl8932CAMkELvjgqpyNLpc/+Zwb4on17Nvi"& _ "jDfOMluQRx7a5A4FSFpsi2DuTL9tSCa6/xIgbe7S4UGMrvoRi5VWeWbB7eJ4YaPdZfvtuMul"& _ "lm2ZkxPY78CnlZpJ/ebRwPHIJ6/88sw37/zyeaXEFU1XVW99UzQ58zobz3fv/ffKR+/C7DpB"& _ "ZLpnEJFvCkXnawaTPiwNl5jnJRQPjkf4569/RuLHQH/98RNOANGAusMY5IAITGBA+jc+TWyP"& _ "DfWIoAQnCA8GHkB9UXhgHhTIwQ4eJHFBockARkjCEprwhChMoQpP2D8MakGD/OiGDD8hPhdu"& _ "oYCwA84ybHgG++nCcqjIS/s04UMcMm4wntmeHmbIREAs5n92OFwBWEXFKlpROVLxDWuw0MQu"& _ "9uEevOsNZoyIuCxvDFEzswnd6tYIHkNA0SWsIeOitPLGxsxEjWxUXRnCeDZF4DGPorsBHzUR"& _ "AgAh+QQADwAAACwAAAAAfQBlAAAF/yAgjmRpnubBHGzrvnAszzGwoniu7/yoMiugcEgsGo9I"& _ "ow146Dmf0J+wCa0+iVSrFlowHhTgsHhMLpvP5CV2y9YVFMcvek6vi9VERaHNJ0m9BYGCg4SF"& _ "hoeIhXhFCn1tb0krNJOUlS+LRnuOVX9IB4mgoaKEmF6bT3CRTAOsra6vsLGys7ClRo2nbqmq"& _ "Kwa+v8DBwsPExcK2R5q5Jl28U7TQ0dKvyMnLJc3OTATc3d7f4OHi4+DV1tcA2dor5O3u79/m"& _ "cdfq61noUOtDuJv19gEAAwocSLCgwYME5SFRxsefPXxW9BFhuMXhQ4j5JA6hGFHjkHsYeXjc"& _ "yMbixZA9Rv8K4chF5YoIMGPKnEmzps2bNBUmYVkFkscDOIMKHTpT5zlHu/SBRJnDo55lSbUd"& _ "gEC1qtWrWLNq3YrV6D58nXhN5Uq2rFmrXoHwQ2cyjqW3cGGkXUrPnsu7Q7zypBfVU9y/cI3u"& _ "xdfXC+DDlBQ+ZVqiMBa8kOWtZewnEl3KJSJNxjyiLeTPSS5zTge6tLPBo32aXj1xNA/HrPEu"& _ "dr0DduyRm2nr3s27t+/fwJnWozulKa8RqhRkCTtPd9TcxXE4Q84LF3NTWtbhcMgxOorpIrTt"& _ "uV4ki3bPRHBI2bXZ+4kpNKiLTfdi1wtl9sgr+c4Ejwn3/wGRUn/MACiCFNJJpV//EShIMR6A"& _ "BpIgxIA3nJAKXQjy5wwL2r03YXgfyieaGpOI2CCBJWToIWsnZJPFLgxFKF8kJq6IYYgBsmjC"& _ "LiRks5aMIKoin3Iw2HeCijmuViB8LZAU5IjgCXYkjpnFlsJ8TxrHAIVCTimghkpWeVyWCW4p"& _ "0oZemrlimD5IRaaGFNLlYpplshmkmkkGSaRcJMb3ZopUHhjojKb1CKSD8tyZRI1Xfgmoo0kW"& _ "OgKM2wnRSJdRyohkm5CKaaelOsCI6ZgkntipoKcSWlpwTCnVIasYuaoNrCGto9yrPGQTyEo3"& _ "cKgWAL4ywYCuvS630nIH+ueEPejl5cQXLih365Yccggs/wtgfLKCtD9c6wO3yAJrQwtXuIlr"& _ "bRJSt6eZ1DbBAojqkovqsOE2AeSaqqDGBp5qAtGFtTZ4++4S1P27HLg+JCuJvqw+VcAXe0AC"& _ "QLbsCkwFAw7DMbFyPrg78MQiXEorD1IEqwJpf1gcXslb/stpEALm5ezIDQ5MLhWftBDxzsne"& _ "fKAyD79LbtDjyUvz0Uhvh9jSiB294G1OjWwb1CrlxtvUVFfNsHBYZ+3S1hh5NiJnkYDNlipP"& _ "e70l2rSlnbbXio3WdYW+OWM1YVKpLaQ2s0HU7EdMB+5CWmZb8fdHCySu+OKMN+7445A3ntaw"& _ "+Bz+0VmYZ96VRmNrMXd5kYcu+tfojE/+6ymfl0fU6qznhNsmqave+uyrm+5kRXd1TtldhWOT"& _ "O3C8P+KS7owN38fbzdX9OlIjHYDQ89BHP5DtGOcS+71ka3Q3G9evIMD34Icv/vjkl2/++KZv"& _ "38b1B8Dj/vvlSKQ+H8ij2Js+8/dh+QHG9O///8HwCvH0JxUAGvCAxxAPZ7r2iVE48IGkqE7v"& _ "HPE0wVnQXpbZjWoAAcEOOrAafdMNefiHwBIaEBkDZExh5GCHFrrwDreYIEo22AsT2rB/iwgh"& _ "rFRTP6ipQYc0g0QPb2MDIDoiBAAh+QQADwAAACwAAAAAfQBlAAAF/yAgjmRpnuYCLUbrvnAs"& _ "z3QMrGiu73w/qpBVYkgsGo/IpPJ4Cy580KgUGMRJr9GqE8vFHrTVBWJMLpvP6LT63AQ/u3Dd"& _ "wQEOr+/4vLkNdhzigCRUdSsDhoeIiYqLjI2KfHUOgXFzhFosNZmamy+QhH+TV4OWhY6mp6iI"& _ "noRvoT50pJcCs7S1tre4ubq3q4SSrjuVsZcExcbHyMnKy8zJvZagwCZfw26719jZts/Q0iXU"& _ "1ZcB4+Tl5ufo6ern3N3eAODhYev09fbm7ZatrvHyW+9Y/PUB1k/gPoBQBIKJBqigQYRXFC4M"& _ "5NBgg4sYM2rcyLGjx435hjHkIrHOgggoU/+qXMmypcuXLEOKhFPR4sebOHNmlBlr5JWa8kaV"& _ "HEqIpztKsEoKJco0iNE6PuEkVXgQIo+hfqRN9beAgdevYMOKHUu2rNinQX55Wzqsq9m3cOOC"& _ "Rav2HVBWevLqZUPVKjyDcgMLPiswqt2tpMTsXZyXp2GEiFlxmkzZRrisfk1EdrOks+fPRvLV"& _ "zVyCbRjSPYaNRk3ibtPXXFnLgU176GPZIoTV3j0TN4/NvHdj9v07uPG0xJMrX868ufPnvgkY"& _ "MXCCCPUcoEd4RnAdgAHQ3X0jMIKg+pDwJrKLAF3eO/guAnNIP0Ig/Xkd6gGATlD/++fu8bmm"& _ "RQ7+JTDeEO2RYB3/fufVoN17BMBwYAIw1CeCQaYVhcKCRdhHIYMJ+LCgCfN9aEKBOWAY3wkF"& _ "9jfigyZuOISI951wIHoioIiCiv7IOON6RJTwonkUOghkjCX4h6N7P55wnFMkvjihhUcuCWNn"& _ "MFo55Ag6OvmkjUGOUGKC+tXoI5ZHchfDhEt2acKTEERp3QtFULmlkJ9d2RmVJLhZApwn/pcl"& _ "iDTmyWKYXh7noWeDYtfkDvu1ieibX/YZaZWE9nAnACVK+uiflV7p6I9EqGlDmUXS0Gign+Y4"& _ "KaiKirmpq0PUxyiqaKJqpZ+0hrhjqABMKV+puCZxZK6z8sqkr4kapyCCO0x5a37Jvtpr/4rA"& _ "QocQVStqCxG3PXr7rT8OZFhHFCUWQ4R01LVArLvW8bfuhy1wuW5311HXYUJcCVhFFAaYGvDA"& _ "M7rrrnctjGEAu9xxVzC+Ddeb48SpZhFbtz2QySyCLvgaYr0SN8mxxMtGyCXFZqbmz21xMKvf"& _ "g+x+tx7CNJcJc5FcRowvxS3wKa4JCNQXYdCcjheswzODfJ2BQhutMJftktxeeS7/jEKB8FIY"& _ "IrsdKr0e1lvHCPaMHe5rNYsSu+BdjhH2zKnQFkbdLttiqq122/2pffbefJ9wwAKABy744IQX"& _ "bvjhiB9+trlwYvUzcI03tRpzkEcuOcuo6Wb5cZj7dVdVyfVGnP9rC+xn+ulBVgN6ZowLgfrr"& _ "eV6GW+WnOSfP5JBxNdjugvE0HEL+2sHY8Hc81TlNEilG/PJ8KXS8F0rxLj1caFkBDO36MK99"& _ "GdVDgHsX2OuzeTjdex9K+OKPP0z5QTyPQvCJPfea+9O8dhJM+Oevv0rst09JUwvQiQAHCBIA"& _ "BqJ18bMdUb53BfSZRH6Oc4UDLwFBiTAQfEqpoEAuKJXk3eODIGSHBSGCwNo1RyEcpIhBmsHC"& _ "FroQGUZZnTeCt4AX2vCGzliZbLC3gFT48IePuAz9QsE4TFTmiJzIhwwzozmTAPGJP+TG75Jj"& _ "mgUU4IpYzKIWt8jFLnpxi89Yom8io7ws7TFvFVN0ThOt+MU2uvGNWYREGrWlm9LB7o5KaMMc"& _ "f1YJO+Lxjx3y3hChEAIAIfkEAA8AAAAsAAAAAH0AZQAABf8gII5kaZ5mEzVF675wLM90DKxo"& _ "ru98P6qRFWJILBqPyKTyeAs2fNCoFBjESa/RqhPLxSK01YZhTC6bz+i0+twEP7twHeIBDq/v"& _ "+Ly5DX4g4oAkVHUrAoaHiImKi4yNinx1D4Fxc4RaDQSZmpucnZ6foJ2QhH+TV4OWhY6rrK2I"& _ "o4Rvpj50qZezgLZakrhytbpOAcLDxMXGx8jJxrCppb0lX8C3z1zSWs7U0dZb1FjbVdi42t+y"& _ "3Vnf3OLoYeZX60G8puPoqO/2hMzS4XDz9A3/AAMKHEiwoMGB+fQF6kdvgcOHECNKnEixosSE"& _ "CuPcCwOho8ePIEOKHEkyJMaMXBj/NrTIsqVLiCeB7ZOiclsDBjhz6tzJs6fPnzxj2pp5pZK9"& _ "m0CTKl2qU6glolx+0WsnxZ6fXlJtMt3KNei7eL3qAUPatSxTp1XAPqtpSYyet3D3TKXKtk6D"& _ "BHjz6t3Lt6/fv3zRQu1ldGzcw3CdDqaWtW2Nx5Ajw4h5leqJxnaXaN7M2chJtZZLiJ0Wmocu"& _ "0KVJ1N3Iem7qHKtbyx76mkfh2bhl1qaVu7elyrt7YPY9G3Xw48iTK1/OvPlxAUYKnCAiHTbn"& _ "EZsNVAdQoPP24AaMGJg+5LuJztg5j+fuvcu3HNCPCDhfXs51EZ0RzO/Oefv72FXkwB8C4Q2x"& _ "nmr1WYfA/2Pp9QeAADAUuOAL84lAzmiWKChdEfQtaN9iDZonQnwemjBgDhe+d8KA+1EHTYIo"& _ "EOGDiycUKCJ7Q6BoE4b4kJcjfjIiWGKM5dUQIgr83XgiCsQFaAKJ20lYIZBD+qjZkT4qGeQJ"& _ "TQZR45YPEnEgADQSuVmD2sUgoZY/ctnlk0XAUMSUZVq5RIObTUnCkm42aaKDVN7Y4IzorQhm"& _ "CV1G0OGZgX5IKKAl8GlCopHmV12dHT56I5SGtjnpm0JCxSGZBs4QqJGNdjqTpIiCOiKmexIx"& _ "H6OFklplrJ6OwCoJlI4gJXxi2qoElVem+meuIuw6Qq9UjvnlECQOK+ydxlaKLP+OUDHrHFX0"& _ "qLgtt+R4+6053zzAYx1RkGiIrB62EKy71OnHrnQt6CrrdtVteOgO5ADoJRQFpNmCdtrl6K67"& _ "3A2sHXQBN2wwvgTXm+zEEwrKpE1oRTGmM6UiTGbCIJOansD2QosvxTD28A2IXWDDsbwe/1Gv"& _ "xG1CO6GuEZ/MHZkt6DlujfNBaEDQ4QEwRnf4gUzz0A8WfbSu9EpstAjjsfzzgPAu+AfDHM58"& _ "KdZbDwl2jhyO+rOAEruwM3cQ9vxg0BVGTW+yU7Yt94Nuv3D23nzPeNDfgAcueEB8n5uoVWcP"& _ "d3hrxiWn+OKMW23ZbZATJ7k5dZWjnC6XrzVWfqCHLuP/WMcZLoToqF8nTePmPE7actaw/ozr"& _ "lwBm++247+UUcJjTg9jveKAVQedFrdNA6sjfuQ7xUPh7iVnQKyV8OrPQ3lby2DOBePX3kBX9"& _ "9ztNn5Yp1qfiPfjoi38NJa1pnlxrzGPXfkn0128/SOqvzw9rDbzk//8X4V8gTGe+wRnwgADJ"& _ "XwRkF4XyxaJy0sgfA6XgQDcg8IKCU98Er1BBdjTnK93ooBWYs44NdoGAHiRhuSZHDmW48IUw"& _ "LAZa3NcNfzUghjjM4TK2ET84WK8BrgiiEB+xuh7GwXCYCIUSl8jETZyEhqmhnBuGSEUhJoR3"& _ "yMFQAwbAxS568YtgDKMYxwjGM3xAETmYcQvw1sgGQmCxOZTbIhnnSMc6ehESb/xWYY6XvT7+"& _ "IS1GrE0l+OhH7N0gj5MIAQAh+QQADwAAACwAAAAAfQBlAAAF/yAgjmRpnuYCLUPrvnAsz3QM"& _ "rGiu73w/qpCVYUgsGo/IpPJ4Cy580KgUGMRJr9GqE8vFHrTVBWFMLpvP6LT63AQ/u3DdwQEO"& _ "r+/4vLkNdhzigCRUdVaBgYRVDoZwc4hhAZCRkpOUlZaXlHyIf4tTjlpvnXCfYaI+dKRbpl2p"& _ "QYqrKI2thbBSs0GctSJft7S6Pr0QubC8vQsRyMnKy8zNzs/Mmq3DosXG0NjZ2svSraGd1sa/"& _ "tsGu1eVh6Oqp3bPUjOsrC/P09fb3+Pn69+3ugeHlFhwYSLCgwYMIEyo82M9fnHhOGEicSLGi"& _ "xYsYM1ps6JALwIALQ4ocaZDjtDgfjf9pXMmyZUWTpN55QYVugcubODfGk9mFZrBv43io82PK"& _ "560FCZIqXcq0qdOnUJvCrPNq1aBZSKNq3cp16VQtVYn9LEC2rNmzaNOqXYv2q6pfKREJJEm3"& _ "bslePFfJSrWArd+/gM9+zVvLqNwaiBMrhgGTaFAThussWEK5smUjJsM+LnFV8uYepDR/JhEX"& _ "oumfo+WcXq2OcGoAe1nL/uT6tYjIs2c7ts0Dd+7TonkLH068uPHjyB8LMDLgBJHmOS6PqFwA"& _ "OoABl63bLmCkgPMh2k1IF3HZ+/XsrG7lWH5EgHjwOsYDuGzAPXbL1nvB1o/ivgHuQ5hHwnPx"& _ "gVfDdOgJAAP/gAbA4J4IxnT2SXTwFfFegwUa4AOBJrCHoQn+5RAhfyASYR+HCH6IAhEbwncC"& _ "gOGJECIKI6r33RApajigiysaSEOKMcrIIwkznvBbFSd4aB2DD5I35IWUAdmjikSySOORELxo"& _ "pQgeCjjfkyXIR0R1MTAYZJEmYJllCR42+EIRTaJ4Y5ROWtZklTheeWSJlVkn54UtWtbflmli"& _ "CSWdX1IJaA/0nUloCWqW4F+fdQaZYqBBKnkCmpAaumOec9ZJpg2JIiblpo8KCWqhe46g6aBD"& _ "uFdZnYj+OQKnqupopKciMLnemIkqQesSp/KpK57HdtqqqDswOWuwxFYKa7K5ishr/3K//EQi"& _ "trpoayO33d7igISOROGhAOdi2AKw6z5Xn4nqWuefgrfKGGwWR5VWRxQDjNrvvziuu+51LZA1"& _ "wHL/VhewvAqDCl1zblqqpzduReGlrgG6oKOGLRDsJIKj3oqZvdeVim9HphyL8bsDz+dxx18i"& _ "iDDD/8prr5t3gmtCAe4pyDMAAnAHgMEbvwzdfz0LbfCtzbkwgnneUauzse02qCHCFnYMs9Xg"& _ "Xa2ifyFaaOHU/cHs9MMKttDz2vaeLWOTaTfdcdr2OU323XifcMA+fPft99/1kE2umhAFZ5xv"& _ "hBfOLeKJF17bZrE1/tvj4+gL1HAxDaevEPR17jmOfPE2OP8on5cuXSuG/8J4KcfNkjosq4dh"& _ "1+x1fbWbLpu7EdjuvLcVDOVd5O6G6cQTWw7wVwjvRlfMNy9VTavETshkxVeP2VCiSD99Ttzj"& _ "5FYfi2i/fffkr/R9HcjrbdrlwpmWfgnKO2JT+fRfdD76KEE0F+38L3Q/KIEYHV8AR8AC0uN/"& _ "5jCE+NwguVYg8HVYWGAYDEjBv/0PglyQ4AoawMEOevCDIAyhCEcIwvthsCcB2YYKVxiNcpwQ"& _ "DgL0TOt68cL8HQU54niM8tjHm1u8DxCx46FtUPfDAPIFE0hMohInYRIh6hBxTkzNJ24nnMEt"& _ "AF1YzKIWt8jFLnqRi/2I4msiIwYsPZjxjHsgBBWPE7krfvGNcIxjFjWxRmzthXrWy2Mb6qiz"& _ "RuAxj9W7AR8DEQIAIfkEAA8AAAAsAAAAAH0AZQAABf8gII5kaZ7mwRxC675wLM90DKxoru98"& _ "P6qMFWFILBqPyKTyeAsefNCoFBjESa/RqhPLxRa01UNgTC6bz+i0+twEP7twXUEBDq/v+Ly5"& _ "DVYU4oAkVHVWgYGEVQqGcHOIYYuHjkF/kFGDjm+VXZKPmjx0nE4No6SlpqeoqaqnfJKKniiN"& _ "oU4Rtba3uLm6u7y5rZyUsCNfs2Grx8jJpr/AwiLExU4Q09TV1tfY2drXzM2w0NEr2+Pk5dbd"& _ "nJmQ4OHqzj7hWq+L7O3x9+HoocGA9e0HAAMKHEiwoMGDBPXtC+TvH8KHECMKVLgwDj43FzNK"& _ "oliRS0OHEkOKnKhxUpyPxQ7/KFjJsqXLlzBjynzJURK/LrLwqZzJs6fPljUR3YwD6p67dzwu"& _ "+tFUFOTIpxGDyhN2aRbUq1HvzfsW78CAr2DDih1LtqzZsVILOUNZ50CBt3Djyp1Lt67duVKH"& _ "CsuZ7qzfv4DFBtX7rimmGogTK4bBcSnSE4YJHVhCubJlIxS3Pk6RbjM8V57llBxNWm3oE2xL"& _ "qyZE+DQJvqtjs3btI7Ls2I5p97B9m7Rm3cCDCx9OvLhx4QGMCDhBZHmOyyMqtxgh4LJz4NWL"& _ "XCfRXAd0EdZFZJe+KVqO5EcCmOj+3HL0y+rHU76eL7WWHOPzrx+yfT8BxO9ZtlwAMTT3gnoi"& _ "/JMP/wrdFeFffyUQ4QN7JaD33wnj5aCgeRgSER+F4PHn3RATitjhhSZkiMKGxTAoYYgkcmei"& _ "i//VECCE4s1Igoon9BbECRZeNx6CMOIYIGU30ogjjyb4yMCJBJAQpIwo0ohkkTOASN2LPfpo"& _ "goU1ulAEkVpG6B6MlRG5I5dNelmCfEpcVyaVJZ6ZIpslOOlfZUm2F2UPl1W5Zoxd9vZmoM7N"& _ "GWCdOE55J6FtGkrln8y9aKAMWNLQ56OUDtppnm6K4CiU6vEJwHen6ugplBqGCsCQ5zV4JaqK"& _ "MrklpKBKWuQOQ5pKq6q3fpojriToedxmXS14LFLJcrjsO+EoUNVGUFg4hv+HF7bQnbbNEWBt"& _ "tkJ6KKR4qRKrQzv2VRFFDSRqq+2rMCQHQ7tCMkbuq6e6kEU0Tyjbw3aU8icmePAWnOp7LwRL"& _ "IHXkKrpiNK0B0mnA3tb4Z5TTTXdwiPLWm/C9y9Wo5rMYqkegACZXB6/Kpxas8X8pY6yxyzM7"& _ "FzLJ/xrYLQDyOphxovlFKW+wGTroIM74aayvzSejzLPJCC63tHhENr0yzy3Epy/SXHctB1Zg"& _ "Y8X1tE6O9ptxvJVt9rNpq212xKfB5rZscG/G1lHBeQNcapMF6vffJIaC92ZkuwH44dDNcjZS"& _ "bWsxuG7FLC5M447fZfnlmMsVVG5rdRXY56CjFU/y3ScZlfnpqON1D+ke6RT26yQZ5QnliLiV"& _ "+u2np5VIJbTX/tPvwNOUkeRX9O578Mj/rjsYrOeQriSP0zZa86iNVvjc901fukawd98v94Fc"& _ "L7j3ry+/uyHGt4V9KOYzQDwW6TtOftjmv89F/E4soP/+/Pfv//8ADKD/lme/LuDvAOZIoAK5"& _ "oZV3iK8tx4lHAfvRjl5Y8IIYxIVUoleJ5x0ggyAMoS8g5hracfA0iqMeJB54wtAITjhyc1wE"& _ "HcG54BSuhZ7BxLJsIwY9+PCHeyBEDY0DGxwiSx4qpE1O+oa4JiahDUNEWiOY6MQqSsh9SYRC"& _ "CAAAIfkEAA8AAAAsAAAAAH0AZQAABf8gII5kaZ5mcRRo676wuMZ0baPqsQZ87//AoHAIBOhm"& _ "t6TylDuyllDXUfeMWl+CqfPKHWmp3TBAYPiCxVbzwSBAR5vmQmNOr9vv+Lz+blSv3UlkflQR"& _ "hYaHiImKi4yJfYNtgDFwfnJ7l5iZdY+DVZIoZYNOC6SlpqeoqaqrqJyDBp8ngqJOELa3uLm6"& _ "u7y9uq6ikbFjtFoFrMjJyqfAwcNZxVMFDNTV1tfY2drb2M3OktDRTtzk5ebX3qKeYeHiZ8M1"& _ "7lOwYu3y0+f5+ujyU8JX9u71GxgtXbF/UALeM8CwocOHECNKnAjR4MErBKUl2Mixo8ePIEOK"& _ "/GjxYsKMTij/qlzJ8mFJWggDoVwxs+aUl5C4zBpIyWZGnGpiRgnVbx28FwTZuCHqrkDLp1Ar"& _ "DqQHqCctp1GzPgV6hCq4ewLCih1LtqzZs2jLckXyrCmBt3Djyp1Lt67duVyFgmPaKa3fv4DJ"& _ "AtUbi68ao0dbFFOauIThLwWISJ5M+UdJr41JWJWWGYYozJ1HKPRJuhji0CJGl179hTDqMY9Z"& _ "y3b9WkRs2T4Z135xGzdK0LuDCx9OvLjx44Asn+jxovIIyiWcBw+ynEdz6CIqB3iOfYk7F9RN"& _ "MAffXTv3ySS+qzZDvkh06+1pmK8O/0TTzWpajPchvj6K8TAA2N92//lXwn3fFUgg/wACZmfg"& _ "gPI9eJ5+EsogTgH4sUffgvyR0CCEMXzo4YIg2uebgiMaKGKKkk2I4osm4rbhe/6teF6LDkrY"& _ "IX2KnTggiQwKaGOOOAbZXYkm+HbAhkOkeB2QFB5JY48y0ohejk9GKKWTKCj5Y5FDGqlllGR2"& _ "6eONURK4I48hVoglmzHKNmV8RjZZJxEuwjhnnKyx+OR2V0onZplIHnhmnX/eGZ6gQ65oo5fI"& _ "wSOQOJFK2lSClX7ijgEZfnHDftaRuCN/gIaq5482NLWepzaIymCQz2U3oqyAwireq/op0RRX"& _ "rXqYp5oF5snlqZ6JQ1sUrjqIK7DVcYerr1D6mmlz0sJq6v+z7znrprS1TpulmMCuCe21QDJn"& _ "7rnbeqvuuuyuKwCG8MYr77z01mvvvfd626mSSWXaG7+/RfovwL8d29hOBONmMDyrnvbaN7Wt"& _ "uoN2FFds3VW17TuxxRyjtxhqA78zXDTAFXbhXSinrLJcQOkWi8TGBCbzzGrJs/BJ9wyg8848"& _ "9+zzz0AH7fNaB9wsU1FaJb0S0WyJEXIcQkct9dQ9M/2H0xlpnLDVV3Px9GEJF8O1DkbLUpPD"& _ "qNVUdgkwqzPS23DH7dHYZFvRdiVK5y0R3WjXoDXYYYsydslKfA3ZPojrwzXhSxguTeCC97sU"& _ "T5APwjTjVji+QuKcl0M05lf8LbJlcPKArlNTvqSu+uq5cNV3PReyLvvsvxgbWsiWaKL77pss"& _ "tnYX+xbQyPDEF49ISa8/01vuvDefiUEu74Zf8o1Vgtxj1CdmRvTFIdw06fP83tlOkXVsfpNd"& _ "if+aIOWf7z5/a6gPQwgAIfkEAA8AAAAsAAAAAH0AZQAABf8gII5kaZ6mQAho676wuMZ0baMq"& _ "Md+8re+9oDD3YwmPqJ/OiGy2AspiZEqtWq/YrPYKiC6d4FGAGBVsz+i0tetdBcJNslewqNvv"& _ "+Lx+z8+z20BwN2OARRCHiImKi4yNjot/hW+CNXKAdH2Zmpt3kYVMlC6WlwelpqeoqaqrrKme"& _ "n6FPo5cMtba3uLm6u7y5r4UEk7FiwG0CrcjJyqi/wMKxUMVzvdTV1rjNzsPR0mXX3+C+3XOh"& _ "3ONFwz3nZYLm6ysJ8fLz9PX29/j12dLPSO7vAgwIHEiwoMGDCBMa3MfPyT+ABSJKnEixosWL"& _ "GCsybIjknbFlIEO68uil3yCSZTL/qlzJkuJGjkIerguosKbNmwRfamtCCCVNnECD5kSpw+SR"& _ "WdJApaPh0ygSpMCgEkWpk10sqcamavVSFV06mbCW+pgpFgBYYwHSql3Ltq3bt3DbdnVaDuuX"& _ "skzH0R1mVyneFt0E7E2H1e/fE0kPn5BqWDGJYo0Vn91KeVxkx5Mra24zGLPdzZo7OxbxGfRU"& _ "waMrmV59N7Xr17Bjy55Nu7bt27hzPz6nO906s797x5pZmoDw4ecEFD8einhw5nBY64AuSLpx"& _ "6mGsY88ufTsY7d6bgA9/ZDz5IObP80ivfizr9ui7w18/8/n8GgDt34/hnPd+/MllpsR/AFrW"& _ "FYF56YXg/4IMNujggxBGKIZyFFZo4YUYZqjhhhsKV5x1yen2IYgh3jYiiQHS1hOK0okm1mSX"& _ "OVaMi9skRpuNo/VVW2A5Gngjj4eVJlhcRBZp5FpVofYiQDuuQ2MQApbB4ZRUVsmCR0+e5NGJ"& _ "75EUYxBcWinmmBV2pcSXN3C5glBsBmXmmWGouWabdNb0ZhRZmhBlVE1OlScJe34i0qAh3Ymn"& _ "P1oJ0NKijGqUqBNy/lTnpAUZ2locRAmQz6acdkqPpWjaECalpA7lZSgnHkPoqsjcGWoPIwoQ"& _ "zqzgvPkqmEz+WOJSgcpK66/UdHUropYBa+wuVf35VGCcNOusH4Epiylkj1Rr7Um1imw0LCUr"& _ "GvPst87uo2RsSAnQwLnopqvuuuy26+662Wwr1ihmqGHvvWuglVu3K7zr778Aq+vJuLqtKO8w"& _ "RUg7GiEHD0ewICEAADs=" EndFunc
  14. Try this one, very easy. $Amt is the dollar amount and $Num is the formatted amount, so $ret[5] is what you want. $ret=DllCall("kernel32.dll","int","GetCurrencyFormat","int",0,"int",0,"str",$Amt,"int",0,"str",$Num,"int",20)
  15. metis, I wrote this a while back, you select an image, it converts to base64 and puts it on the clipboard. Just paste into where ever you need. Change the path to your image dir. ;Xroot 2011 ClipPut("") $FN=FileOpenDialog("Pick The Image You Want...","C:My DocumentsImages","Images(*.*)",3) If @error Then MsgBox(4096,"","No File Selected.....",2) Exit EndIf $dat=FileRead(FileOpen($FN,16)) $objXML=ObjCreate("MSXML2.DOMDocument") $objNode=$objXML.createElement("b64") $objNode.dataType="bin.base64" $objNode.nodeTypedValue=$dat ClipPut($objNode.Text)
×
×
  • Create New...