usmiv4o

#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.4.3 Author: usmiv4o Script Function: AutoIt script to check if files in directory are changed. It is usefull for security contra-inteligense measures. Function Name: LoadTripwireDB() Description: Loads database (text file tripwire.txt) and compare files in /test folder for changes. compares Hash (MD5) checksums. If they are not the same starts Initial() Function Name: Initial() Description: Checks directory and makes index of files and their MD5 checksums in text file (tripwire.txt) Function Name: Hush() Description: Checks file and returns its MD5 checksum. Requirement(s): Windows XP Return Value(s): On Success - Returns true. Files are the same as before. On Failure - return false. Example: LoadTripwireDB() #ce ---------------------------------------------------------------------------- #include <Crypt.au3> #include <File.au3> #include <Array.au3> $sDir = @ScriptDir & "\Test" $sFilePath = @ScriptDir & "\tripwire.txt" Func Hush(ByRef $sFile) $sRead = FileOpen( $sFile) $dHash = _Crypt_HashData($sRead, $CALG_MD5) ; Create a hash of the text entered. ConsoleWrite("Hash of file " & $sFile & " is " & $dHash & @CRLF) EndFunc ;ConsoleWrite("Files in Dir are " & $aScriptDir[0] & @CRLF) ;$sFilePath = @ScriptDir & "\Examples.txt" ;_FileWriteFromArray($sFilePath, $aScriptDir, 1) ;_ArrayDisplay($aScriptDir, "1D display") Func Initial() $aScriptDir = _FileListToArray($sDir) for $i = 1 To UBound($aScriptDir) - 1 $dHash = _Crypt_HashData($i, $CALG_MD5) ;ConsoleWrite("File " & $aScriptDir[$i] & " is " & $dHash & @CRLF) ConsoleWrite($aScriptDir[$i] & ":" & $dHash & @CRLF) ;Hush($aScriptDir[$i]) ;FileWrite $hFileOpen = FileOpen($sFilePath, $FO_APPEND) If $hFileOpen = -1 Then MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.") EndIf FileWrite($hFileOpen, $aScriptDir[$i] & ":" & $dHash & @CRLF) Next EndFunc Func Monitor() $aScriptDir = _FileListToArray($sDir) for $i = 1 To UBound($aScriptDir) - 1 Next EndFunc Func LoadTripwireDB() $comparison_ok = false $dArray = _FileListToArray($sDir) ;directory $dArray0 = UBound($dArray) - 1 $fArray = FileReadToArray($sFilePath) ;file $fArray0 = UBound($fArray) ;_ArrayDisplay($dArray, "files array") if $dArray0 = $fArray0 Then ; are file same as recorded in txt file? ;ConsoleWrite("files in monitoring dir: " & $dArray[0] & " = file recorded: " & $fArray0 & @CRLF & $fArray[0]& @CRLF) for $i = 1 To UBound($dArray) - 1 ;ConsoleWrite("i = " & $i & @CRLF) $dHash = _Crypt_HashData($i, $CALG_MD5) ;binary ;$dHash = BinaryToString($dHash) $ffhash = StringSplit( $fArray[$i-1],":") $fhash = $ffhash[2] ;ConsoleWrite("IsBinary $dHash " & IsBinary($dHash) & @CRLF) if $dHash = $fhash Then ;if compared hashes are equal ;ConsoleWrite($fhash & ":" & $dHash & " equal" & @CRLF) ;ConsoleWrite("File: " & $fhash & @CRLF & "Directory: " & $dHash & @CRLF & "equal: yes " & @CRLF) Else ;if compared hashes are not equal ;ConsoleWrite("File: " & $fhash & @CRLF & "Directory: " & $dHash & @CRLF & "equal: not " & @CRLF) ;MsgBox(0,"hash md5",$fhash & ":" & $dHash & " not equal") EndIf Next ;ConsoleWrite("hashes are equal" & @CRLF) $comparison_ok = true Else ConsoleWrite("number of files in monitoring dir are not same as recorded" & @CRLF) ConsoleWrite("directory: " & $dArray[0] &":"& "files: " & UBound($fArray) - 1 & @CRLF) EndIf Return $comparison_ok EndFunc #main if LoadTripwireDB() = true Then ConsoleWrite(" hashes are equal " & @CRLF) ElseIf LoadTripwireDB() <> true Then ConsoleWrite(" hashes are not equal " & @CRLF) ConsoleWrite(" hashes are not equal " & @CRLF) Initial() EndIf tripwire.au3 tripwire.txt

Yet another weather scrypt, but this one is working. All other that I search for aren not functioning. To get you City code go to weather.com and inside URL is code. this script parses XML from weather.com and shows to MSgBox and console. #cs Description: Weather XML from Weather.com. author: usmiv4o (just repaired old script) date: 29.7.2017 to get City code go to weather.com and copy City code from URL ;http://wxdata.weather.com/wxdata/weather/local/BUXX0005?cc=*&unit=m&dayf=1 <- URL for Sofia, Bulgaria, metric units #ce Global $location,$loc_time,$sunrise,$sunset,$datetime,$loc,$temp,$feels,$current,$wicon,$bp Global $bpd,$ws,$wg,$wd,$wt,$hmid,$vis,$uv,$uvt,$dewp,$micon,$mt Global $code = "BUXX0005" ;Sofia Bulgaria $input = "sofia" _GetWeather() $array = StringSplit($temp, " ") ;$temp = K2C($array[1]) $array = StringSplit($feels, " ") ;$feels = K2C($array[1]) $array = StringSplit($sunrise, " ") $sunrise = $array[1] $array = StringSplit($sunrise, ":") $sunrise = $array[1] $sunrise1 = $array[2] ;MsgBox(0,"sunset", $sunset) $array = StringSplit($sunset, " ") $sunset = $array[1] $array = StringSplit($sunset, ":") $sunset = $array[1] $sunset1 = $array[2] ; wind speed $ws = $ws * 1.6 $array = StringSplit($ws, ".") $ws = $array[1] ;$ws1 = $array[2] ;ConsoleWrite("Temperature now "&$temp& " C " & @CRLF _ ;& " Weather now "& $current & @CRLF &" wind speed " & K2C($ws) _ ;& "km/h." & @CRLF & " Humidity " &$hmid & " %" & @CRLF & " bar. pressure " & $bp & " hP" & @CRLF) ; convert Kelvins to Celsius Func K2C(ByRef $temp) $temp = ($temp - 32) * (5/9) ;converting to Celsius $temp = Round($temp, 2) ;round float point up to 2 -nd sign ;MsgBox(0, "K2C", $temp) Return $temp EndFunc ;Message Box with data Func Showy() MsgBox(0,"location ", $location) ConsoleWrite("location "& $location & @CRLF) MsgBox(0,"loc_time ", $loc_time) ConsoleWrite("loc_time "& $loc_time & @CRLF) MsgBox(0,"sunrise ", $sunrise &"."& $sunrise1) ConsoleWrite("sunrise "& $sunrise &"."& $sunrise1 & @CRLF) MsgBox(0,"sunset ", $sunset &"."& $sunset1) ConsoleWrite("sunset "& $sunset &"."& $sunset1 & @CRLF) MsgBox(0,"datetime ", $datetime) ConsoleWrite("datetime "& $datetime & @CRLF) MsgBox(0,"temp ", $temp & " C") ConsoleWrite("temp "& $temp & " C" & @CRLF) MsgBox(0,"feels ", $feels & "C") ConsoleWrite("feels "& $feels & "C" & @CRLF) MsgBox(0,"current ", $current) ConsoleWrite("current " & $current & @CRLF) MsgBox(0,"barometric pressure ", $bp & "hP") ConsoleWrite("barometric pressure "& $bp & "hP" & @CRLF) MsgBox(0,"bpd ", $bpd) ConsoleWrite("bpd " & $bpd & @CRLF) MsgBox(0,"wind speed ", $ws) ConsoleWrite("wind speed " & $ws & @CRLF) MsgBox(0,"wd wt ", $wd & " " & $wt& " km/h") ConsoleWrite("wd wt " & $wd & " " & $wt & " km/h" & @CRLF) MsgBox(0,"humidity ", $hmid & "%") ConsoleWrite("humidity " & $hmid & "%" & @CRLF) MsgBox(0,"visibility ", $vis & " km") ConsoleWrite("visibility " & $vis & " km " & @CRLF) MsgBox(0,"UV index", $uv & " (" & $uvt & ")") ConsoleWrite("UV index " & $uv & " (" & $uvt & ")" & @CRLF) MsgBox(0,"dewp", $dewp) ConsoleWrite("dewp " & $dewp & @CRLF) MsgBox(0,"mt", $mt) ConsoleWrite("mt " & $mt & @CRLF) EndFunc Func _GetWeather() $oXml = ObjCreate("Msxml2.DOMDocument.3.0") $oXml.async=0 $oXml.Load("http://wxdata.weather.com/wxdata/weather/local/BUXX0005?cc=*&unit=m&dayf=1") $oXmlroot = $oXml.documentElement For $oXmlnode In $oXmlroot.childnodes For $oXmlnode2 In $oXmlnode.attributes If $oXmlnode2.name = "id" Then $code = $oXmlnode2.value Next Next If $code = "NoCode" Then Msgbox(0, "Error", "Location Not Found" & "Click OK To Continue") Else $oXml.Load("http://wxdata.weather.com/wxdata/weather/local/" & $code & "?cc=*&unit=m&dayf=1") $oXmlroot = $oXml.documentElement For $oXmlNode In $oXmlroot.childNodes Select Case $oXmlnode.nodename = "loc" For $oXmlnode2 in $oXmlnode.Childnodes Select Case $oXmlnode2.nodename = "dnam" $location = $oXmlnode2.text Case $oXmlnode2.nodename = "tm" $loc_time = $oXmlnode2.text Case $oXmlnode2.nodename = "sunr" $sunrise = $oxmlnode2.text ; sunrise ;ConsoleWrite($sunrise & @CRLF) Case $oXmlnode2.nodename = "suns" $sunset = $oxmlnode2.text ; sunset ;ConsoleWrite($sunset & @CRLF) EndSelect Next Case $oXmlnode.nodename = "dayf" For $oXmlnode2 in $oXmlnode.Childnodes Select Case $oXmlnode2.nodename = "hi" $hi = $oXmlnode2.text Case $oXmlnode2.nodename = "low" $low = $oXmlnode2.text EndSelect Next Case $oxmlnode.nodename = "cc" For $oxmlnode2 In $oxmlnode.childnodes Select Case $oxmlnode2.nodename = "lsup" ;<lsup>7/28/17 7:00 AM EEST</lsup> $datetime = $oxmlnode2.text Case $oxmlnode2.nodename = "obst" $loc = $oxmlnode2.text Case $oxmlnode2.nodename = "tmp" $temp = $oxmlnode2.text Case $oxmlnode2.nodename = "flik" $feels = $oxmlnode2.text Case $oxmlnode2.nodename = "t" $current = $oxmlnode2.text Case $oxmlnode2.nodename = "icon" $wicon = $oxmlnode2.text Case $oxmlnode2.nodename = "bar" For $oxmlnode3 in $oxmlnode2.childnodes Select Case $oxmlnode3.nodename = "r" $bp = $oxmlnode3.text Case $oxmlnode3.nodename = "d" $bpd = $oxmlnode3.text EndSelect Next Case $oxmlnode2.nodename = "wind" For $oxmlnode3 in $oxmlnode2.childnodes Select Case $oxmlnode3.nodename = "s" $ws = $oxmlnode3.text ;windspeed miles Case $oxmlnode3.nodename = "gust" $wg = $oxmlnode3.text Case $oxmlnode3.nodename = "d" $wd = $oxmlnode3.text Case $oxmlnode3.nodename = "t" $wt = $oxmlnode3.text EndSelect Next Case $oxmlnode2.nodename = "hmid" $hmid = $oxmlnode2.text ;humidity Case $oxmlnode2.nodename = "vis" $vis = $oxmlnode2.text ;visibility Case $oxmlnode2.nodename = "uv" For $oxmlnode3 in $oxmlnode2.childnodes; ULTRAVIOLET INDEX Select Case $oxmlnode3.nodename = "i" $uv = $oxmlnode3.text Case $oxmlnode3.nodename = "t" $uvt = $oxmlnode3.text EndSelect Next Case $oxmlnode2.nodename = "dewp" $dewp = $oxmlnode2.text Case $oxmlnode2.nodename = "moon" For $oxmlnode3 in $oxmlnode2.childnodes Select Case $oxmlnode3.nodename = "icon" $micon = $oxmlnode3.text Case $oxmlnode3.nodename = "t" $mt = $oxmlnode3.text EndSelect Next EndSelect Next EndSelect Next $oXml = "" EndIf EndFunc Showy() attached weather.au3 and sample XML BUXX0005.xml Weather.au3

These script check folder for DDMMYYYY.txt (11052011.txt for example) and if file exist - send it as attachment using MS Office Outlook IDEA: it will be scheduled to server on 23.50 each day and if program have generated file it will find it and send to mail, so i'll check it. #include <Date.au3> #Include <file.au3> $data = StringSplit(_NowDate(), ".") $day = $data[1] ;MsgBox(0,'',"The Date is:" & $data[1]) $month = $data[2] If $month < 10 then $month = "0" & $month endif ;MsgBox(0,'',"The Date is:" & $data[2]) $yearA = StringSplit($data[3]," ") ;MsgBox(0,'',"The Date is:" & $yearA[1]) $year = $yearA[1] $FileToCheck = $day & $month & $year ConsoleWrite("File to check " & $FileToCheck & ".txt ") ;MsgBox(0,'',$FileToCheck) if FileExists("C:\Documents and Settings\Admin\Desktop\txt check\Test\" & $FileToCheck & ".txt") then ConsoleWrite("file exist") else ConsoleWrite("File does not exist") Exit endif ;################################## ; Variables ;################################## $SmtpServer = "smtp.rail-infra.bg" ; address for the smtp-server to use - REQUIRED $FromName = "Drago" ; name from who the email was sent $FromAddress = "drago@rail-infra.bg" ; address from where the mail should come $ToAddress = "drago@rail-infra.bg" ; destination address of the email - REQUIRED $Subject = "Userinfo" ; subject from the email - can be anything you want it to be $Body = "body" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "C:\Documents and Settings\Admin\Desktop\txt check\Test\" & $FileToCheck & ".txt" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed $CcAddress = "drago@rail-infra.bg" ; address for cc - leave blank if not needed $BccAddress = "drago@rail-infra.bg" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "drago@rail-infra.bg" ; username for the account used from where the mail gets sent - REQUIRED $Password = "******" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 25 ; port used for sending the mail $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $IPPort=465 ; GMAIL port used for sending the mail ;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc so if you want it to work - correct VARIABLES according to you works with autoit standart, BETA not tested

F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(3,10) : ERROR: can't open include file <GuiCombo.au3> #Include <GuiCombo.au3> ~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(25,72) : WARNING: $CBS_DROPDOWNLIST: possibly used before declaration. $Combo1 = GUICtrlCreateCombo("", 8, 8, 345, 25, BitOR($CBS_DROPDOWNLIST, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(25,89) : WARNING: $CBS_AUTOHSCROLL: possibly used before declaration. $Combo1 = GUICtrlCreateCombo("", 8, 8, 345, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(27,117) : WARNING: $SS_CENTER: possibly used before declaration. $label = GUICtrlCreateLabel("By: CyberZeroCool" & @TAB & "www.cyberzerocool.com", 94, 225, 260, 33, BitOR($SS_CENTER, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(27,133) : WARNING: $SS_CENTERIMAGE: possibly used before declaration. $label = GUICtrlCreateLabel("By: CyberZeroCool" & @TAB & "www.cyberzerocool.com", 94, 225, 260, 33, BitOR($SS_CENTER,$SS_CENTERIMAGE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(27,153) : WARNING: $WS_EX_CLIENTEDGE: possibly used before declaration. $label = GUICtrlCreateLabel("By: CyberZeroCool" & @TAB & "www.cyberzerocool.com", 94, 225, 260, 33, BitOR($SS_CENTER,$SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(25,72) : ERROR: $CBS_DROPDOWNLIST: undeclared global variable. $Combo1 = GUICtrlCreateCombo("", 8, 8, 345, 25, BitOR($CBS_DROPDOWNLIST, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(19,51) : ERROR: _GUICtrlListViewInsertColumn(): undefined function. _GUICtrlListViewInsertColumn(-1, 0, "SSID", 2, 100) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(48,62) : ERROR: _GUICtrlComboFindString(): undefined function. $i = _GUICtrlComboFindString($Combo1, GUICtrlRead($Combo1),1) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(50,43) : ERROR: _GUICtrlListViewDeleteAllItems(): undefined function. _GUICtrlListViewDeleteAllItems($ListView1) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3(63,247) : ERROR: _GUICtrlListViewInsertItem(): undefined function. _GUICtrlListViewInsertItem($ListView1, $nets, getcodes(DllStructGetData($netnameBuffer, 1)) & "|" & getcodes($netsignal[0]) & "%|" & typecodes($nettype[0]) & "|" & $netsecure[0] & "|" & authcodes($netauth[0]) & "|" & ciphercodes($netcipher[0]) ) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ F:\MyFiles\MyScripts\Autoit WIFI\gui wifi.au3 - 6 error(s), 5 warning(s)

yes it is true but i assume that someone external suspicious subject could get into you office and broke videosurveilance If someone break inside you room AutoIt will not stop him. For example he can stop you PC and run with LiveCD. Then copy all interesting files / or delete them or even worse - fake them and leave freely and hapy. it is difficult to catch traffic between 2 PC and analyse. If it is encrypted it is even close to impossible.But here is a bad thing : optional Encryption (http://www.uvnc.com/) these means that if you pay you will get encryption. I dont understand this part of you text. If you need legal Firewall - there are a lot of. If you set Zone alarm (cracked) on server no one need to pay. But if police comes to check for non-legal soft here is a problem... i can help you - call me on skype it will be interesting to help solving this problem. (skype: usmiv4o) bad plan 1: If someone set software or hardware keylogger to you PC he can use password to connect to Server. Solved: If you set server to accept only you IP to connect all will be OK. bad plan 2: someone access to Server and stop it , use live CD and make bad things solved: from other PC you can ping constantly you server. If it stops - you have email or SMS. It is useful if something breaks. so for now hope it will be useful for you.

in the help of AutoIt there is tutorial it is easy and these things are there go tutorialing yourself no other way to do

yes set a good firewall when you set it block all that yo don't use (Wireless, Firewire, bluetooth), unused programs, servers and so on i can recommend Zone Alarm Security suite search torrents for free download and key if you are sure there is no physical access to PC it is very good P.S. I forget to tell you if there are LAN cables ot other cables someone could sabotage you PC by electroshock to LAN or video cables 200 000 V in not a joke so hide cables in the walls AND/OR equip with surge protectors

can you open page? we could help if you give URL (web page link) if you can open page use you browser to view source i hope you know that you will not view its .php (for example) code until you are admin of site or medium

I will suggest an Idea 1. Desktop image capture 2. search down right for you pattern 3. go there p.s. for some programs it works with up and down arrow, but not for all

once upon a time i found this site: http://www.shooterready.com/ there was simulator for long range snipers up to 2000 Feets so i search for .torrent and found one with full CD for free muttley torrent : http://www.mininova.org/tor/565838 so i try to write a help calculator #include <GUIConstants.au3> $Reading = 0.0 $Result = 0.0 $Size = 0.0 $Reading = 0.0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("ShootersReady.com Calc by Usmiv4o", 184, 388, 193, 125) $Up = GUICtrlCreateLabel("Up", 14, 40, 105, 17) $Rang = GUICtrlCreateLabel("Range", 14, 72, 100, 17) $Wnd = GUICtrlCreateLabel("Wind", 14, 108, 120, 17) ;$Distance1 = GUICtrlCreateInput("Distance1", 40, 40, 105, 21) ;$Fall1 = GUICtrlCreateInput("Fall1", 40, 72, 105, 21) ;$Wind1 = GUICtrlCreateInput("Input1", 40, 108, 105, 21) ;$Distance2 = GUICtrlCreateInput("Input2", 40, 140, 105, 21) ;$Fall2 = GUICtrlCreateInput("Input1", 40, 177, 105, 21) $Win = GUICtrlCreateInput("Wind", 42, 212, 105, 21) $Siz = GUICtrlCreateInput("Size", 42, 244, 105, 21) $Readin = GUICtrlCreateInput("MillDotReading", 42, 280, 105, 21) $BTN = GUICtrlCreateButton("C", 120, 320, 49, 25, 0) ;$Wind = GUICtrlCreateLabel("Wind", 24, 360, 29, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn Sleep (1000) $inch = 25.4 $Size = GUICtrlRead($Siz) $Reading = GUICtrlRead($Readin) $Range = GUICtrlRead($Rang) ConsoleWrite ($Size & " Size" & @CRLF) ConsoleWrite ($Reading & " Reading " & @CRLF) $Result = ($Size * $inch) $Result = ($Result / $Reading) ;MsgBox(4096, "drag drop file", $Result) $Result = Round ($Result, 2) ConsoleWrite ($Result & " Range [m]" & @CRLF) GUICtrlSetData($Rang, "Range " & $Result & " [M]") ;MsgBox(4096, "drag drop file", $Result) $Distance = Round($Result / 100) * 100 ConsoleWrite ($Distance & " Distance rounded [m]" & @CRLF) if $Result > $Distance Then $Distance1 = $Distance $Distance2 = $Distance + 50 ConsoleWrite ($Distance1 & " $Distance1 [M]" & @CRLF) ConsoleWrite ($Distance2 & " $Distance2 [M]" & @CRLF) Else $Distance2 = $Distance $Distance1 = $Distance - 50 ConsoleWrite ($Distance1 & " $Distance1 [M]" & @CRLF) ConsoleWrite ($Distance2 & " $Distance2 [M]" & @CRLF) EndIf $DistanceDiference = $Result - $Distance1 $DistanceDiference = $DistanceDiference / 100 ConsoleWrite ($DistanceDiference & " DistanceDiference [%]" & @CRLF) $Fall1 = IniRead(@ScriptDir & "\SH.ini", $Distance1, "E", "NotFound") ConsoleWrite ($Fall1 & " Fall1 [MOA]" & @CRLF) $Fall2 = IniRead(@ScriptDir & "\SH.ini", $Distance2, "E", "NotFound") ConsoleWrite ($Fall2 & " Fall2 [MOA]" & @CRLF) $Fall1Diference = $Fall2 - $Fall1 ConsoleWrite ($Fall1Diference & " $Fall1Diference [Click]" & @CRLF) $Fall = $Fall1Diference * $DistanceDiference $Fall = $Fall1 + $Fall ConsoleWrite ($Fall & " Fall [Click]" & @CRLF) GUICtrlSetData($Up, "Up " & $Fall & "[Cl]");Write Fall Corection ;WIND $Wind = GUICtrlRead($Win) ConsoleWrite ($Wind & " Wind [Inch]" & @CRLF) $Wind1 = IniRead(@ScriptDir & "\SH.ini", $Distance1, "W", "NotFound") ConsoleWrite ($Wind1 & " Wind1 [Inch]" & @CRLF) $Wind2 = IniRead(@ScriptDir & "\SH.ini", $Distance2, "W", "NotFound") ConsoleWrite ($Wind2 & " Wind2 [Inch]" & @CRLF) $WinDiference = $Wind2 - $Wind1 ConsoleWrite ($WinDiference & " Wind2 - Wind1 [Inch]" & @CRLF) ;$WindRound = Round($Wind, 2) ;ConsoleWrite ($Wind & " Wind rounded [Inch]" & @CRLF) ConsoleWrite ($DistanceDiference & " DistanceDiference [%]" & @CRLF) $WndC = $WinDiference * $DistanceDiference ConsoleWrite ($WndC & " WndDif * DistDif [Inch]" & @CRLF) $WndC = $Wind1 + $WndC ConsoleWrite ($WndC & " Wnd + Wind1 [Inch]" & @CRLF) ConsoleWrite ($Result & " Range [m]" & @CRLF) $WndC = Round($WndC / $Result, 5) ;ConsoleWrite ($WndC & " Wnd / Distance [Inch]" & @CRLF) ConsoleWrite ($WndC & " Wnd Rounded [MOA]" & @CRLF) $WndC = $WndC * 10000 ConsoleWrite ($WndC & " Wnd [MOA]" & @CRLF) GUICtrlSetData($Wnd, "Wind " & $WndC & " [Click]");Write Wind Corection EndSelect WEnd AND SH.ini - the ini file with bullet data - it is only with .50 Cal data [1000] E=31.25 W=4.5 [1050] E=33.75 W=5.0 [1100] E=36.25 W=5.6 [1150] E=38.75 W=6.2 [1200] E=41.25 W=6.8 [1250] E=44.00 W=7.4 [1300] E=36.25 W=5.6 [1350] E=49.50 W=8.8 [1400] E=52.25 W=9.6 [1450] E=55.25 W=10.4 [1500] E=58.50 W=11.3 [1550] E=61.50 W=12.1 [1600] E=64.75 W=13.1 [1650] E=68.25 W=14.0 [1700] E=71.75 W=15.0 [1750] E=75.25 W=16.1 [1800] E=79.00 W=17.2 [1850] E=82.75 W=18.3 [1900] E=86.75 W=19.5 [1950] E=90.75 W=20.7 [2000] E=95.00 W=22.0Shootersready.au3

http://www.mininova.org/tor/565838 for a full CD v. 2.02

http://www.shooterready.com/ has a very good simulator for long distance shooting up to .50 caliber i write a little calculator : - distance - elevation correction - wind correction Usage: it has 6 input boxes 3 rows 3 columns 1st row -distance (from the range card) , elevation correction (from the range card) , wind correction (from the range card) 2nd row -distance (from the range card) , elevation correction (from the range card) , wind correction (from the range card) 3rd row - Size of targer, MillDott reading scale, Wind (estimated by flag) first enter 3rd row to compute distance #region --- GuiBuilder code Start --- ; Script generated by AutoBuilder 0.6 Prototype #include <GuiConstants.au3> GuiCreate("MyGUI", 232, 232,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $Input_1 = GuiCtrlCreateInput("Dist_1", 80, 30, 60, 20) $Input_2 = GuiCtrlCreateInput("Elev_1", 130, 30, 60, 20) $Input_3 = GuiCtrlCreateInput("Wind_1", 180, 30, 60, 20) $Input_4 = GuiCtrlCreateInput("Dist_2", 80, 60, 60, 20) $Input_5 = GuiCtrlCreateInput("Elev_2", 130, 60, 60, 20) $Input_6 = GuiCtrlCreateInput("Wind_2", 180, 60, 60, 20) $Input_7 = GuiCtrlCreateInput("Size", 80, 90, 60, 20) $Input_8 = GuiCtrlCreateInput("MillDot", 130, 90, 60, 20) $Input_9 = GuiCtrlCreateInput("Wind", 180, 90, 60, 20) ;$Button_10 = GuiCtrlCreateButton("Calculate", 180, 130, 60, 20) $Label_11 = GuiCtrlCreateLabel("Label11", 80, 140, 80, 30) $Label_12 = GuiCtrlCreateLabel("Label12", 80, 170, 80, 30) $Label_13 = GuiCtrlCreateLabel("Label13", 80, 200, 80, 30) $Label_14 = GuiCtrlCreateLabel("Elevation", 10, 140, 80, 30) $Label_15 = GuiCtrlCreateLabel("Wind", 10, 170, 80, 30) $Label_16 = GuiCtrlCreateLabel("Distance", 10, 200, 80, 30) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else Check();;; ;sleep(1000) EndSelect WEnd Exit Func Calc($dis1, $dis2, $ele1, $ele2, $wnd1, $wnd2, $wind, $size, $mil) $dis = ($size*25.4)/$mil;distance [meters] $n = ($dis - $dis1 ) / ($dis2 - $dis1);470 - 450 / 500 - 450 = 20/50 $a = ($wnd2 - $wnd1);wind2 - wind1 $answer = ($a * $n) + $wnd1; (wind diference * queficent n ) + wind1 = wind correction queficent $answer = $answer * $wind;wind corection [inch ] $answer = $answer/($dis/100);wind corection [MOA] ;$answer = $answer/3.5;;wind corection [MillDot] $elev = $ele2 - $ele1;correction difference $elev = ($elev * $n) + $ele1;elevation correction ;$elev = $elev * $wind ;MsgBox(0, "anser wind MOA", $answer);/3.5 Mill ;MsgBox(0, "anser elevation MOA", $elev);/3.5 Mill GUICtrlSetData($Label_11, "e (" & Round($elev, 2) & ") ") GUICtrlSetData($Label_12, "w (" & Round($answer, 2) & ") ") GUICtrlSetData($Label_13, "d (" & Round($dis, 2) & ") "); "," & $x & [(x,y)] EndFunc ;==>QuadCalc Func Check() $dis1 = GUICtrlRead($Input_1) $ele1 = GUICtrlRead($Input_2) $wnd1 = GUICtrlRead($Input_3) $dis2 = GUICtrlRead($Input_4) $ele2 = GUICtrlRead($Input_5) $wnd2 = GUICtrlRead($Input_6) $size = GUICtrlRead($Input_7) $mil = GUICtrlRead($Input_8) $wind = GUICtrlRead($Input_9) ;Check if numbers(To be worked out) Calc($dis1, $dis2, $ele1, $ele2, $wnd1, $wnd2, $wind, $size, $mil) EndFunc ;==>NumCheck #endregion --- GuiBuilder generated code End ---calc_balistic_shootersready_com.au3

#cs This is my totman procedure if I left my company - i delete one File http://drao.data.bg/totman.txt this code search for this file and if not exist aplication not work.... #ce #include <INet.au3> #include <file.au3> #include <String.au3> Global $totman, $text $totman = False ;clean my totman variable Dim $aRecords $text = _INetGetSource("http://store1.data.bg/drao/totman.txt") FileWrite(@ScriptDir & "/totman.txt",$text) ;write to file If not FileExists(@ScriptDir & "/totman.txt") Then MsgBox(64,"Notify", " File not exist" ) EndIf If Not _FileReadToArray(@ScriptDir & "/totman.txt",$aRecords) Then MsgBox(4096,"Error", " Error reading log to Array error:" & @error) Exit EndIf $text = _StringEncrypt ( 1, "totman", "usmiv4o") ;encrypt string "totman" with pass "usmiv4o" if $aRecords[1] = $text then ;compare encrypted with file MsgBox(64,"Totman OK","usmiv4o is happy") EndIf

for me is same - i think this is because we are members, not full members....

this user autentification script must be User Defined Function (UDF) good work i can give few ideas: add antihacking mesures - GOTCHA image, no more than 3 enter per second per IP 1 user file for all users security question - if someone forget his password administration log and management page i'll try to complete these ideas i like this post