最近,需要用到局域网发送消息,本来开始想着用timer轮询搞,发现确实效率低,客户端一直抖也不好,于是想到用winsock控件实现,本人由于技术菜还懒,一个想法是百度抄作业,哪知这一步就踏进了深渊。
网上的代码就没一个能跑起来的,基本可以说照搬vb的,而且一些谬误一传十十传百,不知道发文之前自己是否跑通过。因为pb圈子小,这些发帖人在pb群里还经常看到,感觉技术和见识都很牛,在群里只有看他们吹牛的份。可能这些大牛重心早已转移,加上年代久远,姑且这样认为吧。无论怎样,大部分代码还是能保存通过的,部分一眼就看出来不对的,自己领会意思就行,比如这句:在按钮cb_1(caption属性设为‘发送’)的click事件中加入如下语句: 。。。。。。这是赤裸裸的直接抄vb么?好吧将 cb_1.text = '发送' ,这个我会。 还有这句 winsock_b.object.getdata (def datastr1) def是个什么玩意,ref?先干掉。
曲折的经历还有第一步插入 ole控件报错:Insert of OLE object failed, license file required。
兜兜转转,抄了一段代码解决:
string ls_str
ls_str="mlrljgrlhltlngjlthrligklpkrhllglqlrk"
RegistrySet("HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d","", RegString!, ls_str)
运行这段代码之后&