Заморочка EXE -> vbS -> EXE

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Pipa
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 20.07.2003 (Вс) 12:41

Заморочка EXE -> vbS -> EXE

Сообщение Pipa » 26.03.2004 (Пт) 1:41

Мне нада такую фишку:
Есть ехе-шник, я перевожу его в хексы и запихиваю какнить в масив (во время записи в vbs заполняю ячейки массива)
потом мне нада чтобы при запуске vbs этот хекс который в массиве опять стал ехе-шником, плз хлп. Горю, через неделю сдавать курсовик, а я не могу написать, запутался конкретно!
Снкс

g0r0d0k@kharkov.com

Dzhon
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 236
Зарегистрирован: 09.12.2003 (Вт) 13:30
Откуда: Россия, Омск

Сообщение Dzhon » 26.03.2004 (Пт) 6:26

Нада тык нада!
Здесь не ставят задачи, здесь просят помочь!
ПЛЗ! :wink:

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 26.03.2004 (Пт) 10:21

Да ладно тебе Dzhon , он волнуется вот код не мой из статьи Sync'а



Const FILE_BINARY = "C:\1.exe" 'существующий EXE
Const FILE_TEXT = "C:\1.txt" 'temp

Option Explicit

Sub main()
Dim btArray() As Byte, str As String

MsgBox "Íà÷èíàåì ïèñàòü òåêñò"
'==×èòàåì äâîè÷íûé, ïèøåì - òåêñò...
Open FILE_BINARY For Binary As #1
ReDim btArray(LOF(1) - 1)
Get #1, , btArray
str = TranslateBytesToString(btArray)
Close #1
Open FILE_TEXT For Output As #1
Print #1, str
Close #1
MsgBox "Òåêñò çàïèñàí!" & vbCrLf & "Äåëàåì âñå â îáðàòíîì ïîðÿäêå"

str = ""
'==×èòàåì òåêñò, ïèøåì - äâîè÷íûé...
Open FILE_TEXT For Input As 1
Line Input #1, str
Close #1
TranslateStringToBytes str, btArray
Open FILE_BINARY & "(copy)" For Binary As #1
Put #1, , btArray
Close #1
MsgBox "Ãîòîâî!"
End Sub

'==TranslateBytesToString - ôóíêöèÿ âîçâðàùàåò ñòðîêó, à îáðàáàòûâàåò áàéòîâé ìàññèâ
Public Function TranslateBytesToString(ByRef bt() As Byte) As String
Dim I As Long
Dim rt As String
rt = Space(UBound(bt) * 2 + 1)
For I = 0 To UBound(bt)
Mid(rt, I * 2 + 1, 2) = IIf(bt(I) < &H10, "0", "") & Hex(bt(I))
Next
TranslateBytesToString = rt
End Function

'==TranslateStringToBytes - ôóíêöèÿ îáðàðáàòûâàåò ñòðîêó, à ðåçóëüòàò ïîìåùàåò â ìàññèâ bt
Public Sub TranslateStringToBytes(ByVal vl As String, ByRef bt() As Byte)
Dim I As Long
ReDim bt(Len(vl) \ 2 - 1)
For I = 0 To UBound(bt)
bt(I) = CByte("&H" & Mid(vl, (I * 2) + 1, 2))
Next
End Sub

Private Sub Form_Load()
main
End Sub


8)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 26.03.2004 (Пт) 20:39

Ñëåäè çà êîäèðîâêîé, Ìèêà! ;)
Следи за кодировкой! :)
Нет меня больше

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 27.03.2004 (Сб) 12:22

А вот это меня на самом деле бесит!!! :( :twisted:
Если копирую код откуда нибудь с русским rem'ами то в VB они становятся Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь! Я идиот! Убейте меня, кто-нибудь!???? Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь! а если наоборот то ôóíêöèÿ âîçâðàùàåò ñòðîêó, à îáðàáàòûâàåò áàéòîâé ìàññèâ
:twisted:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 29.03.2004 (Пн) 9:29

Вставь этот текст в редактор FAR, в нем скопируй еще раз, а потом вставь в форум, будет нормально. Вместо FAR можешь использовать Word.
Это бывает с теми программами, которые не совсем правильно размещают текст в буфер обмена.
Lasciate ogni speranza, voi ch'entrate.

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 30.03.2004 (Вт) 10:06

Ага а может еще плугин для него написать :D
Это таго не стоит
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2056
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 30.03.2004 (Вт) 18:31

( Не по теме, но всё же ) - А я чтоб таких траблов не иметь, использую блокнот. Открываю код формы через него 8) :D

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 30.03.2004 (Вт) 20:25

Ну и удобно в блакноте редактировать потом сохранять, заходить в VB загружать проект и запкускать :( :wink:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11

    TopList