[решено] Как получить данные из элемента ThunderRT6TextBox в ini-файл

aktivizion · Отправлено: **16:43, 12-03-2010** | #11

kaster,
да, теперь точно разобрался, спасибо за помощь, напутствие, Благодарю

только не по теме, но всеже, вот чать скрипта:

когда я запускаю, данные присваиваються в окне рандомно, ну не по очереди как исправить?
просто нужно ещё после каждого присвоения жать дополнительно кнопку
командой ControlClick

странно, я вроде бы писал ещё один пост, браузер видимо играет сомною,
вопрос не по теме, да и тема совсем не такая которую разбирали, но по поводу скрипта:
вот частичка скрипта:

проблема в том что эти даные присваиваютсья в охно хаотично, рандомно, тобиш не поочереди
как сделать строгое выполнение скрипта?
просто после каждого ControlSetText нужно нажимать ещё одну кнопку
командой ControlClick,
как решить это?

Creat0R · Конфигурация компьютера

Цитата aktivizion:

незнаю как »

При редактирований темы имеется такая возможность.

Цитата aktivizion:

вот чать скрипта »

Который нужно как минимум заключать в теги кода.

P.S
Просмотрите справку по форуму.

aktivizion · Отправлено: **17:35, 12-03-2010** | #13

Цитата Creat0R:

Который нужно как минимум заключать в теги кода.
P.S
Просмотрите справку по форуму. »

ну и какой же из представленных кодов использовать?
http://forum.oszone.net/misc.php?do=bbcode

всё разобрался [more]

Creat0R · Конфигурация компьютера

Цитата aktivizion:

какой же из представленных кодов использовать? »

[code] как ни странно.

kaster · Конфигурация компьютера

aktivizion, а где ты эту функцию используешь? приведи весь код, только заключи их в теги [code]

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

Код:

#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

да уж собственно и нечего вроде и ненадо, можно без строгого отношения использовать скрипт