Jump to content

Torpark Example


testingtest
 Share

Recommended Posts

Hello this is a project that I abandoned which is a shame, I think some people could have fun with it.

#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
Link to comment
Share on other sites

  • Moderators

Is this even an active link? www.torpark.nfshost.com

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.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...