Visual Basic Forum

Verfasst am: 10.12.2010, 09:50 Aufrufe: 490

Group = Array("group") Set r = Range("a2") For Each objGroup In Groups r = objGroup.Name r = " " & Right(r, Len(r) - 3) Set r = r.Offset(1) Next Sheets(2).Activate End End Sub Public Sub Ldap_User() On Error Resume Next Dim A As Range Set A = Range("c1") ...

Verfasst am: 16.07.2010, 11:03 Aufrufe: 544

Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(IntI) = ActiveSheet.Cells(IntI + 1, 2).Value 'MsgBox (Werte(IntI)) Next IntMin = Werte(1) For IntJ = 1 To IntAnzahl - ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

jetzt ist die frage wie ich das sortieren lasse, am besten mit ner for schleife dachte ich? Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(Int ...

Verfasst am: 17.01.2010, 19:31 Aufrufe: 793

SelText CBStör(j) = UserForm1.Controls("CBStör" & j).SelText For lauf = 1 To 49 If CBBT(j) = Cells(lauf, 1) Then Oberfläche(j) = Cells(lauf, 1).Offset(0, i) End If If CBStör(j) = Cells(lauf, 1) Then Störfläche(j) = Cells(lauf, 1).Offset(0, i) End If Next lauf Next j End ...

Verfasst am: 29.06.2009, 15:15 Aufrufe: 1372

Mit .NET brachte Microsoft den heiligen Gral des Mutlithreadings zu den VB Programmierern. Bis dahin mußten wir uns mit DoEvents vor UI Lockups bewahren, oder noch schlimmer Out Of Process ActiveX-Exen programmieren um diese zu verhinden. Programmieren mit Threads bringt jedoch neue Probleme mit sich wie Deadlocks, nicht mehr ansprechbare Controls da diese in einem anderen Thread laufen usw.Dieses kleine VB.NET 2005 ...

Verfasst am: 15.06.2009, 16:51 Aufrufe: 686

... EL-Taste Private Const VK_EXSEL = &HF8 ' EXSEL-Taste Private Const VK_EREOF = &HF9 ' EREOF-Taste Private Const VK_PLAY = &HFA ' PLAY-Taste Private Const VK_ZOOM = &HFB ' ZOOM-Taste Private Const VK_NONAME = &HFC ' NONAME-Taste Private Const VK_PA1 = &HFD ' PA1-Taste Private Const VK_OEM_CLEAR = &HFE ' OEM_CLEAR-Taste Dim mouseOffset ...

Verfasst am: 02.06.2009, 23:03 Aufrufe: 576

... ainer-(gamehacking)-statische-adresse-freezen-t1860.html Ich wollte jetzt einen Trainer machen mit dem ich die Value einer Adresse ändern kann, das Problem das ich für die Adresse einen Multiply Pointer (denk ma es heist so) brauch. In Cheat Engine klappt das auch ganz gut, aber ich weis halt nicht wie ich das in vb6 machen kann. Öhm so wie ich das verstanden habe ist Value von der Pointeradresse + Offset ...

Verfasst am: 16.04.2009, 09:06 Aufrufe: 686

Open("C:\Dokumente und Einstellungen\Sämi\Eigene Dateien\text.xls") xlBlatt = xlMappe.Worksheets(1) xlZelle = xlBlatt.Range("A1") intZeilen = xlZelle.CurrentRegion.Rows.Count xlZelle.Offset(intZeilen, 0).Value = intZeilen xlZelle.Offset(intZeilen, 1).Value = Today() xlZelle.Offset(intZeilen, 2).Value = _ Label1.Text xlZelle.Of ...

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: 28.09.2008, 23:50 Aufrufe: 5560

Comparing on changes in cond jumps, animate over/in, breakpoints06. "The plain stupid patching method", searching for textstrings07. Intermediate level patching, Kanal in PEiD08. Debugging with W32Dasm, RVA, VA and offset, using LordPE as a hexeditor09. Explaining the Visual Basic concept, introduction to SmartCheck and configuration10. Continued reversing techniques in VB, use of decompilers and a basic anti-anti-tr ...

Verfasst am: 20.09.2008, 17:52 Aufrufe: 2174

The local file name will be created or will be overwritten, but the path must exist. Public Sub DownloadFile(ByVal sFileName As String, _ ByVal sLocalFileName As String, _ ByVal bResume As Boolean) Dim st As Stream Dim output As FileStream Dim cSocket As Socket Dim offset, npos As Long SetBinaryMode(True) If (sLocalFile ...

Verfasst am: 17.08.2008, 13:58 Aufrufe: 381

Ja Delphi is immerhin leichter zu verstehen als c++.Ich hab jetzt noch nich so wirklich verstanden wie ich das offset des neuen section berechne.Könntest du das vll. nochma erklären??

Verfasst am: 17.08.2008, 13:49 Aufrufe: 381

Verfasst am: 20.04.2008, 18:38 Aufrufe: 7121

Da mir total langweilig war/ist: N Patcher für das Ding von Mir von Euch: http://rapidshare.com/files/109037128/Steam-Stealer_by__BadBoyGER_Patch.rar @BadBoyGER Wie wärs wenn du das Ding wenigstens Packst. So brauchte ich genau 30 sek. den Offset zu finden das doch langweilig. @H4CK4 K1NG0 Und was soll das Bringen? Das tut doch gar nix zur sache.

Verfasst am: 15.04.2008, 06:28 Aufrufe: 1590

Hier hast du mal was. Das Deklarierst und Definierst du Global Private in der Klasse deiner Form Private mouseOffset As Point Private isMouseDown As Boolean = False Dann nutzt du die Mouse Events einfach. Private Sub frmCustom_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown Dim xOffset As Integer Dim yOffset As ...

Verfasst am: 13.03.2008, 13:48 Aufrufe: 2330

Das Beispiel dafür sieht genau gleich aus wie das vorhergehende, nur müssen wir in der .data Section folgendes hinzufügen: RemContext CONTEXT <> Und der CreateRemoteThread-Aufruf muss ersetzt werden mit: mov RemContext.ContextFlags, CONTEXT_FULL push offset RemContext push PInfo.hThread call GetThreadContext ; wir laden den Kontext den der Thread zur Zeit hat mov RemContext.regEIP, offset Hijacke ...

Verfasst am: 11.03.2008, 14:23 Aufrufe: 623

Verfasst am: 11.03.2008, 08:46 Aufrufe: 623

Sorry, aber ich muß euch alle entäuschen Mr. Green

Ich seh das sehr oft, dass das Wort Offset(s) für die signaturen/strings benutzt wird, aber das ist eigentlich nicht richtig. Ein Offset ist nichts anderes als die Position/Adresse in einer Datei. @King of Chaos Ähm, etwas schlecht gewählte strings. Klar sind die typisch für diese Dateien, aber sind auch leicht änderbar.

Verfasst am: 11.03.2008, 08:13 Aufrufe: 623

Uhh was denkst du das die Offsets sind? Solch ein Offset kann Auch für deine Strings stehen, manchmal auch für Code. Is halt ein Oberbegriff. Aber jeder der ma ne Datei im Hexeditor aufgmacht hat sollte das wissen Wink

Verfasst am: 14.01.2008, 19:46 Aufrufe: 2645

AV Devil ist ein Programm zum ermitteln der offset einer Datei, auf die ein Antivirus Programm reagiert. Also kleine Teile der Datei, die die Anti Virus Software als schlecht also Malware erkennt. AV Devil geht da so vor, dass er immer Stückchenweise dieser Datei an einen anderen Ort schreibt und wartet bis der aktive Antivirus reagiert und den Schreibvorgang blockt. So grenzt AV Devil den Anfang und das End ...

Verfasst am: 14.01.2008, 16:13 Aufrufe: 2645

Du brauchst keine Hex Codes wenn du eine Art AV Devil coden willst. Das einzige was du machen mußt ist, die Datei Teilchenweise auszulesen und wo anders zu schreiben. Jedenfalls für einen simplen Offset Finder.

Verfasst am: 05.01.2008, 01:48 Aufrufe: 6480

... eXBytes(&H101757C, "0130") End Sub mfg EDIT: man kann genausogut auch writeNOPS (adresse , anzahl NOPs) zum freezen nehmen(ein NOP ist eine 90, also bei uns 4), weil ich hatt schonmal ne adresse, die mehr 90 hatte als es in hex werten zugelassen ist. EDIT2: @killer http://www.extalia.com/forums/viewtopic.php?f=22&t=2433 da steht wie man der mit der base adress und dem offset ...

Verfasst am: 04.01.2008, 22:45 Aufrufe: 6480

00BD8C94 ; UNICODE "UIIT_STT_LV_LEVEL" Ein paar Zeilen tiefer: 0059ACBB 8B3D 7C99CE00 MOV EDI,DWORD PTR DS: Unsere Hauptadresse ist CE997C Zitat: 0059ACBB 8B3D 7C99CE00 MOV EDI,DWORD PTR DS: Unsere Offset: 794 0059ACC1 0FB6BF 1C08000>MOVZX EDI,BYTE PTR DS: Umgesetzt in C++ Wäre das dann dies: mem1 = ReadMemory(sroProcess, 0xCA433C]); (notice the "0x" because it is hex) v ...

Verfasst am: 03.03.2005, 16:08 Aufrufe: 433

Hallo, ich möchte eine relativ grosse Datenmenge in ein Excel-Sheet einfügen. Die Daten schreibe ich folgendermassen in die Spalten: oDelphi.getFieldAsVariant "xl_BEW_ADR", "GEMEINDE", fldValue oExcel.ActiveCell.Offset(0,1).Value = fldValue Bei vielen Daten dauert das eine kleine Ewigkeit... Gibt es auch eine andere Möglichkeit? Vielen Dank!