标题: 从网上找的代码，不知道是干什么用 [打印本页]

---

作者: 258369    时间: 2009-8-7 21:23     标题: 从网上找的代码，不知道是干什么用

有条件的编译试试看吧，我也不知道是干什么的，反正代码挺多的

1. 
   
2. Option Explicit
   
3. 　　Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
   
4. 　　Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long
   
5. 　　Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long
   
6. 　　Public Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
   
7. 　　Public Declare Function RegisterClassEx Lib "user32" Alias "RegisterClassExA" (pcWndClassEx As WNDCLASSEX) As Integer
   
8. 　　Public Declare Function ShowWindow Lib "user32" (ByVal handle_of_window As Long, ByVal nCmdShow As Long) As Long
   
9. 　　Public Declare Function UpdateWindow Lib "user32" (ByVal handle_of_window As Long) As Long
   
10. 　　Public Declare Function SetFocus Lib "user32" (ByVal handle_of_window As Long) As Long
    
11. 　　Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal handle_of_window As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
12. 　　Public Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal handle_of_window As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
13. 　　Public Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal handle_of_window As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
    
14. 　　Public Declare Function TranslateMessage Lib "user32" (lpMsg As MSG) As Long
    
15. 　　Public Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As MSG) As Long
    
16. 　　Public Declare Sub PostQuitMessage Lib "user32" (ByVal nExitCode As Long)
    
17. 　　Public Declare Function BeginPaint Lib "user32" (ByVal handle_of_window As Long, lpPaint As PAINTSTRUCT) As Long
    
18. 　　Public Declare Function EndPaint Lib "user32" (ByVal handle_of_window As Long, lpPaint As PAINTSTRUCT) As Long
    
19. 　　Public Declare Function GetClientRect Lib "user32" (ByVal handle_of_window As Long, lpRect As RECT) As Long
    
20. 　　Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
    
21. 　　
    
22. 　　
    
23. 　　Type WNDCLASSEX
    
24. 　　 cbSize As Long
    
25. 　　 style As Long
    
26. 　　 lpfnWndProc As Long
    
27. 　　 cbClsExtra As Long
    
28. 　　 cbWndExtra As Long
    
29. 　　 hInstance As Long
    
30. 　　 hIcon As Long
    
31. 　　 hCursor As Long
    
32. 　　 hbrBackground As Long
    
33. 　　 lpszMenuName As String
    
34. 　　 lpszClassName As String
    
35. 　　 hIconSm As Long
    
36. 　　End Type
    
37. 　　Type POINTAPI
    
38. 　　 x As Long
    
39. 　　 y As Long
    
40. 　　End Type
    
41. 　　Type MSG
    
42. 　　 handle_of_window As Long
    
43. 　　 message As Long
    
44. 　　 wParam As Long
    
45. 　　 lParam As Long
    
46. 　　 time As Long
    
47. 　　 pt As POINTAPI
    
48. 　　End Type
    
49. 　　Type RECT
    
50. 　　 Left As Long
    
51. 　　 Top As Long
    
52. 　　 Right As Long
    
53. 　　 Bottom As Long
    
54. 　　End Type
    
55. 　　Type PAINTSTRUCT
    
56. 　　 hdc As Long
    
57. 　　 fErase As Long
    
58. 　　 rcPaint As RECT
    
59. 　　 fRestore As Long
    
60. 　　 fIncUpdate As Long
    
61. 　　 rgbReserved(32) As Byte 'this was declared incorrectly in VB API viewer
    
62. 　　End Type
    
63. 　　Public Const WS_VISIBLE As Long = &H10000000
    
64. 　　Public Const WS_VSCROLL As Long = &H200000
    
65. 　　Public Const WS_TABSTOP As Long = &H10000
    
66. 　　Public Const WS_THICKFRAME As Long = &H40000
    
67. 　　Public Const WS_MAXIMIZE As Long = &H1000000
    
68. 　　Public Const WS_MAXIMIZEBOX As Long = &H10000
    
69. 　　Public Const WS_MINIMIZE As Long = &H20000000
    
70. 　　Public Const WS_MINIMIZEBOX As Long = &H20000
    
71. 　　Public Const WS_SYSMENU As Long = &H80000
    
72. 　　Public Const WS_BORDER As Long = &H800000
    
73. 　　Public Const WS_CAPTION As Long = &HC00000 ' WS_BORDER Or WS_DLGFRAME
    
74. 　　Public Const WS_CHILD As Long = &H40000000
    
75. 　　Public Const WS_CHILDWINDOW As Long = (WS_CHILD)
    
76. 　　Public Const WS_CLIPCHILDREN As Long = &H2000000
    
77. 　　Public Const WS_CLIPSIBLINGS As Long = &H4000000
    
78. 　　Public Const WS_DISABLED As Long = &H8000000
    
79. 　　Public Const WS_DLGFRAME As Long = &H400000
    
80. 　　Public Const WS_EX_ACCEPTFILES As Long = &H10&
    
81. 　　Public Const WS_EX_DLGMODALFRAME As Long = &H1&
    
82. 　　Public Const WS_EX_NOPARENTNOTIFY As Long = &H4&
    
83. 　　Public Const WS_EX_TOPMOST As Long = &H8&
    
84. 　　Public Const WS_EX_TRANSPARENT As Long = &H20&
    
85. 　　Public Const WS_GROUP As Long = &H20000
    
86. 　　Public Const WS_HSCROLL As Long = &H100000
    
87. 　　Public Const WS_ICONIC As Long = WS_MINIMIZE
    
88. 　　Public Const WS_OVERLAPPED As Long = &H0&
    
89. 　　Public Const WS_OVERLAPPEDWINDOW As Long = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
    
90. 　　Public Const WS_POPUP As Long = &H80000000
    
91. 　　Public Const WS_POPUPWINDOW As Long = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
    
92. 　　Public Const WS_SIZEBOX As Long = WS_THICKFRAME
    
93. 　　Public Const WS_TILED As Long = WS_OVERLAPPED
    
94. 　　Public Const WS_TILEDWINDOW As Long = WS_OVERLAPPEDWINDOW
    
95. 　　Public Const CW_USEDEFAULT As Long = &H80000000
    
96. 　　Public Const CS_HREDRAW As Long = &H2
    
97. 　　Public Const CS_VREDRAW As Long = &H1
    
98. 　　Public Const IDI_APPLICATION As Long = 32512&
    
99. 　　Public Const IDC_ARROW As Long = 32512&
    
100. 　　Public Const WHITE_BRUSH As Integer = 0
     
101. 　　Public Const BLACK_BRUSH As Integer = 4
     
102. 　　Public Const WM_KEYDOWN As Long = &H100
     
103. 　　Public Const WM_CLOSE As Long = &H10
     
104. 　　Public Const WM_DESTROY As Long = &H2
     
105. 　　Public Const WM_PAINT As Long = &HF
     
106. 　　Public Const SW_SHOWNORMAL As Long = 1
     
107. 　　Public Const DT_CENTER As Long = &H1
     
108. 　　Public Const DT_SINGLELINE As Long = &H20
     
109. 　　Public Const DT_VCENTER As Long = &H4
     
110. 　　Sub Main()
     
111. 　　Call vbWinMain
     
112. 　　End Sub
     
113. 　　Public Function vbWinMain() As Long
     
114. 　　 Const CLASSNAME = "hello_world_vb"
     
115. 　　 Const TITLE = "hello, world!"
     
116. 　　 Dim handle_of_window As Long
     
117. 　　 Dim window_class As WNDCLASSEX
     
118. 　　 Dim message As MSG
     
119. 　　 window_class.cbSize = Len(window_class)
     
120. 　　 window_class.style = CS_HREDRAW Or CS_VREDRAW
     
121. 　　 window_class.lpfnWndProc = GetFuncPtr(AddressOf WindowProc)
     
122. 　　 window_class.cbClsExtra = 0&
     
123. 　　 window_class.cbWndExtra = 0&
     
124. 　　 window_class.hInstance = App.hInstance
     
125. 　　 window_class.hIcon = LoadIcon(App.hInstance, IDI_APPLICATION)
     
126. 　　 window_class.hCursor = LoadCursor(App.hInstance, IDC_ARROW)
     
127. 　　 window_class.hbrBackground = GetStockObject(WHITE_BRUSH)
     
128. 　　 window_class.lpszMenuName = 0&
     
129. 　　 window_class.lpszClassName = CLASSNAME
     
130. 　　 window_class.hIconSm = LoadIcon(App.hInstance, IDI_APPLICATION)
     
131. 　　
     
132. 　　 RegisterClassEx window_class
     
133. 　　
     
134. 　　 handle_of_window = CreateWindowEx(0&, CLASSNAME, TITLE, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, 0&, 0&, App.hInstance, 0&)
     
135. 　　
     
136. 　　 ShowWindow handle_of_window, SW_SHOWNORMAL
     
137. 　　 UpdateWindow handle_of_window
     
138. 　　 SetFocus handle_of_window
     
139. 　　 Do While 0 <> GetMessage(message, 0&, 0&, 0&)
     
140. 　　 TranslateMessage message
     
141. 　　 DispatchMessage message
     
142. 　　 Loop
     
143. 　　
     
144. 　　 vbWinMain = message.wParam
     
145. 　　End Function
     
146. 　　Public Function WindowProc(ByVal handle_of_window As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
     
147. 　　 Dim ps As PAINTSTRUCT
     
148. 　　 Dim rc As RECT
     
149. 　　 Dim hdc As Long
     
150. 　　 Dim str As String
     
151. 　　 Select Case message
     
152. 　　 Case WM_PAINT
     
153. 　　 hdc = BeginPaint(handle_of_window, ps)
     
154. 　　 Call GetClientRect(handle_of_window, rc)
     
155. 　　 str = "hello, world!"
     
156. 　　 Call DrawText(hdc, str, Len(str), rc, DT_SINGLELINE Or DT_CENTER Or DT_VCENTER)
     
157. 　　 Call EndPaint(handle_of_window, ps)
     
158. 　　 Exit Function
     
159. 　　
     
160. 　　 'Case WM_KEYDOWN
     
161. 　　 ' Call PostMessage(handle_of_window, WM_CLOSE, 0, 0)
     
162. 　　 ' Exit Function
     
163. 　　
     
164. 　　 Case WM_DESTROY
     
165. 　　 PostQuitMessage 0&
     
166. 　　 Exit Function
     
167. 　　
     
168. 　　 Case Else
     
169. 　　 WindowProc = DefWindowProc(handle_of_window, message, wParam, lParam)
     
170. 　　 End Select
     
171. 　　End Function
     
172. 　　Function GetFuncPtr(ByVal lngFnPtr As Long) As Long
     
173. 　　 GetFuncPtr = lngFnPtr
     
174. 　　End Function

复制代码

---

作者: airplane    时间: 2009-8-8 11:16

hello world

---

作者: h847670898    时间: 2009-8-8 18:35

yun

---

作者: 那巴尔    时间: 2009-10-19 12:01

像押韵的诗歌，我是不是幻觉了……？

---

作者: april    时间: 2009-11-5 09:20

我就知道 document.write("Hello World!") 

---

欢迎光临 世界之窗论坛 (http://bbs.theworld.cn/)

Powered by Discuz! 7.2