|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Как создать прогу, с этим кодом |
|
|
[решено] Как создать прогу, с этим кодом
|
|
Новый участник Сообщения: 3 |
Код:
 #include <GUIConstants.au3>
GUICreate("SRO FreeSlot Search v1.0.3", 240, 150)
$servery = GUICtrlCreateCombo ("Choose server:", 10,10, 110, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($servery, "Titan (New)", "")
GUICtrlSetStyle($servery, $CBS_DROPDOWNLIST)
$size = GUICtrlCreateCombo ("Screen size:", 10,35, 110, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($size, "800x600|1024x768|1280x1024", "")
GUICtrlSetStyle($size, $CBS_DROPDOWNLIST)
GUICtrlCreateGroup ("Credits", 10, 85, 150, 63)
GUIStartGroup()
GUICtrlCreateLabel ("Made by moczymorda", 15, 100, 130, 15)
GUICtrlCreateLabel ("www.gamerzplanet.pl", 15, 115, 110, 15)
GUICtrlCreateLabel ("Thanks to PyroHiro", 15, 130, 100, 15)
$group_1 = GUICtrlCreateGroup ("Free slots", 125, 4, 110, 50)
GUIStartGroup()
$radio_1=GUICtrlCreateRadio ("&3", 133, 20, 25, 20)
$radio_2=GUICtrlCreateRadio ("&2", 168, 20, 25, 20)
$radio_3=GUICtrlCreateRadio ("&1", 203, 20, 25, 20)
$radioval1 = 0
$radioval2 = 0
$1slot = 2499
$2slot = 2498
$3slot = 2497
$800 = 483
$600 = 396
$1280 = 717
$1024b = 669
$1024 = 602
$768 = 506
$button_1 = GUICtrlCreateButton ("S&earch", 80, 65, 80, 20)
GUISetState ()
If ProcessExists("ServerList.exe") Then
GUICtrlCreateLabel ("SRO List: ON", 165, 70, 80, 15)
Else
GUICtrlCreateLabel ("SRO List: OFF", 165, 70, 80, 15)
EndIf
If ProcessExists("sro_client.exe") Then
GUICtrlCreateLabel ("Silkroad: ON", 10, 70, 60, 15)
Else
GUICtrlCreateLabel ("Silkroad: OFF", 10, 70, 70, 15)
EndIf
While 1
sleep(50)
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $radio_1
$sloty = $3slot
Case $msg = $radio_2
$sloty = $2slot
Case $msg = $radio_3
$sloty = $1slot
Case $msg = $button_1
Look4slot()
Case $msg >= $radio_1 AND $msg <= $radio_3
$radioval1 = $msg - $radio_1
EndSelect
Wend
Func Look4slot()
While 1
$sName=GUICtrlRead($servery)
$sSize=GUICtrlRead($size)
If $sSize = "800x600" Then
$h = $800
$w = $600
ElseIf $sSize = "1024x768" Then
$h = $1024
$w = $768
ElseIf $sSize = "1280x1024" Then
$h = $1280
$w = $1024b
EndIf
$y = ControlListView("Sro Server List", "List1", 1001, "FindItem", $sName)
$x = ControlListView("Sro Server List", "List1", 1001, "GetText", $y, "2")
Sleep(500)
If $x <= $sloty Then
SoundPlay(@WindowsDir & "\media\tada.wav",0)
if ProcessExists ("SRO_Client.exe") Then
WinActivate("SRO_Client")
MouseClick("left",$h , $w, 2, 1)
Exit
EndIf
Exit
EndIf
WEnd
EndFunc
|
|
|
Отправлено: 04:11, 05-02-2009 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать |
|
------- Отправлено: 04:30, 05-02-2009 | #2 |
|
Новый участник Сообщения: 3
|
Профиль | Отправить PM | Цитировать а что там именно не работает?
|
|
Отправлено: 04:40, 05-02-2009 | #3 |
|
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Не объявлены некоторые переменные.
P.S А откуда код? |
|
------- Отправлено: 05:21, 05-02-2009 | #4 |
|
Новый участник Сообщения: 3
|
Профиль | Отправить PM | Цитировать а эт я с одного польского сайта взял
как сделать чтобы эта прога работала? |
|
|
Отправлено: 10:16, 05-02-2009 | #5 |
Ветеран Сообщения: 842
|
Профиль | Отправить PM | Цитировать Если есть время, скачиваешь AutoIt3 и устанавливаешь полностью, он не большой, кстати.
Открываешь код в его редакторе SciTE.exe и ставишь курсор на каждую стрку... и жмёшь F1 Там достаточно подробный хелп по всем функциям, сразу можно понять чего не хватает. Я таким образом сам кое что смог поправить в новой версии. Если написанно [optional], значит это поле функции не обязательное в коде, остальные должны быть! Потом кампилишь утилитой Aut2exe.exe - script.au2 > script.exe (это ещё проще) Я в этот код не врубаюсь, но думаю что моих коментариев достаточно. |
|
------- Отправлено: 15:40, 05-02-2009 | #6 |
|
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать |
|
------- Отправлено: 15:40, 05-02-2009 | #7 |
|
Ветеран Сообщения: 842
|
Профиль | Отправить PM | Цитировать Кстати,
$servery = GUICtrlCreateCombo ("Choose server:", 10,10, 110, 20, $CBS_DROPDOWNLIST) а где тогда определение $CBS_DROPDOWNLIST ? может #include < > ещё какие нужны? --- Цитата:
|
|
|
------- Отправлено: 15:48, 05-02-2009 | #8 |
|
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата semiono:
Меня каждый раз заного поражает тот факт, что многие обновляют версию AutoIt'а (хотя это обычно с любыми программами происходит), и при этом даже не интересуются что в ней обновилось, а потом с удивлением спрашивают, почему скрипт не работает, когда раньше работал. P.S Это ни к кому не адресовано, просто мылси вслух  |
|
|
------- Отправлено: 16:00, 05-02-2009 | #9 |
Старожил Сообщения: 307
|
Профиль | Отправить PM | Цитировать Вот у меня версия Аutoit 3.3 и еще к SciTe я прикрутил анализатор кода для добавления после анализа недостающих библиотек, то после анализа добавлены эти библиотеки: #include <ComboConstants.au3>
#include <GUIConstantsEx.au3> и все остальные удалены, и в результате - этот скрипт работает. |
|
Отправлено: 19:38, 05-02-2009 | #10 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| SysTreeView32 - как с этим работать? | Firebolt | AutoIt | 20 | 13-10-2011 15:08 | |
| [решено] Троян TR/Patched.Gr.8 и зараженные параметры реестра. Как с этим справиться? | Agrippa | Лечение систем от вредоносных программ | 25 | 08-01-2010 12:18 | |
| [решено] ven_15ad&dev_0801. Что это за зверь и как с этим бороться? | achtung | Поиск драйверов, прошивок и руководств | 2 | 29-10-2008 13:14 | |
| EventID - Event ID: 27 Как с этим бороться??? | KraSSotka | Устранение критических ошибок Windows | 0 | 22-10-2008 08:36 | |
| DRM: как с этим бороться? | X-SAT | Хочу все знать | 6 | 12-02-2007 02:39 | |
|
|
Время: 05:14. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
