荣光医院外挂源码自用的
date:星期五, 九月 25th, 2009 at 12:24 上午 Categories:game
无聊在青浦之家上玩荣光医院
青浦家园。
独立起用 i.qphome.com I 个性 自我。
抓了点数据包分析了下
发现了 批量查询 城市里其他医院的方法
然后用VB 发包
然后 找医院
然后列出来 可以去拉人的医院
Do While fnum < dnum
fnum = fnum + 1
Set xmlHTTP1 = CreateObject(“Microsoft.XMLHTTP”)
url = “http://124.238.251.111/dz/ac.php?t=97437&ac=action&key=j1&pid=” & Combo1.Text & “&zid=” & fnum & “&uid=” & Text4.Text & “&sk=” & Text5.Text
xmlHTTP1.Open “get”, url, True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Text3.Text = xmlHTTP1.responseText
Dim a, b, c, d As String
a = Text3.Text
b = InStr(a, “u6709″) + 7
c = Left(a, b)
c = Right(c, 3)
c = Val(c)
If c < 100 Then
d = fnum & “___预约___” & c
List1.AddItem d
End If
Set xmlHTTP1 = Nothing
Loop
源码放出
喜欢的自己拿去用
很简单 虽然就这么点
自己玩的用的。。 用在这个方法 自己完善。可以查更多信息。。
有好的想法 大家交流下
留言即可