Войти

Показать полную графическую версию : [решено] Как создать прогу, с этим кодом


rhaw
05-02-2009, 04:11
#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

Creat0R
05-02-2009, 04:30
Скомпилировать через Aut2Exe (http://www.autoitscript.com/autoit3/docs/intro/compiler.htm).

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

rhaw
05-02-2009, 04:40
а что там именно не работает?

Creat0R
05-02-2009, 05:21
Не объявлены некоторые переменные.

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

rhaw
05-02-2009, 10:16
а эт я с одного польского сайта взял

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

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

Creat0R
05-02-2009, 15:40
как сделать чтобы эта прога работала? »
Скомпилировать в 3.2.8.1 (http://www.autoitscript.com/autoit3/files/archive/autoit/autoit-v3.2.8.1-setup.exe).

semiono
05-02-2009, 15:48
Кстати,
$servery = GUICtrlCreateCombo ("Choose server:", 10,10, 110, 20, $CBS_DROPDOWNLIST)

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

---
Скомпилировать в 3.2.8.1.
Во! хорошая идея!

Creat0R
05-02-2009, 16:00
где тогда определение $CBS_DROPDOWNLIST ? »
В ComboConstants.au3.

Меня каждый раз заного поражает тот факт, что многие обновляют версию AutoIt'а (хотя это обычно с любыми программами происходит), и при этом даже не интересуются что в ней обновилось (http://www.autoitscript.com/autoit3/docs/script_breaking_changes.htm), а потом с удивлением спрашивают, почему скрипт не работает, когда раньше работал.

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

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




© OSzone.net 2001-2012