Leaderboard

#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Constants.au3> Dim $hMsg Dim $path Dim $test Dim $usrname ; get the user name Dim $mserver ;get server name Dim $lpwd ; Dim $Email Dim $Empid Dim $splitsrname Dim $hButton Dim $hButton2 Dim $intWindow Dim $delwindow Dim $hInput;Email address $hGUI = GUICreate("Lotus Notes Auto Config", 460, 189, -1, -1) $Empid = GUICtrlCreateLabel("Enter TCS Emp ID :", 33, 30, 140, 27) GUICtrlSetFont(-1, 10, 800, 0) $hLabel2 = GUICtrlCreateLabel("Enter Email Address :", 33, 64, 153, 27) GUICtrlSetFont(-1, 10, 800, 0) $hLabel3 = GUICtrlCreateLabel("Enter Server Name :", 33, 102, 153, 27) GUICtrlSetFont(-1, 10, 800, 0) $hInput = GUICtrlCreateInput("", 220, 30, 221, 27) $hInput2 = GUICtrlCreateInput("", 220, 64, 221, 27) $hInput3 = GUICtrlCreateInput("", 220, 102, 221, 27) $hButton = GUICtrlCreateButton("OK", 82, 146, 96, 26) GUICtrlSetFont(-1, 8.5, 800, 0) $hButton2 = GUICtrlCreateButton("Cancle", 228, 146, 98, 26) GUICtrlSetFont(-1, 8.5, 800, 0) $hLabel4 = GUICtrlCreateLabel("(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13) $hLabel5 = GUICtrlCreateLabel("(Eg.first.last name@tcs.com )", 34, 85, 144, 17) GUISetState(@SW_SHOW) While 1 $hMsg = GUIGetMsg() Switch $hMsg ;<---------------------------------- Case $hButton $Empid = GUICtrlRead($hInput) $mserver = GUICtrlRead($hInput3) $Email = GUICtrlRead($hInput2) If $Empid = "" Or $Email = "" Or $mserver = "" Then MsgBox(4096, "Warning", "Empid cannot be blank " & @CRLF & " Try again ") Else Idfile() EndIf Case $hButton2 ExitLoop EndSwitch;<---------------------------------- WEnd Func Idfile() $hGUI1 = GUICreate("Lotus Notes Auto Config ", 394, 142, -1, -1) $hLabel1 = GUICtrlCreateLabel("Select Notes ID file ", 98, 16, 142, 27) GUICtrlSetFont(-1, 10, 800, 0) $hButton1 = GUICtrlCreateButton("Browse", 53, 92, 96, 23) GUICtrlSetFont(-1, 10, 800, 0) $hButton21 = GUICtrlCreateButton("Cancle", 229, 92, 95, 23) GUICtrlSetFont(-1, 8.5, 800, 0) $path = GUICtrlCreateInput("", 19, 43, 349, 27) GUISetState() $hMsg1 = 0 While $hMsg1 <> $GUI_EVENT_CLOSE $hMsg1 = GUIGetMsg() Select Case $hMsg1 = $hButton1 $File2open = FileOpenDialog("Browse", "C:\", "ID file (*.nsf)") ;returns the file path GUICtrlSetData($path, $File2open) ;set input data $test = GUICtrlSetData($path, $File2open) Case $hMsg1 = $hButton21 GUIDelete($delwindow) Return EndSelect WEnd EndFunc ;==>Idfile

LOL

MsgBox("", "", "No magic numbers :-)")

Thanks

so 0 is technically the absence of a magic number, and therefore ok? I find it more default than magic in most cases. msgbox(0, "", $DebugString) <-- will be the last number i stop using, its too easy to both author and understand.

The site is checking the value of a javascript variable and will only proceed if it is below a specific number. This modified version of your code works for me: #include <ie.au3> $oIE = _IEAttach("Blade Runner") $videoframe = _IEFrameGetObjByName($oIE, "videoframe") $srclist = _IEGetObjById($videoframe, "srclist") Local $ripdiv = 0 Local $oElements = _IETagNameGetCollection($srclist, "div") For $oElement In $oElements If $oElement.className == 'ripdiv' Then ;MsgBox(0, "Element Info", "Tagname: " & $oElement.tagname & @CR & "className: " & $oElement.className) $ripdiv = $oElement ExitLoop EndIf Next If Not IsObj($ripdiv) Then Exit MsgBox(0, "Error", "className error: " & @error) EndIf $videoframe.document.parentwindow.execScript("m=-20;", "javascript") $oLinks = _IETagNameGetCollection($ripdiv, "a") For $link In $oLinks If StringInStr($link.innertext, "180") Then $link.click() _IEAction($link, "click") Exit EndIf Next

If you want to copy all used cells you could use $oExcel.ActiveSheet.UsedRange

http://pastebin.com/iasqvvsN