Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
đang rảnh + né covi Tôi hướng dẫn cho ai đó nếu đam mê VB6 Viết Hàm API 32 bit trên VB6
1/ chép Code sau vào 1 Module trên EXE của VB6
2/ Code trên DLL như sau
3/ Lưu ý Files EXE và DLL tôi set cho nó ở chung 1 Folder đấy ... nếu tách nó ra thì ai đó tự viết lại code lấy nha
Toàn bộ code Úp lên cho ai thử vui vẻ chút ... cách trên tôi học được từ 1 tay code người Nga
1/ chép Code sau vào 1 Module trên EXE của VB6
Mã:
Public Declare Function SetDllDirectoryW Lib "kernel32" (ByVal pszPath As Long) As Long
Public Declare Function ShowMsgBox Lib "DLLVB6.dll" (ByVal bstrMsg As Long) As VbMsgBoxResult
Public Declare Sub test Lib "DLLVB6.dll" ()
Public Declare Sub test2 Lib "DLLVB6.dll" ()
Public Declare Sub test3 Lib "DLLVB6.dll" ()
Private Function MakeTrue(ByRef bValue As Boolean) As Boolean
bValue = True
MakeTrue = True
End Function
Sub Main()
Dim bIsInIDE As Boolean
Debug.Assert MakeTrue(bIsInIDE)
If bIsInIDE Then
SetDllDirectoryW (StrPtr(App.Path))
End If
ShowMsgBox StrPtr("KieuManh")
test
test2
test3
End Sub2/ Code trên DLL như sau
Mã:
Option Explicit
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" _
(ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Rem Viet cac ham vao cac Module
Public Function ShowMsgBox(ByVal sText As String) As VbMsgBoxResult
MessageBoxTimeout 0, sText, "", vbInformation + vbOKOnly, 0&, 3000
End Function
Sub test()
MsgBox " day la test DLLVB6"
End Sub
Sub test2()
MsgBox " day la test2 DLLVB6"
End Sub
Sub test3()
MsgBox " day la test2 DLLVB6"
End Sub3/ Lưu ý Files EXE và DLL tôi set cho nó ở chung 1 Folder đấy ... nếu tách nó ra thì ai đó tự viết lại code lấy nha
Toàn bộ code Úp lên cho ai thử vui vẻ chút ... cách trên tôi học được từ 1 tay code người Nga
Lần chỉnh sửa cuối:
