[bb] Application protocol by Andres [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:40

Previous topic - Next topic
Print
Go Down Pages1
User actions

BlitzBot

June 29, 2017, 00:28:40
Title : Application protocol
Author : Andres
Posted : 1+ years ago

Description : If you have installed a game named Soldat and choose a server from this list -> http://lobby.soldat.pl:13073/ you will be automatically connected to it.

And here's an example how you can do this your own:
For this you need to add some registry entries. I made a function to help you on that. After you have created the reg file you'll need to execute it. After the registry file has been executed you'll be able to easily, by clickin on a link, connect to the server or it can be used on some other purposes.

registryfile$ - Reg file to be created
name$ - name of your protocol (example: My protocol)
protocol$ - protocol name in the url (example: mypro://server:port/)
executable$ - file to be executed when clicked on the protocol link

With link "mypro://server:port/" will CommandLine$() = "/join mypro://server:port/"
You can change "/join" from the function by yourself if you wish to use the feature for other purposes.
%1 will be automatically replaced with link location(in this case with "mypro://server:port/").

EDIT: to execute the reg file you need to use function with that parameter ->CreateProcess("REG IMPORT " + registryfile$)

Code :
Code (blitzbasic) Select
Function CreateProtocolRegistryFile(registryfile$, name$, protocol$, executable$)
wf = WriteFile(registryfile$)
If wf
While Instr(executable$, "", i)
i = Instr(executable$, "", i)
executable$ = Mid$(executable$, 1, i) + "" + Mid$(executable$, i + 1)
i = i + 2
Wend

WriteLine wf, "Windows Registry Editor Version 5.00"
WriteLine wf, ""
WriteLine wf, "[HKEY_CLASSES_ROOT" + protocol$ + "]"
WriteLine wf, "@=" + Chr(34) + "URL:" + name$ + Chr(34)
WriteLine wf, Chr(34) + "URL Protocol" + Chr(34) + "=" + Chr(34) + Chr(34)
WriteLine wf, ""
WriteLine wf, "[HKEY_CLASSES_ROOT" + protocol$ + "DefaultIcon]"
WriteLine wf, "@=" + Chr(34) + "" + Chr(34) + executable$ + "" + Chr(34) + Chr(34)
WriteLine wf, "[HKEY_CLASSES_ROOT" + protocol$ + "shell]"
WriteLine wf, "[HKEY_CLASSES_ROOT" + protocol$ + "shellopen]"
WriteLine wf, "[HKEY_CLASSES_ROOT" + protocol$ + "shellopencommand]"
WriteLine wf, "@=" + Chr(34) + "" + Chr(34) + executable$ + "" + Chr(34) + " /join %1" + Chr(34)

CloseFile wf
Return True
Else
Return False
EndIf
End Function

Comments :


GC-Martijn(Posted 1+ years ago)

 Looks nice, try it later.
Print
Go Up Pages1
User actions