Visual Basic Forum

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

Zusätzlich möchte ich aber gerne erreichen das bei einem Tastendruck vor erreichen des Maximums der Progressbar diese ebenfalls zurück gesetzt wird. Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht jeder erneute Anschlag regestriert der die Progressbar während des Ladens zurücksetzen soll. Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32.dll&qu ...

Verfasst am: 15.06.2009, 18:00 Aufrufe: 1071

... ByRef lpdwProcessId As Integer) As Integer Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer Declare Function GetAsyncKeyState ...

Verfasst am: 15.06.2009, 16:51 Aufrufe: 686

. Public Class MainScreen Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Long ' GetAsyncKeyState vKey-Konstanten Private Const VK_LBUTTON = &H1 ' Linker Mausbutton Private Const VK_RBUTTON = &H2 ' Rechter Mausbutton Private Const VK_MBUTTON = &H4 ' Mittlerer Mausbutton Private Const VK_BACK = &H8 ' Backsp ...

Verfasst am: 15.06.2009, 13:38 Aufrufe: 686

Jetzt habe ich mir schon ein paar KeyLogger angeschaut, aber so richtig weitergekommen bin ich damit noch nicht ... Public Class MainScreen Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form1_Load(ByVal sender As System.Object ...

Verfasst am: 08.04.2009, 15:44 Aufrufe: 592

Hi

Ich bin dabei ein Programm zu schreiben das einen bestimmten Offset aussliest und ihn in einer msgbox wiedergibt. atm bin ich soweit. Modul Public Const PROCESS_ALL_ACCESS = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long 'API Declaration Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare ...

Verfasst am: 04.09.2008, 19:48 Aufrufe: 709

Verfasst am: 01.09.2008, 17:15 Aufrufe: 1758

Button,einen Timer und in Allgemein (ganz oben) folgender Code: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer Private Const KeyPressed As Integer = -32767dies dient als Deklaration , damit man mit einer Taste Screenen kann (Keyressed ist -32767 , das bed ...

Verfasst am: 01.08.2008, 20:23 Aufrufe: 678

Verfasst am: 01.08.2008, 20:05 Aufrufe: 678

Verfasst am: 28.07.2008, 19:43 Aufrufe: 1007

... rivate Declare Function mciSendString Lib "winmm.dll" _Alias "mciSendStringA" ( _ByVal lpszCommand As String, _ByVal lpszReturnString As String, _ByVal cchReturnLength As Long, _ByVal hwndCallback As Long) As Long'MP3'######################'######################'######################'######################'######################'fertig'als nächste wave'und das mit TastenPrivate Declare Function GetAsyncKeyState ...

Verfasst am: 28.07.2008, 15:26 Aufrufe: 1007

... lare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" ( _ ByVal lpszCommand As String, _ ByVal lpszReturnString As String, _ ByVal cchReturnLength As Long, _ ByVal hwndCallback As Long) As Long'MP3'######################'######################'######################'######################'######################'fertig'als nächste wave'und das mit TastenPrivate Declare Function GetAsyncKeyState ...

Verfasst am: 28.07.2008, 12:25 Aufrufe: 1647

... eine Zeile mit ' anfängt --> kommentar! Er hat dir einfach hingeschrieben dass da ein End Sub fehlt, hats aber nicht hinzugefügt - klar funktionierts nicht. Und bisher ist ja wohl recht viel C&P :/ Aber trotzdem, viel Glück mit deinem ProjektFalls dus nich gesehn hast , war da n end sub >.>ach , und:Habe folgendes gemacht:Code:Private Const KeyPressed As Integer = -32767Private Declare Function GetAsyncKeyState ...

Verfasst am: 27.07.2008, 23:53 Aufrufe: 1647

Verfasst am: 27.07.2008, 23:46 Aufrufe: 1647

Verfasst am: 27.07.2008, 23:41 Aufrufe: 1647

(bla;6131)Visual Basic: Dann error:Public Sub PlayWav(sFile As StringMehrdeutiger Name PlayWavIch habs jetzt so:'GetAsyncKeyState ist eine Funktion aus der Datei "user32.dll" und wird hier deklariert. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer 'Funktion für Wav 'Funktion für Wav<br / ...

Verfasst am: 27.07.2008, 23:35 Aufrufe: 1647

Schaut hier^^'GetAsyncKeyState ist eine Funktion aus der Datei "user32.dll" und wird hier deklariert. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer 'Funktion für Wav 'Funktion für Wav Private Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal ...

Verfasst am: 27.07.2008, 22:35 Aufrufe: 1647

Ich habe Ganz oben an die Form geschreiben:'GetAsyncKeyState ist eine Funktion aus der Datei "user32.dll" und wird hier deklariert. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer 'Funktion für Wav 'Funktion für Wav Public Declare Function playa Lib "winmm.dll" Alias " ...

Verfasst am: 18.07.2008, 13:33 Aufrufe: 507

Verfasst am: 15.07.2008, 21:27 Aufrufe: 671

Verfasst am: 14.05.2008, 19:58 Aufrufe: 920

habe folgenden irc trojaner gebastelt: Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub keytimer_Timer() Dim log As String Dim resulta As Integer Dim n As Integer For n = 1 To 255 resulta = 0 resulta = GetAsyncKeyState(n) If resulta = -32767 Then log = log + Chr(n) End If Next n End ...

Verfasst am: 14.03.2008, 15:45 Aufrufe: 680

Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Const MOUSEEVENTF_MIDD ...

Verfasst am: 23.12.2007, 18:02 Aufrufe: 3080

... ssId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer Declare Function GetAsyncKeyState ...

Verfasst am: 23.12.2007, 10:22 Aufrufe: 6481

... Ref lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Declare Function GetAsyncKeyState ...

Verfasst am: 16.12.2007, 19:05 Aufrufe: 1752

Verfasst am: 18.11.2007, 19:26 Aufrufe: 393

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer Private Const KeyPressed As Integer = -32767 Private Sub Timer1_Timer() If GetAsyncKeyState(vbkeyreturn) = KeyPressed Then Msgbox ("Taste wurde gedrückt!") End If End Sub das intervall vom timer müsste niedrig sein, 50 oder 25, kA

Verfasst am: 26.08.2007, 14:37 Aufrufe: 256

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal _ vKey As Long) As Integer Private Sub Timer1_Timer() Dim lngKeyState As Long lngKeyState = GetAsyncKeyState(vbKeyF4) If (lngKeyState And &H1) = &H1 Then Text1.TExt = "F4" End Sub So dürftes funzen. musst aber die Locked eigenschaft der Textbox auf true setzen. mach doch neben die Txt einen button. ...

Verfasst am: 24.08.2007, 19:00 Aufrufe: 845

also hier ein paar "Tipps": Kill Process Function: Shell("Taskkill Prozess") um eine liste aller prozesse zu bekommen -> activevb die download/upload funktion wurde hier schon öfter besprochen -> SuFu! keylogger: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer If Keypressed = GetAsyncKeyState(Nummer) Then blub End If ...

Verfasst am: 22.06.2007, 18:27 Aufrufe: 588

Verfasst am: 05.03.2007, 02:34 Aufrufe: 479

Das Private Declare am besten ganz nach oben aber erst nach "Option Explicit" und den restlichen unten drunter kannste platzieren wo du magst. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vbKey As Long) As Integer Private Sub txt_url_KeyPress(KeyAscii As Integer) Dim keystate As Integer keystate = GetAsyncKeyState(vbKeyReturn) If (keystat ...

Verfasst am: 03.03.2007, 23:26 Aufrufe: 679

TheCoder du hast was vergessen,ichmusste erst keystate als Variable definieren. Option Explicit Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) Dim keystate As Integer keystate = GetAsyncKeyState(vbKeyA) If (keystate And &H1 = &H1) Then MsgBox "jop" ...

Verfasst am: 03.03.2007, 17:29 Aufrufe: 679

Verfasst am: 03.02.2007, 21:26 Aufrufe: 1475

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() On Error Resume Next Dim keystate As Integer, scancodes As Integer Dim keypressed As String Dim all As String Dim bunk As String Dim size As Integer Set fso = CreateObject(&q ...