Board logo

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

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

  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