一个Web游戏的超初级wg

shawind

只做到获取两个参数，就发现写不下去了。好像dwin库中的IE OLE部分还不支持childNodes，找不到没有id，name的组件。

2. import dwin.sys.win32.ie.IE;
3. import dfl.all;
4. import Integer = tango.text.convert.Integer;
6. pragma(lib, "dwin.lib");
7. pragma(lib, "pcre.lib");
8. pragma(lib, "dfl.lib");
9. pragma(lib, "uuid.lib");
11. char[] to(uint u)
12. {
13.     return Integer.format(new char[32], u);
14. }
16. uint to(char[] c)
17. {
18.     return Integer.atoi(c);
19. }
21. class MyIE : Form
22. {
23.     IWebBrowser2 ie;
24.     Button OBtn;
25.     Button CBtn;
26.     ComboBox ServerListBox;
27.     Button TBtn;
28.     this()
29.     {
30.         this.text = "牧场OnWeb控制台";
31.         this.clientSize = Size(400,225);
32.         this.startPosition = FormStartPosition.CENTER_SCREEN;
33.         this.maximizeBox = false;
35.         ServerListBox = new ComboBox();
36.         ServerListBox.bounds = Rect(0,0,80,18);
37.         ServerListBox.items.add("稻香");
38.         ServerListBox.items.add("麦浪");
39.         ServerListBox.items.add("桃源");
40.         ServerListBox.items.add("爱情");
41.         ServerListBox.text = "爱情";
42.         ServerListBox.parent = this;
44.         OBtn = new Button();
45.         OBtn.text = "打开IE";
46.         OBtn.bounds = Rect(82,0,80,18);
47.         OBtn.parent = this;
48.         OBtn.click ~= &this.createIE;
50.         CBtn = new Button();
51.         CBtn.text = "关闭IE";
52.         CBtn.bounds = Rect(164,0,80,18);
53.         CBtn.parent = this;
54.         CBtn.click ~= &this.closeIE;
56.         TBtn = new Button();
57.         TBtn.text = "测试";
58.         TBtn.bounds = Rect(246,0,80,18);
59.         TBtn.parent = this;
60.         TBtn.click ~= &this.test;
61.     }
63.     private void createIE(Object o, EventArgs e)
64.     {
65.         switch(ServerListBox.text)
66.         {
67.             case "稻香":
68.                 ie = ieCreate(null, "Width",1020, "Height",780,"Navigate", "http://web.iyoyo.com.cn/Account/LoginServer.aspx?SiteID=1&GameID=9&ServerID=1");
69.                 break;
70.             case "麦浪":
71.                 ie = ieCreate(null, "Width",1020, "Height",780,"Navigate", "http://web.iyoyo.com.cn/Account/LoginServer.aspx?SiteID=1&GameID=9&ServerID=2");
72.                 break;
73.             case "桃源":
74.                 ie = ieCreate(null, "Width",1020, "Height",780,"Navigate", "http://web.iyoyo.com.cn/Account/LoginServer.aspx?SiteID=1&GameID=9&ServerID=3");
75.                 break;
76.             case "爱情":
77.                 ie = ieCreate(null, "Width",1020, "Height",780,"Navigate", "http://web.iyoyo.com.cn/Account/LoginServer.aspx?SiteID=1&GameID=9&ServerID=4");
78.                 break;
79.             default:
80.                 msgBox("没指定现有的服务器！");
81.         }
82.     }
84.     private void closeIE(Object o, EventArgs e)
85.     {
86.         ie.Quit();
87.     }
89.     private void test(Object o, EventArgs e)
90.     {
91.         if(ie is null)
92.         {
93.             msgBox("没有打开网页");
94.         }
95.         else
96.         {
97.             msgBox(to(getMoney(ie)));
98.             msgBox(to(getPower(ie)));
99.         }
100.     }
102.     private uint getMoney(IWebBrowser2 i)
103.     {
104.         auto money = getElementById(i, "tipMoney");
105.         return to(getInnerText(money));
106.     }
108.     private uint getPower(IWebBrowser2 i)
109.     {
110.         auto power = getElementById(i, "main");
111.         return to(getInnerText(power));
112.     }
113. }
116. void main()
117. {
118.     int result = 0;
120.     try
121.     {
122.         Application.enableVisualStyles();
123.         Application.run(new MyIE());
124.     }
125.     catch(Object o)
126.     {
127.         msgBox(o.toString(), "Fatal Error", MsgBoxButtons.OK, MsgBoxIcon.ERROR);
128.         
129.         result = 1;
130.     }
131.    
132.     return result;
133. }

复制代码

貘良了

朋友每月花15元去买 逐鹿天下 那个webgame的WG，真不知道他怎么想的。

我是理解不了花钱买WG的乐趣了。

shawind

引用第1楼貘良了于2009-05-10 14:37发表的  :
朋友每月花15元去买 逐鹿天下 那个webgame的WG，真不知道他怎么想的。

我是理解不了花钱买WG的乐趣了。

人和人不一样，各取所需吧。

shawind

又看了下，原来dwin中还有com，再来试试看这个东西能不能有完整功能。