Rosetta Code

Distributed programming/AutoHotkey: Difference between revisions

Page Discussion

Distributed programming/AutoHotkey (view source)

Revision as of 13:04, 1 September 2022

230 bytes removed ,  1 year ago
m
Fixed syntax highlighting.
No edit summary
m (Fixed syntax highlighting.)
 
(3 intermediate revisions by 2 users not shown)
Line 1:
{{libheader|WinSockWinSock2.ahk}}
 
WinSock2 library created by derRaphael. Basic code structure created by Trikster. Untested.Everything Ifelse someonecreated readingby thisB hasR two computers and AutoHotkey installed(skylord5816 on both, please test. My other computers are all in states of semi-decayIRC).
<div style="clear:both;width:full;overflow:scroll"><langsyntaxhighlight lang="autohotkey">#Include WinSock2.ahk
#Persistent
#SingleInstance, force
#Include, WinSock2.ahk ; derRaphaels WinSock Rewrite
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
Line 13:
Gui, Add, DropDownList, vDDL1 gDDL1, Select something!||One|Two|Three|Four|Five|Six|Seven|Eight|Nine|Ten
Gui, Add, Button, gB3, Click me!
 
Server := "irc.freenode.net"
Port := "6667"
 
Channel := "#UIHjbfilgbafLIEfbAIJCICBGncaiJBHiwehFIUHEIbnjKCINJEhiUAHEJcKLACuiaokjf" ; Choose something long and random - a channel sure to be deserted.
 
Nick := "somenickaokjfONE" ; Register this! You can drop it later if you want, but register it!
Pass := "somepassaokjfONE" ; It can be any nick and any pass.
 
Name := "distributed program"
 
BotCmd := "!"
OtherBotCmd := "~"
 
OnExit, CleanUp
WS2_CleanUp()
Line 33:
MsgBox, 16, Error!, An error occured wilist connecting to %Connection%
}
 
; Set OnMessage function
WS2_AsyncSelect(Socket, "DataProcess")
; Send AUTH info to the server
; USER A-trivial-nickname a-domain-like-google.com some-trivial-stuff :your-real-name
WS2_SendData(Socket, "USER " . Nick . " google.com AHKBOT :" . Name . "`n") ; All data send to the server must be
; followed by a newline.
; PASS A-trivial-pass
WS2_SendData(Socket, "PASS " . Pass . "`n")
; NICK A-trivial-nick
WS2_SendData(Socket, "NICK " . Nick . "`n")
; Join channel
; JOIN A-trivial-channel
WS2_SendData(Socket, "JOIN " . Channel . "`n")
Gui, Show
Return
 
DataProcess(Socket, Data) ; OnMessage function
{
Line 62:
StringReplace, Command, Param5, % Chr(10),, All
StringReplace, Command, Command, % Chr(13),, All
If (Param1 == "PING")
WS2_SendData(Socket, "PONG " . Param2 . "`n")
Else If (RegExMatch(Data, ":\" . BotCMD . " "))
{
If (Command == "B1")
MsgBox, The other person pressed Button Number One
Else If (Command == "B2E1E1B2")
{
out :=
MsgBox, The other person typed in Edit One then pressed Button Two▼
Loop
{
If (A_Index <= 6)
continue
If Param%A_Index%
Line 81:
break
}
MsgBoxStringTrimRight, Theout, other person typed:%out%, 1
▲ MsgBox, The other person typed in Edit One then pressed Button Two:`n%out%
}
Else If (Command == "DDL1")
MsgBox, The other person selected %Param6% %Param7% in the drop-down-list.
Else If (Command == "B3")
MsgBox, The other person clicked Button Three.
Line 91 ⟶ 92:
}
B1:
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " B1`n")
return
B2:
Gui, Submit, NoHide
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " B2E1E1B2 " . E1 . " | `n" . B2)
return
DDL1:
Gui, Submit, NoHide
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " DDL1 " . DDL1 . "`n")
return
B3:
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " B3" . "`n")
return
CleanUp:
GuiClose:
WS2_CleanUp()
ExitApp</langsyntaxhighlight></div>
 
Put the above on one computer, and run it. Then put the below on a different computer (no need for a network, just add Internet!) and run it.
<div style="width:full;overflow:scroll"><langsyntaxhighlight lang="autohotkey">#Include WinSock2.ahk
#Persistent
#SingleInstance, force
#Include WinSock2.ahk ; derRaphaels WinSock Rewrite
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
Line 121 ⟶ 122:
Gui, Add, DropDownList, vDDL1 gDDL1, Select something!||One|Two|Three|Four|Five|Six|Seven|Eight|Nine|Ten
Gui, Add, Button, gB3, Click me!
 
Server := "irc.freenode.net"
Port := "6667"
 
Channel := "#UIHjbfilgbafLIEfbAIJCICBGncaiJBHiwehFIUHEIbnjKCINJEhiUAHEJcKLACuiaokjf" ; Choose something long and random - a channel sure to be deserted.
 
Nick := "someothernickaokjfTWO" ; Register this! You can drop it later if you want, but register it!
Pass := "someotherpassaokjfTWO" ; It can be any nick and any pass.
 
Name := "distributed program"
 
BotCmd := "~"
OtherBotCmd := "!"
 
OnExit, CleanUp
WS2_CleanUp()
Line 141 ⟶ 142:
MsgBox, 16, Error!, An error occured wilist connecting to %Connection%
}
 
; Set OnMessage function
WS2_AsyncSelect(Socket, "DataProcess")
; Send AUTH info to the server
; USER A-trivial-nickname a-domain-like-google.com some-trivial-stuff :your-real-name
WS2_SendData(Socket, "USER " . Nick . " google.com AHKBOT :" . Name . "`n") ; All data send to the server must be
; followed by a newline.
; PASS A-trivial-pass
WS2_SendData(Socket, "PASS " . Pass . "`n")
; NICK A-trivial-nick
WS2_SendData(Socket, "NICK " . Nick . "`n")
; Join channel
; JOIN A-trivial-channel
WS2_SendData(Socket, "JOIN " . Channel . "`n")
Gui, Show
Return
 
DataProcess(Socket, Data) ; OnMessage function
{
Line 170 ⟶ 171:
StringReplace, Command, Param5, % Chr(10),, All
StringReplace, Command, Command, % Chr(13),, All
If (Param1 == "PING")
WS2_SendData(Socket, "PONG " . Param2 . "`n")
Else If (RegExMatch(Data, ":\" . BotCMD . " "))
{
If (Command == "B1")
MsgBox, The other person pressed Button Number One
Else If (Command == "B2E1E1B2")
{
out :=
MsgBox, The other person typed in Edit One then pressed Button Two▼
Loop
{
If (A_Index <= 6)
continue
If Param%A_Index%
Line 189 ⟶ 190:
break
}
MsgBoxStringTrimRight, Theout, other person typed:%out%, 1
▲ MsgBox, The other person typed in Edit One then pressed Button Two:`n%out%
}
Else If (Command == "DDL1")
MsgBox, The other person selected %Param6% %Param7% in the drop-down-list.
Else If (Command == "B3")
MsgBox, The other person clicked Button Three.
Line 199 ⟶ 201:
}
B1:
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " B1`n")
return
B2:
Gui, Submit, NoHide
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " B2E1E1B2 " . E1 . " | `n" . B2)
return
DDL1:
Gui, Submit, NoHide
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " DDL1 " . DDL1 . "`n")
return
B3:
WS2_SendData(Socket, "PRIVMSG " . Channel . " :" . OtherBotCmd . " B3" . "`n")
return
CleanUp:
GuiClose:
WS2_CleanUp()
ExitApp</langsyntaxhighlight></div>
PureFox
9,476

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/127853...329459"