Quantcast
Channel: AutoIt v3 - General Help and Support
Viewing all articles
Browse latest Browse all 12506
↧

Help improve this UDP server-less chat script

July 8, 2013, 12:45 pm
$
0
0

This script is going to be part of a bigger project that I'm working on (HINT: It involves UDP).

The following code may/may not have bugs in it, I'm posting it because I need suggestions on how to improve it.

AutoIt          
  1. #include <ButtonConstants.au3>
    2. 

  2. #include <EditConstants.au3>
    3. 

  3. #include <GUIConstantsEx.au3>
    4. 

  4. #include <GuiIPAddress.au3>
    5. 

  5. #include <StaticConstants.au3>
    6. 

  6. #include <WindowsConstants.au3>
    7. 

  7. #include <GuiListView.au3>
    8. 

  8. #include <Array.au3>
    9. 

  9.  
    10. 

  10. DirRemove(@ScriptDir & "\BackUp", 1)
    11. 

  11.  
    12. 

  12. Local $ClientList[1][2]
    13. 

  13. For $x = 0 To UBound($ClientList) - 1
    14. 

  14.     For $y = 0 To 1
    15. 

  15.         $ClientList[$x][$y] = -1
    16. 

  16.     Next
    17. 

  17. Next
    18. 

  18. UDPStartup()
    19. 

  19.  
    20. 

  20. $UserName = @ComputerName
    21. 

  21. $Form1 = GUICreate($UserName & " - ChAT TeST", 445, 200, -1, -1)
    22. 

  22.  
    23. 

  23. $Edit1 = GUICtrlCreateEdit("", 5, 5, 282, 161)
    24. 

  24. GUICtrlSetFont(-1, 7.5, Default, Default, "Lucida Console")
    25. 

  25. GUICtrlSetData(-1, "Chat Log:", "append")
    26. 

  26. GUICtrlSetState(-1, $GUI_DISABLE)
    27. 

  27.  
    28. 

  28. $Input1 = GUICtrlCreateInput("", 5, 169, 281, 21)
    29. 

  29. GUICtrlSendMsg(-1, 0x1500 + 1, False, 'Type here and press ENTER to send')
    30. 

  30. GUICtrlSetState(-1, $GUI_DISABLE)
    31. 

  31.  
    32. 

  32. $IPAddress3 = _GUICtrlIpAddress_Create($Form1, 290, 5, 130, 21)
    33. 

  33. _GUICtrlIpAddress_Set($IPAddress3, "0.0.0.0")
    34. 

  34. $Button1 = GUICtrlCreateButton("Add", 420, 5, 25, 21)
    35. 

  35. $hListview = GUICtrlCreateListView("#|IP", 290, 27, 155, 150)
    36. 

  36. _GUICtrlListView_SetColumnWidth($hListview, 0, 25)
    37. 

  37. _GUICtrlListView_SetColumnWidth($hListview, 1, 125)
    38. 

  38.  
    39. 

  39. $YOUR_IP_HERE = GUICtrlCreateInput(@IPAddress1, 300, 180, 130, 20, BitOR($SS_CENTERIMAGE, $SS_CENTER))
    40. 

  40. GUICtrlSetTip(-1, "Your IP")
    41. 

  41.  
    42. 

  42. Local $INsocket = UDPBind(@IPAddress1, 80), $SYSTEMsocket = UDPBind(@IPAddress1, 81), $IP, $OUTsocket, $fAllowSend = True
    43. 

  43. If @error Then Exit 1111
    44. 

  44. OnAutoItExitRegister("Cleanup")
    45. 

  45.  
    46. 

  46. GUISetState(@SW_SHOW)
    47. 

  47.  
    48. 

  48. $RecvTimer = TimerInit()
    49. 

  49. While 1
    50. 

  50.     $nMsg = GUIGetMsg()
    51. 

  51.     If $nMsg = $GUI_EVENT_CLOSE Then Exit
    52. 

  52.     If $nMsg = $YOUR_IP_HERE Then GUICtrlSetData($YOUR_IP_HERE, @IPAddress1)
    53. 

  53.  
    54. 

  54.     If $nMsg = $Input1 Then
    55. 

  55.         $Text = GUICtrlRead($Input1)
    56. 

  56.         If StringStripWS($Text, 8) <> "" And $fAllowSend = True Then
    57. 

  57.             For $x = 0 To UBound($ClientList) - 1
    58. 

  58.                 UDPSend($ClientList[$x][0], @IPAddress1 & "::" & $UserName & ": " & $Text)
    59. 

  59.             Next
    60. 

  60.             GUICtrlSetData($Edit1, @CRLF & $UserName & ":   " & $Text, "append")
    61. 

  61.             GUICtrlSetData($Input1, "")
    62. 

  62.         EndIf
    63. 

  63.     EndIf
    64. 

  64.  
    65. 

  65.     If $nMsg = $Button1 Then
    66. 

  66.         If $IP <> _GUICtrlIpAddress_Get($IPAddress3) And _GUICtrlIpAddress_Get($IPAddress3) <> @IPAddress1 And _GUICtrlIpAddress_Get($IPAddress3) <> "0.0.0.0" And Not _IsIPInList(_GUICtrlIpAddress_Get($IPAddress3)) Then
    67. 

  67.             $IP = _GUICtrlIpAddress_Get($IPAddress3)
    68. 

  68.             $OUTsocket = UDPOpen($IP, 81)
    69. 

  69.             UDPSend($OUTsocket, "CR:" & @IPAddress1)
    70. 

  70.             UDPCloseSocket($OUTsocket)
    71. 

  71.  
    72. 

  72.             $iSearch = -1
    73. 

  73.             For $x = 0 To UBound($ClientList) - 1
    74. 

  74.                 If $ClientList[$x][0] <> -1 Then ContinueLoop
    75. 

  75.                 If $ClientList[$x][0] = -1 Then
    76. 

  76.                     $iSearch = $x
    77. 

  77.                     ExitLoop
    78. 

  78.                 EndIf
    79. 

  79.             Next
    80. 

  80.             If $iSearch = -1 Then
    81. 

  81.                 $Bounds = UBound($ClientList)
    82. 

  82.                 ReDim $ClientList[$Bounds + 1][2]
    83. 

  83.                 $iSearch = $Bounds
    84. 

  84.             EndIf
    85. 

  85.             $ClientList[$iSearch][0] = UDPOpen($IP, 80)
    86. 

  86.             $ClientList[$iSearch][1] = $IP
    87. 

  87.             ConsoleWrite("Connected to (CR): " & $IP & "    @error = " & @error & @CRLF)
    88. 

  88.  
    89. 

  89.             $List = "CL"
    90. 

  90.             For $x = 0 To UBound($ClientList) - 1
    91. 

  91.                 If $x = $iSearch Or $ClientList[$x][1] = @IPAddress1 Then ContinueLoop
    92. 

  92.                 $List &= ":" & $ClientList[$x][1]
    93. 

  93.             Next
    94. 

  94.             If $List <> "CL" Then
    95. 

  95.                 $OUTsocket = UDPOpen($ClientList[$iSearch][1], 81)
    96. 

  96.                 UDPSend($OUTsocket, $List)
    97. 

  97.                 UDPCloseSocket($OUTsocket)
    98. 

  98.             EndIf
    99. 

  99.  
    100. 

  100.             For $x = 0 To UBound($ClientList) - 1
    101. 

  101.                 If $x = $iSearch Then ContinueLoop
    102. 

  102.                 $OUTsocket = UDPOpen($ClientList[$x][1], 81)
    103. 

  103.                 UDPSend($OUTsocket, "CRR:" & $IP)
    104. 

  104.                 UDPCloseSocket($OUTsocket)
    105. 

  105.             Next
    106. 

  106.  
    107. 

  107.             GUICtrlSetState($Edit1, $GUI_ENABLE)
    108. 

  108.             GUICtrlSetState($Input1, $GUI_ENABLE)
    109. 

  109.             _GUICtrlIpAddress_Set($IPAddress3, "0.0.0.0")
    110. 

  110.             _UpdateListView()
    111. 

  111.         EndIf
    112. 

  112.     EndIf
    113. 

  113.  
    114. 

  114.     If TimerDiff($RecvTimer) >= 10 Then
    115. 

  115.         $data = UDPRecv($INsocket, 1000000)
    116. 

  116.         If $data <> "" Then
    117. 

  117.             If IsBinary($data) Then $data = BinaryToString($data)
    118. 

  118.             If StringInStr($data, "::") Then
    119. 

  119.                 $Exp = StringRegExp($data, "([0-9.]{7,15})::(.*)", 1)
    120. 

  120.                 If @error == 0 And UBound($Exp) == 2 And _IsIPInList($Exp[0]) Then
    121. 

  121.                     $fAllowSend = False
    122. 

  122.                     GUICtrlSetData($Edit1, @CRLF & $Exp[1], "append")
    123. 

  123.                     $fAllowSend = True
    124. 

  124.                 EndIf
    125. 

  125.             EndIf
    126. 

  126.         EndIf
    127. 

  127.  
    128. 

  128.         $data = UDPRecv($SYSTEMsocket, 100000)
    129. 

  129.         If $data <> "" Then
    130. 

  130.             ConsoleWrite("Recieved: " & $data & @CRLF)
    131. 

  131.  
    132. 

  132.             $Exp = StringRegExp($data, "CR:([0-9.]{7,15})", 1)
    133. 

  133.             If @error == 0 Then
    134. 

  134.                 $IP = $Exp[0]
    135. 

  135.                 $iSearch = -1
    136. 

  136.                 For $x = 0 To UBound($ClientList) - 1
    137. 

  137.                     If $ClientList[$x][0] <> -1 Then ContinueLoop
    138. 

  138.                     If $ClientList[$x][0] = -1 Then
    139. 

  139.                         $iSearch = $x
    140. 

  140.                         ExitLoop
    141. 

  141.                     EndIf
    142. 

  142.                 Next
    143. 

  143.                 If $iSearch = -1 Then
    144. 

  144.                     $Bounds = UBound($ClientList)
    145. 

  145.                     ReDim $ClientList[$Bounds + 1][2]
    146. 

  146.                     $iSearch = $Bounds
    147. 

  147.                 EndIf
    148. 

  148.                 $ClientList[$iSearch][0] = UDPOpen($IP, 80)
    149. 

  149.                 $ClientList[$iSearch][1] = $IP
    150. 

  150.                 ConsoleWrite("Connected to (CR): " & $IP & "    @error = " & @error & @CRLF)
    151. 

  151.  
    152. 

  152.                 $List = "CL"
    153. 

  153.                 For $x = 0 To UBound($ClientList) - 1
    154. 

  154.                     If $x = $iSearch Or $ClientList[$x][1] = @IPAddress1 Then ContinueLoop
    155. 

  155.                     $List &= ":" & $ClientList[$x][1]
    156. 

  156.                 Next
    157. 

  157.                 If $List <> "CL" Then
    158. 

  158.                     $OUTsocket = UDPOpen($ClientList[$iSearch][1], 81)
    159. 

  159.                     UDPSend($OUTsocket, $List)
    160. 

  160.                     UDPCloseSocket($OUTsocket)
    161. 

  161.                 EndIf
    162. 

  162.  
    163. 

  163.                 For $x = 0 To UBound($ClientList) - 1
    164. 

  164.                     If $x = $iSearch Then ContinueLoop
    165. 

  165.                     $OUTsocket = UDPOpen($ClientList[$x][1], 81)
    166. 

  166.                     UDPSend($OUTsocket, "CRR:" & $IP)
    167. 

  167.                     UDPCloseSocket($OUTsocket)
    168. 

  168.                 Next
    169. 

  169.  
    170. 

  170.                 GUICtrlSetState($Edit1, $GUI_ENABLE)
    171. 

  171.                 GUICtrlSetState($Input1, $GUI_ENABLE)
    172. 

  172.                 _UpdateListView()
    173. 

  173.                 If GUICtrlRead($Edit1) <> "Chat Log:" And MsgBox(4, "ChAt TeST", "Send Chat History to " & $IP & "?") = 6 Then
    174. 

  174.                     $OUTsocket = UDPOpen($ClientList[$iSearch][1], 81)
    175. 

  175.                     UDPSend($OUTsocket, "CH:" & @IPAddress1 & ":" & StringReplace(StringReplace(GUICtrlRead($Edit1), "/n", "//n"), @CRLF, "/n"))
    176. 

  176.                     UDPCloseSocket($OUTsocket)
    177. 

  177.                 EndIf
    178. 

  178.             EndIf
    179. 

  179.  
    180. 

  180.             $Exp = StringRegExp($data, "CL:(.*)", 1)
    181. 

  181.             If @error == 0 Then
    182. 

  182.                 $List = StringSplit($Exp[0], ":")
    183. 

  183.                 For $y = 1 To $List[0]
    184. 

  184.                     $IP = $List[$y]
    185. 

  185.                     $iSearch = -1
    186. 

  186.                     For $x = 0 To UBound($ClientList) - 1
    187. 

  187.                         If $ClientList[$x][0] <> -1 Then ContinueLoop
    188. 

  188.                         If $ClientList[$x][0] = -1 Then
    189. 

  189.                             $iSearch = $x
    190. 

  190.                             ExitLoop
    191. 

  191.                         EndIf
    192. 

  192.                     Next
    193. 

  193.                     If $iSearch = -1 Then
    194. 

  194.                         $Bounds = UBound($ClientList)
    195. 

  195.                         ReDim $ClientList[$Bounds + 1][2]
    196. 

  196.                         $iSearch = $Bounds
    197. 

  197.                     EndIf
    198. 

  198.                     $ClientList[$iSearch][0] = UDPOpen($IP, 80)
    199. 

  199.                     $ClientList[$iSearch][1] = $IP
    200. 

  200.                     ConsoleWrite("Connected to(CL): " & $IP & " @error = " & @error & @CRLF)
    201. 

  201.                     _UpdateListView()
    202. 

  202.                 Next
    203. 

  203.             EndIf
    204. 

  204.  
    205. 

  205.             $Exp = StringRegExp($data, "CRR:([0-9.]{7,15})", 1)
    206. 

  206.             If @error == 0 Then
    207. 

  207.                 $IP = $Exp[0]
    208. 

  208.                 $iSearch = -1
    209. 

  209.                 For $x = 0 To UBound($ClientList) - 1
    210. 

  210.                     If $ClientList[$x][0] <> -1 Then ContinueLoop
    211. 

  211.                     If $ClientList[$x][0] = -1 Then
    212. 

  212.                         $iSearch = $x
    213. 

  213.                         ExitLoop
    214. 

  214.                     EndIf
    215. 

  215.                 Next
    216. 

  216.                 If $iSearch = -1 Then
    217. 

  217.                     $Bounds = UBound($ClientList)
    218. 

  218.                     ReDim $ClientList[$Bounds + 1][2]
    219. 

  219.                     $iSearch = $Bounds
    220. 

  220.                 EndIf
    221. 

  221.                 $ClientList[$iSearch][0] = UDPOpen($IP, 80)
    222. 

  222.                 $ClientList[$iSearch][1] = $IP
    223. 

  223.                 ConsoleWrite("Connected to(CRR): " & $IP & "    @error = " & @error & @CRLF)
    224. 

  224.  
    225. 

  225.                 GUICtrlSetState($Edit1, $GUI_ENABLE)
    226. 

  226.                 GUICtrlSetState($Input1, $GUI_ENABLE)
    227. 

  227.                 _UpdateListView()
    228. 

  228.             EndIf
    229. 

  229.  
    230. 

  230.             $Exp = StringRegExp($data, "DEL:([0-9.]{7,15})", 1)
    231. 

  231.             If @error == 0 Then
    232. 

  232.                 $iSearch = _ArraySearch($ClientList, $Exp[0])
    233. 

  233.                 If $iSearch <> -1 Then
    234. 

  234.                     UDPCloseSocket($ClientList[$iSearch][0])
    235. 

  235.                     _ArrayDelete($ClientList, $iSearch)
    236. 

  236.                     If Not IsArray($ClientList) Then
    237. 

  237.                         Local $ClientList[1][2]
    238. 

  238.                         $ClientList[0][0] = -1
    239. 

  239.                         $ClientList[0][1] = -1
    240. 

  240.                         GUICtrlSetData($Edit1, @CRLF & "Everyone has left you." & @CRLF & "Are you feeling lonely yet?" & @CRLF, "append")
    241. 

  241.                         GUICtrlSetState($Edit1, $GUI_DISABLE)
    242. 

  242.                         GUICtrlSetState($Input1, $GUI_DISABLE)
    243. 

  243.                     Else
    244. 

  244.                         GUICtrlSetData($Edit1, @CRLF & $Exp[0] & " left chat.", "append")
    245. 

  245.                     EndIf
    246. 

  246.                     _UpdateListView()
    247. 

  247.                 EndIf
    248. 

  248.             EndIf
    249. 

  249.  
    250. 

  250.             $Exp = StringRegExp($data, "CH:([0-9.]{7,15}):(.*)", 1)
    251. 

  251.             If @error == 0 Then
    252. 

  252.                 ConsoleWrite("Recieved(CH): " & $data & @CRLF)
    253. 

  253.                 $fAllowSend = False
    254. 

  254.                 GUICtrlSetData($Edit1, @CRLF & @CRLF & "Chat History From " & $Exp[0] & ":" & @CRLF & StringReplace(StringRegExpReplace($Exp[1], "([^/]/n)", @CRLF), "//n", "/n") & @CRLF, "append")
    255. 

  255.                 $fAllowSend = True
    256. 

  256.             EndIf
    257. 

  257.         EndIf
    258. 

  258.         $RecvTimer = TimerInit()
    259. 

  259.     EndIf
    260. 

  260. WEnd
    261. 

  261.  
    262. 

  262. Func _UpdateListView()
    263. 

  263.     GUICtrlDelete($hListview)
    264. 

  264.     $hListview = GUICtrlCreateListView("#|IP", 290, 27, 155, 150)
    265. 

  265.     _GUICtrlListView_SetColumnWidth($hListview, 0, 25)
    266. 

  266.     _GUICtrlListView_SetColumnWidth($hListview, 1, 125)
    267. 

  267.     $IPList = ""
    268. 

  268.     For $x = 0 To UBound($ClientList) - 1
    269. 

  269.         If $ClientList[$x][1] = -1 Then ContinueLoop
    270. 

  270.         GUICtrlCreateListViewItem($x + 1 & "|" & $ClientList[$x][1], $hListview)
    271. 

  271.         $IPList = "|" & $ClientList[$x][1]
    272. 

  272.     Next
    273. 

  273.     $IPList = StringTrimLeft($IPList, 1)
    274. 

  274. EndFunc   ;==>_UpdateListView
    275. 

  275.  
    276. 

  276. Func _IsIPInList($sIP)
    277. 

  277.     $IPList = ""
    278. 

  278.     For $x = 0 To UBound($ClientList) - 1
    279. 

  279.         $IPList &= "|" & $ClientList[$x][1]
    280. 

  280.     Next
    281. 

  281.     $IPList = StringTrimLeft($IPList, 1)
    282. 

  282.     If StringInStr($IPList, $sIP) Then
    283. 

  283.         Return 1
    284. 

  284.     Else
    285. 

  285.         Return 0
    286. 

  286.     EndIf
    287. 

  287. EndFunc   ;==>_IsIPInList
    288. 

  288.  
    289. 

  289. Func Cleanup()
    290. 

  290.     GUIDelete()
    291. 

  291.     UDPCloseSocket($INsocket)
    292. 

  292.     UDPCloseSocket($SYSTEMsocket)
    293. 

  293.     If $OUTsocket Then UDPCloseSocket($OUTsocket)
    294. 

  294.  
    295. 

  295.     For $x = 0 To UBound($ClientList) - 1
    296. 

  296.         If $ClientList[$x][0] = -1 Then ContinueLoop
    297. 

  297.  
    298. 

  298.         $OUTsocket = UDPOpen($ClientList[$x][1], 81)
    299. 

  299.         UDPSend($OUTsocket, "DEL:" & @IPAddress1)
    300. 

  300.         UDPCloseSocket($OUTsocket)
    301. 

  301.  
    302. 

  302.         UDPCloseSocket($ClientList[$x][0])
    303. 

  303.         ConsoleWrite("Closed: " & $ClientList[$x][1] & ":80" & @CRLF)
    304. 

  304.     Next
    305. 

  305.  
    306. 

  306.     UDPShutdown()
    307. 

  307. EndFunc   ;==>Cleanup
    308.
↧
Search
Viewing all articles
Browse latest Browse all 12506

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

February 16, 2017, 4:24 pm

How to win at Markstrat (Markstrat Tips and Tricks) – Vodites

January 5, 2014, 10:34 pm

Ominde Commission Report and Recommendations – Ominde Report of 1964

March 16, 2015, 5:14 am

Bureau of Internal Revenue: Regional Offices (Directory)

January 9, 2014, 11:06 pm

GO 53 on Enhancement of Ex-gratia upto 5 Lakhs Toddy Tappers in Telangana

March 26, 2017, 11:23 pm

Cakewalk CA-2A Leveling Amplifier v2.0.1.97 WiN, v2.0.1.96 OSX Incl Keygen

October 17, 2016, 7:20 am

Mp3 Download: Mdu - Kunjenjenjena

December 7, 2017, 8:16 am

How the kill the job , when DTP request running for long hours.

July 26, 2013, 2:41 am

Microsoft Intune から展開しているアプリのアップデートについて

October 17, 2016, 4:11 am

18-year-old girl was beaten for half an hour by two Northampton men in 'an...

September 1, 2017, 10:00 pm

Car crash in Dunton Bassett leaves driver in critical condition

October 7, 2014, 7:51 am

Macky 2, Two Others In Road Accident

March 29, 2015, 5:34 am

Application log 00000000000000089514: Could not convert queue DLVST90CLNT

May 14, 2015, 11:27 pm

Detroit mafia: D’Anna Brothers agree to plea deal

April 21, 2016, 6:56 am

Delivery block field greyed out using VA02

January 26, 2016, 2:52 pm

Muloraki Au

June 22, 2016, 1:44 am

【個人撮影】スマホのプライベート映像♪「中に出さないで///」カラオケ屋での生ハメ撮りが流出ｗ【リベンジポルノ】＠PornHub

October 12, 2017, 2:23 pm

BREAKING NEWS: Diamond Platnumz Is Reported Dead After Ghastly Car Accident

February 9, 2018, 4:56 am

FIAT 500 B0111 B0112

July 5, 2018, 10:31 am
Search