LAN camouflage

[berto]

Hy, im back again for help with a little program, ive made an app that shuts down the Server service in XP, so the PC cannot be accessed by other PCs in my LAN, giving then that message, and i wonder what services i should stop to make the computer completely dissapear from LAN but stiil have access to the workgroup, i mean like an camouflage or sometnhig.

Ok this is the little app, i use NET STOP and NET START

#include <Process.au3>

#include <GUIConstants.au3>

GUICreate("LAN CAMOUFLAGE By ROBERTO ", 290, 100)

$Label = GUICtrlCreateLabel("Camouflage - Invizibil in View Workgroup Computers", 10, 10)

$Labe2 = GUICtrlCreateLabel("UnCamouflage - Vizibil in View Workgroup Computers", 10, 30)

$YesID = GUICtrlCreateButton("Camouflage", 10, 50, 75, 35)

$NoID = GUICtrlCreateButton("UnCamouflage", 100, 50, 79, 35)

$ExitID = GUICtrlCreateButton("Exit", 190, 50, 75, 35)

GUISetState() ; display the GUI

Do

$msg = GUIGetMsg()

Select

Case $msg= $YesID

Call( "camouflage" )

MsgBox(0,"Info", "Gata - procesul s-ar putea sa dureze 2 - 5 secunde")

Case $msg= $NoID

Call( "uncamouflage" )

MsgBox(0,"Info", "Gata - procesul s-ar putea sa dureze 2 - 5 secunde")

Case $msg= $ExitID

Exit

Case $msg= $GUI_EVENT_CLOSE

MsgBox(0,"You clicked on", "Close")

EndSelect

Until $msg = $GUI_EVENT_CLOSE or $msg = $ExitID

Func camouflage()

$rc = _RunDos('NET STOP "Server" /y')

EndFunc

Func uncamouflage()

$rc = _RunDos('NET START "Server" /y')

EndFunc

I also wanna add a feature, a little label that displays the computer is Camouflaged or Not, u know, the app checks if the service "Server" is running, if yes the it displays The PC is visible, and if not, the PC is Invisible.

Thx and sryy for my bad eng

Ah, the text is in Romanian it says what every button do, nothing important the rest is in eng, i took some samples from a gui example in autoIT examples folder

Edited July 18, 2007 by berto

[berto]

Ok, ive made a new GUI in Koda, a also created a label, but i dont know how to make the text appear only when the mouse is over a button like, when the mouse is over Button1 in the label appear "text1" and if the mouse is over button2 in the label appear "text2" and so on.

#include <GUIConstants.au3>

#NoTrayIcon

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("LAN Camouflage By Roberto", 382, 102, 469, 381)

GUISetBkColor(0x3D95FF)

$Button1 = GUICtrlCreateButton("Camouflage ", 16, 56, 81, 25, 0)

$Button2 = GUICtrlCreateButton("UnCamouflage", 152, 56, 83, 25, 0)

$Button3 = GUICtrlCreateButton("Exit", 288, 56, 75, 25, 0)

$Label1 = GUICtrlCreateLabel("", 24, 8, 50, 17)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0xFFFFFF)

GUICtrlSetBkColor(-1, 0x3D95FF)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Do

$msg = GUIGetMsg()

Select

Case $msg= $Button1

Call( "camouflage" )

MsgBox(0,"Info", "Gata - procesul s-ar putea sa dureze 2 - 5 secunde")

Case $msg= $Button2

Call( "uncamouflage" )

MsgBox(0,"Info", "Gata - procesul s-ar putea sa dureze 2 - 5 secunde")

Case $msg= $Button3

Exit

Case $msg= $GUI_EVENT_CLOSE

Exit

EndSelect

Until $msg = $GUI_EVENT_CLOSE or $msg = $Button3

Func camouflage()

$rc = _RunDos('NET STOP "Server" /y')

EndFunc

Func uncamouflage()

$rc = _RunDos('NET START "Server" /y')

EndFunc