一个简单的网页游戏源码

社区服务
高级搜索
猴岛论坛电脑百科一个简单的网页游戏源码
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
13个回复

一个简单的网页游戏源码

楼层直达
つ  兔大白。

ZxID:13942109

等级: 中尉
接D单,可封,可压.特价中...  50G以内封的200/秒解轮训400.  需要的 ..

举报 只看楼主 使用道具 楼主   发表于: 2012-01-14 0
别人让我写的,
我也不知道他是要做什么
代码如下。

  1. .版本 2
  2. .支持库 shell
  3. .支持库 HtmlView
  4. .支持库 EThread
  5. .程序集 窗口程序集1
  6. .程序集变量 网页操作, 普通填表
  7. .子程序 _按钮_登录_被单击
  8. .如果 (编辑框_登录_账号.内容 = “”)
  9.     信息框 (“请输入您的帐号.”, 0, )
  10. .否则
  11.     .如果 (编辑框_登录_密码.内容 = “”)
  12.         信息框 (“请输入您的密码.”, 0, )
  13.     .否则
  14.         写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “帐号”, 编辑框_登录_账号.内容)
  15.         写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “密码”, 编辑框_登录_密码.内容)
  16.         写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “记住密码”, “是否记住”, “T”)
  17.         写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “游戏大区”, “线”, 编辑框_登录_大区.内容)
  18.         _启动窗口.可视 = 假
  19.         载入 (游戏窗口, , 真)
  20.     .如果结束
  21. .如果结束
  22. .子程序 _选择框_记住密码_被单击
  23. 写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “帐号”, 编辑框_登录_账号.内容)
  24. 写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “密码”, 编辑框_登录_密码.内容)
  25. 写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “记住密码”, “是否记住”, “T”)
  26. 写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “游戏大区”, “线”, 编辑框_登录_大区.内容)
  27. .子程序 __启动窗口_创建完毕
  28. 编辑框_登录_账号.内容 = 读配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “帐号”, “”)
  29. 编辑框_登录_密码.内容 = 读配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “登录信息”, “密码”, “”)
  30. 编辑框_登录_是否记住.内容 = 读配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “记住密码”, “是否记住”, “F”)
  31. 编辑框_登录_大区.内容 = 读配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “游戏大区”, “线”, “”)
  32. 编辑框_登录_是否自动登录.内容 = 读配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “是否自动登录”, “自动登录”, “F”)
  33. .如果 (编辑框_登录_是否记住.内容 = “T”)
  34.     选择框_记住密码.选中 = 真
  35. .否则
  36. .如果结束
  37. .如果 (编辑框_登录_是否自动登录.内容 = “T”)
  38.     选择框_自动登录.选中 = 真
  39.     _按钮_登录_被单击 ()
  40. .否则
  41. .如果结束
  42. 创建快捷方式 (取特定目录 (3) + “\” + _启动窗口.标题 + “.ink”, 取当前目录 () + 取执行文件名 (), , , )
  43. .子程序 _选择夹1_被单击
  44. 编辑框_注册_帐号.获取焦点 ()
  45. 超文本浏览框_帐号注册.地址 = “http://www.37wan.com/users/register.php”
  46. .子程序 _按钮_注册_注册帐号_被单击
  47. 启动线程 (&POST提交_注册帐号, , )
  48. .子程序 POST提交_注册帐号, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
  49. .局部变量 局_提交地址, 文本型
  50. .局部变量 局_提交数据, 文本型
  51. .局部变量 局_返回文本, 文本型
  52. 局_提交地址 = “http://www.37wan.com/users/register.php”
  53. 局_提交数据 = “action=save&login_account=” + 编辑框_注册_帐号.内容 + “&password=” + 编辑框_注册_密码.内容 + “&password1=” + 编辑框_注册_确认密码.内容 + “&email=” + 编辑框_注册_电子邮件.内容 + “&username=” + 编辑框_注册_真实姓名.内容 + “&id_card_number=” + 编辑框_注册_身份证号.内容 + “&refer=&redirect=”
  54. 局_返回文本 = 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, ))  ' 最后一个参数为返回的编码方式
  55. .判断开始 (寻找文本 (局_返回文本, “alert('璇疯緭鍏ユ纭殑韬唤璇佸彿鐮侊紒');”, , 假) ≠ -1)
  56.     信息框 (“注册成功.”, 0, )
  57.     标签_注册_成功状态.标题 = “注册结果为:注册帐号成功.”
  58.     标签_注册_成功状态.文本颜色 = #绿色
  59.     返回 (真)
  60. .判断 (寻找文本 (局_返回文本, “alert('璇疯緭鍏?8浣嶈韩浠借瘉鍙风爜锛?)”, , 假) ≠ -1)
  61.     信息框 (“注册失败.请尝试修改您的注册信息后在提交.”, 0, )
  62.     标签_注册_成功状态.标题 = “注册结果为:注册帐号失败.”
  63.     标签_注册_成功状态.文本颜色 = #红色
  64.     返回 (假)
  65. .默认
  66.     输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功,把返回文件输出来
  67. .判断结束
  68. 返回 (假)
  69. .子程序 _选择框_自动登录_被单击
  70. .如果 (选择框_自动登录.选中 = 真)
  71.     写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “是否自动登录”, “自动登录”, “T”)
  72. .否则
  73.     写配置项 (取特定目录 (1) + “37wan傲视遮天帐号密码配置文件.37wannapw”, “是否自动登录”, “自动登录”, “F”)
  74. .如果结束








  1. .版本 2
  2. .支持库 eAPI
  3. .支持库 HtmlView
  4. .支持库 EThread
  5. .程序集 窗口程序集2
  6. .子程序 _游戏窗口_将被销毁
  7. .如果真 (信息框 (“1.如果您要切换帐号请点【否钮】” + #换行符 + “2.如果您要结束游戏请点【是钮】”, 3, “您要执行那个操作?”) = #否钮)
  8.     _启动窗口.可视 = 真
  9.     _启动窗口.宽度 = 340
  10.     _启动窗口.高度 = 240
  11.     销毁 ()
  12.     返回 ()
  13. .如果真结束
  14. 终止进程 (取执行文件名 ())
  15. 结束 ()
  16. .子程序 _游戏窗口_创建完毕
  17. _启动窗口.宽度 = 取用户区宽度 ()
  18. _启动窗口.高度 = 取用户区高度 ()
  19. 超文本浏览框1.高度 = 游戏窗口.高度 - 5
  20. 超文本浏览框1.宽度 = 游戏窗口.宽度 - 5
  21. .如果真 (信息框 (“是否登录您的帐号?”, 4, “登陆么?”) = #是钮)
  22.     子程序执行POSt ()
  23. .如果真结束
  24. .子程序 _游戏窗口_尺寸被改变
  25. 超文本浏览框1.高度 = 游戏窗口.高度 - 5
  26. 超文本浏览框1.宽度 = 游戏窗口.宽度 - 5
  27. .子程序 POST提交_登录游戏, 逻辑型, , ⊙⊙本代码由精易会员专用浏览器生成
  28. .局部变量 局_提交地址, 文本型
  29. .局部变量 局_提交数据, 文本型
  30. .局部变量 局_返回文本, 文本型
  31. 局_提交地址 = “http://aszt.37wan.com/login.php?action=loginGame”
  32. 局_提交数据 = “login_account=” + _启动窗口.编辑框_登录_账号.内容 + “&password=” + _启动窗口.编辑框_登录_密码.内容
  33. 局_返回文本 = 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, ))  ' 最后一个参数为返回的编码方式
  34. .判断开始 (寻找文本 (局_返回文本, “true”, , 假) ≠ -1)
  35.     超文本浏览框1.地址 = “http://aszt.37wan.com/game_login.php?server=S” + _启动窗口.编辑框_登录_大区.内容
  36.     返回 (真)
  37. .判断 (寻找文本 (局_返回文本, “鎮ㄨ緭鍏ヤ簡閿欒鐨勫瘑鐮侊紒”, , 假) ≠ -1)
  38.     返回 (假)
  39. .默认
  40.     输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功,把返回文件输出来
  41. .判断结束
  42. 返回 (假)
  43. .子程序 子程序执行POSt
  44. 启动线程 (&POST提交_登录游戏, , )
  45. .子程序 _超文本浏览框1_即将跳转, 逻辑型







本帖de评分: 1 条评分 DB +3
DB+3 2012-01-15

-

接D单,可封,可压.特价中...

30G以内封的200/秒解轮训400.

50G以内封的400/秒解轮训800.

需要的请联系我:550370421

接cc单,有单速度丢,

另出一套cc工具,

出肉鸡位置,出正规扫描服务器/爆破服务器

带徒弟,不免费,教技术,骗测试滚蛋,没钱不办事!

教攻击,教免杀,教Linux知识,教攻击类部分技术!

接打各种IP, 机房,网吧,宽带,游戏,(正规合法不接)
qq_1342063278

ZxID:18844995

等级: 列兵
举报 只看该作者 13楼  发表于: 2013-06-01 0
反正回贴可以升级

也可以赚经验跟DB 而升级又需要经验跟DB  

我就把这句话复制下来  

遇贴就回,捞DB就闪
_都滚”

ZxID:17492876

等级: 上等兵
举报 只看该作者 12楼  发表于: 2013-06-01 0
发热我我我我我我我我我我我我问过舒服是个
″搁浅唯

ZxID:19550955

等级: 下士
举报 只看该作者 11楼  发表于: 2013-01-01 0
果断,,,源码发来
爱国者·权小熙

ZxID:19232209

等级: 少尉
举报 只看该作者 10楼  发表于: 2012-07-28 0
            以前看贴总是不回,一直没提升等级和经验  

现在俄明白了!!

反正回贴可以升级  !

也可以赚经验跟DB 而升级又需要经验跟DB  

我就把这句话复制下来  
hticm_77

ZxID:18089351

等级: 中士
Seven.
举报 只看该作者 9楼  发表于: 2012-07-27 0
大哥......这是什么...
败★TV

ZxID:18465989

等级: 中校
我的官大吗?
举报 只看该作者 8楼  发表于: 2012-07-27 0
是什么啊?

际遇之神

奖励

版主上厕所忘带手纸,败★TV高价转让手纸,得5DB

不会弄·- -
誓言是蛊惑

ZxID:17237691

等级: 上尉
举报 只看该作者 7楼  发表于: 2012-07-27 0
つ低调渲染那一抹

ZxID:16947523

等级: 少尉
举报 只看该作者 6楼  发表于: 2012-07-27 0
谢谢大家支持
本文来自猴岛游戏论坛 :http://bbs.houdao.com/r6155899_u16947523/
宅男~

ZxID:19141997

等级: 上校
举报 只看该作者 5楼  发表于: 2012-07-27 0
什么意思?
看不懂
你直接源码!
爱国者·权小熙

ZxID:19232209

等级: 少尉
举报 只看该作者 4楼  发表于: 2012-07-27 0
           以前看贴总是不回,一直没提升等级和经验  

现在俄明白了!!

反正回贴可以升级  !

也可以赚经验跟DB 而升级又需要经验跟DB  

我就把这句话复制下来  
最冷酷的微笑

ZxID:16578875

等级: 大校

举报 只看该作者 地板   发表于: 2012-01-14 0
当我不存在吧
撸管小王子

ZxID:15036773

等级: 大尉
什么是神马

举报 只看该作者 板凳   发表于: 2012-01-14 0
完全看不懂
« 返回列表
发帖 回复