[DL] Generator Podań Soldat - Oceniajcie

ijakciidc · 10 Września 2013

Witajcie

Pewnie Jest reklama obok <--- Ale kit z tym.

Stworzyłem program w AutoIT - Generator Podań Soldat v1
I mam pytanie: Czy jest wszystko przejrzyste, jasne, ok, niczego nie brakuje itp.
Program ma służyć by użytkownicy próbujący dołączyć do jakiegoś klanu szybko mogli stworzyć podanie.

UWAGA! Należy rozpakować folder zawarty w RAR'u na pulpit! - Nie dokońca sprawdziłem. Chodzi oto że ikonki i wszystkie grafiki mogło pobierać z dobrego adresu źródła.

DOWNLOAD:

http://chomikuj.pl/Creativ120/Dokumenty

SKAN:

https://www.virustotal.com/pl/file/456e2110de423e78423674e7cd784fb1ed55b95f2ca2958a0004f4bfdd586d9b/analysis/1378831142/

Kod pogramu:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=g:\soldatinfo.kxf
$Form1_1 = GUICreate("Soldat Info by Creativ120", 630, 442, 191, 131)
$Pic1 = GUICtrlCreatePic("G:\soldat.gif", 0, 0, 625, 89)
GUICtrlSetState(-1, $GUI_DISABLE)
$Pic2 = GUICtrlCreatePic("G:\images.jpg", 0, 88, 625, 353, BitOR($GUI_SS_DEFAULT_PIC,$WS_BORDER))
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Twój Nick w Grze:", 8, 96, 174, 22)
GUICtrlSetFont(-1, 12, 800, 0, "Courier New")
$Player = GUICtrlCreateInput("Major", 184, 96, 121, 21)
$Label2 = GUICtrlCreateLabel("Moja Historia Klanów:", 8, 120, 214, 22)
GUICtrlSetFont(-1, 12, 800, 0, "Courier New")
$Klany = GUICtrlCreateInput("", 224, 120, 113, 21)
$Label3 = GUICtrlCreateLabel("Ulubiona Broń:", 0, 328, 144, 23)
GUICtrlSetFont(-1, 12, 800, 2, "Courier New")
$Pic3 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\1.bmp", 24, 352, 41, 17)
$Pic4 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\2.bmp", 24, 376, 41, 17)
$Pic5 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\3.bmp", 24, 400, 41, 17)
$Pic6 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\4.bmp", 96, 352, 65, 17)
$Pic7 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\5.bmp", 96, 376, 65, 17)
$Pic8 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\6.bmp", 96, 400, 65, 17)
$Pic9 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\7.bmp", 192, 352, 57, 17)
$Pic10 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\8.bmp", 192, 376, 57, 17)
$Pic11 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\9.bmp", 192, 400, 57, 17)
$Label4 = GUICtrlCreateLabel("Ulubiona Broń Podręczna:", 272, 328, 244, 22)
GUICtrlSetFont(-1, 12, 800, 0, "Courier New")
$Pic12 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\10.bmp", 312, 352, 41, 17)
$Pic13 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\chainsaw.bmp", 312, 376, 41, 17)
$Pic14 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\knife.bmp", 384, 352, 41, 17)
$Pic15 = GUICtrlCreatePic("C:\Documents and Settings\PC\Pulpit\Soldat Player Info\images\law.bmp", 384, 376, 41, 17)
$Desert = GUICtrlCreateCheckbox("Checkbox1", 0, 352, 17, 17)
GUICtrlSetCursor (-1, 3)
$HK = GUICtrlCreateCheckbox("Checkbox2", 0, 376, 17, 17)
GUICtrlSetCursor (-1, 3)
$AK79 = GUICtrlCreateCheckbox("Checkbox3", 0, 400, 17, 17)
GUICtrlSetCursor (-1, 3)
$Steyr = GUICtrlCreateCheckbox("Checkbox4", 80, 352, 17, 17)
GUICtrlSetCursor (-1, 3)
$Spas = GUICtrlCreateCheckbox("Checkbox5", 80, 376, 17, 17)
GUICtrlSetCursor (-1, 3)
$Ruger = GUICtrlCreateCheckbox("Checkbox6", 80, 400, 17, 17)
GUICtrlSetCursor (-1, 3)
$M79 = GUICtrlCreateCheckbox("Checkbox7", 176, 352, 17, 17)
GUICtrlSetCursor (-1, 3)
$Barret = GUICtrlCreateCheckbox("Checkbox8", 176, 376, 17, 17)
GUICtrlSetCursor (-1, 3)
$MiniMi = GUICtrlCreateCheckbox("Checkbox9", 176, 400, 17, 17)
GUICtrlSetCursor (-1, 3)
$USSOCCOM = GUICtrlCreateCheckbox("Checkbox10", 296, 352, 17, 17)
GUICtrlSetCursor (-1, 3)
$Chainsaw = GUICtrlCreateCheckbox("Checkbox11", 296, 376, 17, 17)
GUICtrlSetCursor (-1, 3)
$Knife = GUICtrlCreateCheckbox("Checkbox12", 368, 352, 17, 17)
GUICtrlSetCursor (-1, 3)
$Law = GUICtrlCreateCheckbox("Checkbox13", 368, 376, 17, 17)
GUICtrlSetCursor (-1, 3)
$Button1 = GUICtrlCreateButton("GENERUJ", 488, 360, 121, 57)
GUICtrlSetFont(-1, 10, 400, 0, "MultiplayerMinecraft.pl")
$Label6 = GUICtrlCreateLabel("Wiek:", 336, 96, 54, 22)
GUICtrlSetFont(-1, 12, 800, 0, "Courier New")
$Wiek = GUICtrlCreateInput("10", 392, 96, 65, 21)
$Label7 = GUICtrlCreateLabel("Do jakiego klanu chcesz dołączyć:", 8, 144, 235, 20)
GUICtrlSetFont(-1, 9, 800, 0, "Courier New")
$Klan = GUICtrlCreateInput("", 240, 144, 49, 21)
$Label8 = GUICtrlCreateLabel("Twoje imię:", 288, 144, 92, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Courier New")
$Imie = GUICtrlCreateInput("Imie", 376, 144, 49, 21)
$Label5 = GUICtrlCreateLabel("GG:", 336, 120, 31, 21)
GUICtrlSetFont(-1, 11, 800, 0, "Courier New")
$GG = GUICtrlCreateInput("000000", 368, 120, 97, 21)
$Label9 = GUICtrlCreateLabel("Cos od siebie:", 464, 96, 144, 22)
GUICtrlSetFont(-1, 12, 800, 0, "Courier New")
$DodatkoweInformacje = GUICtrlCreateInput("Dodatkowe Informacje", 472, 120, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Generuj()
            Exit
    EndSwitch
WEnd
 
Func Generuj()
GUISetState()
Opt("MouseCoordMode", 0) ;współrzędne względne
Opt("SendKeyDelay", 15)  ;czas między "wciśnięciami" klawiszy
$DesertEagles = GUICtrlRead($Desert)
$HKMP5 = GUICtrlRead($HK)
$AK79a = GUICtrlRead($AK79)
$Steyra = GUICtrlRead($Steyr)
$Spasa = GUICtrlRead($Spas)
$Rugera = GUICtrlRead($Ruger)
$M79a = GUICtrlRead($M79)
$Barreta = GUICtrlRead($Barret)
$MiniMia = GUICtrlRead($MiniMi)
$USSOCCOMa = GUICtrlRead($USSOCCOM)
$Chainsawa = GUICtrlRead($Chainsaw)
$Knifea = GUICtrlRead($Knife)
$Lawa = GUICtrlRead($Law)
 
Run(@WindowsDir & "\Notepad.exe") ;uruchomienie notatnika
Sleep(1000)
Send("Witam"&@LF&@LF&"Ubiegam się o dołączenie do klanu: ")
Send(GUICtrlRead($Klan))
Send(@LF&"Podanie:")
Send(@LF&"`Imię: ")
Send(GUICtrlRead($Imie))
Send(@LF&"`Mój nick w grze: ")
Send(GUICtrlRead($Player))
Send(@LF&"`Mój wiek: ")
Send( GUICtrlRead($Wiek) )
Send(@LF&"`GG: ")
Send(GUICtrlRead($GG))
Send(@LF&"`Przeszłość klanowa: ")
Send(GUICtrlRead($Klany))
Send(@LF&"`Moje ulubione bronie: ")
If $DesertEagles = $GUI_CHECKED Then
    Send(@LF&"``Desert Eagles")
EndIf
If $HKMP5 = $GUI_CHECKED Then
    Send(@LF&"``HK MP5")
EndIf
If $AK79a = $GUI_CHECKED Then
    Send(@LF&"``AK-79")
EndIf
If $Steyra = $GUI_CHECKED Then
    Send(@LF&"``Steyr AUG")
EndIf
If $Spasa = $GUI_CHECKED Then
    Send(@LF&"``Spas-12")
EndIf
If $Rugera = $GUI_CHECKED Then
    Send(@LF&"``Ruger 77")
EndIf
If $M79a = $GUI_CHECKED Then
    Send(@LF&"``M79")
EndIf
If $Barreta = $GUI_CHECKED Then
    Send(@LF&"``Barret M82A1")
EndIf
If $MiniMia = $GUI_CHECKED Then
    Send(@LF&"``FN Minimi")
EndIf
Send(@LF&"`Moja Ulubiona broń podręczna: ")
If $USSOCCOMa = $GUI_CHECKED Then
    Send(@LF&"``USSOCCOM")
EndIf
If $Chainsawa = $GUI_CHECKED Then
    Send(@LF&"``Chainsaw")
EndIf
If $Knifea = $GUI_CHECKED Then
    Send(@LF&"``Knife")
EndIf
If $Lawa = $GUI_CHECKED Then
    Send(@LF&"``M72 Law")
EndIf
Send(@LF&"`Dodatkowe Informacje: ")
Send(GUICtrlRead($DodatkoweInformacje))
Send(@LF&@LF&"Podanie wygenerowano przez Generator Podań Soldat by Creativ120")
EndFunc

Andre13 · 10 Września 2013

dodaj skan pliku.

@offtop i kolejne 6 miesięcy w plecy ;(

ijakciidc · 10 Września 2013

Skan Dodany

hehe7 · 10 Września 2013

Wrzuć obrazki do skryptu ,bo jak na razie tylko ty je widzisz. FileInstall lub iexpress

ijakciidc · 10 Września 2013

Tak myślałem tylko musze to jakoś obczaić bo nwm oco kaman.

hehe7 · 10 Września 2013

Tutaj lub

Instalator

Ciekawą funkcją jest FileInstall. Umożliwia ona dołączenie do skompilowanego skryptu dowolnych dodatkowych plików. Po uruchomieniu tak skompilowanego skryptu pliki te zostaną wypakowane w zadanej lokalizacji. Mechanizm ten pozwala w prosty sposób napisać instalator, który stworzy środowisko pracy programu i umieści w nim różne dodatkowy pliki niezbędne do jego działania np. grafiki, dźwięki, teksty, bazy danych itp.

Jeżeli skrypt uruchomimy w trybie interpretacji to funkcja działa jak FileCopy.

FileInstall ( "źródło", "cel" [, flag] )

przykład:

FileInstall("instal\logo.jpg", "pic\logo.jpg")
FileInstall("instal\sound.wav", "wave\gong.wav")
FileInstall("instal\text.txt", "manual\readme.txt",1)

UWAGA: ”źródło” nie może być zmienną, natomiast ”cel” może.

Flaga 1 powoduje nadpisanie istniejących plików, 0 (domyślne) nie nadpisuje.

ijakciidc · 11 Września 2013

Sprawdzcie czy działają te obrazki. Ściągamy z chomika Generator Podan Soldat v2.

Andre13 · 11 Września 2013

nawet fajny tylko, że GUI (Głównie labele i inputy) na chodzą na siebie.

ijakciidc · 11 Września 2013

Być może minimalnie. Chyba że u was jest źle.

Ogólnie nie powinno być problemów. Uczę się autoita tylko 3-4dni po około 1-2h i to jeden z większych programów.

Andre13 · 13 Września 2013

dodaj funkcję z wysyłanie na emaila czy coś takiego, udf: smtp.au3

Zaloguj się

👋 Witaj na MPCForum!

[DL] Generator Podań Soldat - Oceniajcie

Rekomendowane odpowiedzi

ijakciidc

ijakciidc

Andre13

Andre13

ijakciidc

ijakciidc

hehe7

hehe7

ijakciidc

ijakciidc

hehe7

hehe7

ijakciidc

ijakciidc

Andre13

Andre13

ijakciidc

ijakciidc

Andre13

Andre13

Zarchiwizowany