免DLL的输入法``

神思

大概就酱紫...

圆一下以前的想法..哈....

参考于.
http://rpg.blue/viewthread.php?t ... D7%2D9+19%3A46%3A04

1. #------------------------------------------------------------------------------
   
2. # Moonlight INN
   
3. # [url]http://cgi.members.interq.or.jp/aquarius/rasetsu/[/url]
   
4. # RaTTiE
   
5. # [email][email protected][/email]
   
6. #------------------------------------------------------------
   
7. # EasyConv::s2u(text) : S-JIS -> UTF-8
   
8. # EasyConv::u2s(text) : UTF-8 -> S-JIS
   
9. #==============================================
   
10. module EasyConv
    
11. # API梡掕悢掕媊
    
12.    CP_ACP = 0
    
13.    CP_UTF8 = 65001
    
14. 
    
15. #--------------------------------------------------------------------------
    
16. # 仠 S-JIS -> UTF-8
    
17. #--------------------------------------------------------------------------
    
18. def s2u(text)
    
19. # API掕媊
    
20.    m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
    
21.    w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
22. 
    
23. # S-JIS -> Unicode
    
24.    len = m2w.call(CP_ACP, 0, text, -1, nil, 0);
    
25.    buf = "\0" * (len*2)
    
26.    m2w.call(CP_ACP, 0, text, -1, buf, buf.size/2);
    
27. 
    
28. # Unicode -> UTF-8
    
29.    len = w2m.call(CP_UTF8, 0, buf, -1, nil, 0, nil, nil);
    
30.    ret = "\0" * len
    
31.    w2m.call(CP_UTF8, 0, buf, -1, ret, ret.size, nil, nil);
    
32.    
    
33.    return ret
    
34. end
    
35. # module_function偲偟偰岞奐
    
36. module_function :s2u
    
37. #--------------------------------------------------------------------------
    
38. # 仠 UTF-8 -> S-JIS
    
39. #--------------------------------------------------------------------------
    
40. def u2s(text)
    
41. # API掕媊
    
42.    m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
    
43.    w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
44. 
    
45. # UTF-8 -> Unicode
    
46.    len = m2w.call(CP_UTF8, 0, text, -1, nil, 0);
    
47.    buf = "\0" * (len*2)
    
48.    m2w.call(CP_UTF8, 0, text, -1, buf, buf.size/2);
    
49. 
    
50. # Unicode -> S-JIS
    
51.    len = w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil);
    
52.    ret = "\0" * len
    
53.    w2m.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil);
    
54.    
    
55.    return ret
    
56. end
    
57. # module_function偲偟偰岞奐
    
58. module_function :u2s
    
59. end
    
60. 
    
61. #========================================
    
62. # 本脚本来自[url]www.66rpg.com[/url]
    
63. #========================================
    
64. 
    
65. 
    
66. 
    
67. 
    
68. 
    
69. #==============================================================================
    
70. # ■ TextBox
    
71. #------------------------------------------------------------------------------
    
72. # 　设置输入窗口
    
73. #==============================================================================
    
74. class TextBox
    
75. # 获取程序模块
    
76. GetModuleHandle = Win32API.new("kernel32", "GetModuleHandle", "p", "l")
    
77. # 创建窗口
    
78. CreateWindowEx = Win32API.new("user32", "CreateWindowExA", "lppllllllllp", "l")
    
79. # 销毁窗口
    
80. DestroyWindow = Win32API.new("user32", "DestroyWindow", "l", "l")
    
81. # 控制窗口显示
    
82. ShowWindow = Win32API.new("user32", "ShowWindow", "ll", "l")
    
83. # 设置输入焦点
    
84. SetFocus = Win32API.new("user32", "SetFocus", "l", "l")
    
85. # 获取活动的窗口
    
86. GetActiveWindow = Win32API.new("user32", "GetActiveWindow", nil, "l")
    
87. # 获取控件文字
    
88. GetWindowText = Win32API.new("user32", "GetWindowTextA", "lpl", "l")
    
89. # 获取控件文字长度
    
90. GetWindowTextLength = Win32API.new("user32", "GetWindowTextLength", "l", "l")
    
91. # 设置控件文字
    
92. SetWindowTextA = Win32API.new("user32", "SetWindowTextA", "lp", "l")
    
93. # 刷新窗口
    
94. UpdateWindow = Win32API.new("user32", "UpdateWindow", "l", "l")
    
95. # 常数
    
96. WS_CHILD = 0x40000000
    
97. #--------------------------------------------------------------------------
    
98. # ● 初始化
    
99. #--------------------------------------------------------------------------
    
100. def initialize(w, h)
     
101.     @wnd = CreateWindowEx.call(1, "Edit", "", WS_CHILD, 0,0,w,h,GetActiveWindow.call,1,GetModuleHandle.call(nil),1)
     
102.     SetFocus.call(@wnd)
     
103.     ShowWindow.call(@wnd,0)
     
104. end
     
105. #--------------------------------------------------------------------------
     
106. # ● 释放窗口
     
107. #--------------------------------------------------------------------------
     
108. def dispose
     
109.     DestroyWindow.call(@wnd)
     
110. end
     
111. #--------------------------------------------------------------------------
     
112. # ● 获取txt
     
113. #--------------------------------------------------------------------------
     
114. def txt
     
115.     length = GetWindowTextLength.call(@wnd)
     
116.     lpstring = Array.new(length+1).pack("C*")
     
117.     GetWindowText.call(@wnd, lpstring, length)
     
118.     lpstring.delete!("\0")
     
119.     t = EasyConv::s2u(lpstring)
     
120.     return t
     
121. end
     
122. #--------------------------------------------------------------------------
     
123. # ● 设置txt
     
124. #--------------------------------------------------------------------------
     
125. def set_txt(txt)
     
126.     str = EasyConv::u2s(txt)
     
127.     SetWindowTextA.call(@wnd, str)
     
128. end
     
129. #--------------------------------------------------------------------------
     
130. # ● 刷新
     
131. #--------------------------------------------------------------------------
     
132. def update
     
133.     UpdateWindow.call(@wnd)
     
134.     SetFocus.call(@wnd)
     
135. end
     
136. end
     
137. 
     
138. t = TextBox.new(320, 24)
     
139. v = Viewport.new(160, 228, 320 , 24)
     
140. sprite = Sprite.new(v)
     
141. sprite.bitmap = Bitmap.new(320,24)
     
142. sprite.bitmap.fill_rect(0,0,320,24,Color.new(0,0,0))
     
143. sprite.bitmap.fill_rect(1,1,318,22,Color.new(255,255,255))
     
144. cou = Sprite.new(v)
     
145. cou.bitmap = Bitmap.new(1, 22)
     
146. cou.bitmap.fill_rect(0, 0, 1, 22, Color.new(0,255,255))
     
147. cou.y = 1
     
148. s = t.txt
     
149. loop {
     
150. Graphics.update
     
151. Input.update
     
152. t.update
     
153. cou.visible = Time.now.sec % 2 == 0
     
154. if s != t.txt
     
155. cou.visible = true
     
156. s = t.txt
     
157. sprite.bitmap.clear
     
158. sprite.bitmap.font.size = 18
     
159. sprite.bitmap.font.color.set(0,0,0)
     
160. sprite.bitmap.fill_rect(0,0,320,24,Color.new(0,0,0))
     
161. sprite.bitmap.fill_rect(1,1,318,22,Color.new(255,255,255))
     
162. sprite.bitmap.draw_text(0,0,320,24,s)
     
163. cou.x = 1 + sprite.bitmap.text_size(s).width
     
164. end
     
165. }
     
166. 
     

复制代码

★_茄孓

哇.这输入法不错啊，大力支持{/qiang}
不过我发现了个问题
就是打字的时候，
我打完一个 “我” 字
没有显示出来
然后等我在随便打一个字后 比如说我打了 “是”
但是显示的是“我”，我在随便打一个字
才显示 “是“跟不上顺序

越前リョーマ

话说比起以往的有什么优点吗？

yangff

以下引用越前リョーマ于2008-7-9 20:09:00的发言：

话说比起以往的有什么优点吗？

请不要问如此无聊的问题 {/gg}

yangff

恩
CreateWindowEx 阿
和我想的一样，但是不知道为什么我总是无法生成窗口

越前リョーマ

以下引用yangff于2008-7-9 20:27:31的发言：


以下引用越前リョーマ于2008-7-9 20:09:00的发言：

话说比起以往的有什么优点吗？


请不要问如此无聊的问题  

如果一点优点都没有的话为什么要写呢……
节省体积？

yangff

以下引用越前リョーマ于2008-7-9 21:39:28的发言：


以下引用yangff于2008-7-9 20:27:31的发言：


以下引用越前リョーマ于2008-7-9 20:09:00的发言：

话说比起以往的有什么优点吗？


请不要问如此无聊的问题  


如果一点优点都没有的话为什么要写呢……
节省体积？

俄。。。
风吗你不相及/。
节省体积？
搞笑。。。
lz的思路就像你往6r的回复框里输入东西 {/wx}

v2sam

没啥~很支持~~就是LZ的头像吓到我了~

link006007

话说哪里免dll了... ...

yangff

以下引用link006007于2008-7-9 22:59:51的发言：

话说哪里免dll了... ...

实话。。。。