testingtest 0 Posted March 10, 2007 Hello this is a project that I abandoned which is a shame, I think some people could have fun with it. expandcollapse popup#Include <Constants.au3> #Include <File.au3> Opt("TrayMenuMode",1) TraySetClick("16") $Tor = "Torpark.exe" $MenuItem0 = TrayCreateItem("Connection = 1") $MenuItem1 = TrayCreateItem("IP - " & @IPAddress1) $MenuItem2 = TrayCreateItem("Computer - " & @ComputerName) $MenuItem3 = TrayCreateItem("Protection = 0") $MenuItem4 = TrayCreateMenu("Enable") $MenuItem5 = TrayCreateItem("Disable", $MenuItem4) $MenuItem6 = TrayCreateItem("My Site") $MenuItem7 = TrayCreateItem("Exit") While 1 $msg = TrayGetMsg() Select Case $msg = 0 ContinueLoop ;Case $MenuItem0 ; _Connection() Case $MenuItem3 _Protect() EndSelect WEnd ;Func _Connection() ; Opt("TrayIconHide", 1) ; If @IPAddress1 = "127.0.0.1" Then ; MsgBox(16 , "Connection = 0" , "No Connection") ; Exit ; Else ; Opt("TrayIconHide", 0) ;_Protect() ; EndIf ;EndFunc Func _Protect() If Not FileExists($Tor) Then Run(@ComSpec & " /c " & 'start www.torpark.nfshost.com/' , "" , @SW_HIDE) EndIf EndFunc Share this post Link to post Share on other sites
SmOke_N 206 Posted March 10, 2007 Is this even an active link? www.torpark.nfshost.com Hide SmOke_N's signature Hide all signatures Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Share this post Link to post Share on other sites
Thatsgreat2345 0 Posted March 10, 2007 Cool umm, yeah woo thanks for making a tray menu.... Share this post Link to post Share on other sites
testingtest 0 Posted March 12, 2007 Cool umm, yeah woo thanks for making a tray menu....lol it was suppose to make sure you were protected, mostly for school or work but I found a better expolit that I will not share with school and workplaces Share this post Link to post Share on other sites
