WebAngel
4/22/2005 1:00:00 PM
>> ?IAOEAOEOA, EAE ? OAAOA ?IAEIA?EOO dll?
> rtfm aka msdn
IO ?IO, IA?OEIAO:
1)
Viasual Basic.NET
'aAIIUE ?OEIAO EIIAOOOEOOAO ?UUI? ?OIEAEE IA?ONIOA EU DLL
'?OE ACI IA?EOAIEE N EO?IIOUI?AI OIIOEI ?OOOIAIIUA OOAAOO?A
'NUUEA Visual Basic.NET, IA ?OEAACAN E EO?IIOUI?AIEA
'AOOEAOOI?
Imports System
Public Module Application
'÷IO UOI E AOOO I?EOAIEA EI?IOOEOOAIIE ?OIEAEE
'EIOIOOA IU IAIAOAIU ?UUU?AOO ??IOIAAOO?EE
Declare Auto Function MessageBox Lib "user32.dll" ...
(hWnd As Integer,txt As String, caption As String, Typ As Integer) As
Integer
Sub Main()
'÷UUI? ?OIEAEE EU DLL
'iAOAOEOA ?IEIAIEA IA OE?U ?AOAIAOOI? IIE
'AIIOIU ?AOEI OI??AAAOO O OAIE ?OI IU I?EOAIE OAIAA
MessageBox(0,"Hello World","",0)
End Sub
End Module
2)
oI OA OAIIA, II O EO?IIOUI?AIEA AOOEAOOI?.
Imports System
'?IAEIA?EI OAO?EOU ?UAEIIAAEOO?EN O I?AOAAEIIIIE OEOOAIIE
Imports System.Runtime.InteropServices
Public Module Application
'?OEIAIEI AOOEAOO AIN OEAUAIEN OICI, ?OI ?OIEAEN
'AOAAO ?UUU?AOOON EU DLL User32.dll
"user32.dll")> _
Public Function MessageBox (hWnd As Integer, ...
txt As String, caption As String, Typ As Integer) As
Integer
End Function
Public Sub Main()
'÷UUI?AI, I?OAAAIAIIOA IAIE ?UUA ?OIEAEA
MessageBox(0,"Hello World","It's a very good day",0)
End Sub
End Module
--
eOI UIAAO, CAA IIOII OEA?AOO ?UOOO?IAIEA aOEE IA iAUAOO?EE 2001 CIAA -
oiiayeoa iia! ?IU