三、 服务器端
request.asp是响应手机请求的服务器端程序,它获得用户输入的操作代码,让后将这个代码写入一个文本文件。
<%@ Language=VBScript %> <%Response.ContentType="text/vnd.wap.wml" code=Request.Form("code") filename="e:\code.txt" Set fs = CreateObject("Scripting.FileSystemObject") set ss = fs.CreateTextFile(filename,true) ss.Write(code) ss.Close%><?xml version="1.0"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> <wml> <card id="main"> <p> Complete!!! </p> </card> </wml> |
程序读取e:\code.txt存入变量Lstr,然后将0写入文本文件(规定0不代表任何操作,避免程序重复执行同一操作)。最后通过判断Lstr内容来决定进行什么操作,此处,利用API函数ExitWindowsEx强行关机(在不同的操作系统中,此API函数有不同的效果,不如在Win9x环境下可以执行关机,重新启动等操作,而在我的Windows2003 Server环境下,只能实现注销,如果将ExitWindowsEx第二个参数设置其他的常量如EWX_REBOOT则不会有任何效果)。
当然,遥控计算机不仅仅是要关机、重新启动,更多的功能还等待去开发!
好了一切都准备就绪,现在开启你的服务器,拿出手机,玩一把手机遥控的计算机!
调试环境:
操作系统:Windows 2003 Enterprice Server
开发环境:Visual Basic 6.0
手机:PHILIPS Fisio 620 Openwave Mobile Browser 5.0.1.11 WAP Edition
运营商:中国移动(动感地带) 中国网通LAN宽带
域名解析:花生壳 |