Jump to content

Snarg

Active Members
  • Posts

    281
  • Joined

  • Last visited

About Snarg

  • Birthday 07/27/1970

Profile Information

  • WWW
    http://www.edgeofnowhere.cc

Recent Profile Visitors

365 profile views

Snarg's Achievements

Universalist

Universalist (6/7)

0

Reputation

  1. I seem to have gotten in WAY over my head. Guess I'll just have to listen for a text message.
  2. @Danp2 Thank you for the reply. Ummm....not sure how to add this UDF. Sorry for looking so dumb.
  3. Hello, It has been quite some time since I have used AutoIt so, please, bear with me. I have never really delved into the IE aspects of AutoIt so I feel very much out of my element. Let me explain what I am trying to do. I have a temperature sensor out doors. It is linked to an Acurite hub. The hub allows me to display the current temperature on my computer. I can set the sensor to send me an alarm when the temperature reaches a certain point but, it is only an email/text alarm. This does not help me when I am asleep as I generally turn notification sounds on my phone off. What I would like to do is have an AutoIt program scan the Acurite Dashboard page every X seconds. It the temp is at, or below, a certain threshold, play a .wav or .mp3 file. The computer volume will be VERY LOUD, so I am certain to hear it. As I have previously stated, I have little to no IT experience so, your help would be greatly appreciated. Below is a screenshot of what I am trying to work on. Any help would be greatly appreciated. Thank you in advance.
  4. It's clicking the correct number of times. How would I go about getting it to display the coordinates it is clicking?
  5. Here is the output: Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 2 times 1 2 Clicking 3 times 1 2 3 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 2 times 1 2 Clicking 3 times 1 2 3 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 2 times 1 2 Clicking 3 times 1 2 3 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 18 times 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Clicking 2 times 1 2 Clicking 3 times 1 2 3
  6. AutoBert, thank you for the reply. I have opened the console window in Scite, but don't really understand how to pipe the output to that. That pretty much is the full script. I'm trying to get that section to work before I do anything else with it.
  7. Thank you JohnOne for trying to help. For whatever reason the console window does not open when the script runs. I must be doing something wrong.
  8. Hello, I am attempting to build a script that will click randomly inside of a box. The box dimensions, number of clicks, and the delay between the clicks is passed to a function. I feel a am very close to finishing this script, but could use a bit of help. I am passing the function four different boxes, two of them to be clicked 18 times, one of them twice and one of them three times. This is repeated four times. The problem I am having is with the first box. It only clicks that box 17 times. It then completes the next three boxes. Once the last box is complete, it does the last click on the first box. I have worked this problem for the past two days now and can not see where I have gone wrong. Any help anyone would be able to provide with this issue would be greatly appreciated. Thank you for your time. The code is below: Opt ("MouseCoordMode", 2) Opt ("MouseClickDelay", 0) HotKeySet ("{ESC}", "Terminate") HotKeySet ("+{F9}", "SelectBox") While 1 Sleep (100) WEnd Func SelectBox () ;Stuff happens here ClickBox () ;Stuff happens here EndFunc ;==>SelectBox Func ClickBox () _MouseClick (431, 271, 477, 311, 18, 50, 100) ;Cick 18 times _MouseClick (317, 272, 385, 306, 18, 50, 100) ;Cick 18 times _MouseClick (683, 267, 749, 306, 2, 50, 100) ;Cick 2 times _MouseClick (504, 267, 568, 306, 3, 50, 100) ;Cick 3 times EndFunc ;==>ClickBox ;$tlx - top left x ;$tly - top left y ;$blx - bottom right x ;$bly - bottom right y ;Numclicks - number of clicks ;$sl1 - sleep low delay ;$sl2 - sleep high delay Func _MouseClick ($tlx, $tly, $brx, $bry, $Numclicks, $sl1, $sl2) Dim $box[4] = [$tlx, $tly, $brx, $bry] For $Count = 1 to $Numclicks MouseMove(Random($box[0], $box[2]), Random($box[1], $box[3]), 0) MouseClick ("left") _Sleep ($sl1, $sl2) Next EndFunc ;==>_MouseClick Func _Sleep ($min, $max) Sleep (Random ($min, $max, 1)) EndFunc ;==>_Sleep Func Terminate() Exit EndFunc ;==>Terminate
  9. That is not correct. Again, this is incorrect.
  10. What is this site and why should I let your program connect to it? http://www.japan-casino.us/sk/Elephant/ Edit: I also noticed you gave no credit to OverloadUT and Cubehead for their HTTP UDF.
  11. YaC-P has a user list in the GUI. Feel free to use any code from it you wish.
  12. Read this.
  13. Correct me if I am wrong, but did you download it from www.edgeofnowhere.cc? If so, I can assure you the code is clean.
  14. Not mine.
  15. YaC-P has a ban function. It bans based upon a users IP address. The server collects the IP during connection. The IP is then compared to a text file. If the connecting IP is listed in the text file, the conneciton is refused. Below is the conneciton function and the funciton that converts a socket to an IP: Func AddConn ($iSocket) ;Connects a client to the server Local $UserIP = SocketToIP ($iSocket) ;<- User IP collected here Local $Max = $MaxUsers - 1 Local $Count $User = "" $User = TCPReciveText ($iSocket) If StringLeft ($User, StringLen ($Admin)) = $Admin Then Local $CheckPW = StringTrimLeft ($User, StringLen ($Admin)) If $CheckPW <> $Password Then TCPSendText ("wrongpw", $iSocket) DelConn ($iSocket) Return Else $User = StringTrimRight ($User, StringLen ($Password)) EndIf EndIf If CheckBanList ($UserIP, $iSocket) = 1 Then ;<- This function checks the connecting IP to a banned IP list DelConn ($iSocket) Return EndIf For $Count = 0 to $Max If $List[$Count][1] = $User Then TCPSendText ("nameinuse", $iSocket) DelConn ($iSocket) Return EndIf If Not $List[$Count][0] Then $List[$Count][0] = $iSocket ;Socket $List[$Count][1] = $User ;Username SendSettings ($iSocket) SendUsers ($iSocket) SendAll ($CommandText & "adduser" & $User, "", $iSocket) SendAll ($User & " has joined.") ServerLog ($User & " has connected from " & $UserIp & " on socket " & $iSocket & ".") Return 1 EndIf Next TCPSendText ("serverfull", $iSocket) TCPCloseSocket ($iSocket) Return 0 EndFunc ;==>AddConnoÝ÷ Ù8b±û§r+hÊ'½êí±«(rG­¶§ ôáȬfÉû§rبèºwb¶Ê&{^­ê'¶¢ê汫­¢+ÙÕ¹M½­ÑQ½%@ ÀÌØíM½­Ð¤($íIÑÉ¥Ù̱¥¹ÑÌ%@ÉÍÌ(%1½°ÀÌØíM½­Èô11MÑÉÕÑ ÉÑ ÅÕ½ÐíÍ¡½ÉÐíÕÍ¡½ÉÐíÕ¥¹Ðí¡ÉlátÅÕ½Ðì¤(%1½°ÀÌØíIÐô11 ±° ÅÕ½Ðí]ÌÉ|Ìȹ±°ÅÕ½Ðì°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÅÕ½ÐíÑÁɹµÅÕ½Ðì°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÀÌØíM½­Ð°|($$$ÅÕ½ÐíÁÑÈÅÕ½Ðì°11MÑÉÕÑÑAÑÈ ÀÌØíM½­È¤°ÅÕ½Ðí¥¹Ñ}ÁÑÈÅÕ½Ðì°11MÑÉÕÑÑM¥é ÀÌØíM½­È¤¤(%%9½ÐÉɽȹÀÌØíIÑlÁtôÀQ¡¸($$ÀÌØíIÐô11 ±° ÅÕ½Ðí]ÌÉ|Ìȹ±°ÅÕ½Ðì°ÅÕ½ÐíÍÑÈÅÕ½Ðì°ÅÕ½Ðí¥¹Ñ}¹Ñ½ÅÕ½Ðì°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°11MÑÉÕÑÑÑ ÀÌØíM½­È°Ì¤¤($%%9½ÐÉɽÈQ¡¸ÀÌØíIÐôÀÌØíIÑlÁt(%±Í($$ÀÌØíIÐôÀ(%¹%($ÀÌØíM½­ÈôÀ(%IÑÕɸÀÌØíIÐ)¹Õ¹ìôôÐíM½­ÑQ½%oÝ÷ Ù8b±û§rبÈ^rK-ç(w¶(§Ú¨§²Ö¥Ëh}¶§çH?ljëh×6Func CheckBanList ($UserIP, $iSocket) ;Checks BanLog.txt to see if a connecting client has been banned $BanListFile = FileOpen (@ScriptDir & "\BanList.txt", 0) While 1 $Line = FileReadLine ($BanListFile) If @error = -1 Then ExitLoop If $Line = $UserIP Then TCPSendText ("banned", $iSocket) TCPCloseSocket ($iSocket) FileClose ($BanListFile) Return 1 EndIf Wend FileClose ($BanListFile) Return 0 EndFunc ;==>CheckBanListoÝ÷ Ù8b±û§rب+"Ø^Ù¢Ébz{Hµ§]±«¬z»>Ú-æÚX¬µ©Ýv+¢yÞrÛ-ë¬z·ë¢kazÇ«½êÚºÚ"µÍ[ÈÐ[ BSØØ[ ÌÍÕÙHÕRPÝXY ÌÍÕÙÝÞ BRYÝ ÌÍÕÙ[]IÌÍÕÙHÕRPÝXY ÌÍÕÙBWÕÔÙ[^ ÌÍÐÛÛ[X[^ [È ][ÝØ[Y ][ÝÈ [È ÌÍÕÙ ÌÍÔÛØÚÙ] BQÕRPÝÙ]]H ÌÍÐÚ]Þ ][ÝÉÊ[ ][ÝÈ [È ÌÍÕÙ [È ][ÝÈ ÝÉ][ÝÈ [ÈÔJBT]B[[Feel free to download and take a look at the source code for YaC-P. I tried to keep it as simple as possible.
×
×
  • Create New...