Z:\xampp\htdocs\Rebates\cwrrebates.au3

#cs
acr, 100001
furuno, 100025
garmin, 100026
kvh, 100041
lowrance, 100045
raymarine, 100075
spot, 100122

http://www.balmar.net
http://www.bluesea.com/
http://www.comnavmarine.com/
http://www.deimarine.com/
http://www.greenmarinemonitors.com/
http://www.mastervolt.com/
http://www.nobeltec.com/
http://www.rosepointnav.com/
http://www.searecovery.com/marine/
http://www.wxworx.com/

http://www.cwrelectronics.com/b2b/product.php?id=
http://cwrelectronics.com/b2b/viewproducts.php?max=30&rebate=1&manufacturer=
http://cwrelectronics.com/feeds/productdownload.php?id=C4&version=2&format=xml&mans=100001,100025,100026,100041,100045,100075,100122&rebate=1
http://cwrelectronics.com/feeds/productdownload.php?id=C4&version=2&format=xml&mans=100001,100025,100026,100041,100045,100075,100122&fields=mfg,ti,litbr,litqg,reb,rebd,rebs,rebe,imgpath&time=1369540800
#ce

Opt('MustDeclareVars', 1)
Opt('WinTitleMatchMode', 2)

#Region ### START variables ###
Local $ClipVar[3], $OpenFile, $FileName = StringTrimRight(@ScriptName, 4) & ".txt", _
      $ToolTipText_Array[3]  = [" Description ", _
                                " End Date ", _
                                " Rebate PDF link "], _
      $HTMLText_Array[4]     = [@MON & "/" & @MDAY & "/" & @YEAR & ", ", _
                                "<a href='", _
                                "' title='This link will open a PDF file' target='_blank'>&nbsp;&nbsp;&nbsp;&nbsp;", _
                                "</a><br />"], _
      $MFG_Array[7]          = [100001,100025,100026,100041,100045,100075,100122], _
      $OtherSites[10]        = ["http://www.balmar.net", _
                                "http://www.bluesea.com/", _
                                "http://www.comnavmarine.com/", _
                                "http://www.deimarine.com/", _
                                "http://www.greenmarinemonitors.com/", _
                                "http://www.mastervolt.com/", _
                                "http://www.nobeltec.com/", _
                                "http://www.rosepointnav.com/", _
                                "http://www.searecovery.com/marine/", _
                                "http://www.wxworx.com/"]
#EndRegion ### END variables ###

;#cs
If MsgBox(262180, StringTrimRight(@ScriptName, 4), "Open CWR Homepage?") = 6 Then
    ShellExecute("http://cwrelectronics.com/")
    Sleep(2500)
EndIf
;#ce

#cs
If MsgBox(262180, StringTrimRight(@ScriptName, 4), "Logged In and Ready To Open the Rebates Pages?") = 6 Then
    For $manid = 0 To UBound($MFG_Array) -1
        ShellExecute("http://cwrelectronics.com/b2b/viewproducts.php?max=30&rebate=1&manufacturer=" & $MFG_Array[$manid])
        Sleep(100)
    Next
    Sleep(2500)
EndIf
#ce

If MsgBox(262180, StringTrimRight(@ScriptName, 4), "Logged In and Ready To Open the Rebates Pages?") = 6 Then
    $OpenFile = FileOpen($FileName, 1)
    If $OpenFile = -1 Then
     MsgBox(0, "Error", "Unable to open " & $FileName & ".")
     Exit
    EndIf
    ClipPut("")
    For $manid = 0 To UBound($MFG_Array) - 1
        ShellExecute("http://cwrelectronics.com/b2b/viewproducts.php?max=30&rebate=1&manufacturer=" & $MFG_Array[$manid])
        If MsgBox(262180, StringTrimRight(@ScriptName, 4), "Ready to Copy?") = 6 Then
            While 1
                For $n = 0 To UBound($ClipVar) - 1
                    While 1
                        Switch $n
                            Case $n
                                ToolTip($ToolTipText_Array[$n])
                                If ClipGet() <> "" Then
                                    $ClipVar[$n] = ClipGet()
                                    ExitLoop ; exit from the second While, to the Next $n
                                EndIf
                        EndSwitch
                        Sleep(100)
                    WEnd
                    ClipPut("")
                Next
                ToolTip("")
                FileWriteLine($OpenFile, $HTMLText_Array[0] & $ClipVar[1] & "," & $HTMLText_Array[1] & $ClipVar[2] & $HTMLText_Array[2] & $ClipVar[0] & $HTMLText_Array[3] & @CRLF)
                If MsgBox(36, StringTrimRight(@ScriptName, 4), "Do it again?") = 7 Then
                    FileWriteLine($OpenFile, @CRLF & @CRLF)
                    ExitLoop ; exit from the first While
                EndIf
            WEnd
        EndIf
    Next
EndIf


#cs
If MsgBox(36, StringTrimRight(@ScriptName, 4), "Open the other sites?") = 6 Then
    For $a = 1 To UBound($OtherSites) - 1
        ShellExecute($OtherSites[$a])
        Sleep(100)
    Next
    Sleep(1500)
EndIf
#ce

FileClose($OpenFile)
MsgBox(0, StringTrimRight(@ScriptName, 4), "Bye!", 3)