xeng
Typ:
neutral
Postów: 102
Zarejestrowany: May 2002
|
|
O rany ! Example :
'zeby zakumać zrób tak
'w module:
Public 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
Public Declare Function GetPrivateProfileString Lib "KERNEL32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function OdczytajINI(Sekcja As String, Key As String, Directory As String) As String
Dim strBuffer As String
strBuffer = String(750, Chr(0))
Key$ = LCase$(Key$)
OdczytajINI$ = Left(strBuffer, GetPrivateProfileString(Sekcja$, ByVal Key$, "", strBuffer, Len(strBuffer), Directory$))
End Function
Public Sub ZapiszINI(Sekcja As String, Key As String, KeyValue As String, Directory As String)
Call WritePrivateProfileString(Sekcja$, UCase$(Key$), KeyValue$, Directory$)
End Sub
'do kodu formy wklej se :
Dim Klucz As String, DataString As String, Temp As String
Sub Kodowanie()
Dim I As Integer
Dim Mieszacz As Integer
Klucz = "12345"
Temp$ = ""
For I% = 1 To Len(DataString$)
Mieszacz% = (I% Mod Len(Klucz$)) + 1
Temp$ = Temp$ + Chr$(Asc(Mid$(DataString$, I%, 1)) Xor Asc(Mid$(Klucz$, Mieszacz%, 1)))
Next I%
End Sub
Private Sub Command1_Click()
DataString = "to jest ukryty komunikat"
Kodowanie
ZapiszINI "Kody", "KOd1", Temp$, App.Path & " \ a.dat"
End Sub
Private Sub Command2_Click()
DataString = OdczytajINI("Kody", "KOd1", App.Path & " \ a.dat" )
Kodowanie
Print Temp$
End Sub
'-------------------koniec------------------
ale teraz jak zmieniac klucz na zyczeni dojdz sobie sam.jak Ci tak wszystko podać to gdzie przyjemnośc z programowania ?
aha command buttony daj jakąś jedna wysokośc commandbuttona od góry bo print moze sie odbyc
pod nimi 
Moze być tez DataString = Text1.text
[Post edytowany dnia 19-05-2002 19:30 przez xeng]
_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.
|