littleboy62

Untitled

Nov 4th, 2019
23
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <File.au3>
  2. #include <String.au3>
  3. #include <GuiListView.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <WindowsConstants.au3>
  6.  
  7. Global $check = 0
  8.  
  9. Global $Form1 = GUICreate("Form1", 810, 437, 192, 124)
  10.  
  11.  
  12. $lv_rec = GUICtrlCreateListView("Moteur de recherche|Lien", 0, 0, 810, 300, -1, $LVS_EX_CHECKBOXES + $WS_EX_CLIENTEDGE)
  13. GUICtrlSendMsg($lv_rec, 4126, 0, 200)
  14. GUICtrlSendMsg($lv_rec, 4126, 1, 580)
  15.  
  16.  
  17. $itermes = GUICtrlCreateInput("", 0, 310, 420, 20)
  18. $rechercher = GUICtrlCreateButton("Rechercher avec les moteurs de recherche sélectionnés", 430, 310, 280, 20)
  19.  
  20.  
  21.  
  22. Liste_MRec()
  23.  
  24. GUISetState(@SW_SHOW)
  25.  
  26. While 1
  27.     $nMsg = GUIGetMsg()
  28.     Switch $nMsg
  29.         Case $GUI_EVENT_CLOSE
  30.             Exit
  31.  
  32.         Case $lv_rec
  33.             If $check = 0 Then
  34.                 For $a = 0 To _GUICtrlListView_GetItemCount($lv_rec)
  35.                     _GUICtrlListView_SetItemChecked($lv_rec, $a, True)
  36.                     $check += 1
  37.                 Next
  38.             ElseIf $check > 0 Then
  39.                 For $a = 0 To _GUICtrlListView_GetItemCount($lv_rec)
  40.                     _GUICtrlListView_SetItemChecked($lv_rec, $a, False)
  41.                     $check = 0
  42.                 Next
  43.             EndIf
  44.  
  45.  
  46.         Case $rechercher
  47.  
  48.             $termes = GUICtrlRead($itermes)
  49.  
  50.             If Not ProcessExists("firefox.exe") Then
  51.                 ShellExecuteWait("firefox.exe")
  52.                 Sleep(2500)
  53.             EndIf
  54.  
  55.             For $a = 0 To _GUICtrlListView_GetItemCount($lv_rec)
  56.                 If _GUICtrlListView_GetItemChecked($lv_rec, $a) = True Then
  57.                     $lien_recherche = _GUICtrlListView_GetItemText($lv_rec, $a, 1)
  58.                     $lien_recherche = StringReplace($lien_recherche, '{searchTerms}', $termes)
  59.                     ShellExecute($lien_recherche)
  60.                 EndIf
  61.             Next
  62.  
  63.     EndSwitch
  64. WEnd
  65.  
  66.  
  67.  
  68. Func Liste_MRec()
  69.  
  70.     $mozlz4 = 'mozlz4-win64.exe'
  71.     $SearchJson = 'search.json.mozlz4'
  72.     $SearchJsonTxt = 'search.json.mozlz4.txt'
  73.     FileDelete($SearchJsonTxt)
  74.     $cmd = $mozlz4 & ' -x ' & $SearchJson & ' ' & $SearchJsonTxt
  75.     RunWait(@ComSpec & " /c " & $cmd, "", @SW_HIDE)
  76.  
  77.     _ReplaceStringInFile($SearchJsonTxt, '"_name"', @CRLF & '"_name"')
  78.     _ReplaceStringInFile($SearchJsonTxt, '"__searchForm"', @CRLF & '"__searchForm"')
  79.     _ReplaceStringInFile($SearchJsonTxt, '[{"template":"', @CRLF & '[{"template":"')
  80.     _ReplaceStringInFile($SearchJsonTxt, '","_shortName":"', @CRLF & '","_shortName":"')
  81.     _ReplaceStringInFile($SearchJsonTxt, '","_iconURL"', @CRLF)
  82.     _ReplaceStringInFile($SearchJsonTxt, '","rels"', @CRLF)
  83.  
  84.     $item = ''
  85.     For $a = 1 To _FileCountLines($SearchJsonTxt)
  86.         $Line = FileReadLine($SearchJsonTxt, $a)
  87.         If StringInStr($Line, '__searchForm') Or StringInStr($Line, '[{"template":"') Then
  88.             If StringInStr($Line, '{searchTerms}') Then
  89.                 $lien_rec = StringStripWS(_FindBetweenString($Line, '":"', @LF), 3)
  90.                 $nom = StringStripWS(StringReplace(_FindBetweenString($lien_rec, '//', '/'), 'www.', ''), 3)
  91.                 $item = $nom & '|' & $lien_rec
  92.                 GUICtrlCreateListViewItem($item, $lv_rec)
  93.             EndIf
  94.  
  95.  
  96.         EndIf
  97.     Next
  98.  
  99.  
  100.  
  101. EndFunc   ;==>Liste_MRec
  102.  
  103. Func _FindBetweenString($Line, $char1, $char2)
  104.     $part1 = StringRegExpReplace($Line, '^.*' & $char1, '')
  105.     $Term = StringRegExpReplace($part1, '\' & $char2 & '.*', '')
  106.     Return SetExtended(1, $Term)
  107. EndFunc   ;==>_FindBetweenString
RAW Paste Data