| Вопрос: Реальна-сложная проблема с файлом и winsock | Добавлено: 02.03.07 18:59 |
Автор вопроса:  Андрюха
|
|
И так начнем.
Есть клиент и сервер клиент отправляет запрос на определене логина и пасса для каждого клиента свой файл с инфон например есть логин diablo то и файл с данными тожен diablo.txt tcp.SendData login.text и как заставить сервер читать login.text If strData = <что тут писать что бы все корректно работало> Then k = FreeFile Open "account/" & strData For Input As k For i = 1 To 3 Input #k, aa(i) Next i Close #k sckServer(intMax).SendData "loginok" End If |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 02.03.07 19:20 |
|
Передавать пароли по сети в незашифрованном виде как минимум
неприлично. |
||
|
Номер ответа: 2 Автор ответа: Андрюха Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 02.03.07 19:32 |
|
Спасибо это я уже сделал
теперь вопрос другой. В файле diablo.txt например есть строка MONEY=10000 что бы клиент принял число 10000 и поставил в money.caption = "10000" и так далее HITS=100 NAME=Diablo INTELECK=2 ... hits.caption = "100" и так далее и при изменении параметров изменял файл DIABLO.txt если игроку нанесли урон на 50 hp то строка HITS обновилась на число урона в файле diablo.txt на сервере |
||
|
Номер ответа: 3 Автор ответа:  Programmer Вопросов: 71 Ответов: 246 |
Профиль | | #3 | Добавлено: 03.03.07 18:41 |
|
Используй INI класс.
[Account] HITS=100 NAME=Diablo INTELECK=2 |
||
|
Номер ответа: 4 Автор ответа: ProgrammerВопросов: 71 Ответов: 246 |
Профиль | | #4 | Добавлено: 03.03.07 18:46 |
|
Воть, в блокноте напиши и сохрани как CINIFile.cls.
Потом добавь в проект. Использование: Dim INI a new CInifile INI.Path="account\diablo.txt" INI.Section="Account" INI.Key="NAME" MsgBox "Имя:" & INI.Value VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "cInifile" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit ' ========================================================= ' Class: cIniFile ' Author: Steve McMahon ' Date : 21 Feb 1997 ' ' A nice class wrapper around the INIFile functions ' Allows searching,deletion,modification and addition ' of Keys or Values. ' ' Updated 10 May 1998 for VB5. ' * Added EnumerateAllSections method ' * Added Load and Save form position methods ' ========================================================= Private m_sPath As String Private m_sKey As String Private m_sSection As String Private m_sDefault As String Private m_lLastReturnCode As Long #If Win32 Then ' Profile String functions: Private Declare Function WritePrivateProfileString Lib "KERNEL32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "KERNEL32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpDefault As Any, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long #Else ' Profile String functions: Private Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Integer Private Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As Any, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer #End If Property Get LastReturnCode() As Long LastReturnCode = m_lLastReturnCode End Property Property Get Success() As Boolean Success = (m_lLastReturnCode <> 0) End Property Property Let Default(sDefault As String) m_sDefault = sDefault End Property Property Get Default() As String  efault = m_sDefault
End Property Property Let Path(sPath As String) m_sPath = sPath End Property Property Get Path() As String Path = m_sPath End Property Property Let Key(sKey As String) m_sKey = sKey End Property Property Get Key() As String Key = m_sKey End Property Property Let Section(sSection As String) m_sSection = sSection End Property Property Get Section() As String Section = m_sSection End Property Property Get Value() As String Dim sBuf As String Dim iSize As String Dim iRetCode As Integer sBuf = Space$(255) iSize = Len(sBuf) iRetCode = GetPrivateProfileString(m_sSection, m_sKey, m_sDefault, sBuf, iSize, m_sPath) If (iSize > 0) Then Value = Left$(sBuf, iRetCode) Else Value = "" End If End Property Property Let Value(sValue As String) Dim iPos As Integer ' Strip chr$(0): iPos = InStr(sValue, Chr$(0)) o While iPos <> 0
sValue = Left$(sValue, (iPos - 1)) & Mid$(sValue, (iPos + 1)) iPos = InStr(sValue, Chr$(0)) Loop m_lLastReturnCode = WritePrivateProfileString(m_sSection, m_sKey, sValue, m_sPath) End Property Public Sub DeleteKey() m_lLastReturnCode = WritePrivateProfileString(m_sSection, m_sKey, 0&, m_sPath) End Sub Public Sub DeleteSection() m_lLastReturnCode = WritePrivateProfileString(m_sSection, 0&, 0&, m_sPath) End Sub Property Get INISection() As String Dim sBuf As String Dim iSize As String Dim iRetCode As Integer sBuf = Space$(8192) iSize = Len(sBuf) iRetCode = GetPrivateProfileString(m_sSection, 0&, m_sDefault, sBuf, iSize, m_sPath) If (iSize > 0) Then INISection = Left$(sBuf, iRetCode) Else INISection = "" End If End Property Property Let INISection(sSection As String) m_lLastReturnCode = WritePrivateProfileString(m_sSection, 0&, sSection, m_sPath) End Property Property Get Sections() As String Dim sBuf As String Dim iSize As String Dim iRetCode As Integer sBuf = Space$(8192) iSize = Len(sBuf) iRetCode = GetPrivateProfileString(0&, 0&, m_sDefault, sBuf, iSize, m_sPath) If (iSize > 0) Then Sections = Left$(sBuf, iRetCode) Else Sections = "" End If End Property Public Sub EnumerateCurrentSection(ByRef sKey() As String, ByRef iCount As Long) Dim sSection As String Dim iPos As Long Dim iNextPos As Long Dim sCur As String iCount = 0 Erase sKey sSection = INISection If (Len(sSection) > 0) Then iPos = 1 iNextPos = InStr(iPos, sSection, Chr$(0)) o While iNextPos <> 0
sCur = Mid$(sSection, iPos, (iNextPos - iPos)) If (sCur <> Chr$(0)) Then iCount = iCount + 1 ReDim Preserve sKey(1 To iCount) As String sKey(iCount) = Mid$(sSection, iPos, (iNextPos - iPos)) iPos = iNextPos + 1 iNextPos = InStr(iPos, sSection, Chr$(0)) End If Loop End If End Sub Public Sub EnumerateAllSections(ByRef sSections() As String, ByRef iCount As Long) Dim sIniFile As String Dim iPos As Long Dim iNextPos As Long Dim sCur As String iCount = 0 Erase sSections sIniFile = Sections If (Len(sIniFile) > 0) Then iPos = 1 iNextPos = InStr(iPos, sIniFile, Chr$(0)) o While iNextPos <> 0
If (iNextPos <> iPos) Then sCur = Mid$(sIniFile, iPos, (iNextPos - iPos)) iCount = iCount + 1 ReDim Preserve sSections(1 To iCount) As String sSections(iCount) = sCur End If iPos = iNextPos + 1 iNextPos = InStr(iPos, sIniFile, Chr$(0)) Loop End If End Sub Public Sub SaveFormPosition(ByRef frmThis As Object) Dim sSaveKey As String Dim sSaveDefault As String On Error GoTo SaveError sSaveKey = Key If Not (frmThis.WindowState = vbMinimized) Then Key = "Maximised" Value = (frmThis.WindowState = vbMaximized) * -1 If (frmThis.WindowState <> vbMaximized) Then Key = "Left" Value = frmThis.Left Key = "Top" Value = frmThis.Top Key = "Width" Value = frmThis.Width Key = "Height" Value = frmThis.Height End If End If Key = sSaveKey Exit Sub SaveError: Key = sSaveKey m_lLastReturnCode = 0 Exit Sub End Sub Public Sub LoadFormPosition(ByRef frmThis As Object, Optional ByRef lMinWidth = 3000, Optional ByRef lMinHeight = 3000) Dim sSaveKey As String Dim sSaveDefault As String Dim lLeft As Long Dim lTOp As Long Dim lWidth As Long Dim lHeight As Long On Error GoTo LoadError sSaveKey = Key sSaveDefault = Default efault = "FAIL"
Key = "Left" lLeft = CLngDefault(Value, frmThis.Left) Key = "Top" lTOp = CLngDefault(Value, frmThis.Top) Key = "Width" lWidth = CLngDefault(Value, frmThis.Width) If (lWidth < lMinWidth) Then lWidth = lMinWidth Key = "Height" lHeight = CLngDefault(Value, frmThis.Height) If (lHeight < lMinHeight) Then lHeight = lMinHeight If (lLeft < 4 * Screen.TwipsPerPixelX) Then lLeft = 4 * Screen.TwipsPerPixelX If (lTOp < 4 * Screen.TwipsPerPixelY) Then lTOp = 4 * Screen.TwipsPerPixelY If (lLeft + lWidth > Screen.Width - 4 * Screen.TwipsPerPixelX) Then lLeft = Screen.Width - 4 * Screen.TwipsPerPixelX - lWidth If (lLeft < 4 * Screen.TwipsPerPixelX) Then lLeft = 4 * Screen.TwipsPerPixelX If (lLeft + lWidth > Screen.Width - 4 * Screen.TwipsPerPixelX) Then lWidth = Screen.Width - lLeft - 4 * Screen.TwipsPerPixelX End If End If If (lTOp + lHeight > Screen.Height - 4 * Screen.TwipsPerPixelY) Then lTOp = Screen.Height - 4 * Screen.TwipsPerPixelY - lHeight If (lTOp < 4 * Screen.TwipsPerPixelY) Then lTOp = 4 * Screen.TwipsPerPixelY If (lTOp + lHeight > Screen.Height - 4 * Screen.TwipsPerPixelY) Then lHeight = Screen.Height - lTOp - 4 * Screen.TwipsPerPixelY End If End If If (lWidth >= lMinWidth) And (lHeight >= lMinHeight) Then frmThis.Move lLeft, lTOp, lWidth, lHeight End If Key = "Maximised" If (CLngDefault(Value, 0) <> 0) Then frmThis.WindowState = vbMaximized End If Key = sSaveKey efault = sSaveDefault
Exit Sub LoadError: Key = sSaveKey efault = sSaveDefault
m_lLastReturnCode = 0 Exit Sub End Sub Public Function CLngDefault(ByVal sString As String, Optional ByVal lDefault As Long = 0) As Long Dim lR As Long On Error Resume Next lR = CLng(sString) If (Err.Number <> 0) Then CLngDefault = lDefault Else CLngDefault = lR End If End Function |
||
Страница: 1 |