萝莉凶残 发表于 2011-11-11 22:47
谢谢呐~~
另外……可以教我在哪里可以美化那个输入名字时候弹出来的窗口吗？ ...

那个嘛~跟你的系统主体一致，因为是窗口

Sonic1997 发表于 2011-11-12 13:17
为什么呢？
那个范例是我手动生成的，你试一下手动生成input.tmp
现在不在家，很难找出问题所在D~{:nm_2: ...

谢谢呐~~
另外……可以教我在哪里可以美化那个输入名字时候弹出来的窗口吗？

萝莉凶残 发表于 2011-11-11 20:39
运行你的范例，出错了……

为什么呢？
那个范例是我手动生成的，你试一下手动生成input.tmp
现在不在家，很难找出问题所在D~{:nm_2:}

不可以

1. #==============================================================================
   
2. # 　
   
3. # ■ Code_Input
   
4. # 　
   
5. #------------------------------------------------------------------------------
   
6. # 　
   
7. # 　伪·文字输入框  Version 1.1
   
8. # 　
   
9. #==============================================================================
   
10. 
    
11. 
    
12. #==============================================================================
    
13. # 　
    
14. # 　伪·文字输入框
    
15. # 　—— By Defanive
    
16. # 　
    
17. # 　能够弹出一个InputBox窗口，输入完成后返回值
    
18. #
    
19. # 　Version 1.1 修正：
    
20. # 　防止窗口进程被杀导致的游戏卡死
    
21. # 　
    
22. # 　目前的缺陷：
    
23. # 　input参数不支持中文
    
24. # 　
    
25. #------------------------------------------------------------------------------
    
26. # 　
    
27. # 　使用：
    
28. # 　变量 = Input(提示, 标题, 默认值)
    
29. # 　
    
30. #==============================================================================
    
31. 
    
32. 
    
33. #==============================================================================
    
34. # 　API Functions
    
35. #==============================================================================
    
36. 
    
37. Shell=Win32API.new('kernel32','WinExec','pl','l')
    
38. M2w=Win32API.new('kernel32','MultiByteToWideChar','ilpipi','i')
    
39. W2m=Win32API.new('kernel32','WideCharToMultiByte','ilpipipp','i')
    
40. Find=Win32API.new('user32','FindWindowA','p,p','l')
    
41. IsWnd=Win32API.new('user32','IsWindow','l','l')
    
42. 
    
43. 
    
44. #==============================================================================
    
45. # 　Main Function
    
46. #==============================================================================
    
47. 
    
48. def input(text,title,strs)
    
49.   tdir=Dir.getwd+"/input.tmp"
    
50.   sname='mshta vbscript:createobject("scripting.filesystemobject").opentextfile("'+tdir+'",2,True).write(inputbox("'+text+'","'+title+'","'+strs+'"))(window.close)'
    
51.   Shell.call(sname,1)
    
52.   sleep(1)
    
53.   hw=Find.call(nil,title)
    
54.   while true
    
55.     Graphics.update
    
56.     break if IsWnd.call(hw)==0
    
57.   end
    
58.   s=text_conv(File.open(tdir).read)
    
59.   return s[0,s.size-1]
    
60. end
    
61. 
    
62. 
    
63. #==============================================================================
    
64. # 　Convert Function
    
65. #==============================================================================
    
66. 
    
67. def text_conv(text)
    
68.   len=M2w.call(0,0,text,-1,nil,0)
    
69.   buf="\0"*(len*2)
    
70.   M2w.call(0,0,text,-1,buf,buf.size/2)
    
71.   len=W2m.call(65001,0,buf,-1,nil,0,nil,nil)
    
72.   ret="\0"*len
    
73.   W2m.call(65001,0,buf,-1,ret,ret.size,nil,nil)
    
74.   return ret
    
75. end
    

复制代码

再事件中用脚本

1. acn=input("Type Your Name","Test","Name")
   
2. if not acn==""
   
3. $game_actors[1].name=acn
   
4. end

复制代码

范例： 伪·文字输入框 Version 1.1 by Defanive.rar (244.94 KB, 下载次数: 797)

2011-11-12 03:22 上传

点击文件名下载附件