AutoHotkey Community

#NoTrayIcon
SysGet, VirtualScreenWidth, 78
SysGet, VirtualScreenHeight, 79

F8::
Lock:
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow
Gui, Color, 000000
Gui, Font, CFF0000
Gui, Font,, Arial
Gui, Font, s128
Gui, Font, x0 y0
Gui, Add, Text, Locked, Locked
Gui, Show, x0 y0 h%VirtualScreenHeight% w%VirtualScreenWidth% , lock
SetTimer, checkkey, 200
return

checkkey:
driveget, drives, list, removable   ;list of removable drives
FileRead, localkey, C:\WINDOWS\key.txt
passkey=  ;filereadline will not overwrite passkey if there is an error
keyaccepted:=false   
loop, parse,drives
   {
   FileRead, passkey, %a_loopfield%:\key.txt
   if (passkey=localkey)
      {   
       Gui Destroy
       BlockInput off
       SetTimer, checkkey, off
       keyaccepted:=true
       break
      }
   }
if not keyaccepted
   {
    BlockInput on
   WinKill, Windows Task Manager
   Gui, Show, x0 y0 h%VirtualScreenHeight% w%VirtualScreenWidth% , lock   ;paints over any crack attempt
   }
return

#NoTrayIcon
DetectHiddenWindows, On
SetTitleMatchMode, 2
SplashTextOn, 500, 80,, Autostart-Script gestartet!
sleep 1000
SplashTextOff
gosub lock
return


lock:
$F10::
SoundSet, +1, WAVE, mute
Gui, 2:Color, 000000, 000000
gui, 2:font, s30 c888888
gui, 2:add, text, x1500 y1800 w1000, PC Gesperrt!
gui, 2:add, text,vtime, ---------------------------------------------------------------------------------------------
gui, 2:add, edit, x1500 y2000 w1000 Password Default vpass gpass
gui, 2:show, x-1124 y-1500 w200000 h200000 , Sgbtrdgubdrg
settimer, pass, 300
return



pass:
mousemove, 3000, 3000
gui, 2:default
process, close, taskmgr.exe
WinMaximize, Sgbtrdgubdrg
WinMove, Sgbtrdgubdrg,, -1124, -1500, 200000, 200000
WinSet, AlwaysOnTop, On, Sgbtrdgubdrg
WinActivate, Sgbtrdgubdrg
if A_WDay = 1
 day = Sonntag
if A_WDay = 2
 day = Montag
if A_WDay = 3
 day = Dienstag
if A_WDay = 4
 day = Mittwoch
if A_WDay = 5
 day = Donnerstag
if A_WDay = 6
 day = Freitag
if A_WDay = 7
 day = Samstag
guicontrol,, time, %day%, den %A_DD%.%A_MM%.%A_YYYY%   %A_Hour%:%A_Min% und %A_Sec% Sekunden

if A_TimeIdlePhysical > 5000
{
guicontrol,, pass,
}


guicontrolget, pass
if pass = HERE YOUR PASSWORD
{
stick := stickcheck()
if stick = 1
{
 gui, destroy
 settimer, pass, off
 SoundSet, +1, WAVE, mute
 settimer, close, 500
 mousemove, 500, 500
}
else
{
guicontrol,, time, Stick nicht angeschloßen!
sleep 1000
}

}
gui, 1:default
return


close:
winclose, FRIESE
settimer, close, off
return

stickcheck()
{

driveget, list, list, REMOVABLE
stringreplace, list, list, a, , ALL
stringreplace, list, list, b, , ALL
loop, parse, list
{
driveget, label, label, %A_LoopField%:
if label = FRIESE
 return 1
}

}

SetWorkingDir, %A_Temp%
FileDelete, NetChange.tmp
FileDelete, NetChange1.tmp
FileDelete, NetChange.bat
RunWait, %Comspec% /c netsh interface show interface >>NetChange.tmp, , Hide
Loop, Read, NetChange.tmp
   {
      StringReplace, Delimiter, A_LoopReadLine, Dedicated, §, UseErrorLevel
      If ErrorLevel = 0
         Continue
      Loop, Parse, Delimiter, §
         {
            If A_LoopField not contains able
               {
                  StringReplace, LAN_Name, A_LoopField, %A_Space%%A_Space%, , All
                  FileAppend, %LAN_Name%|, NetChange1.tmp
                  LAN_Cnt++
               }
         }
   }
FileDelete, NetChange.tmp
FileRead, Var, NetChange1.tmp
StringTrimRight, Var, Var, 1
FileAppend, %Var%, NetChange.tmp
FileRead, LAN, NetChange.tmp



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



ICCE_size             := 8
GWL_HINSTANCE         := -6
WM_USER               := 0x400
ICC_INTERNET_CLASSES    := 0x800
WS_CHILD              := 0x40000000
WS_VISIBLE            := 0x10000000
IPM_GETADDRESS        := WM_USER + 102
IPM_SETADDRESS        := WM_USER + 101



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Gui +LastFound
GuiID := WinExist()
Gui, Font, cBlue
Gui, Color, Black
Gui, Font, s10
Gui, Add, GroupBox, x15 y15 w293 h120, Select your Defualt Network Adapter name.
Gui, Font, cLime
Gui, Add, Text, x25 y49 w70 h20, LAN Name:
Gui, Add, DropDownList, Choose1 R%LAN_Cnt% vLAN_Name x95 y45 w202 h25, %LAN%
;Gui, Add, Checkbox, x25 y85 gDHCP vDHCP, DHCP (Obtain an IP address automatically)
Gui, Add, Picture, x15 y151 Icon89, C:\WINDOWS\system32\SHELL32.dll
Gui, Add, Picture, x278 y151 Icon89, C:\WINDOWS\system32\SHELL32.dll
Gui, Font, s16
Gui, Add, Button, x62 y148 w200 h35 Default vButton, APPLY
;GuiControl, Disable, Button
Gui, Show, Center h195 w325, NetChange
return

ButtonApply:
GuiControlGet, LAN_Name, , ComboBox1
Gui, Submit

 Run,
 (LTrim Join`s
  %comspec% /c netsh interface ip set dns
  Name="%LAN_Name%"
  Source=Static
  Addr=208.67.222.222 ; opendns.org (you should set up an account anyways to filter bad stuff from youre house any way..) set it to 127.0.0.1 for no internet...
 )
 ,,Hide

 RunWait,
 (LTrim Join`s
  %comspec% /c netsh interface ip set address
  Name="%LAN_Name%"
  Source=DHCP
 )
  ,,Hide
 Run,
 (LTrim Join`s
  %comspec% /c netsh interface ip set dns
  Name="%LAN_Name%"
  Source=DHCP
 )
 ,,Hide

random, rand, 10, 99, NewSeed  RunWait,
 (LTrim Join`s
  %comspec% /c netsh interface ip set address
  Name="%LAN_Name%"
  Source=Static
  Addr=192.168.1.%rand% ;your ip range may be different.. only use %rand% if you have a small network.. For big networks or if your router uses 10-99<most start at 100>, just enter and IP that you know is free.

  Mask=255.255.255.0
  Gateway=192.168.1.1 ;or whatever you use
  GWmetric=0
 )
  ,,Hide