[решено] Как создать прогу, с этим кодом - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Как создать прогу, с этим кодом (http://forum.oszone.net/showthread.php?t=130979)

Как создать прогу, с этим кодом

Код:

#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

Скомпилировать через Aut2Exe.

Код не рабочий в последних версиях, нужна версия 3.2.8.1-.

а что там именно не работает?

Не объявлены некоторые переменные.

P.S
А откуда код?

а эт я с одного польского сайта взял

как сделать чтобы эта прога работала?

Если есть время, скачиваешь AutoIt3 и устанавливаешь полностью, он не большой, кстати.
Открываешь код в его редакторе SciTE.exe и ставишь курсор на каждую стрку... и жмёшь F1
Там достаточно подробный хелп по всем функциям, сразу можно понять чего не хватает.
Я таким образом сам кое что смог поправить в новой версии. Если написанно [optional],
значит это поле функции не обязательное в коде, остальные должны быть!
Потом кампилишь утилитой Aut2exe.exe - script.au2 > script.exe (это ещё проще)
Я в этот код не врубаюсь, но думаю что моих коментариев достаточно.

Цитата:

Цитата rhaw

как сделать чтобы эта прога работала? »

Скомпилировать в 3.2.8.1.

Кстати,
$servery = GUICtrlCreateCombo ("Choose server:", 10,10, 110, 20, $CBS_DROPDOWNLIST)

а где тогда определение $CBS_DROPDOWNLIST ?
может #include < > ещё какие нужны?

---

Цитата:

Скомпилировать в 3.2.8.1.

Во! хорошая идея!

Цитата:

Цитата semiono

где тогда определение $CBS_DROPDOWNLIST ? »

В ComboConstants.au3.

Меня каждый раз заного поражает тот факт, что многие обновляют версию AutoIt'а (хотя это обычно с любыми программами происходит), и при этом даже не интересуются что в ней обновилось, а потом с удивлением спрашивают, почему скрипт не работает, когда раньше работал.

P.S
Это ни к кому не адресовано, просто мылси вслух :)

Вот у меня версия Аutoit 3.3 и еще к SciTe я прикрутил анализатор кода для добавления после анализа недостающих библиотек, то после анализа добавлены эти библиотеки: #include <ComboConstants.au3>
#include <GUIConstantsEx.au3> и все остальные удалены, и в результате - этот скрипт работает.