Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Rekomendowane odpowiedzi

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

Mam proste pytanie czy da sie zrobic instalke programu (napisanego w autoit) w autoit ?

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano

bo juz zaczelem pisac i chcialem sie upewnic..

a jest w autoit jakas funkja kompresujaca pliki (w jakies archiwum np gzip) ?

zmozliwoscia dekompresji..

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

w programie samym nie , ale udf jest na pewno, poszukaj na forum autoita a znajdziesz parę popularnych programów do archiwizacji i tworzenia instalek nawet z przykładami

 

dla ułatwienia, 30 na google i masz : http://www.autoitscr...taller-creator/

 

żebyś nie szukał za bardzo gotowy program jest tu : download ( nie mój plik, nie odpowiadam za niego ale to program autora skryptu, wszelkie alerty antywirusa jeśli są należny ignorować bo wynikają ze sposobu kompilacji programu, zresztą to wie każdy co używa programów w AutoIt )

1

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano

Pisze program ktury bedzie tylko autoit wiec niech i instalka bedzie w autoit i chce ja sam napisac (najlepiej zeby sie skladala w 1 pliku)

sproboje napisac jak nie wyjdzie to sie odezwe

a i wszystkim wam po +

@up : program do robienia instalek przyda mi sie do innego programu dlatego dla ciebie tez +

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

do pakowania danych możesz użyć UDFa 7zip.au3. Używa on standardowej systemowej biblioteki kernel32.dll

Co do pakowania danych do exeka, to może dałoby się to zrobić przy pomocy fileinstall() lecz nie jestem pewien czy będzie jakaś możliwość późniejszego skopiowania tych danych do wybranego folderu bez pośredniego używania folderu "temp". Instalka to przeważnie samorozpakowujące się archiwum, a w autoit może je być ciężko zrobić.

Jedyne co mi przyszło do głowy to zapisanie spakowanych plików w postaci string i późniejsze ich rozpakowanie i umieszczenie na dysku. Lecz z moich prób w szkole wychodziło na to, że w 30 minut autoit da rade napisać tylko około 500MB danych.

Można też zrobić tak, aby był jeden plik exe (instalator) i reszta danych w postaci spakowanej. Instalator wypakowywałby pliki nie zawarte w exe do folderu docelowego. Lecz wtedy problemem może być zabezpieczenie archiwum.

Jak coś wymyślę lub znajdę to dam znać

1
981841412442977292370.png
ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano

@Up : nie wykluczalem tego ze gdzies nie moze tego rozpakowac

a i + dla ciebie za info

 

znalazlem alternawywny sposub rozwiazania

to mniej wiecej tak robie :

pakuje wszystko w sfx winrarem

a to mi rozpakowuje do temp..(oczywiscie w ukryciu nic sie nie wyswietla tylko odrazu instalka /// i tak mialo byc..)

i wlacza instalke (a o to przecierz chodzilo /// ja chcialem miec tylko jakoms kompresje zeby mniej wazylo wiec mam..)

no i instalka robi swoje a po wszystkim usuwa sie z temp badz przenosi do odpowiednich folderow..

no a archiwum jest zablokowane i zabezpieczone haslem jak sie chce recznie otworzyc :D

 

wiec mniej wiecej to taka jakby instalka co nie ??

 

teraz musze tylko dokonczyc program a to mi sie zejdzie dlugo..

 

Mam jeszcze ze dwa pytania dotyczace instalki :

jakiej funckji uzyc aby program pokazal sie w zainstalowanych i klikajac na odinstaluj wlaczal moj program dezinstalacyjny(pewnie jakis klucz do rejesrtu ale nie moge znalesc bo reszte w rejestrze znalazlem czyli jak zrobic zeby plik sie otwieral 2x lewym myszki lub prawym otworz i przypisywanie ikony do plikow z danym rozszezeniem.. /// to akurat bylo latwo znalesc..)

a i jeszcze jak dodac do prawej opcji mysze Nowy > i tu plik z moim rozszezeniem ?(tez pewnie w rejestrze ale nie moglem znalesc..)

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano (edytowane)
a i jeszcze jak dodac do prawej opcji mysze Nowy > i tu plik z moim rozszezeniem ?(tez pewnie w rejestrze ale nie moglem znalesc..)

http://www.searcheng...-XP-t30185.html

O to chodzi?

 

jeszcze do dodaj usun

http://programs.pl/f...%C3%B1-programy

musisz sobie przeanalizować inne pliki w tym rejestrze i zrobić coś na wzór tego

 

 

@edit, czyba chodzi dokładniej o linię: uninstallString

 

funkcje, których będziesz używał to regwrite(), regread(), regdelete()

Edytowane przez Sopelek997
1
981841412442977292370.png
ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano (edytowane)

up w 1 linku sa tylko do opcji glownych a nie po opcji nowy > (chyba ze zle szukalem)

2 link to chyba to bedzie to..

funckje znam i wiem kture uzywac bo juz sie bawilem w rejestrze za pomoca autoit

zaraz przetestuje i dam edita czy dziala..

 

@edit : funkcja dezinstalacji dziala /// dzieki.. /// zasluzyles juz na 5* wiec ci je dam teraz

ale jeszcze tylko 1 rzecz jak narazie potrzeba mi..

Edytowane przez ziuto

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

http://www.vista.pl/...wego_nowy_.html

Teraz już na pewno o to chodzi :)

 

Chodzi tam o rozszerzenia. .mp3 itd.

Możesz dodać własne i zrobić do niego tak jak jest do reszty, może zadziała.

1
981841412442977292370.png
ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano (edytowane)

dziala jak nalezy..

jeszcze raz dzieki za wszystko

jak z moim programem bede mial jakies problemy(nie z instalka) to sie upomne w tamtym temacie..

bo twoja wczesniejsza pomoc nie za bardzo pomogla ale sproboje sam zrobic bo z dnia na dzien co raz wiecej umiem

a na razie do koncze instalke..

Edytowane przez ziuto

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano (edytowane)

@EDIT

Zapadła decyzja, że od 6.11.2011 nie będę pisał informacji o zamknięciu tematu, aby ich. nie podbijać.

Edytowane przez Protecto
 Udostępnij
Tematy
×
×
  • Dodaj nową pozycję...