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

[Pytanie] Skrypt - Pomoc ?

pajeczek

Rekomendowane odpowiedzi

  • Odpowiedzi 84
  • Dodano
  • Ostatniej odpowiedzi
hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Musisz włączyć na dwóch komputerach udostepnianie i nastepnie wybierasz jakis folder i klikasz na niego i dajesz udostepnij.

u mnie to bylo

 

"\\IWONA\Users\Public\Downloads\config.ini"

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

 

@up

Ale ja to chce sam napisac ; )

 

 

No to pisz. Przecież jest poradnik na mpc o WinHTTP.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

pajeczek Bywalec

pajeczek

Opublikowano
Bywalec

pajeczek

  • Autor
Opublikowano

Zrobilem to z tym mpcforum gdy mam napis na mpc wylaczam to komp sie offa po 5 minutach a jak zrobic ze apka wlacza sie przy starcie systemu ?

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

No to możesz dodać ją do rejestru (nawet za pomoca autoit) lub wejsc w zaplanowane zadania dodać aby włączał się wraz z startem komputera.

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Jakaś nazwa", "REG_SZ", "Ścieżka do programu")

 

Widać kolejny trojan powstaje.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Taki rodzaj wirusa, umożliwiającego przejęcie kontroli nad komputerem. Żartowałem z tym oczywiście, ale moje początki wyglądały podobnie. xD

 

No nie ważne, podałem Ci jak ma wyglądać to dodawanie wpisu w rejestrze to daj chociaż like. :)

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

pajeczek Bywalec

pajeczek

Opublikowano
Bywalec

pajeczek

  • Autor
Opublikowano

Daje like za kazdy napisany tutaj post tylko ze jest limit chyba 10 like na dzien i wczoraj juz wiecej nie moglem.Dalem dzisiaj lajki.

Wiec co to trojan ale myslalem ze chodzi ci o to ze koledzy @up mi podali kod na trojana :D

pajeczek Bywalec

pajeczek

Opublikowano
Bywalec

pajeczek

  • Autor
Opublikowano

Tamto z tym ze na mpcforum wpisywalem WYLACZAM nie dzialalo.

Sproboje z tym ini

Na kompie ktory chce wylaczyc mam :

 

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
    Sleep(30000)
WEnd

Czy w tym kodzie jest wszystko dobrze ?

Zrobilem udostepnianie plikow.

A na "glownej maszynie" będzie :

 

#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, 44, 125, 25)
$Wylaczspr = GUICtrlCreateButton("Wyłącz sprawdzanie", 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ł\config.ini", "Bot", "Status", "1");daje polecenie wylaczenia
                While 1
            $key1 = IniRead("\\C:\Documents and Settings\All Users\Dokumenty\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("\\C:\Documents and Settings\All Users\Dokumenty\Paweł\config.ini", "Bot", "Status", "2");daje polecenie wylaczenia spr
                While 11
            $key1 = IniRead("\\C:\Documents and Settings\All Users\Dokumenty\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

Czy wszystko jest dobrze ?

@Edit

Glownie chodzi mi o sciezki , czy np. te znaki " przy sciezce nie sa za predko wstawione.

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

@Up. Kod jest dobrze bo sam Ci podałem (a sam go używałem i pisałem) tylko te ścieżki masz jakieś dziwne. Najlepiej wejdz w mój komputer i po lewej na zakładkach znajdz sieć albo miejsca sieciowe i wejdz tam i będziesz miał a jak nie to w tym samym folderze po lewej wejdz "wyswietl komputery grupy roboczej"

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

pajeczek Bywalec

pajeczek

Opublikowano
Bywalec

pajeczek

  • Autor
Opublikowano

Kurde cos mi to nie chce dzialac z ta sciezka jak wlaczam program to z plikiem sie nic nie dzieje (zmienilem sciezke na pulpit i tam dalem plik i sie nie zmienialo z 1 na 2

A w moje miejsca sieciowe mam tylko Internet My Web SItes on MSN

Mam na tym kompie windowsaxp

Nie wiem jak to zrobic z tym udostepnianiem pomoglbys tez ?

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Bo to jest tak. Sciezka na pulpit to normalnie

C:\Documents and Settings\All Users\Dokumenty\Paweł\Pulpit\config.ini"

A pewnie dałeś z \\ które określają sieciowy folder.

 

ijzb.jpg

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

pajeczek Bywalec

pajeczek

Opublikowano
Bywalec

pajeczek

  • Autor
Opublikowano

@Up

Tak dalem z // a teraz dalem bez // i nadal nie dziala bo narazie testuje na pulpicie.

 

#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, 44, 125, 25)
$Wylaczspr = GUICtrlCreateButton("Wyłącz sprawdzanie", 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
EndSwitch
WEnd

Co jest z tym zle ? :C

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Działa !

Gdy klikniesz wyłącz komputer pojawi Ci sie plik i bedzie tam 1 lub

Gdy klikniesz wyłącz sprawdzanie pojawi Ci sie plik (chyba ze masz to tylko sie zmieni) i bedzie tam 2

Żeby zmienić musisz włączyć od nowa program ponieważ wchodzi w pętle ale jeśli próbujesz na sucho to nie działa także jeśli klikniesz jeden guzik to potem musisz włączyć od nowa.

 

Teraz nie zwróci Ci msgbox ponieważ drugi komputer nie odezwie sie ponieważ testujesz na pulpicie.

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

pajeczek Bywalec

pajeczek

Opublikowano
Bywalec

pajeczek

  • Autor
Opublikowano

Usunalem ten plik z pulpitu zeby sprawdzic i nic...

Nie dziala.

Plik sie nie zrobil.

@Edit

Ok , jednak dziala.

Plik sie robi i wszystko sie zmienia , ale jak to zrobic z tym udostepnianiem ?

Na kompie ktory chce offnac mam windowsaxp a na tym ktorym chce sterowac jest vista jestesmy w tej samej sieci wifi.

kaje11 Specjalista

kaje11

Opublikowano
Specjalista

kaje11

Opublikowano 
While 1
    $Status = InetRead("http://www.mpcforum.pl/user/286454-pajeczek/")
    If stringInStr( BinaryToString($Status), "WYLACZAM" ) Then
        Shutdown( 5 )
        exit
        
    EndIf
    Sleep(3000) ;3 sekundy
WEnd

To musi działać, ustaw sobie WYLACZAM w np. hobby.

WSZYSTKIE PLIKI W CHMURZE DLA MPCFORUM ZOSTAŁY USUNIĘTE. NIE KORZYSTAĆ Z MOICH PROGRAMÓW.

Proszę nie ingerować w moje posty/tematy, w razie potrzeby usunąć całą zawartość. Nie pomagam.

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Wchodzisz w własciwosci moj komputer, zdalne i włącz udostepnianie (to robisz na dwóch kompach) potem wybierasz sobie jakis folder klikasz prawym i udostepnij i gotowe. Pamietaj zeby sprawdzic czy nie blokuje Cie zapora lub antyvir.

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

kaje11 Specjalista

kaje11

Opublikowano
Specjalista

kaje11

Opublikowano

@Up

To juz probowalem i mi nie dziala

Ale to z tym ini dziala tylko powiedz jak zrobic te udostepnianie.

 

Bo kod poprawiłem, polskich liter nie łapało.

Spróbuj ponownie, jeśli sposób UP'a ci nie zadziała.

WSZYSTKIE PLIKI W CHMURZE DLA MPCFORUM ZOSTAŁY USUNIĘTE. NIE KORZYSTAĆ Z MOICH PROGRAMÓW.

Proszę nie ingerować w moje posty/tematy, w razie potrzeby usunąć całą zawartość. Nie pomagam.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...