/ Forside/ Teknologi / Udvikling / VB Scripts / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB Scripts
#NavnPoint
technet 385
MouseKeep.. 300
Dark_Magi.. 250
Harlekin 200
AntonV 200
natmaden 200
EXTERMINA.. 200
gandalf 160
smorch 139
10  strarup 110
Hjælp til script???
Fra : Caine
Vist : 1326 gange
100 point
Dato : 13-04-03 01:14

Hej...
Er der en som kan hjælpe mig med dette?:

Option Explicit

Private Sub Command3_Click()
End
End Sub
Private Sub Dir1_Change()

File1.Path = Dir1.Path
File1.Pattern = ("*.*")

End Sub
Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub
Private Sub Command1_Click()
Dim FileName As String
Dim FileNum As Integer
Dim FileBytes() As Byte

If Right(File1.Path, 1) <> "\" Then

FileNum = File1.Path + "\" + File1.FileName
Else
FileNum = File1.Path + File1.FileName
End If

'Open File Here
'Veriable = "FileName"

FileName = File1.Path


'Reading File
ReDim FileBytes(FileLen(FileName) - 1)
FileNum = FreeFile
Open FileName For Binary Access Read As FileNum
Get #FileNum, , FileBytes
Close FileNum

'Encrypting/Decrypting Data
RC4 FileBytes, Text1.Text 'Password

'Save File Here
'Veriable = "FileName"
FileName = Text3

'Writing File
FileNum = FreeFile
Open FileName For Binary Access Write As FileNum
Put #FileNum, , FileBytes
Close FileNum
End Sub

Det skal forstille et crypterings program... Men efter complie kan den ikke finde den valgte fil...

/Caine

 
 
Accepteret svar
Fra : strarup

Modtaget 110 point
Dato : 13-04-03 01:34

Hej Caine,

det ligner meget noget af den kode der bliver brugt i dette eksempel... -->
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=15208&lngWId=1
den gør bl.a. også brug af et bas modul... jeg ved ikke om det evt. er den del du mangler...

mht. kryptering har de også en del andre eksempler inde i deres VB sektion... -->
http://makeashorterlink.com/?Y58813034

mvh.

Strarup

Kommentar
Fra : Caine


Dato : 13-04-03 01:42

Hej Strarup

Dine links fungér ikke helt...


Kommentar
Fra : strarup


Dato : 13-04-03 01:54

Hej Caine,

oki doki... underligt...

prøv http://www.planet-source-code.com
i søgnings feltet skriver du så "Encrypting" og vælger "Visual basic", en af de første resultater der kommer frem er _*New type of encryption*_ det var den jeg downloadede og kigge på... og koden lignede det du havde skrevet...

såvidt jeg husker ska' man være medlem hvis man ønsker at downloade mere end 3 ting fra deres side... men det er gratis og helt sikkert det værd... især hvis du ska' til at lege med kode...

mvh.

Strarup

Kommentar
Fra : Caine


Dato : 16-04-03 00:37

Hej Strarup

Nu har fundet ud af hvorfor dine links ikke virkede... !My Fault! Jeg havde ikke en account på planet-source-code

Men nu ser jeg lige på dem... (Tak for din gode hjælp!!!)

venlig hilsen
/Caine

Godkendelse af svar
Fra : Caine


Dato : 28-04-03 13:55

Tak for svaret strarup.
                        

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177577
Tips : 31968
Nyheder : 719565
Indlæg : 6409070
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste