chargen
جمعه 22 مهر 1384, 21:47 عصر
سلام به همگی. من سوالی دارم که اگه لطف کنید جواب بدید خییلی ممنون میشم :
1. اگه میشه کمی در باره این برنامه کوچیک توضیح بدید .اشکال اصلی من در استفاده از توابع ای پی آی هست. مثلا همین تابع getcomputername دو تا ارگومان ورودی یکی از نوع string و اون یکی از نوع long میگیره . حاالا من سوالم اینه که این string و long رو از کجا بیارم؟و منظورش چیه؟! کد :
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
1. اگه میشه کمی در باره این برنامه کوچیک توضیح بدید .اشکال اصلی من در استفاده از توابع ای پی آی هست. مثلا همین تابع getcomputername دو تا ارگومان ورودی یکی از نوع string و اون یکی از نوع long میگیره . حاالا من سوالم اینه که این string و long رو از کجا بیارم؟و منظورش چیه؟! کد :
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub