Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 15
Благодарности: 0

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
#include <file.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
ToolTip("F1-получить значения,   F2-отправить значения, 3-запись в ини, F10- выход"& @crlf & "4-применить,  5-сохранить" ,0,0)
$sFilePaht = "D:\79.ini"
_FileCreate($sFilePaht)
Global $a
Global $b
Global $c
Global $d
Global $e
Global $f
Global $g
Global $h
Global $i
Global $k
HotKeySet ("{f1}", "poluchit")
HotKeySet ("{f2}", "otdat")
HotKeySet ("{f3}", "ini")
HotKeySet ("{f4}", "primenit")
HotKeySet ("{f5}", "soxranit")
HotKeySet ("{f10}", "vuhod")
While 1
    Sleep(100)
WEnd
Func poluchit()
	WinWait("????? v1.0.0 ???")
$a = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:2]')
Sleep(100)
$b = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:5]')
Sleep(100)
$c = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:6]')
Sleep(100)
$d = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:8]')
Sleep(100)
$e = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:9]')
Sleep(100)
$f = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:10]')
Sleep(100)
$g = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:11]')
Sleep(100)
$h = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:12]')
Sleep(100)
$i = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:15]')
Sleep(100)
$k = ControlGetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:18]')
Sleep(200)
EndFunc
Func ini()
IniWrite ("D:\79.ini", "стиль", "id", $a)
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id2", $b)
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id3", $c)
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id4", $d) 
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id5", $e)
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id6", $f) 
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id7", $g) 
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id8", $h)
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id9", $i)
Sleep(10)
IniWrite ("D:\79.ini", "стиль", "id10", $k)
Sleep(10)
EndFunc
Sleep(300)
Func otdat()
	WinWait("????? v1.0.0 ???")
	Sleep(200)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:2]', $a)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:5]', $b)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:6]', $c)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:8]', $d)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:9]', $e)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:10]', $f)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:11]', $g)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:12]', $h)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:15]', $i)
Sleep(300)
ControlSetText('????? v1.0.0 ???', '', '[CLASS:ThunderRT6TextBox; INSTANCE:18]', $k)
Sleep(300)
EndFunc
Func primenit()
ControlClick("????? v1.0.0 ???","??",355)
EndFunc
Func soxranit()
ControlClick("????? v1.0.0 ???","??",356)
EndFunc
Func vuhod()
	exit
EndFunc
да уж собственно и нечего вроде и ненадо, можно без строгого отношения использовать скрипт

Отправлено: 17:57, 12-03-2010 | #16