|
|
|
|
| |
bilgisayarın adını öğrenme |
|
| |
bilgisayarın adını öğrenme
Private Declare Function GetComputerName_ Lib "kernel32" Alias "GetComputerNameA" (ByVal_ lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim s As String
s = Space(255)
Call GetComputerName(s, 255)
MsgBox ("bilgisayarın ad:" & s)
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24646 ziyaretçi (38796 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
