Новый участник
Сообщения: 34
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Сделал такой скипт:
Код:  #include <GUIConstantsEx.au3>
#include <Constants.au3>
#AutoIt3Wrapper_Res_File_Add=Fran3.bmp, rt_rcdata, TEST_JPG_1 ;Пихаем картинку
#include "resources.au3"
_Main()
Func _Main()
Local $GPS_Nav, $map_for_nav, $Akses, $msg, $Echolot, $AksesEcholot, $MarineRadar, $Other, $Obzor
GUICreate("ID paster by maxd2007", 500, 620, 1200,250)
$pic1 = GUICtrlCreatePic("",215,35,0,0)
_ResourceSetImageToCtrl($pic1, "TEST_JPG_1")
GUICtrlCreateLabel("Пожалуйста выберите раздел!", 27, 17)
$GPS_Nav = GUICtrlCreateButton("GPS навигаторы", 10, 50, 200, 50)
$map_for_nav = GUICtrlCreateButton("Карты для навигаторов", 10, 120, 200, 50)
$Akses = GUICtrlCreateButton("Аксессуары для навигаторов", 10, 190, 200, 50)
$Echolot = GUICtrlCreateButton("Эхолоты и глубиномеры", 10, 260, 200, 50)
$AksesEcholot = GUICtrlCreateButton("Аксессуары для эхолотов", 10, 330, 200, 50)
$MarineRadar = GUICtrlCreateButton("Морские радары", 10, 400, 200, 50)
$Other = GUICtrlCreateButton("Сопутствующие товары", 10, 470, 200, 50)
$Obzor = GUICtrlCreateButton("Обзор", 10, 540, 200, 50)
GUISetState() ; display the GUI
Do
$msg = GUIGetMsg()
Select
Case $msg = $GPS_Nav
WinWaitActive("GPS Навигаторы - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $map_for_nav
WinWaitActive("Карты для навигаторов - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\GDEKuda.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Akses
WinWaitActive("Аксессуары для навигаторов - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Echolot
WinWaitActive("Эхолоты и глубиномеры - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $AksesEcholot
WinWaitActive("Аксессуары для эхолотов - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $MarineRadar
WinWaitActive("Морские радары - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Other
WinWaitActive("Сопутствующие товары - Google Chrome", "")
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
Case $msg = $Obzor
$var = FileOpenDialog('Выберите файл', @ScriptDir & "\", "Text (*.txt)", 1 ,"1.txt" )
If @error Then
MsgBox(4096,"","Не выбрано ни одного файла")
Else
WinWaitActive("[CLASS:Chrome_WidgetWin_1]", "")
;Читаем файл
$txt = FileRead($var)
; Проверяем конец строки - DOS/Unix/Mac
Select
Case StringInStr($txt, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($txt, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
$aLines = StringSplit($txt, $sDelimiter, 1)
For $i = 1 To $aLines[0]
Send($aLines[$i])
Send("{TAB 2}")
Send("{ENTER}")
Send("+{TAB 2}")
Next
EndIf
EndSelect
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
Можно ли в выводимое окно добавить 2 таких элемента:
1) Нажали кнопку "Обзор", выбрали фаил .txt и название выбраного TXT будет отображено в окошке рядом с нопкой "обзор".
2) При выборе фаила txt запускается скрипт и для повторнрого запуска надо выбирать его снова, можно ли добавить клавишу по нажатию которой он будет повторять действия в зависимости от последнего выбраного фаила txt.
Т.е. что бы это выглядело примерно как на фото в атаче. |
