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

Jak sterować programem z innego komp

sebulec

Rekomendowane odpowiedzi

sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

Opublikowano

Jak stworzyć prog/ komendę która umożliwi nam sterowanie np. programem na innym komputerze? Zaciekawił mnie ten filmik 

http://www.spryciarze.pl/zobacz/jak-przejac-kontrole-nad-innym-komputerem-dla-zartu

sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

  • Autor
Opublikowano

Próbowałem przerobić ten program by na komp. servera wyświetlił się komunikat "jakiśtam" ale nie moge stworzyć tego programu. Pomógł by mi ktoś i pokazał jak zrobić taki program( na jednym kompie naciskam np. spacje a na drugim pojawia się komunikat)

NA tym się wzorowałem http://www.mpcforum.pl/topic/117198-serwer-klient-czyli-zabawa-z-tcp/

xenex Legenda

xenex

Opublikowano
Legenda

xenex

Opublikowano

Strasznie mało ma funkcji ;(

 

 

Kiedyś napisałem coś podobnego ojcu :D ale u mne był 1 ukryty pliczek i miał masę innych funkcji (np. auto update - gdzie mogłem dopisywać nowe funkcje :))

 

 

wysyła ci na ftp i sprawdza co tam jest - F1 i wyszukaj FTP

Oddajcie minusy! :(

sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

  • Autor
Opublikowano

Stworzyłem taki program

 

Pan który steruje :)

CPStartup() ; uruchamiamy usługe TCP

; hotkeye kto hodź trochę zna autoita to wie co to jest 
HotKeySet("{left}", "send_left")


;msgboxik 
MsgBox(0, "Info!", "Sterowanie odbywa się za pomocą strzalek i spacji")

;config czyli IP i port serwera :]
$IP = "Moje Ip(nie podam )"
$PORT = 1324

;pętla nieskończona ze sleepem 100ms aby nie obciązać procesora
While 1
       Sleep(100)
WEnd

;funkcje we wszystkich jest to samo zmienia się aby to co wysyłamy :]
Func send_left()
       $sock = TCPConnect($IP, $PORT) ;łączymy się z serwerem
       TCPSend($sock, "wyłącz") ;wysyłamy dane
       TCPCloseSocket($sock) ;rozłączamy się
EndFunc   ;==>send_left

 

Komp którym się steruje

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;pare zmiennych bedziesz wiedzial do czego sa jak przeanalizujesz dalsza częsc kodu
$IP = "Moje Ip(nie podam )""
$port = 1324


;odpalamy usługę TCP
TCPStartup()

;nasłuchujemy czy nikt z nami się nie prubuje połączyć dla tego wczesniej podalem ip localhosta i port 1324 taki jak w kliencie
$MainSocket = TCPListen($IP, $port, 100)
If $MainSocket = -1 Then Exit


;wiadomo
While 1
       $ConnectedSocket = TCPAccept($MainSocket) ;akceptujemy połączenie
       If $ConnectedSocket >= 0 Then ;sprawdzamy czy połączenie jest

               $datka = TCPRecv($ConnectedSocket, 100) ;odczytujemy dane wysyłane przez klienta
               Switch $datka ;switch jezeli nie wiesz co to po co się zabierasz za ten kod ??
                       Case "wyłącz"
                              MsgBox( 1, "Działa", "No nareszcie", 100000)

               EndSwitch
       EndIf

       $nMsg = GUIGetMsg()
       If $nMsg = $GUI_EVENT_CLOSE Then Exit
WEnd

Ps. nie piszcie że plagiat bo przerabiałem na żywca tamten program :0 Co mam zrobić by działało? Mam podać w obu kodach sowje Ip ? dobrze myśle bo jak próbowałem to nie wychodziło. "Komp którym się steruje" nie chce się odpalić o.O

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

na serwerze ip zawsze to samo localhost albo 127.0.0.1 , a na kliencie podajemy adres IP serwera do którego się łączy

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

  • Autor
Opublikowano

na serwerze ip zawsze to samo localhost albo 127.0.0.1 , a na kliencie podajemy adres IP serwera do którego się łączy

 

Zmieniłem adresy ip i nadal nie działa oba programy się załączają ale nic się nie dzieje

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

to po co używasz polskich znaków ( "wyłącz" ) , nie mam teraz jak sprawdzić ale możliwe że o to chodzi

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

qps666 Legenda

qps666

Opublikowano
Legenda

qps666

Opublikowano 

TCPStartup()
$MainSocket = TCPListen("127.0.0.1", 1324)
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
	$Data = TCPRecv($ConnectedSocket, 100)
	MsgBox(0, "test", $Data)
EndIf
WEnd

 

TCPStartup()
$Data = InputBox("Wiadomosc", "Wyslij komendę")
$MainSocket = TCPConnect("127.0.0.1", 1324)
TCPSend($MainSocket, $Data)
TCPCloseSocket($MainSocket)

U mnie działa

//Zakaz gifów-Dektored

sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

  • Autor
Opublikowano

Taki program działa ale co mam zrobić by działał na dwóch różnych komputerach? o.O


$IP = "127.0.0.1"
$port = 1324
TCPStartup()
$MainSocket = TCPListen($IP, $port, 100)
If $MainSocket = -1 Then Exit

While 1
       $ConnectedSocket = TCPAccept($MainSocket) ;akceptujemy połączenie
       If $ConnectedSocket >= 0 Then ;sprawdzamy czy połączenie jest
               $datka = TCPRecv($ConnectedSocket, 100) ;odczytujemy dane wysyłane przez klienta
               Switch $datka ;switch jezeli nie wiesz co to po co się zabierasz za ten kod ??
                       Case "wyłącz"
                              MsgBox( 1, "Działa", "No nareszcie", 100000)
               EndSwitch
       EndIf

       $nMsg = GUIGetMsg()
       If $nMsg = $GUI_EVENT_CLOSE Then Exit
WEnd

 

TCPStartup()
; hotkeye kto hodź trochę zna autoita to wie co to jest 
HotKeySet("{left}", "send_left")


;msgboxik 
MsgBox(0, "Info!", "Sterowanie odbywa się za pomocą strzalek i spacji")

;config czyli IP i port serwera :]
$IP = "127.0.0.1"
$PORT = 1324

;pętla nieskończona ze sleepem 100ms aby nie obciązać procesora
While 1
       Sleep(100)
WEnd

;funkcje we wszystkich jest to samo zmienia się aby to co wysyłamy :]
Func send_left()
       $sock = TCPConnect($IP, $PORT) ;łączymy się z serwerem
       TCPSend($sock, "wyłącz") ;wysyłamy dane
       TCPCloseSocket($sock) ;rozłączamy się
EndFunc   ;==>send_left

U mnie działa ale co zmienić by działało na dwóch różnych komputerach?

  • 1 miesiąc temu...
sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

  • Autor
Opublikowano

Dobra po dłuższej nieobecności powróciłem nad pracą na programem. Teraz mam pyt jak można rozwiązać problem taki że u mnie Ip zmienia się co jakiś czas np kiedy resetuje modem i jak zrobić program który był by na to przygotowany. Oczywiście ja jestem klientem (sterującym).

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Nie da rady. Musiałbyś za każdym razem zmieniać ip w kliencie.

981841412442977292370.png
RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

to losowo usiłujesz się łączyć w zakresie adresów jakie ci się zmieniają, nie ma programu który przewidzi jakie ip będziesz miał kompa po resecie modemu

 

zresztą sprawdzić te ok 50 do 200 adresów IP to nie problem

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano 
@IPAddress1

pokazuje twoje ip moze to wkomponuj za miast wpisywac ip?

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

z zewnątrz IP, on chce zdalnie innym kompem sterować nie mając do niego dostępu, lokalnie na kompie swoim to wystarczy wpisać localhost albo 127.0.0.1 tak jak domyślnie w skrypcie

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

sebulec Uczeń

sebulec

Opublikowano
Uczeń

sebulec

  • Autor
Opublikowano

Chodzi o to że wysyłam lub wgrywam na kompa prog. potem odpalam swoją wersje w domu i moge ustalać polecenia .

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

toprzecież musisz znać publiczny adres ip na ktrym odpalisz program, bez tego to z czym sie połączysz

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

Jeśli ma dostęp do kompa 'ofiary' to może dać czytanie jego ip i wysyłać je sobie meilem jeśli się zmieni tak?

i zmieniac je w tedy w swoim kliencie nie moglem sie tym bawic bo trzeba zwenetrzne ip z tego co mi hfaua tlumaczyl

ale możesz tez zrobić inny myk daj serwer na swój komp bo swoje ip znasz tak?

a w kliencie dajesz i tak ip serwera wiec 2 w 1 musisz zrobić :) na swoim masz serwer żeby odbierać ip jakie ma klient,

a u kogoś żeby sterować kompem

dobrze czy się myle

 

serwer(twoj komp) odbiera z klienta ip kogos kompa +zmiana ip w serwerze(na jego/jej kompie)

i ustawiasz je w swoim kliencie

da sie??:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

po h... ci IP klienta ? łączysz się nim tylko do serwera i nie ważne gdzie jesteś zawsze musisz znać ip serwera którym sterujesz ( zwłaszcza jak to jest komputer w sieci większej musi mieć adres publiczny by sie podłączyć albo na routerze nyło przekierowanie na danym porcie do komputera za NAT )

 

serwer ma lokalnie na kompie zawsze jeden adres 127.0.0.1 jego nie trzteba zmieniać w ustawieniach, ale w sieci jest widoczny pod publicznym adresem albo nawet nie publicznym jeśli jest w jakiejś większej sieci lub za routerem )

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

ale musi je znac nawet po zmianie tak? wiem on musi miec na kogos kompie serwer1 i klient2

a u siebie klient1 i serwer2

 

sry źle napisałem wyżej nie klienta tylko jego serwera

 

żeby klient twojego serwera wysyłał kogoś IP do nas i ustawiał je od razu w serwerze na jego kompie teraz dobrze?

 

 

@up jak znów źle napisałem to sry i juz nie pisze więcej:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

po co ci serwer jak zamierzasz tylko zdalnym manipulować? na dowolnym kompie odpalasz tylko klienta i sterujesz serwerem na innym kompie

 

sterujesz serwerem , a klientem wysyłasz polecenia sterujące a nie odbierasz ich , to nie program do zdalnego zarządzania tylko zwykła aplikacja gdzie pakiety sterujące idą tylko w jedną strone od klienta do serwera który wykona polecenie

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano 

$IP = "127.0.0.1";IP serwera zakładamy że twoje
$port = 1324
TCPStartup()
$MainSocket = TCPListen($IP, $port, 100)
If $MainSocket = -1 Then Exit

While 1
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
	Switch TCPRecv($ConnectedSocket, 100)
		Case "wyłącz"
			Run('notepad.exe')
	EndSwitch
EndIf
If GUIGetMsg() = -3 Then Exit
WEnd

to odpalam u kogos(Ciebie) tak?

 

 

 

TCPStartup()
HotKeySet("{left}", "send_left")
$IP = "127.0.0.1"; tu IP serwera czyli twoje tak??
$PORT = 1324

While 1
       Sleep(100)
WEnd

Func send_left()
       $sock = TCPConnect($IP, $PORT)
       TCPSend($sock, "wyłącz") 
       TCPCloseSocket($sock) 
EndFunc   ;==>send_left

a to mam ja i klikam strzalke w lewo i odpala ci sie notatnik?

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Zarchiwizowany

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

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