AutoIt Français

Code : Tout sélectionner

;====================
; Keep the extensions
;====================
$result = RunWait($Win2Tux & "\extensions.sh")
$rg = 1
sleep(1000)
$extfile = FileOpen($Win2Tux & "\extensions.txt",0)
$rg = 1
while $rg!>200
  $text=FileReadLine($extfile)
  if StringMid($text , 21, 1)<>"." then
     exitLoop
  endif
  if StringMid($text , 24, 1)="]" then
     $len = 2
  elseif StringMid($text , 25, 1)="]" then
     $len = 3
  elseif StringMid($text , 26, 1)="]" then
     $len = 4
  else
     $len = 5
  endif
  _ArrayInsert($extArray, $rg, StringMid($text , 22, $len))  
  $type = RegRead("HKLM\Software\Classes\." & $extArray[$rg],"")
  _ArrayInsert($typeArray, $rg, $type)  
  $backup = RegRead("HKLM\Software\Classes\." & $extArray[$rg],"Backup")
  _ArrayInsert($backArray, $rg, $backup)
  $rg = $rg + 1
WEnd
$nbExt = ubound($extArray)-1
.....
;-----------------------------------------------
$extensions = GuiCtrlCreateTabItem("Extensions")
;-----------------------------------------------
GuiCtrlCreateLabel("Extension                  Type                                                                           Backup", 45, 42)
$treeview = GuiCtrlCreateTreeView(35, 60, 535, 417, $TVS_CHECKBOXES)
GUICtrlSetFont($treeview, 9, 400, 4, "Courier New")
$string = "                                                                          "
for $rg=1 to $nbExt
    $sp1 = StringLeft($string,10-StringLen($extArray[$rg])) & "|"
    $sp2 = StringLeft($string,35-StringLen($typeArray[$rg])) & "|"
    $sp3 = StringLeft($string,23-StringLen($backArray[$rg]))
    GuiCtrlCreateTreeViewItem("." & StringLower($extArray[$rg]) & $sp1 & $typeArray[$rg]  & $sp2 & $backArray[$rg] & $sp3, $treeview)
    if $typeArray[$rg] = "Win2Tux.file" then
       GuiCtrlSetState(-1, $GUI_CHECKED)
    endif
next
GuiCtrlCreateLabel("Just check the extensions you want to be managed by Win2Tux, or uncheck the others", 80, 485)
 

Code : Tout sélectionner

;-----------------------------------------------
GuiCtrlCreateTabItem("Km2Tux")
;-----------------------------------------------
GuiCtrlCreateLabel("Km2Tux Path :", 45, 43)
$Km2TuxPath=RegRead("HKLM\Software\Win2Tux","Path")
$K2Tpath=GuiCtrlCreateInput( $Km2TuxPath, 150, 42, 270, 20)
$Browse1=GUICtrlCreateButton("Browse",425, 42, 50, 20)
$Save1=GUICtrlCreateButton("Save",480, 42, 40, 20)
$Restore1=GUICtrlCreateButton("Restore",525, 42, 50, 20)
GuiCtrlCreateProgress(30, 72, 550, 2)
GuiCtrlCreateLabel("Program-File associations :", 25, 82)
GuiCtrlCreateLabel("Default program :", 45, 103)
$Km2Tuxmime = RegRead("HKLM\Software\Win2Tux\mime","")
$K2Tmime=GuiCtrlCreateInput($Km2Tuxmime, 150, 102, 270, 20)
$Browse2=GUICtrlCreateButton("Browse",425, 102, 50, 20)
$Save2=GUICtrlCreateButton("Save",480, 102, 40, 20)
$Restore2=GUICtrlCreateButton("Restore",525, 102, 50, 20)
GuiCtrlCreateLabel("Extension                  Program", 45, 132)
$mimeview = GuiCtrlCreateTreeView(35, 152, 535, 160, $TVS_CHECKBOXES)
GUICtrlSetFont($mimeview, 9, 400, 4, "Courier New")
$listmime=RegRead("HKLM\Software\Win2Tux\mime","ListMime")
$rg=1
$Firstmime=0
while StringLen($listmime)>0
    $pos =StringInStr($listMime,"|")
    _ArrayInsert($mimeArray, $rg, StringLeft($listMime,$pos-1))
    _ArrayInsert($commandArray,$rg, RegRead("HKLM\Software\Win2Tux\mime",StringLeft($listMime,$pos-1)))
    $listMime = StringMid($listMime,$pos+1)
    $sp1 = StringLeft($string,10-StringLen($mimeArray[$rg])) & "|"
    $sp2 = StringLeft($string,61-StringLen($commandArray[$rg]))
    if $Firstmime=0 then
       $Firstmime=GuiCtrlCreateTreeViewItem("." & StringLower($mimeArray[$rg]) & $sp1 & $commandArray[$rg]  & $sp2, $mimeview)
    else
       GuiCtrlCreateTreeViewItem("." & StringLower($mimeArray[$rg]) & $sp1 & $commandArray[$rg]  & $sp2, $mimeview)
    endif
    $rg+=1
wend
GuiCtrlCreateLabel("Avalaible",37,322)
$mext=GuiCtrlCreatecombo("", 85, 320, 60, 105)
GUICtrlSetData($mext, $mrg,$1mrg)
$Add = GuiCtrlCreateButton("Add it", 150, 320, 70, 20)
$Remove = GuiCtrlCreateButton("Remove", 500, 320, 70, 20)
 

Code : Tout sélectionner

;========
; TABs
;========
GuiCtrlCreateTab(15, 10, 575, 500)

;-----------------------------------------------
$extensions = GuiCtrlCreateTabItem("Extensions")
;-----------------------------------------------
GuiCtrlCreateLabel("Extension                  Type                                                                           Backup", 45, 42)
$treeview = GuiCtrlCreateTreeView(35, 60, 535, 417, $TVS_CHECKBOXES)
GUICtrlSetFont($treeview, 9, 400, 4, "Courier New")
$string = "                                                                          "
$mrg = ""
for $rg=1 to $nbExt
    $sp1 = StringLeft($string,10-StringLen($extArray[$rg])) & "|"
    $sp2 = StringLeft($string,35-StringLen($typeArray[$rg])) & "|"
    $sp3 = StringLeft($string,23-StringLen($backArray[$rg]))
    GuiCtrlCreateTreeViewItem("." & StringLower($extArray[$rg]) & $sp1 & $typeArray[$rg]  & $sp2 & $backArray[$rg] & $sp3, $treeview)
    if $typeArray[$rg] = "Win2Tux.file" then
       GuiCtrlSetState(-1, $GUI_CHECKED)
       if $mrg="" then
          $1mrg=StringLower($extArray[$rg])
       endif
       $mrg = $mrg & "|" & StringLower($extArray[$rg])
    endif
next
GuiCtrlCreateLabel("Just check the extensions you want to be managed by Win2Tux, or uncheck the others", 80, 485)

;-----------------------------------------------
GuiCtrlCreateTabItem("Km2Tux")
;-----------------------------------------------
GuiCtrlCreateLabel("Km2Tux Path :", 45, 43)
$Km2TuxPath=RegRead("HKLM\Software\Win2Tux","Path")
$K2Tpath=GuiCtrlCreateInput( $Km2TuxPath, 150, 42, 270, 20)
$Browse1=GUICtrlCreateButton("Browse",425, 42, 50, 20)
$Save1=GUICtrlCreateButton("Save",480, 42, 40, 20)
$Restore1=GUICtrlCreateButton("Restore",525, 42, 50, 20)
GuiCtrlCreateProgress(30, 72, 550, 2)
GuiCtrlCreateLabel("Program-File associations :", 25, 82)
GuiCtrlCreateLabel("Default program :", 45, 103)
$Km2Tuxmime = RegRead("HKLM\Software\Win2Tux\mime","")
$K2Tmime=GuiCtrlCreateInput($Km2Tuxmime, 150, 102, 270, 20)
$Browse2=GUICtrlCreateButton("Browse",425, 102, 50, 20)
$Save2=GUICtrlCreateButton("Save",480, 102, 40, 20)
$Restore2=GUICtrlCreateButton("Restore",525, 102, 50, 20)
GuiCtrlCreateLabel("Extension                  Program", 45, 132)
$mimeview = GuiCtrlCreateTreeView(35, 152, 535, 160, $TVS_CHECKBOXES)
GUICtrlSetFont($mimeview, 9, 400, 4, "Courier New")
$listmime=RegRead("HKLM\Software\Win2Tux\mime","ListMime")
$rg=1
$Firstmime=0
while StringLen($listmime)>0
    $pos =StringInStr($listMime,"|")
    _ArrayInsert($mimeArray, $rg, StringLeft($listMime,$pos-1))
    _ArrayInsert($commandArray,$rg, RegRead("HKLM\Software\Win2Tux\mime",StringLeft($listMime,$pos-1)))
    $listMime = StringMid($listMime,$pos+1)
    $sp1 = StringLeft($string,10-StringLen($mimeArray[$rg])) & "|"
    $sp2 = StringLeft($string,61-StringLen($commandArray[$rg]))
    if $Firstmime=0 then
       $Firstmime=GuiCtrlCreateTreeViewItem("." & StringLower($mimeArray[$rg]) & $sp1 & $commandArray[$rg]  & $sp2, $mimeview)
    else
       GuiCtrlCreateTreeViewItem("." & StringLower($mimeArray[$rg]) & $sp1 & $commandArray[$rg]  & $sp2, $mimeview)
    endif
    if isW2T($mimeArray[$rg])=1 then
       GuiCtrlSetState(-1, $GUI_CHECKED)
    endif
    $rg+=1
wend
GuiCtrlCreateLabel("Avalaible",37,322)
$mext=GuiCtrlCreatecombo("", 85, 320, 60, 105)
GUICtrlSetData($mext, $mrg,$1mrg)
$Add = GuiCtrlCreateButton("Add it", 150, 320, 70, 20)
$Remove = GuiCtrlCreateButton("Remove", 500, 320, 70, 20)
GuiCtrlCreateProgress(30, 353, 550, 2)
GuiCtrlCreateLabel("--o00o-- 'Km2Tux Path' is set by setup, you can adapt it if you change its location.", 60, 363)
GuiCtrlCreateLabel("--o00o-- 'Default program' is the one under used gnome to redirect to default Linux programs.", 60, 383)
GuiCtrlCreateLabel("If you use KDE or xfce, you will perhaps have to use xgd-open.", 104, 403)
GuiCtrlCreateLabel("--o00o-- Extensions in the list are to bypass default value, for example use gdebi instead of 'Software", 60, 423)
GuiCtrlCreateLabel("Manager' to open .deb. Check or uncheck has no effect here. The checked values are the one", 104, 443)
GuiCtrlCreateLabel("present in Extensions tab, and which are managed by Win2Tux.", 104, 463)
GuiCtrlCreateLabel("--o00o-- The extensions avalaible in combo must have be managed by Win2Tux (see Extensions tab).", 60, 483)
GuiCtrlCreateTabItem("")
;-------- end of tabs --------------------------

Code : Tout sélectionner

;=================
; GUI MESSAGE LOOP
;=================
GuiSetState()
While true
$msg = GuiGetMsg()
Select
  Case $msg = $Browse1
       $newFolder=FileSelectFolder("Change Km2Tux Path","Z:\",2)
       if $newfolder<> $km2TuxPath then
          GUICtrlSetData($K2Tpath,$newFolder)
       endif
  Case $msg = $Save1
       RegWrite("HKLM\Software\Win2Tux","Path","REG_SZ",GUICtrlRead($K2Tpath))
  Case $msg = $Restore1
       GUICtrlSetData($K2Tpath,$km2TuxPath)
  Case $msg = $Browse2
       $newProgram=FileOpenDialog("Change default opening program","Z:\usr\","All (*.*)",1)
       if $newProgram<>$km2Tuxmime then
          $newProgram=Anti2Slash($newProgram)
          if StringLeft($newProgram,2)="//" then
             $newProgram=StringMid($newProgram,2)
          endif
          GUICtrlSetData($K2Tmime,$newProgram)
       endif
  Case $msg = $Save2
       RegWrite("HKLM\Software\Win2Tux\mime","","REG_SZ",GUICtrlRead($K2Tmime))
  Case $msg = $Restore2
       GUICtrlSetData($K2Tmime,$Km2Tuxmime)
  Case $msg = $Add
       MsgBox(0, "Add it", "Button clicked")
  Case $msg = $Remove
       $mimeItem=GUICtrlRead($mimeview)
       msgbox(0,$mimeItem, _GUICtrlTreeView_GetSelection($mimeview))
       if _GUICtrlTreeView_GetSelection($mimeview)=$mimeItem then
          _GUICtrlTreeView_Delete($mimeview, $mimeItem)
       endif
  Case $msg = $Quit
       Exit 0
  Case $msg = $GUI_EVENT_CLOSE
       Exit 0
endselect
WEnd

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <GuiTreeView.au3>

Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars", 1)

Global $Gui
Global $TreeView
Global $ItemsTreeView[10]
Global $Label
Global $bouton

$Gui = GUICreate("test", 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$TreeView = GUICtrlCreateTreeView(0, 0, 300, 280)
For $i = 0 To UBound($ItemsTreeView, 1)-1
    $ItemsTreeView[$i] = _GUICtrlTreeView_Add($TreeView, 0, "Item " & $i)
Next
$Label = GUICtrlCreateLabel("Item sélectionné : ", 0, 285, 260, 15)
$bouton = GUICtrlCreateButton("CheckItem", 260, 280, 40, 20)
GUICtrlSetOnEvent($bouton, "CheckItem")
GUISetState()

While(True)
    Sleep(10)
WEnd

Func CheckItem()
    Local $Item = _GUICtrlTreeView_GetSelection($TreeView)
    Local $Texte = _GUICtrlTreeView_GetText($TreeView, $Item)
    GUICtrlSetData($Label, "Item sélectionné : " & $Item & " (" & $Texte & ")")
EndFunc

Func quit()
    Exit
EndFunc

Code : Tout sélectionner

$MaChaine = 'elle|vendait|des|cartes|postaleeeuuxx|mais|aussi|des|crayons !!!'
$MonArray = StringSplit($MaChaine, '|')
For $B = 1 To $MonArray[0]
    ConsoleWrite($B & ' : ' & $MonArray[$B] & @CRLF)
Next
 

Code : Tout sélectionner

if FileExists($Win2Tux & "\" & $Language & ".ini") then
For $i = 1 to 42
  Assign("txt" & $i, IniRead($Win2Tux & "\" & $Language & ".ini", "Win2Tux", "txt" & $i, Eval("txt" & $i)))
Next