AutoIt Français

Code : Tout sélectionner

Opt("WinTitleMatchMode", -2)
Global Const $WS_EX_TRANSPARENT = 0x00000020
Global Const $WS_POPUPWINDOW        = 0x80880000

$oIE=ObjCreate("Shell.Explorer.2")
$_x = 300
$_y = 30
$_w = 675;465
$_h = 685+50
$gui = GUICreate ("", $_w, $_h,$_x, $_y, $WS_POPUPWINDOW)
$GUIActiveX = GUICtrlCreateObj($oIE, -75, -230, $_w+480, $_h+400)
GUISetState(@SW_SHOW)
$oIE.Navigate( "http://france.meteofrance.com/france/meteo?PREVISIONS_PORTLET.path=previsions")
HotKeySet("{SPACE}", "Terminate")
HotKeySet("{ESC}", "Terminate")

While 1
 If WinExists("ads") Then WinClose("ads")
 _Drag ($gui,$_w,$_h,$_x,$_y)
Wend


Func Terminate()
$oIE=0
GUIDelete ()
FileDelete(@UserProfileDir & "\Local Settings\Temporary Internet Files\*.*")
Exit
EndFunc
Func _IsPressed($hexKey)
    Local $aR, $bRv
    $hexKey = '0x' & $hexKey
    $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
    If $aR[0] <> 0 Then
         $bRv = 1
    Else
          $bRv = 0
    EndIf
    Return $bRv
EndFunc
Func _Drag ($gui,$reg_x,$reg_y,ByRef $x,ByRef $y)
    Local $pos[2],$xm,$ym,$dx,$dy
    $pos = MouseGetPos()
    $xm=$pos[0]
    $ym=$pos[1]
    If ($xm<$x) or ($xm>($x+$reg_x)) then Return
    If ($ym<$y) or ($ym>($y+$reg_y)) then Return
    $dx=$xm-$x
    $dy=$ym-$y
    while _IsPressed(01) = 1
        $pos = MouseGetPos()
        $xm=$pos[0]
        $ym=$pos[1]
        $x = $xm - $dx
        $y = $ym - $dy
        WinMove ( $gui, "", $x, $y )
    wend
    Return
EndFunc
 

Code : Tout sélectionner

#include <String.au3>
#include <Array.au3>
#include <File.au3>
$ville = InputBox("Ville","Ville ?")
$meteoget = InetGet("http://api.openweathermap.org/data/2.5/weather?q="&$ville&"&mode=xml&lang=fr","meteo.txt",1)

InetClose($meteoget)

Local $ReadText
_FileReadToArray("meteo.txt",$ReadText)
For $x = 1 To $ReadText[0]
    If StringInStr($ReadText[$x],"temperature",0,1) Then
        $line2 = FileReadLine("meteo.txt",$x)
        $line = StringTrimLeft($line2,22)
        MsgBox(0,"",Round(StringLeft($line,5)-272.15))
    EndIf
Next
 

Code : Tout sélectionner

$filename = @ScriptDir & "\meteo.xml" 

$meteoget = InetGet("http://api.openweathermap.org/data/2.5/weather?q=Paris&mode=xml&units=metric&lang=fr",$filename,1)


$oXML = ObjCreate("Msxml2.DOMdocument.3.0")
If @error Then Exit MsgBox(16, "Erreur", "Impossible de créer l'objet Msxml2.DOMdocument.3.0")

$oXML.async = False
$error = $oXML.Load ($filename)
If Not $error Then
    MsgBox(0, "Load XML", "An error occurred loading " & $filename, 10)
    Exit 1
EndIf

$objNodeList = $oXML.getElementsByTagName("temperature");
If IsObj($objNodeList) Then
    $TMin = $objNodeList.item(0).getAttribute("min")
    $TMax = $objNodeList.item(0).getAttribute("max")
    $Tunit = $objNodeList.item(0).getAttribute("unit")
    ConsoleWrite("Temperature minimale : " & $TMin & " " & $Tunit & " / Temperature maximale : " & $TMax & " " & $Tunit)
EndIf