[Pytanie] Skrypt - Pomoc ?

pajeczek · 17 Lipca 2013

Ok , wszystko dziala.Dzięki chłopaki.Ale jeszcze 1 bo tam sa 2 opcje Wylacz komputer i Wylacz sprawdzanie co robi to wylacz sprawdzanie ?

hehe7 · 17 Lipca 2013

No jeśli wiesz że nie będziesz dziś wyłączał komputera to tym wyłączysz ten program na komputerze mamy. Po prostu jeśli tego nie używasz możesz wyłączyć aby tamten komputer szybciej chodził.

Jeśli chcesz jeszcze jakieś opcje to napisz.Bo to jest mój skrypt który troszeczke podrobiłem aby tobie pasował.

pajeczek · 17 Lipca 2013

Ale jak uruchomie ten skrypt na kompie mamy a w configu bd ciagle 1 to komputer bedzie sie wylaczac.A jak wylacze skrypt to go nie wlacze

hehe7 · 17 Lipca 2013

To działa tak. Włączasz na komputerze mamy skrypt no i wszystko sobie chodzi. Jeśli sobie myślisz że dziś nie będziesz używał skryptu dajesz wyłącz sprawdzanie i nie bierze zasobów komputera na darmo( bo w koncu nie chcesz dzis uzywać), przy nastepnym uruchomieniu dopiero sie wlaczy lub gdy sobie sam wlaczysz. Jesli dasz wylacz komputer i dojdzie to do komputera mamy, napisze odpowiedz ze gotowe (wylacza sie) przez co resetuje config aby po włączeniu sam nie wylaczyl sie (gdyby bylo 1 ale sam wpisuje inna liczbe oznaczajaca zadanie zrobione i resetuje)

pajeczek · 17 Lipca 2013

A dalo by sie tak ze np. dorobisz do kodu 3 guzik i on by robil ze mozna by bylo odpalic ten skrypt od nowa ?

hehe7 · 17 Lipca 2013

Nie ma takiej opcji. Ponieważ skrypt sprawdza i coś robi więc jeśli będzie wyłączony to nie ma co sprawdzać i robić (uruchamiać)

pajeczek · 17 Lipca 2013

Aha , szkoda.

A pytanko z mojej strony moglbys zedytowac plik na kompa mamy (Ten ktory odswieza co 30 sek) ze jak bedzie liczba 1 to sie wlaczy program na jakiejs tam sciezce ?

hehe7 · 17 Lipca 2013

While 1
    $key1 = IniRead("\\C:\Documents and Settings\All Users\Dokumenty\Paweł\config.ini", "Bot", "status", "1")
    If $key1 = "1" Then
IniWrite("\\C:\Documents and Settings\All Users\Dokumenty\Paweł\config.ini", "Bot", "status", "10") ;wpisuje odp ze wykonal
Shutdown (1)
Exit
    EndIf
    If $key1 = "2" Then
        IniWrite("\\C:\Documents and Settings\All Users\Dokumenty\Paweł\config.ini", "Bot", "status", "10") ;wpisuje ze wykonal
        Exit
    EndIf
   If $key1 = "3" Then
Run ("SCIEZKA DO PLIKU KTORY CHCESZ URUCHOMIC")
        IniWrite("\\C:\Documents and Settings\All Users\Dokumenty\Paweł\config.ini", "Bot", "status", "10") ;wpisuje ze wykonal
    EndIf
    Sleep(30000)
WEnd

Dodałem go na 3 , ale powiedz jak to chcesz? Moge Ci dodać żeby były 3 przyciski (wyłącz komputer, wyłącz sprawdzanie, włącz program) czy chcesz zrezygnować z czegoś? Do tego musisz (muszę) dodać jeden przycisk do skryptu na twoim komputerze aby uruchamiał ten program.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
#Region ### START Koda GUI section ### Form=
$Server = GUICreate("Zarzadzanie", 142, 147, 205, 134)
GUISetFont(5, 400, 0, "MS Sans Serif")
$Obramowanie = GUICtrlCreateGroup("Zarzadzanie", 4, 0, 135, 99)
$Wylacz = GUICtrlCreateButton("Wyłącz Komputer", 9, 11, 125, 25)
$Wylaczspr = GUICtrlCreateButton("Wyłącz sprawdzanie", 9, 41, 125, 25)
$Wlaczprogram = GUICtrlCreateButton("Włącz program", 9, 71, 125, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Wylacz
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "1");daje polecenie wylaczenia
                While 1
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
            Sleep (1000)
            WEnd
        Case $Wylaczspr
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "2");daje polecenie wylaczenia spr
                While 11
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
Sleep (1000)
WEnd
        Case $Wlaczprogram
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "3");daje polecenie wlaczenia programu
                While 11
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
            Sleep (1000)
            WEnd
EndSwitch
WEnd

pajeczek · 17 Lipca 2013

Thx , wlasnie ci mialem napisac zebys mi to zrobil ; )

pajeczek · 17 Lipca 2013

Pojawil sie problem probowalem odpalic ten program co tam jest wylacz kompa , wylacz sprawdzanie a tam blad wyskoczyl :

Line 39 (File "C\Documents and Settings\IZA\Pulpit\Glowny.au3"):

Case $Wlaczprogram

Error: "Case" statement with no matching "Select" or "Switch" statemenet.

Kod skryptu :

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
#Region ### START Koda GUI section ### Form=
$Server = GUICreate("Zarzadzanie", 142, 147, 205, 134)
GUISetFont(5, 400, 0, "MS Sans Serif")
$Obramowanie = GUICtrlCreateGroup("Zarzadzanie", 4, 0, 135, 99)
$Wylacz = GUICtrlCreateButton("Wyłącz Komputer", 9, 11, 125, 25)
$Wylaczspr = GUICtrlCreateButton("Wyłącz sprawdzanie", 9, 41, 125, 25)
$Wlaczprogram = GUICtrlCreateButton("Włącz program", 9, 71, 125, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Wylacz
            IniWrite("\\Iza\Paweł\config.ini", "Bot", "Status", "1");daje polecenie wylaczenia
                While 1
            $key1 = IniRead("\\Iza\Paweł\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
            Sleep (1000)
            WEnd
        Case $Wylaczspr
            IniWrite("\\Iza\Paweł\config.ini", "Bot", "Status", "2");daje polecenie wylaczenia spr
                While 11
            $key1 = IniRead("\\Iza\Paweł\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
        Case $Wlaczprogram
            IniWrite("\\Iza\Paweł\config.ini", "Bot", "Status", "3");daje polecenie wlaczenia programu
                While 11
            $key1 = IniRead("\\Iza\Paweł\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
            Sleep (1000)
            WEnd
EndSwitch

WEnd

hehe7 · 17 Lipca 2013

Tak wiem że był błąd, już go poprawiłem tylko mpcforum mi przestał działac i nie moglem poprawić

pajeczek · 17 Lipca 2013

Juz sobie z tym poradzilem dodalem wend i cos tqm ; )

Mi tez mpc nie dzialalo .

Narazie all dziala , ale jak bym cos potrzebowal to bd pisac .

pajeczek · 18 Lipca 2013

Moglbym prosic o dodanie do kodu glownego (ten z guzikami) przycisku ktory wpisze numer kolejny czyli chyba 5 i wtedy nic nie bd sie robic , bd odswiezac dalej.

hehe7 · 18 Lipca 2013

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
#Region ### START Koda GUI section ### Form=
$Server = GUICreate("Zarzadzanie", 142, 147, 205, 134)
GUISetFont(5, 400, 0, "MS Sans Serif")
$Obramowanie = GUICtrlCreateGroup("Zarzadzanie", 4, 0, 135, 99)
$Wylacz = GUICtrlCreateButton("Wyłącz Komputer", 9, 11, 125, 25)
$Wylaczspr = GUICtrlCreateButton("Wyłącz sprawdzanie", 9, 41, 125, 25)
$Wlaczprogram = GUICtrlCreateButton("Włącz program", 9, 71, 125, 25)
$dozmiany = GUICtrlCreateButton("dozmiany", 9,101, 125, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Wylacz
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "1");daje polecenie wylaczenia
                While 1
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
            Sleep (1000)
            WEnd
        Case $Wylaczspr
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "2");daje polecenie wylaczenia spr
                While 11
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
Sleep (1000)
WEnd
        Case $Wlaczprogram
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "3");daje polecenie wlaczenia programu
                While 11
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
            Sleep (1000)
            WEnd
        Case $dozmiany
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "4");daje polecenie czegos
 ;               While 11
 ;           $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
 ;           If $key1 = 10 Then
 ;               MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
 ;           Exit
 ;       EndIf
 ;           Sleep (1000)
 ;           WEnd
EndSwitch
WEnd

Ale po co to? To jest wzór ale może być do zmiany bo nie wiem do czego to więc więcej nie dam rady zrobić. Jak coś to pisz.

pajeczek · 18 Lipca 2013

No bo jak uruchomie petle sprawdzania to musze albo ja wylaczyc albo offnac kompa albo wlaczyc program.A ja chce zeby byl inny numer jakis np 5 i wtedy petla sprawdza dalej.

A powiedz mi gdzie w tym kodzie jest ze ma wpisac np. numer 2 bo nie widze.

hehe7 · 18 Lipca 2013

        Case $Wylaczspr
            IniWrite("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "2");daje polecenie wylaczenia spr
                While 11
            $key1 = IniRead("C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini", "Bot", "Status", "Nic nie znalazłem")
            If $key1 = 10 Then
                MsgBox ( 0, "Bot", "Gotowe");odczytuje odpowiedz czy wykonano
            Exit
        EndIf
Sleep (1000)
WEnd

No ale jesli wykonasz akcje to on sprawdza caly czas czy jest odpowiedz.

pajeczek · 18 Lipca 2013

No bo wlasnie mi chodzi o to zeby chodzilo caly czas 24/7 ja sobie ustawie tam sprawdzanie co 10 minut i nie bd zle.

Bo chce miec 4 opcje tam :

Wylacz komputer

Wylacz sprawdzanie

Wlacz program

I np. Wlacz petle

I gdy bd wlacz petle to bd np liczba 100 w pliku config.ini i wtedy petla bd caly czas sprawdzac..

Kapujesz ?

Agent K · 18 Lipca 2013

Bez sensu i tak musisz mieć jakąś pętlę, która będzie sprawdzać, żeby wiedzieć kiedy włączyć tą drugą pętlę.

@Edit W sieci lokalnej takie rzeczy to pewnie bez AutoIt się da.

profilus=) · 18 Lipca 2013

Nie znam się na programowaniu, ale mozesz zrobić coś takiego, że jesli Twoi rodzice wchodza w jakiś program, to odpala Ci się skrypt z shutdownem, i po jakimś momencie wyłącza się komputer.

@edit.

za co kurwa warna dostalem? ja jebie.. co za admini..

hehe7 · 18 Lipca 2013

No bo wlasnie mi chodzi o to zeby chodzilo caly czas 24/7 ja sobie ustawie tam sprawdzanie co 10 minut i nie bd zle.

Bo chce miec 4 opcje tam :

Wylacz komputer

Wylacz sprawdzanie

Wlacz program

I np. Wlacz petle

I gdy bd wlacz petle to bd np liczba 100 w pliku config.ini i wtedy petla bd caly czas sprawdzac..

Kapujesz ?

To zrób tak : jeśli wcisniesz włącz pętle to w confingu pojawi sie liczba np 100 a w drugim skrypcie If odczyt = 100 then nazwafunckji()

a w tej funkcji będzie pętla ale For do iluś tam i potem wróci normalnie i jesli nadal bedzie 100 to powtorzy a jak nie to bedzie normalnie sprawdzac co iles tam.

Zkumeku · 18 Lipca 2013

Nie znam się na programowaniu, ale mozesz zrobić coś takiego, że jesli Twoi rodzice wchodza w jakiś program, to odpala Ci się skrypt z shutdownem, i po jakimś momencie wyłącza się komputer.

Czysty spam co?

To zrób tak : jeśli wcisniesz włącz pętle to w confingu pojawi sie liczba np 100 a w drugim skrypcie If odczyt = 100 then nazwafunckji()

a w tej funkcji będzie pętla ale For do iluś tam i potem wróci normalnie i jesli nadal bedzie 100 to powtorzy a jak nie to bedzie normalnie sprawdzac co iles tam.

Po co mu kilkanaście skryptów jak to można w jednym prostym zmieścić?

Bez sensu i tak musisz mieć jakąś pętlę, która będzie sprawdzać, żeby wiedzieć kiedy włączyć tą drugą pętlę.

@Edit W sieci lokalnej takie rzeczy to pewnie bez AutoIt się da.

Bez sensu jest wyłączanie pętelek, a co tym bardziej ich kilka. Wystarczy jedna While + zarzucić adlibregister na odpowiednie funkcje i w razie potrzeby je wyłączać

No bo wlasnie mi chodzi o to zeby chodzilo caly czas 24/7 ja sobie ustawie tam sprawdzanie co 10 minut i nie bd zle.

Bo chce miec 4 opcje tam :

Wylacz komputer

Wylacz sprawdzanie

Wlacz program

I np. Wlacz petle

I gdy bd wlacz petle to bd np liczba 100 w pliku config.ini i wtedy petla bd caly czas sprawdzac..

Kapujesz ?

A co ty rozumiesz dokładnie przez wyłącz sprawdzanie itp? Bo można po prostu zrobić by program sam przed wyłączeniem wracał status wyłączenia do włączenia, by draki nie było po ponownym uruchomieniu kompa.

Jutro napiszę Ci 2 skrypty autoit (panelik na twojego kompa + program na kompa starszych) i jeden php (działający nawet na hostingach z reklamkami). Będziesz mógł zarządzać tym przez panelik albo poprzez komórkę wpisując adres www manualnie itp.

Agent K · 18 Lipca 2013

Up Dlatego napisałem że bez sensu.

hehe7 · 18 Lipca 2013

Po co mu kilkanaście skryptów jak to można w jednym prostym zmieścić?

Przecież to jest jeden na kompa jego + drugi na kompa do wyłączenia.

Ale po co ma kupować strone jak można zrobić to bez $?

Zkumeku · 18 Lipca 2013

Przecież to jest jeden na kompa jego + drugi na kompa do wyłączenia.

Ale po co ma kupować strone jak można zrobić to bez $?

Kupować? od czegoś ma cba.pl, 000webhost.pl, hostinger.pl ?

Znasz?

DARMOWE = 0$

Dlatego napisałem, że będzie działało też na hostingach z reklamkami.

pajeczek · 19 Lipca 2013

@Zkumeku Jesli bys mogl to fajnie by bylo jakbys napisal.

@Top

Wy nie wiecie o co mi chodzi bo mam ten kod i ja chce zeby zawsze na kompie mamy ten program byl wlaczony , ale jesli program jest wlaczony a w pliku jest 1 to komp sie offnie 2 program sie wylaczy 3 uruchamia program a ja chce np. 4 i wtedy nic sie nie bedzie dzialo nawet tego nie dodaje do skryptu na kompa mamy tylko do glownego bo wtedy caly czas bd sprawdzac np. co 5 minut i nic nie bedzie innego robic.

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Skrypt - Pomoc ?

Rekomendowane odpowiedzi

Zarchiwizowany