卖彩票脚本

㈠ 学Python ，写个彩票小脚本，怎么从网站更新最新的开奖号

除非别人提供了webservice接口，否则还是手工做一遍，用wireshark抓包看一下，把需要的数据提取出来才可以。用urllib之类的库，然后用能解析html的beautifulsoap什么的。
url请求需要看wireshark这类截包工具发送的请求。

㈡ 褰╃エ涔熻兘浣滃纷钖楋纻

1锛夋彁鍓嶆娊濂栧苟褰曞儚锛屾寜鎶藉栧彿镰佸畨鎺掍汉鍦ㄨ喘褰╂埅镊虫椂闂村墠澶氩嶈喘涔帮纴鍒版娊濂栨椂锛屾斁褰曞儚锛屽瑰栬存槸鐜板満鐩存挱銆傝繖瑕佽纯璧傚叕璇佸拰鐢佃嗗彴镄勪汉锛屽苟涓旂煡阆揿唴𨱍呯殑浜哄氾纴娑夊强镄勯溃骞匡纴鎶链 钖閲忎绠锛屼綔寮婇庨橹澶
2锛変粠褰╃エ阌鍞鍒扮幇鍦虹洿鎾鎶藉栫幆鑺傞兘涓崭綔寮婏纴鍙鍦ㄦ娊濂栫粨𨱒熷埌绗浜屽ぉ镞╀笂鍏甯冧腑濂栧彿镰佹椂镄7~8涓灏忔椂鍐咃纸阃氩父鏄澶沧櫄锛佺姱缃澶氩彂鐢熺殑镞跺欙紒锛夊湪褰╃エ涓蹇幂殑璁＄畻链轰腑锅氭坠鑴氾纴鍙 瑕佸湪璁＄畻链虹殑璐褰╂暟鎹搴扑腑鎻掑叆𨱍宠佺殑璐褰╄板綍锛岃ˉ镓撶焊璐ㄥ嚟璇佸嵆鍙锛岀炰笉鐭ラ间笉瑙夛紒𨱍充腑鍑犳敞灏变腑鍑犳敞锛佺煡𨱍呬汉灏戯纴鎶链钖閲忛珮锛屼綔寮婇庨橹鏋佷绠锛侊紒

㈢ 用支付宝买彩票 让我设置java script服务器

import javax.script.*;

import static java.lang.System.*;

ScriptEngineManager manager = new ScriptEngineManager();

// 得到javascript脚本引擎

ScriptEngine engine = manager.getEngineByName("javascript");

try

{undefined

// 开始运行脚本，并返回当前的小时

Double hour = (Double)engine.eval("var date = new Date();" +"date.getHours();");

String msg;

// 将小时转换为问候信息

if (hour < 10)

㈣ http://www.lecai.com/lottery/draw/view/200phase=20130312072&agentId=5555 号码如何用VB时时获取

'自己加个计时器定时刷新
Option Explicit
Private Sub Command1_Click()
Dim ul As String, mark As String, s As String, temp As String
ul = "http://www.lecai.com/lottery/draw/view/200?phase=20130312072&agentId=5555"
Command1.Enabled = False
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate ul
Do Until .readyState = 4
DoEvents
Loop
s = .document.body.innerhtml
End With
mark = "latest_draw_time = "
If InStr(s, mark) = 0 Then
Command1.Enabled = True
Exit Sub
End If
temp = Mid(s, InStr(s, mark) + Len(mark) + 1, 20) & vbNewLine
mark = "var phaseData = {""" & Format(Date, "yyyy-mm-dd") & """:"
s = Mid(s, InStr(s, mark) + Len(mark), Len(s))
mark = """red"""
s = Mid(s, InStr(s, mark) + Len(mark) + 2, 19)
temp = temp & s
MsgBox temp
Command1.Enabled = True
End Sub

㈤ 传奇私服脚本怎么使用

挖矿 的脚本上 脱机挂的脚本

彩票的那些功能脚本 这个是NPC试行脚本..!

㈥ 魔兽争霸地图编辑器彩票

################################################################################
############Lottery by Golgorth##V2.0###########################################
################################################################################
##1.- 你需要在主目录下创建一个目录，名叫"lottery"
##2.- 你应该检查每个配置的内容以适合你的需要
## 你可以自定义NPC所说的话，奖励物品使用的时间
## 获奖中奖号码的彩票
##3.- 你需要添加这些: [lotsystem::winnumber $player] :this check ##
## 将其放到 startup.tcl 的 OnPlayerDeath 中 ##
## 以检查是否到了运行 winnernumber proc 的时候 ##
## 请小心地放入到正确的命名域（namespace）中 ，命名域是指你将代码放入到的目标脚本位置，而不是文件名
################################################################################
################################################################################
#这是 creatures.scp 中的彩票员，复制并修改id, 阵营以及模型，使其针对大部分的玩家
################################################################################
[creature 900101]
attack=2000 2000
name=彩券发行员
model=7311
faction=12
guild=国有彩券发行
type=7
family=7
questscript=lotterynpc
npcflags=07
faction=12
elite=3
level=60
maxhealth=10370
damage=1037 1659
maxmana=0
sell=30033 # 必须和 items.scp中添加的彩券ID一致
###################################################################
#这是在 items.scp 中的物品 #
###################################################################
[item 30033]
name=彩券
buyprice=10000
startquest=123002 # 必须和添加到 quest.scp 中的quest ID一致，其实就是一个获得以后激活的任务
questscript=lottery
stackable=1
class=12
classes=07FFF
flags=0800
material=-1
maxcount=1
model=31744
quality=1
races=01FF
sellprice=0
subclass=0
#########################################################
#添加到 quest.scp 中的内容(不要问为什么需要这个) #
#########################################################
[quest 123002]
name=彩券
objectives=获取你的彩券号码。
desc=准备好测试你的幸运指数了吗？
deliver=30033 1
src_item=30033
###########################################################
# 在tcl目录中创建文件 lotsystem.tcl，并将以下内容复制到该文件中 #
###########################################################
namespace eval lotsystem {

proc lotterynum { player } {

set pname [GetName $player]
set n1_list "1 2 3 4 5 6 7 8 9 0"
set n2_list "1 2 3 4 5 6 7 8 9 0"
set n3_list "1 2 3 4 5 6 7 8 9 0"
set num1 [lindex $n1_list [expr {int(rand()*[llength $n1_list])}]]
set num2 [lindex $n2_list [expr {int(rand()*[llength $n2_list])}]]
set num3 [lindex $n3_list [expr {int(rand()*[llength $n3_list])}]]
set number "$num1$num2$num3"
set file "lottery/$number"
if { [file exists "lottery/$number"] != 1} {
set id [open $file a+]
puts $id "$pname"
close $id
return "你的彩券号码是 $number"
}
set id [open $file a+]
puts $id "$pname"
close $id
return "你的彩券号码是 $number"

}
# You should change the hours and day to check if is time to run lotto and to delete the folder
proc winnumber { player } {

set hourtime [clock format [clock seconds] -format {%H}]
set daytime [clock format [clock seconds] -format {%u}]
set checkfile "lottery/checkfile"
if { [file exists "lottery/checkfile"] != 1 } {
if { ($hourtime == 16) && ($daytime == 1) } {
set n1_list "1 2 3 4 5 6 7 8 9 0"
set n2_list "1 2 3 4 5 6 7 8 9 0"
set n3_list "1 2 3 4 5 6 7 8 9 0"
set num1 [lindex $n1_list [expr {int(rand()*[llength $n1_list])}]]
set num2 [lindex $n2_list [expr {int(rand()*[llength $n2_list])}]]
set num3 [lindex $n3_list [expr {int(rand()*[llength $n3_list])}]]
set number "$num1$num2$num3"
set file "lottery/winnernumber"
if { [file exists "lottery/winnernumber"] != 1 } {
set id [open $file w+]
puts $id "$number"
close $id
set cf [open $checkfile w+]
puts $cf ""
close $cf

}
set id [open $file w+]
puts $id "$number"
close $id
set cf [open $checkfile w+]
puts $cf ""
close $cf

}
}
if { ($daytime == 7) && ($hourtime == 23) } {
file delete -force "lottery"
file mkdir "lottery"

}
return
}

proc readwinner { player } {
set pname [GetName $player]
set yes "lottery/$pname"
set thewinneris "winnernumber"
set file "lottery/$thewinneris"
if { [file exists "lottery/$thewinneris"] != 1 } { return "中奖号码还没有生成" }
set id [open $file r]
gets $id data
close $id
set secondfile "lottery/$data"
if { [file exists "lottery/$data"] != 1 } { return "本期没有任何人中奖." }
set secondid [open $secondfile r]
gets $secondid seconddata
close $secondid
set lines [split $seconddata \n]
set youwin [lsearch $seconddata $pname]
if { $youwin != -1 } {
if { [file exists "lottery/$pname"] != 1 } {
#Here you put the reward, use Item id.
AddItem $player 7
set cut [open $yes w+]
puts $cut "1"
close $cut
Say $player 0 "我中奖了！！"
}
}
return "中奖号是 $data，中奖的玩家有：$lines"
}
}
############################################################
#在tcl目录下创建文件 lottery.tcl，并将以下代码复制到文件中#
############################################################
namespace eval lottery {
proc QueryQuest { obj player questid } {
if { [GetQuestStatus $player $questid] != 4 } {
SendQuestReward $player $obj $questid "最棒的奖励！" "你是否真的想赌赌？"
SendGossipComplete $player
#SendQuestRequestItems $player $obj $questid "" "Activate your bet."
} else {
SendQuestDetails $player $obj $questid
}
}

proc QuestAccept { obj player questid } {
SendQuestReward $player $obj $questid "最棒的奖励！" "你是否真的想赌赌？"
SendGossipComplete $player
}

proc RequestReward { npc player questid } {
}
proc QuestChooseReward { obj player questid choose } {
lotsystem::lotterynum $player
}

proc OnOpen { obj player lootid } {
}
}

###########################################################
#在tcl目录下创建文件 lotterynpc.tcl，并将以下内容复制到该文件中 #
###########################################################

#--------------------------------------------------------
namespace eval lotterynpc {

}
#--------------------------------------------------------
proc lotterynpc::GossipHello { npc player } {

SendGossip $player $npc { text 0 "我想购买一张彩券" }\
{ text 0 "我中奖了吗？" }\
{ text 1 "我需要一些相关资料" }

}

#--------------------------------------------------------
# the lotsystem::winnumber $player is not very good here, so its better to put it in startup tcl in for example on playerdeath proc.
proc lotterynpc::GossipSelect { npc player option } {
switch $option {
0 { VendorList $player $npc }
1 { SendGossipComplete $player
lotsystem::winnumber $player
set win [lotsystem::readwinner $player ]
set resp "$win"
set news "text 0 \"$resp \n\n\n\""
set footer "text 2 \"Visit http://orangevirus.de for more
Informations\""
SendGossip $player $npc $news \
$footer }
2 { SendGossip $player $npc { text 0 "你需要购买一张彩券（我正在贩卖），然后激活它。当彩券生效时，中奖号码将被通知并且发布在这里。如果你是中奖者，那么你将自动获得奖品。开奖时间在每周日 16:00。祝你中奖!!"} }
}

}
#--------------------------------------------------------
proc lotterynpc::QueryQuest { npc player questid } {

}

#--------------------------------------------------------
proc lotterynpc::QuestStatus { npc player } {

}
#--------------------------------------------------------
proc lotterynpc::QuestHello { npc player } {

}
#--------------------------------------------------------
proc lotterynpc::QuestSelect { npc player questid } {

}

#--------------------------------------------------------
proc lotterynpc::QuestAccept { npc player questid } {

}

#--------------------------------------------------------
proc lotterynpc::QuestChooseReward { npc player questid choose } {

}
#--------------------------------------------------------
proc lotterynpc::RequestReward { npc player questid } {

}