201787h 发表于 2019-12-18 00:44:35

接2

return str;
}

//定时器
import win.timer;
var timer = win.timer( winform );
timer.setInterval(3000)
timer.onTimer = function(hwnd,msg,id,tick){

    当天序号 = 当天序号+1;
    开奖期号 = tostring(time(time.now(),"%Y%m%d"))++string.format("%05d",当天序号)//前面补0,变成5位数编号

    var 万位 = string.random(1,"0123456789");
    var 千位 = string.random(1,"9876543210");
    var 百位 = string.random(1,"0123456789");
    var 十位 = string.random(1,"9876543210");
    var 个位 = string.random(1,"0123456789");
    开奖号码 = string.concat(万位,",",千位,",",百位,",",十位,",",个位)
    开奖时间 = timeHead();

        winform.editLog.print("开奖时间:"+开奖时间+" 开奖期号:"+开奖期号+" 开奖号码:"+开奖号码)
}

//异步HTTP服务器
import wsock.tcp.asynHttpServer;
var srvHttp = wsock.tcp.asynHttpServer();

//指定IP，端口，运行HTTP服务端
srvHttp.start("127.0.0.1",80);
srvHttp.run(
    function(response,request,session){
      //winform.editLog.print("HTTP协议访问：",request.url);
      response.contentType = "text/json"
      response.jsonPrettyPrint = true;
      reTable = {};
      reTable.开奖时间 = 开奖时间;
      reTable.开奖期号 = 开奖期号;
      reTable.开奖号码 = 开奖号码;
      response.write(reTable)
    }        
);

winform.editLog.print("http服务端已启动:"+srvHttp.getUrl())

winform.buttonStart.oncommand = function(id,event){
    winform.editLog.print("开始")
        timer.enable();
}

winform.buttonStop.oncommand = function(id,event){
    winform.editLog.print("停止")
        timer.disable();
}

winform.show()
win.loopMessage();


我们可以看到，这个程序是用定时器每隔三秒开出一期，每期的万位、千位、百位、十位、个位，都是从0至9这十个数字中随机选取一个，开奖后直接输出到软件界面的文本框，程序里还开了一个HTTP服务端，外部软件可以通过GET“http://127.0.0.1/”来获取到开奖的信息，在浏览器中直接打开此网址就可以看到它是JSON格式的文本


{
    "开奖号码":"2,1,1,6,1",
    "开奖时间":"2019-08-11 10:24:51",
    "开奖期号":"2019081101071"
}
这样我们就写好了一个测试用的开奖机，后面的提高胜率的思路都建立在这些随机的开奖数据上，请关注下一篇。**** Hidden Message *****

long0903 发表于 2019-12-18 01:06:07

给你顶起来，加油

916607029 发表于 2019-12-18 10:04:40

回复主题
关闭
RE:

专业刷水三十年 发表于 2019-12-18 11:26:33

528949239 发表于 2019-12-18 14:24:55

牛逼。。。。。。。

zhang8013991 发表于 2019-12-18 17:17:01

观摩一下大神

wangzhelanmeng 发表于 2019-12-18 21:06:55

给你顶起来，加油

haokangtw 发表于 2019-12-19 14:26:11

好好学习， 天天向上。

a22155 发表于 2019-12-19 22:16:17

6666666666666666666666

907795088 发表于 2019-12-20 22:06:08

感谢分享，支持一
页: [1] 2 3
查看完整版本: 接2