AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <file.au3>

Local $oIE = _IECreateEmbedded()

GUICreate("Colissimo", 1040, 650, _
        (@DesktopWidth - 1100), (@DesktopHeight - 670), _
        $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 50, 10, 750, 600)
$ya = 0
Local $idButton_Home = GUICtrlCreateButton("Start", 230, 610, 100, 30)
Local $idButton_Stop = GUICtrlCreateButton("Stop", 340, 610, 100, 30)



GUISetState(@SW_SHOW) ;Show GUI

_IENavigate($oIE, "http://www.colissimo.fr")
_IEAction($oIE, "stop")


While 1
    Local $iMsg = GUIGetMsg()
    Select
        Case $iMsg = $GUI_EVENT_CLOSE
            ExitLoop
         Case $iMsg = $idButton_Home
; dans le futur : sauvegarde a J+10 en pdf des pages HTML
;           $sPdf = "test.pdf"
;RunWait(@ScriptDir & '\wkhtmltopdf.exe "' & $Html & '" "' & $sPdf & '"')


Dim $oneDarray
_FileReadToArray(@ScriptDir & "\" & "test.csv", $oneDarray)
$columnsCounter = stringsplit($oneDarray[1],";")
Dim $twoDarray[$oneDarray[0] + 1][$columnsCounter[0] + 1]
For $x = 1 to ($oneDarray[0])
$oneRow = stringsplit($oneDarray[$x],";")
For $y = 1 to ($columnsCounter[0])
$twoDarray[$x][$y] = $oneRow[$y]
Next
Next 

$Fichier = "test.csv"
Local $count = _FileCountLines($Fichier)
;  MsgBox(0, "", $count)
For $i = 1 To $count
;  MsgBox(0, "", $twoDarray[$i][4] & $twoDarray[$i][5])
  Local $id = GUICtrlCreateButton($twoDarray[$i][4], 930, $ya+20, 100, 30)
  $ya = $ya+40
  $html = "http://www.colissimo.fr/portail_colissimo/suivre.do?colispart=" & $twoDarray[$i][5]
            _IENavigate($oIE, $html)
Next
        Case $iMsg = $idButton_Stop
            _IEAction($oIE, "stop")
    EndSelect
WEnd

GUIDelete()

Exit
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <file.au3>

Local $oIE = _IECreateEmbedded()
Local $ya = 0

GUICreate("Colissimo", 1040, 650, _
        (@DesktopWidth - 1800), (@DesktopHeight - 1000), _
        $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 50, 10, 750, 600)
Local $idButton_Stop = GUICtrlCreateButton("Stop", 340, 610, 100, 30)

Dim $oneDarray
_FileReadToArray(@ScriptDir & "\" & "test.csv", $oneDarray)
$columnsCounter = stringsplit($oneDarray[1],";")
Dim $twoDarray[$oneDarray[0]][$columnsCounter[0]]
For $x = 1 to $oneDarray[0]
   $oneRow = stringsplit($oneDarray[$x],";")
   For $y = 1 to ($columnsCounter[0])
      $twoDarray[$x-1][$y-1] = $oneRow[$y]
   Next
Next
 _ArrayDisplay($twoDarray)

GUISetState(@SW_SHOW) ;Show GUI

_IENavigate($oIE, "http://www.colissimo.fr")
_IEAction($oIE, "stop")

Local $count = UBound($twoDarray)-1
Local $buttons[$count]
For $i = 0 To $count-1
     $buttons[$i] = GUICtrlCreateButton($twoDarray[$i][3], 930, $ya+20, 100, 30)
     $ya = $ya+40
Next


While 1
    Local $iMsg = GUIGetMsg()

   For $i = 0 to $count-1
       Switch $iMsg
          Case $buttons[$i]
                 $html = "http://www.colissimo.fr/portail_colissimo/suivre.do?colispart=" & $twoDarray[$i][4]
                 SplashTextOn ("", "Checking  " & $twoDarray[$i][3] & "  ...", 300, 55, -1, -1, 49)
                _IENavigate($oIE, $html)
                 SplashOff()
      EndSwitch
  Next

    Switch $iMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $idButton_Stop
            _IEAction($oIE, "stop")
    EndSwitch
WEnd
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <file.au3>
#include <GuiListView.au3>

Global $FormClient = GUICreate("Liste client", 292, 438, -1, -1)
Global $hListView = GUICtrlCreateListView("", 8, 8, 193, 344, $LVS_NOCOLUMNHEADER)
Global $ButtonConect = GUICtrlCreateButton("ButtonConect", 208, 192, 75, 25)
Global $ButtonQuit = GUICtrlCreateButton("ButtonQuit", 208, 312, 75, 25)
GUISetState(@SW_SHOW)

_chargeListView()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonConect
            Local $text =  _GUICtrlListView_GetItemTextString($hListView, 1)
            If Not @error Then
                MsgBox(0,"","GO to : " & $text &@CRLF)
            EndIf
        Case $ButtonQuit
            Exit
    EndSwitch
WEnd

Func _chargeListView()
    Dim $oneDarray
    _FileReadToArray(@ScriptDir & "\" & "test.csv", $oneDarray)
    $columnsCounter = stringsplit($oneDarray[1],";")
    Dim $twoDarray[$oneDarray[0]][$columnsCounter[0]]
    For $x = 1 to $oneDarray[0]
        $oneRow = stringsplit($oneDarray[$x],";")
        For $y = 1 to $columnsCounter[0]
            $twoDarray[$x-1][$y-1] = $oneRow[$y]
        Next
    Next
    _GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 150)
    For $i = 0 To UBound($twoDarray)-1
        _GUICtrlListView_AddItem($hListView, $twoDarray[$i][3])
    Next
EndFunc