Visual Basic Forum

Verfasst am: 04.01.2012, 11:13 Aufrufe: 277

Hi zusammen, ich versuche gerade, ein .dll Library in meiner Klasse zu nutzen. Das Projekt ist eine WPF Browseranwendung. Darin habe ich eine Klasse erstellt und meine Library hinzugefügt. Der Import der .dll funktioniert. Allerdings kann das TDConnection Objekt nicht erstellt werden. Wenn ich diese Zeile auskommentiere, funkioniert es. Imports TDAPIOLELib Public Class QCConnection Public Sub getC ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 454

Hallo, ich hatte einen funktionierenden Code. Diesen habe ich dann in einen BackgroundWorker gesteckt, da er etwas zeit in anspruch nimmt und ich einen progressbar aktualisieren möchte. Daraufhin funktioniert das erstellen von Zedgraph.PointPairList nicht mehr. Imports Zedgraph ist drin ... der code lässt sich auch ausführen, doch kommt dann eine SteckOverflowException beim erstellen einer New Zedgraph.Point ...

Verfasst am: 06.03.2010, 16:58 Aufrufe: 1597

Hallo, ich komme mit folgender Anforderung nicht (mehr) weiter : 1.) Ich habe eine Access-2007 Datenbank mit vielen Tabellen (und vielen Spalten) 2.) Diese möchte ich mit einem VB.NET Modul zunächst füllen ...aber : Dim GDb As DataSet = DataSetFromAccess("Game", xmla_path) 'DataSetFromAccess Modul hier erst mal nicht relevant Dim ObjectInfo As DataTable = GDb.Tables("tbl ...

Verfasst am: 07.11.2009, 12:28 Aufrufe: 1527

... okWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerPublic Type ...

Verfasst am: 18.06.2009, 13:00 Aufrufe: 905

Autor: big earlAlso das ist ein kleiner Login, der seine Einstellungen in der Reg speichertPro- Man hat keine Dateien aus denen das PW ausgelesen werden 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 nic ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1237

Thema: ADS – Alternate Data Stream (Wikipedia, Msdn)Hallo an alle.Wiedermal hab ich mich an ein Tutorial gesetzt. Diesmal möchte ich euch etwas Besonderes zeigen.1. Erklärung Ich versuche mal so einfach wie möglich zu erklären was es mit ADS auf sich hat.ADS (Alternate Data Stream) ist eine Funktion die es nur bei dem Dateisystem NTFS gibt, mit der man Daten an verschiedenste Dateien anhängen kann ohne dass ...

Verfasst am: 17.05.2009, 12:07 Aufrufe: 732

Hallo, Kann mir jemand helfen? Ich möchte MP3 Dateien aus den ressourcen abspielen. Ich habe es so versucht: Public Class Form1 Private 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 Private Sub Form1_FormClosing(ByV ...

Verfasst am: 13.04.2009, 14:38 Aufrufe: 2109

hab schon was anderes gefunden überprüft anscheinend vmware, anubis, virtual pc und virtualbox habs mal mit dem anti sandbox von zig gekreuzt und verbunden: als modul: Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088 Private Const FILE_SHARE_READ = &H1 Private Const FILE_SHARE_WRITE = &H2 Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const OPEN_E ...

Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032

Also das ist ein kleiner Login, der seine Einstellungen in der Reg speichert Pro - Man hat keine Dateien aus denen das PW ausgelesen werden kann - Ich find, 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, brau ...

Verfasst am: 01.09.2008, 17:15 Aufrufe: 1758

Hier biete ich ein TuT an , wie man ein Screen Programm schreibt.bitte Codes genau durchlesen , zum lernen , nich C&P...Fangen wir an , als erstes brauchen wir ein Module , das die ganzen Funktionen deklariert.Modul einfügen mit folgendem Code:Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Declare Sub keybd_ev ...

Verfasst am: 04.08.2008, 13:12 Aufrufe: 1752

Verfasst am: 18.07.2008, 20:36 Aufrufe: 830

C:PROGRA~1MOZILL~1in C:PROGRAMMEMOZILLAumwandelnVisual Basic: [code]Option Explicit Public Const MAXPATH As Long = 260 Public Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd Type Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFi ...

Verfasst am: 28.06.2008, 22:11 Aufrufe: 1825

Verfasst am: 14.06.2008, 20:34 Aufrufe: 1677

Ich bekomme genau das hier in meiner Textbox angezeigt.Und das ist noch nicht so ganz der komplette Quellcode. :/<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de" lang="de"> < ...

Verfasst am: 27.05.2008, 23:17 Aufrufe: 588

Hab im Internet folgenden Code gefunden:Visual Basic: Wo liegt das Problem?

Verfasst am: 27.05.2008, 18:19 Aufrufe: 1600

SystemTray Modul:Visual Basic: [code]Option Explicit' alle benötigten API-DeklarationenPublic Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Public Const KEYEVENTF_KEYUP = &H2Public Const VK_LWIN = &H5BPublic Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTi ...

Verfasst am: 06.05.2008, 17:18 Aufrufe: 1134

Verfasst am: 21.04.2008, 19:54 Aufrufe: 2307

Hi Leute

Hab mir gedacht ich sollte euch mal wieder nen source schreiben den ihr vielleicht gebrauchen könnt. Name: DestroyFile() Funktion: Überschreibt und löscht Dateien Rückgabe: True oder False Beschreibung: Das ganze ist ein fertiges Modul. Ihr braucht den Code also nur in ein Modul einfügen und die Function "DestroyFile" aufrufen. Syntax: DestroyFile(Filepath, Loops, Blocksize ...

Verfasst am: 20.04.2008, 13:08 Aufrufe: 1514

Zur Verfügung gestellt von Nexos.'============================================================================================================= ' ' ...

Verfasst am: 11.03.2008, 19:46 Aufrufe: 1047

benutz dieses modul: '###modIniZugriff Option Explicit ' Private Type SettingPair ' ValName As String ' Value As String ' End Type ' Einen Wert aus einer INI Datei lesen Public Function GetIniValue(ByVal File As String, ByVal Section As String, ByVal ValName As String) As Variant Dim temp As String Dim actSection As String Dim ff As Integer On Error GoTo ErrOut ...

Verfasst am: 29.02.2008, 22:20 Aufrufe: 1780

http://mitglied.lycos.de/sollniss/shic.exe dieser code dürfte sich auch nach neuinstallation nicht ändern, außer ihr installiert windows auf nem anderen laufwerk oder so es verwendet die seriennummer der %homedrive% hdd das hardware sn modul: Option Explicit Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const FILE_SHARE_READ = &H1 Private Const ...

Verfasst am: 29.02.2008, 22:12 Aufrufe: 1314

Eigenschaft 2. Typen erstellen Zunächst braucht ihr ein Modul, dass ihr für die Typen verwenden wollt. Typen beginnen mit einem Public Type Name und enden mit End Type Dazwischen könnt ihr die Eigenschaften deklarieren, wie z.B. blub As String Unser bisheriger Code lautet also: Public Type Name blub As String End Type Die Liste der Eigenschaften könnt ihr natürlich beliebig weit erwe ...

Verfasst am: 18.02.2008, 16:03 Aufrufe: 650

hoppla, hab das modul vergessen: Option Explicit ' alle benötigten API-Deklarationen Public Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const KEYEVENTF_KEYUP = &H2 Public Const VK_LWIN = &H5B Public Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags A ...

Verfasst am: 16.02.2008, 18:49 Aufrufe: 1018

Hier erkläre ich eben eine Anti-Leak Methode mit der MAC-Addresse. Option Explicit ' alle benötigten API-Deklarationen Private Declare Function Netbios Lib "netapi32.dll" _ (pncb As NCB) As Byte Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" ( _ hpvDest As Any, _ ByVal hpvSource As Long, _ ByVal cbCopy As Long) Private De ...

Verfasst am: 20.01.2008, 15:19 Aufrufe: 629

... lare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, Source As Any, ByVal Length As Long) Private Type POINTAPI x As Long y As Long End Type Private Type MINMAXINFO ptReserved As POINTAPI ptMaxSize As POINTAPI ptMaxPosition As POINTAPI ptMinTrackSize As POINTAPI ptMaxTrackSize As POINTAPI End Type Public Type ...

Verfasst am: 08.12.2007, 21:18 Aufrufe: 2013

das ist vielleicht noch hilfreich: XP-Style Private Declare Sub ExitProcess Lib "kernel32.dll" (ByVal uExitCode As Long) Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long Private Function AppPath(ByVal zPath As String) As String If Right$(zPath, 1) = "\" Then AppPath = zPath Else AppPath = zPath & "\" End F ...

Verfasst am: 05.12.2007, 18:41 Aufrufe: 176

Vielleicht geht der Visual Basic (Deklaration) Public Sub userToken As IntPtr, _ type As String, _ acctType As WindowsAccountType, _ isAuthenticated As Boolean _ Visual Basic (Verwendung) Dim userToken As IntPtr Dim type As String Dim acctType As WindowsAccountType Dim isAuthenticated As Boolean Dim instance As New WindowsIdentity(userToken, type, acctType, isAuthenticated)

Verfasst am: 03.12.2007, 22:42 Aufrufe: 508

Hi, ich möchte in meinem derzeitigen Projekt die Länge von Videos herausfinden. und habe dazu auch schon einen source bei vb@archiv gefunden allerdings scheint der bei zu langen videos fehlerhaft zu sein. http://www.vbarchiv.net/archiv/tipp_662.html da ist der source. ' zunächst die benötigten API-Deklarationen Private Declare Function AVIFileOpen Lib "avifil32" _ Alias "AVIFileOpenA" &# ...

Verfasst am: 01.12.2007, 00:00 Aufrufe: 621

Verfasst am: 27.11.2007, 16:45 Aufrufe: 2319

Verfasst am: 10.11.2007, 12:52 Aufrufe: 351

Lösung ist doch recht einfach, Das ganze packst du in ein modul: Option Explicit Private WinOldProcMinMax Private Const GWL_WNDPROC = (-4) ' Die Nachricht WM_GETMINMAXINFO wird an ein Fenster ' geschickt, bevor es vergrößert bzw. verkleinert wird Private Const WM_GETMINMAXINFO = &H24 Private lX1 As Long Private lX2 As Long Private lY1 As Long Private lY2 As Long Private Type POINTAPI ...

Verfasst am: 15.10.2007, 14:48 Aufrufe: 666

Hallo, habe jetzt folgendes Beispiel gefunden: Imports System.IO Public Class Form1 Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Auf ...

Verfasst am: 08.08.2007, 07:53 Aufrufe: 1987

**Update** Hab den code nochmal etwas überarbeitet, da mir die Methode noch nicht ganz gefallen hat.

Verfasst am: 03.08.2007, 08:54 Aufrufe: 1987

Einige von euch kennen sicher das Programm "Sandboxie". Wenn nicht, dann seht euch mal auf deren Homepage um: Ich hab mir mal einen Weg überlegt wie man im Programm erkennen kann ob es in der Sandbox läuft oder nicht. Ein einfaches überprüfen ob Sandboxie läuft wäre denke ich nicht sinnvoll, da es ja nicht zwingend bedeuted, dass das Programm über Sandboxie gestartet wurde. Manche fragen sich vielle ...

Verfasst am: 02.08.2007, 13:21 Aufrufe: 1422

Thema: ADS – Alternate Data Stream (, ) Hallo an alle. Wiedermal hab ich mich an ein Tutorial gesetzt. Diesmal möchte ich euch etwas Besonderes zeigen. 1. Erklärung Ich versuche mal so einfach wie möglich zu erklären was es mit ADS auf sich hat. ADS (Alternate Data Stream) ist eine Funktion die es nur bei dem Dateisystem NTFS gibt, mit der man Daten an verschiedenste Dateien anhängen kann ohne dass diese ...

Verfasst am: 30.07.2007, 07:18 Aufrufe: 694

Verfasst am: 23.04.2007, 15:37 Aufrufe: 1411

'============================================================================================================= ' ' Dll Injection / Uninjection By ' British_Intel ' '============================================================================================================= Option Explicit Private Type MODULE ...

Verfasst am: 05.04.2007, 17:34 Aufrufe: 980

Mom ich such ma ebn im Codearchiv, kriegste in paar Minuten mit Edit nachgereicht.. Edit:: Edit2:: Sry da fehlten paar Types jetz isses vollstaendig.. Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPa ...

Verfasst am: 24.09.2002, 15:01 Aufrufe: 467

' Einzelne Zeile (alle Spalten) drucken Private Sub PrintRow(ByVal xPos As Integer, _ ByVal fmt As String, ByVal sRow As String) Dim OldScaleMode As Integer Dim sColWidth() As String Dim sColText() As String Dim I As Integer With Printer OldScaleMode = .ScaleMode .ScaleMode = 6 ' "mm" sColWidth = Split(fmt, "|") sColText = Split(sRow, "|") If UBound(sColText) < UBound(sColWidth) Then _ ReDim Preserve sC ...