salam20
چهارشنبه 04 اردیبهشت 1387, 09:57 صبح
سلام دوستان من لازم دارم فوری اشکال این کد برطرف بشه خواهش میکنم کمک کنید
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim Buffer As String
Buffer = String(255, 0)
GetComputerName Buffer, 255
Text1.Text = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Sub
این کد نام کامپیوتر را قراره برگردانه اگه کد دیگه ای دارید بذارید ممنون میشم اگر هم اشکال را برطرف کنید باز هم ممنون میشم
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim Buffer As String
Buffer = String(255, 0)
GetComputerName Buffer, 255
Text1.Text = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Sub
این کد نام کامپیوتر را قراره برگردانه اگه کد دیگه ای دارید بذارید ممنون میشم اگر هم اشکال را برطرف کنید باز هم ممنون میشم