Sign in to follow this  
Followers 0
berto

LAN camouflage

2 posts in this topic

#1 ·  Posted (edited)

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 by berto

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0