[密技]：用visual isp也能利用网络连接(比如做个聊天软件,网上验证)

wujimmy

附件是一个示例源码,
该源码向服务器发送一个msg,服务器返回一个信息

用过的人请发表达一下看法啊!

不好意思,本不该收币的,但是我太穷了:)))
如果你没有币的话,留个mail我给你邮过去.

yunzhong80

看不明白，可说明一下吗？

JOSDENNIS

我下來試一下,  我覺的要做成. (涵數  "電腦用戶名" "訊息")
比如, 我同事的電腦名是  SHOES-ONE (局域網的名) 我想和他問候早安時就 (涵數  "SHOES-ONE" "早安!!")

舟自横

最初由 JOSDENNIS 发布
[B]我下來試一下,  我覺的要做成. (涵數  "電腦用戶名" "訊息")
比如, 我同事的電腦名是  SHOES-ONE (局域網的名) 我想和他問候早安時就 (涵數  "SHOES-ONE" "早安!!") [/B]

這個用沌LISP就可以 實現
用command 調用shell外殼使用netsend外部命令就可以。。
(command "shell" (STRCAT"net send " "對方電腦名稱" " " "需要發送信息"))
例如要將信息"你好”發送到電腦名為"a12"
(command "shell" (strcat "net send " "a12 " "你好"))
就可以實現發送了。。

wujimmy

这个演示可以实显客户端,服务端的功能,用autocad做为客户端,自己做一个服务端.
如果自己没有服务器,也可以到别人的服务器上获取信息,比如也可以用来做天气预报
3楼说的那种是只给别的机子发信息,而不能从别的机子上获返信息.

JOSDENNIS

請教舟自橫net send  是在哪里的, cad自帶的? 我找不到哦

taner

最初由 wujimmy 发布
[B]附件是一个示例源码,
该源码向服务器发送一个msg,服务器返回一个信息

不好意思,本不该收币的,但是我太穷了:)))
如果你没有币的话,留个mail我给你邮过去. [/B]

請將用法詳細說明一下.否則浪費一個愛心幣了!

舟自横

最初由 JOSDENNIS 发布
[B]請教舟自橫net send  是在哪里的, cad自帶的? 我找不到哦 [/B]

net send 是一個DOS命令實現信息傳遞功能(不是CAD的命令)
shell是調用DOS殼體相當與通過CAD進入DOS命令狀態再執行DOS命令net send

wujimmy

最初由 taner 发布
[B]
... [/B]

我觉得应该可以明白的了,第一句注释掉的就是具体使用的方法啊
(getservermsg "http://www.wujimmy.com/wujimmy.asp" "?tp=1")

其中服务器上的wujimmy.asp代码是这样的:

1. 
   
2.   [FONT=courier new]
   
3. <％
   
4. tp=request.QueryString("tp")
   
5.         If tp=Empty Then tp=Request.Form("ipdata")
   
6. 
   
7. If tp=Empty Then
   
8.         response.write "Error"       
   
9. else
   
10.        response.write "Good:"&tp
    
11. ％>
    
12. 
    
13. <％ end if ％>
    
14. 
    
15.   [/FONT]
    

复制代码

cjun2258

发给我
cjun2258@sina.com

taner

[PHP];(getservermsg "http://www.wujimmy.com/wujimmy.asp" "?tp=1")
(defun getservermsg (server msg / ret)
  (setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP"))
  (vlax-method-applicable-p XMLHTTP "open")
  (vlax-method-applicable-p XMLHTTP "send")
  (vlax-invoke-method
    XMLHTTP
    "open"
    "POST"
    (strcat server msg)
    t
    nil
    nil
  )
  (vlax-invoke-method XMLHTTP "send" "")
  (while (/= 4 (vlax-get-property XMLHTTP "readyState")))
  (setq ret (vlax-get-property XMLHTTP "responseText"))
  (vlax-release-object XMLHTTP)
  ret
)[/PHP]

wujimmy

楼上怎么可以这样????
不过算了,反正没有多少人买了

aliu22

很简单嘛,你说的方法就是建立一个web服务器而已,不过这样还不如用net meeting

wujimmy

请你看清楚了,前提是用visual lisp
如果是用别的,比如VC++那我就不要在这里讲了.
而且该应用是lisp程序访问网络的一个示例,加在程序里面就可以当成
注册码验证程序了.
这么简单,也不要去用obect arx编程了.
不知道的人不要乱说

它山之石

楼主的e贝网涉及内容很广泛呀。
贝贝也很可爱。

(getservermsg "http://www.wujimmy.com/wujimmy.asp" "?tp=1")

" <font face=\"??\" size=2>\n<p>Microsoft VBScript ?????</font> <font
face=\"??\" size=2>?? '800a0409'</font>\n<p>\n<font face=\"??\"
size=2>δ??????\177</font>\n<p>\n<font face=\"??\"
size=2>/wujimmy.asp</font><font face=\"??\" size=2>???
104</font>\r\n<pre>sql=&quot;select username,password,nickname,online  from
userinfor where
username='&quot;&amp;username&amp;&quot;'\r\n-----------------------------------
--------------------------------------------------------^</pre> "