Distribuering - Luk pc

men jeg kan ikke få den anden computer til og åbne programmet
(er det ikke en kode der linger SHELL lidt ?)

Jo, klart. Du skal faktisk bare bruge Shell-kommandoen.

Følgende procedure skal gennemgås af dine programmer (A) = Dit kontrolprogram (B) = Program kørende på modtager-computeren. Evt. kan (A) og (B) være samme program.

1. (B) startes på modtager-computeren - den starter en server, vha. Winsock-programmering, som gør den i stand til at modtage data. Du kan f.eks. have tre kommandoer, du kan sende til den, men du må selv finde ud af hvordan det laves i praksis. Disse kommandoer kan være noget lignende SetFilename, som sætter filen den gemmer data i. Den anden er Data, som sender noget data, der bliver gemt i filen. Den tredje er Execute, som åbner filen.

2. (A) startes på kontrol-computeren. Du åbner en fil. Det som (A) nu gør er at sende SetFilename til (B) med en godt valgt sti, måske C:\\min-fil.exe og herefter sender den Data (evt. af flere omgange) med indhold af den fil du har åbnet.

3. Nu er filen modtaget af (B) og gemt ned på harddisken i modtager-computeren.

4. (A) sender nu Execute-kommandoen, der får (B) til at starte filen op. (B) bruger selvfølgelig (eller måske) Shell til at starte den op.

5. Du er nu lykkelig, fordi det hele lykkedes.

Evt. kan du implementere flere kommandoer i (B), f.eks. ShutDown, der lukker computeren ned.

Jeg vil råde dig til at lære en noget om Winsock-programmering, før du begynder på et sådant projekt, hvis du ikke ved noget om det i forvejen.

Ovenstående metode 1-4 er sådan ca. Back Orifice virkede. Den havde blot implementeret en hel del flere kommandoer. På den måde kunne man, hvis man hemligt installerede modtager-programmet på en computer, være i stand til at styre denne fuldstændigt - måske endda uden at brugeren opdagede det. Men det er selvfølgelig ikke lovligt. Det er ulovligt at hacke!

/ Bjarke

--------------------------------------------------
[THIS IS A SIGNATURE VIRUS! PLEASE COPY IT INTO YOUR OWN SIGNATURE(S)]
--------------------------------------------------

Hej jeg har et par Spørsmål.

1. Jeg er ved og lave et program hvor man skulle sende en fil over på en anden computer i netværket og åbne den på den computer man har sent den over til, hvordan ?

2. Hvordan slukker jeg en computerover netværket ?

håber der er nogen der kan hjælpe mig


mvh
Kenneth

Jeg har haft udviklet et program i Delphi, af nogenlunde samme slags. Jeg er på ingen måde inde i VB, men jeg kan forklare hvordan det skal gøres i Delphi, det kan være du kan bruge det.

Det du skal er at du skal have et program kørende på den computer du skal sende filen til, denne skal have en client socket, evt. både server og client, så kan du bruge et og samme program til både at styre computeren og modtage ordrer fra andre computere.

Du kan via denne socket fx sende kommandoen "shutdown" og udføre et shutdown på computeren.

Mht. filafsendelse kan jeg ikke hjælpe dig, det har jeg ingen erfaringer indenfor. Men det er grundlæggende nemt at lave - ihvertfald i Delphi :o)

Håber et kunne hjælpe dig lidt.


--
Ronni Egeriis - squirrel development: http://sqdev.dk/

Hej jeg har et par Spørsmål.

1. Jeg er ved og lave et program hvor man skulle sende en fil over på en anden computer i netværket og åbne den på den computer man har sent den over til, hvordan ?

2. Hvordan slukker jeg en computerover netværket ?

håber der er nogen der kan hjælpe mig


mvh
Kenneth

Jeg har haft udviklet et program i Delphi, af nogenlunde samme slags. Jeg er på ingen måde inde i VB, men jeg kan forklare hvordan det skal gøres i Delphi, det kan være du kan bruge det.

Det du skal er at du skal have et program kørende på den computer du skal sende filen til, denne skal have en client socket, evt. både server og client, så kan du bruge et og samme program til både at styre computeren og modtage ordrer fra andre computere.

Du kan via denne socket fx sende kommandoen "shutdown" og udføre et shutdown på computeren.

Mht. filafsendelse kan jeg ikke hjælpe dig, det har jeg ingen erfaringer indenfor. Men det er grundlæggende nemt at lave - ihvertfald i Delphi :o)

Håber et kunne hjælpe dig lidt.


--
Ronni Egeriis - squirrel development: http://sqdev.dk/

takker for det

men jeg kan ikke få den anden computer til og åbne programmet
(er det ikke en kode der linger SHELL lidt ?)

[er ny i programmiring]

kenneth

men jeg kan ikke få den anden computer til og åbne programmet
(er det ikke en kode der linger SHELL lidt ?)

SHELL?

--
Ronni Egeriis - squirrel development: http://sqdev.dk/

men jeg kan ikke få den anden computer til og åbne programmet
(er det ikke en kode der linger SHELL lidt ?)


SHELL?

--
Ronni Egeriis - squirrel development: http://sqdev.dk/

det er koden til og åben en exe fil i vb

tak for hjælpen !!

men jeg kan kun få log af til og virke !!

min kode:


Option Explicit

#If Win32 Then
Private Declare Function ShutdownWindows _
Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
#Else
Private Declare Function ShutdownWindows _
Lib "user" Alias _
"ExitWindows" (ByVal wReturnCode As Integer, _
ByVal dwReserved As Integer) As Integer
#End If
Private Const EWX_LogOff = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Sub Command1_Click()
Hide
End Sub


Private Sub command1_cilck()

If Text4.Text = "Ja" Then
ShutdownWindows EWX_LogOff, 0
End If
If Text3.Text = "Ja" Then
ShutdownWindows EWX_REBOOT, 2 'DER ER EN FEJL !!
End If
If Text2.Text = "Ja" Then
ShutdownWindows EWX_SHUTDOWN, 1 ' DER ER EN FEJL !!
End If

End Sub

tak for hjælpen !!

men jeg kan kun få log af til og virke !!

min kode:


Option Explicit

#If Win32 Then
Private Declare Function ShutdownWindows _
Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
#Else
Private Declare Function ShutdownWindows _
Lib "user" Alias _
"ExitWindows" (ByVal wReturnCode As Integer, _
ByVal dwReserved As Integer) As Integer
#End If
Private Const EWX_LogOff = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Sub Command1_Click()
Hide
End Sub


Private Sub command2_cilck()

If Text4.Text = "Ja" Then
ShutdownWindows EWX_LogOff, 0
End If
If Text3.Text = "Ja" Then
ShutdownWindows EWX_REBOOT, 2 'DER ER EN FEJL !!
End If
If Text2.Text = "Ja" Then
ShutdownWindows EWX_SHUTDOWN, 1 ' DER ER EN FEJL !!
End If

End Sub

skrev forkert !!

tak for hjælpen !!
men jeg kan kun få log af til og virke !!
...
skrev forkert !!

Fik du det til at virke? :-)

/ Bjarke

--------------------------------------------------
[THIS IS A SIGNATURE VIRUS! PLEASE COPY IT INTO YOUR OWN SIGNATURE(S)]
--------------------------------------------------

ja lavet det bare sådan at (A) og (B) snakker sammen i gemmen en (Felger) txt filer som ligger i en mappe på min server

men kan ikke få computerne på netværket til og lukke ned og genstarte ? men de vil gerne logge af !!